【简答题】'输入一个数,判断奇偶性 Private Sub Form_Click() Dim a As Integer a = ____________________ If _____________ = 0 Then MsgBox a & "是偶数" ______________ MsgBox a & "是奇数" ______________ End Sub
【简答题】在文本框text1中输入一个整数,判断其奇偶性。 Private Sub command1_Click() n=val( ) If n( ) Then Label1.Caption = n & " 是个奇数" Else Label1.Caption = n & " 是个偶数" End If End Sub