二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数

问题描述:

二、 编写一个VB函数过程,用以判断一个数是奇数还是偶数

Dim n As Integer
Private Sub Form_Click()
If n / 2 = 0 Then
Print "n是偶数"
Else
Print "n是奇数"
End If
End Sub
Private Sub Form_Load()
n = InputBox("请输入整数:")
End Sub