dim s,i as integer 最好写成 dim s as integer,i as integer
设置窗体的AutoRedraw 属性为 True,可以在form_load中这么写
Me.AutoRedraw = True
Private Sub Command1_Click()Dim a, sum
For a = 1 To 100
sum = a + sum
Next a
Print sum
End Sub
Print s下面加上一句End Sub
1累加到100不是5050吗!?