1樓：房恩巨集
用split函式打散字串即可實現。
2樓：萍水e相逢
form上放一個文字框，多行，垂直滾動條，按鈕一個；
程式如下：
private sub command1_click()
dim a(), i as integer
dim t as single
dim s() as string
s = split(trim(text1.text), ",")
redim a(ubound(s))
for i = 0 to ubound(s)
a(i) = cint(s(i))
next
text1.text = text1.text + vbcrlf
t = 1
for i = 0 to ubound(s)
t = t * (a(i) - 1)
text1.text = text1.text + "( " + cstr(a(i)) + " - 1 ) "
if i <> ubound(s) then text1.text = text1.text + " * "
next
text1.text = text1.text + vbcrlf
text1.text = text1.text + string(60, "-") + vbcrlf
for i = 0 to ubound(s)
t = t / (a(i) - 2)
text1.text = text1.text + "( " + cstr(a(i)) + " - 2 ) "
if i <> ubound(s) then text1.text = text1.text + " * "
next
text1.text = text1.text + vbcrlf
text1.text = text1.text + " = " + cstr(t) + vbcrlf
end sub
儲存的問題，你自己 解決
問題 「有一串數字 5，8，13，21，34，
你從第一項到12項除以3餘數分別是 2 2 1 0 1 1 2 0 2 2 1 0 你會發現每八項是一個週期，所以用1000除以8餘數是0，真好是125個週期也就是說第1000個數除以3餘數是0 餘數是0.具體過程是列出前12個數字被三3除的餘數 2 2 1 0 1 1 2 0 2 2 1 0就能看...
一串數字用橫槓連起來的，一串數字用一個橫槓連起來的
你是說上述功能如何在文字中實現吧？很簡單 文字照常輸入，然後用繪圖功能，在一串數字上畫線，列印時照樣顯示。一般用於刪除數字，既刪除掉數字，又能讓人明白是刪除了。你是要問什麼呢 怎麼打出來嗎 中怎麼打出來帶橫槓的數字，例如6049 吉他六線譜兩個數字被橫線連起來是什麼意思？吉他六線譜兩個數字被橫線連起...
女孩給我發了一串數字642874437366442496896我不懂求解
這是一串非常有意思的數字，別人不懂，但是你很幸運遇到了我，我就能完美的破譯這串前無古人後無來者無法破解數字 1.首先前面一個數字是6最後一個數字也是6 而中間是一串毫無關聯的數 2.她是向你表白，要你從始至終對她一心一意3.其實前後的6不重要，重要的是中間那看起來毫無關聯的數字4.那是一串金錢數字，...