会VB编程者请进！

本人初学VB，想请大家帮忙编个程序，使用循环语句编一个1+1 、1+2、1+3 、1+……一直加到100的程序！感激不尽！

追问：麻烦你再看一下，好像不行耶

答案：
Private Sub Form_Click()
    For i = 1 To 100
        For j = 1 To i
            s = s + j
        Next j
        num = num + s
    Next i
    Print num
End Sub
Private Sub Form_Click()
Dim i%, sum%
sum = 0
For i = 1 To 100
sum = sum + i + 1
Next i
Print "Sum ="; sum
End Sub
Dim i%, sum%可以改为Dim i as interger,sum as interger 
实际上时一样的 你试试吧
Private Sub Command1_Click()  '输出每项的和
Dim g As Integer, i As Integer
For i = 1 To 100
   g = i + 1
   Print g
Next i
End Sub

Private Sub Command2_Click()  '输出各项的总和
Dim g As Integer, i As Integer
For i = 1 To 100
   g = g + 1 + i
Next i
Print g
End Sub

上一个：打开VB编程环境提示错误
下一个：VFP、VB编程怎么做？