Question

用VB编一个累加的小程序，给我代码

一个text框，里面输数字，一个按钮，和一个label显示框，点按钮，程序会一直从1加到文本框中输的数字，要用i=i+1格式的，不要用等差求和公式，最后把累加的结果会显示在label上面

Answer 1

Private
Sub
Command1_Click()
Dim
a,
s
As
Integer
a
=
Val(Text1.Text)
s
=
0
For
i
=
1
To
a
Step
1
'从1加到文本框中输的数字,重复执行i=i+1
s
=
s
+
i
's=s+i
Next
i
Label1.Caption
=
s
'输出结果
End
Sub

Answer 2

先定义全局变量定义int型 result =0; 在Command_Click事件里写：用for循环累加1 to val(text.Text)
result=result+i
最后在循环外写label.text=result

Answer 3

因为我的电脑上没有vb所以我用易语言代替，反正原理都是一样的。谢谢采纳

Answer 4

private sub command1_click()
dim a,s as integer
s = 0
a = val(text1.text)
for i = 1 to a
s = s + i
next i
label1.caption = s
end sub

Answer 5

Private Sub Command1_Click()
Dim Nsum As Long '和
For i = 1 To Val(Text1)
Nsum = Nsum + i
Next
Label1.Caption = Nsum
End Sub