vb如何实现1到100的累加,并且累加一次在TEXT中输出一次结果,但是不能覆盖

Question

vb如何实现1到100的累加,并且累加一次在TEXT中输出一次结果,但是不能覆盖

Answer 1

private sub Form_Load()
text1.MultiLine=true
end sub
private sub Command1_Click()
dim i as Integer
dim sum as Integer
sum=0
for i=0 to 100
sum=sum+i
if text1.text="" then
text1.text=sum
else
text1.Text=text1.Text & "-"(可以是任意分隔符) & sum
end if
next
end sub

Answer 2

Text1属性设置：
Multiline=true
ScrollBars = 2

代码如下：
private sub Command1_Click()
dim i%，mS%
for i=1 to 100
ms=ms+i
text1.Text=text1.text & i & " " & ms & vbcrlf
next i
end sub

Answer 3

Private Sub Command1_Click()
Dim i%,s%
Text1= ""
s=1
For i = 2 to 100
s = s + i
Text1= Text1 & s & vbcrlf
Next i
End Sub

Answer 4

Private Sub Command1_Click()
Dim i As Integer,s as Long
Text1.Text = ""
For i = 1 to 100
s = s + i
Text1.Text = Text1.Text & CStr(s) & " "
Next i
'...
End Sub