要求单击窗体时,分别计算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
追问单击后说缺少子程序,函数,或属性
单击后说缺少子程序,函数,或属性