Question

VB输入一个正整数编程判断奇数还是偶数

帮忙~~

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim n As Long

a = InputBox("输入一个正整数", "输入")
n = CLng(a)
If n Mod 2 = 0 Then
Print n; "是偶数"
Else
Print n; "是奇数"
End If
End Sub