Private Sub CommandButton1_Click()
Dim nNum As Long
If IsNumeric(TextBox1.Text) Then
nNum = Val(TextBox1.Text)
If nNum Mod 5 = 0 Then
MsgBox "能被5整除！", vbInformation, "提示"
Else
MsgBox "不能被5整除！", vbInformation, "提示"
End If
Else
MsgBox "输入不正确！", vbExclamation, "提示"
TextBox1.SetFocus
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024