Question

用vb从1加到100的程序怎么写

要求单击窗体时，分别计算1到100之间的整数和，奇数和，偶数和，整数和存到sum1中，奇数和存到sum2中，偶数和存到sum3中，数据输出使用print方法

Answer 1

Private Sub Form_Click()

Dim sum1 As Long, sum2 As Long, sum3 As Long, j As Long, n As Long

For j = 1 To 100

sum1 = sum1 + j

If j Mod 2 = 0 Then

sum3 = sum3 + j

Else

sum2 = sum2 + j

End If

Next

Me.Cls

Print "整数和："; sum1

Print "奇数和："; sum2

Print "偶数和："; sum3

End Sub

追问

单击后说缺少子程序，函数，或属性

单击后说缺少子程序，函数，或属性

Answer 2

1、打开VB6.0软件，新建一个标准exe工程；

2、设计界面上添加一个Command控件；

3、双击Command1控件，进入代码编辑，输入如下代码：
Private Sub Command1_Click()
Dim sum As Integer
sum = 0
For i = 1 To 100
sum = sum + i
Next i
Print sum;
End Sub

4、点击运行程序，单击按钮，可以看到1到100的和：