没办法对VB实在是陌生。VB笨蛋再次提问。急求各位高手帮忙。

Question

最近开发转向VB（一直都没接触过），不得不半道出家。请各位帮个忙。
编制程序代码，实现在文本框text1中输入一个整数，单击“该数是：”按钮command1，则label2显示该数是偶数还是奇数结果，单击“清除”铵钮command2清空文本框中内容和标签label2显示的内容，单击“结束”按钮command3结束程序。

Answer 1

private sub command1_click()
   label2.caption="该数是：" & iif(text1 mod 2=0 ,"偶数","奇数")
end subprivate sub command2_click()
   label2.caption=""
   text1=""
end subprivate sub command3_click()
   end
end sub

Answer 2

Private Sub Command1_Click()
    If (Val(Text1.Text)) Mod 2 = 0 Then
        MsgBox "偶"
    Else
        MsgBox "奇"
    End If
End SubPrivate Sub Command2_Click()
    Label1.Caption = ""
    Text1.Text = ""
End SubPrivate Sub Command3_Click()
    End
End Sub