1樓：拾_忔
private sub form_load()dim i,s as integer
for i=1 to 10
s=s+i
next i
print s
end sub
2樓：
dim i as integer
dim sum as integer
for i=1 to 10
sum = sum + i
next
print sum
參考
用vb設計一個簡單的加法，和求和的小程式怎麼弄
3樓：4573去
兩個文字框，一個按鈕，按下事件：msgbox text1.text+text2.text
vb課程設計，10以內的加法運算，有做出來的嗎？ 10
4樓：
private sub command1_click()s= ""
for i = 1 to 9
for j = 1 to i
s = s & i & "+" & j & "=" & (i + j) & vbtab
next
s = s & vbcrlf
next
print s
end sub
5樓：匿名使用者
for a=1 to 10
s=s+a
next a
vb程式100以內兩位數加法練習
6樓：匿名使用者
窗體上有個label1，text1，command1，點選command1後在text1輸入計算結果，十道題後計算得分dim a, b, i, k, j as integer
private sub command1_click()a = int(rnd() * 100 + 0)b = int(rnd() * 100 + 0)label1.caption = a & "+" & b & "="
end subprivate sub text1_change()c = val(a) + val(b)
if len(text1.text) = len(c) and text1.text <> "" then
a = int(rnd() * 100 + 0)b = int(rnd() * 100 + 0)label1.caption = a & "+" & b & "="
if val(text1.text) = c theni = i + 1
j = j + 1
text1.text = ""
else
k = k + 1
j = j + 1
text1.text = ""
end if
if j = 10 then
label1.caption = ""
msgbox "共計算了10道題，您做對了" & i & "道，錯了" & k & "道，得分" & i & "分"
j = 0
i = 0
k = 0
end if
end if
看下是不是這樣
7樓：匿名使用者
我學vb的時候寫過一個 小學生四則運算訓練系統 ，你要的話可以留下郵箱
如何用vb編輯加法程式
8樓：匿名使用者
public function add()dim inta as integer, intb as integer
dim intsum as integerinta = int(rnd() * 100)intb = int(rnd() * 100)intsum = inta + intb
msgbox intsum
end function
vb加法運算程式,VB加法運算程式
這個 中 private sub mand1 click dim n1,n2 as integern1 val text1.text n1 val text2.text label4.caption n1 n2end sub 第4行的n1顯然應該是n2 要知道一個vb與眾不同規定 dim n1,n2...
設計程式vb隨機產生10到100之間（包括10和
private sub command1 click on error resume next dim a 5 as integer randomize int upperbound lowerbound 1 rnd lowerbound for i 0 to 3 b c 0 for j 1 to ...
VB設計小學算術題出題程式，VB設計一個小學算術題出題程式
private sub command1 click dim 分數 as integer 分數 0 if val text1.text 56 then 分數 分數 20 if val text2.text 56 then 分數 分數 20 if val text3.text 57 then 分數 分...