vb计算一到十的奇数和以及偶数和

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 18:48:23
vb计算一到十的奇数和以及偶数和

vb计算一到十的奇数和以及偶数和
vb计算一到十的奇数和以及偶数和

vb计算一到十的奇数和以及偶数和
Private Sub Command1_Click()
    Dim i&, x&, y&
    For i = 1 To 10
        If i Mod 2 = 0 Then
            x = x + i
        Else
            y = y + i
        End If
    Next
    MsgBox "偶数和是:" & x
    MsgBox "奇数和是:" & y
End Sub