6.計算機程式--- If 函數應用--判斷奇偶數

Private Sub Command6_Click( )
    Rem 班級:四技機一丙學號10014**** 姓名:***
    Rem 辦別所輸入之數字為奇數或偶數
    x = InputBox("請輸入任意數字x=")
    If ( x Mod 2 ) = 0 Then
          Print "你輸入的數字是 " ; x ; " 它是偶數"
    Else
          Print "你輸入的數字是 " ; x ; " 它是奇數"
    End If
End Sub