UC知道急求：VB编程1到100求和
来源：百度知道 编辑：UC知道 时间：2024/05/05 18:00:05
用For语句，请写得尽量完整，结尾用MsgBox.谢谢！
dim i as integer
dim sum as interger
for i =1 to 100
sum=sum+i
next i
msgbox(sum)
Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next
MsgBox "1到100的和为:" & s
End Sub
dim i as integer
dim s=0 as integer
for i = 1 to 100
s = s + i
next i
text1.text = s
msgbox("1到100的和为：val(text1.text)")