任意输入一个整数，判定该整数的奇偶性。
要求：用Label1显示“请输入一个整数：”，用Label2来显示判断的结果“奇”或“偶”，用Text1来输入整数，三个Command按钮用来判断、清除和结束程序。
帮我些下代码吧！！！

通过鉴定可不可以被2整除不就可以吗。

用 X Mod 2或是 X and 1都可以判断X这个数是否为奇数。

Private Sub Command1_Click()
Dim nII As Long
nII = Val(Me.Text1.Text)
If nII Mod 2 = 0 Then
Me.Label2.Caption = "偶数"
Else
Me.Label2.Caption = "奇数"
End If
End Sub

Private Sub Command2_Click()
Me.Text1.Text = ""
Me.Label2.Caption = "没有结果"
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Text1.Text = 0
End Sub

Private Sub Text1_LostFocus()
Me.Text1.Text = Val(Me.Text1.Text)
End Sub

注意下载以后文件改为Form1.frm用VB打开即可

最可怕的事情，现在这么多都是为了完成作业而提问，并非为了学到东西！！更为可怕的是根本就没去想要学，只是想要个成品去交作业。

那怎么办？也别太为难他们了。

我也是这样过来的，现在不也会写东西了吗!

说明你是有上进心的，原来也并非只是要个代码去交作业的人。所有人都是从不会到会的，这很正常，我只是希望看到的是更多为学习而提问的人。