Private Sub 判斷_Click()
If IsNumeric(Me.輸入數字) Then
If Me.輸入數字.Value Mod 2 = 0 Then
Me.顯示答案.Value = "偶數"
ElseIf Me.輸入數字.Value Mod 2 = 1 Then
Me.顯示答案.Value = "奇數"
End If
Else
MsgBox "妳輸入的不是數字"
Me.輸入數字.SetFocus
End If
End Sub
第壹步應該先判斷輸入的是不是數字,如果是再取模,否則彈出錯誤提示,並重新獲取焦點。