1+2+3+4+5+6

在窗体上有一个命令按钮command1，程序运行时点击命令按钮，出提示框输出答案。代码如下。你可以直接复制到窗体就可运行

Private Sub Command1_Click()
Dim i,sum As Integer
sum = 0
For i = 1 To 6
sum = sum + i
Next i
MsgBox "计算结果是：" & sum
End Sub