vb编写判断奇,偶数的函数过程.

在此创建一个文本框,按钮,标签 都是原先默认名不要改
Private Function a(c As Integer)
If c >= 0 And c Mod 2 = 0 Then
Label1.Caption = Text1.Text & "为偶数"
Else
Label1.Caption = Text1.Text & "不为偶数"
End If
End Function
Private Sub Command1_Click()
Dim b As Integer
b = Text1.Text
Call a(b)
End Su