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