Question

VB中怎样制作从1累加到100的程序

Private Sub Command1_Click()
Dim s,i As Integer
s=0
i=1
While i <=100
s=s+i
i=i+1
Wend
Print s

有何错误？

Answer 1

dim s,i as integer 最好写成 dim s as integer,i as integer
设置窗体的AutoRedraw 属性为 True，可以在form_load中这么写
Me.AutoRedraw = True

Answer 2

Private Sub Command1_Click()Dim a, sum
For a = 1 To 100
sum = a + sum
Next a
Print sum
End Sub

Answer 3

Print s下面加上一句End Sub

Answer 4

1累加到100不是5050吗！？