用VB写出1-100的所有奇数和偶数和

来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/17 14:18:42
用VB写出1-100的所有奇数和偶数和用VB写出1-100的所有奇数和偶数和用VB写出1-100的所有奇数和偶数和PrivateSubCommand1_Click()Dimi,sum1,sum2AsI

用VB写出1-100的所有奇数和偶数和
用VB写出1-100的所有奇数和偶数和

用VB写出1-100的所有奇数和偶数和
Private Sub Command1_Click()
Dim i,sum1,sum2 As Integer
sum1 = 0
sum2 = 0
For i = 1 To 100
If i Mod 2 = 1 Then
sum1 = sum1 + i
Else
sum2 = sum2 + i
End If
Next i
Print "奇数和为" & sum1
Print "偶数和为" & sum2
End Sub