1樓：匿名使用者
private sub c1_click()dim n as integer, m as integer, i as integer, sum as single
n = val(text1.text)
m = val(text2.text)
if n > m then '這個防止n比m大時,下面的迴圈不走.所以換下位置
t = m
m = n
n = t
end if
for i = n to m
sum = sum + i
next i
text3.text = sum
end sub
額,忘了讓標題是計算了。
加下面的**就ok了.
private sub form_load()c1.caption = "計算"
end sub
以上除錯過了的.正確執行.
給分吧.呵呵.
2樓：匿名使用者
private sub command1_click()on error resume next
text3.text = cstr(cint(text1.text) + cint(text2.text))
end sub
vb的小問題，關於vb的小問題
你在做執行程式時，不新增其他的退出按鍵就可以啊！關於vb的小問題 setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。h是16進位制數字的開頭。寫在 裡面表示加上 h這兩個字元竄。如加號後面的數值 5的話，setmynum就等於val h5 這個意思。號後面的mid su...
VB新手問題請大俠們幫忙一下
把option explicit 去掉就不會提示變數未定義了。不過事先定義變數是個很好的習慣。dim a as int dim b as char應該是dim a as integer dim b as single dim a as int dim b as char 上面是不行的。呵呵，很明顯，...
關於VB的倆問題，幾個關於VB的問題
第一個問題 沒看懂，什麼叫不能用？第二個問題 不是設定的問題啊。大於小於不等於能直接用的啊！你是說語法錯誤還是說程式結果錯誤。如果是語法錯誤看看你輸入時是不是輸入的全形符號。應該不會是這種錯。問題說清楚點。幾個關於vb的問題 你真的打算0分，讓人幫你解決這7個比較有難度的問題？朋友，你的問題太複雜且...