用vb从1加到100的程序怎么写
要求单击窗体时，分别计算1到100之间的整数和，奇数和，偶数和，整数和存到sum1中，奇数和存到sum2中，偶数和存到sum3中，数据输出使用print方法
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
追问单击后说缺少子程序，函数，或属性
单击后说缺少子程序，函数，或属性
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-05-03
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的和：
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的和：
相似回答