vb编写判断奇，偶数的函数过程。
vb编写判断奇，偶数的函数过程。
日期：2012-05-15 11:00:23 人气：1
在此创建一个文本框，按钮，标签 都是原先默认名不要改
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