1樓：
上面的兄弟是考lz的改錯技術嗎？
我改了一下macrotian給的**
private sub command1_click()dim pro as double
dim i as integer
n = text1.text
pro = 1
for i = 1 to n
if i mod 2 <> 0 then pro = pro * inext
text2.text = pro
end sub
2樓：匿名使用者
private sub command1_click()text2.text = 1
for i = 1 to val(text1.text) step 2
text2.text = val(text2.text) * inext i
end sub
vb問題簡單
問題出在這裡 你定義的a是integer型別 而文字框的文字所屬型別是string a text1.text text2.text 所進行的其實是文字的相加，並不是數字的加法運算，因此得到 123 的結果。正確的應該這樣 a val text1.text val text2.text b val t...
vb簡單問題求教
6 5461 2全是整型數，但結果大於整數，所以結果溢位 6 54610 2裡54610是長整型數，結果也是長整型數，所以結果不溢位 這與vb開闢計算用的快取區大小有關，全整型開闢整型快取區。vb 計算的時候是分步計算的，然後中間結果會用應該對應型別的變數來儲存，如上 共三個數 6 5461 2 這...
vb編寫記事本問題，用VB製作乙個簡單記事本問題！
richtextbox的大部分功能textbox都能實現，只是比較麻煩點而已。開啟和寫入檔案用open語句 open xx.txt for input as 1 讀取和寫入用line input和print。例 private sub command1 click 讀取檔案 open xx.txt ...