【简答题】'输入一个数,判断奇偶性 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
【简答题】输入一个整数并判断其奇偶性。要求用 InputBox 函数输入。 Private Sub Command1_Click() x = InputBox("输入一个数:", "判断奇偶性", "") If _____________ Then MsgBox "输入的是偶数:" & x Else MsgBox "输入的是奇数:" & x End If End Sub