用户输入一个整数,判断整数是否能被3并且可以被5整除,并输出判断结果
2018-03-12 · 知道合伙人互联网行家
关注
展开全部
'回答:用VB编写的代码如下:其中加了检测输入的值是否为整数
Sub zhengchu3and5()
Dim suru As String
suru = InputBox("请输入一个整数")
If Val(suru) = False Then '判断若输入的值不是数字则报错
MsgBox "错误!请输入一个整数"
ElseIf Int(suru) <> suru Then '判断若输入的值是数字但不是整数则报错
MsgBox "错误!请输入一个整数"
Else
If suru Mod 3 = 0 And suru Mod 5 = 0 Then '判断能否同时被3被5整除
MsgBox "你输入的值为" & suru & ",可以同时被3和被5整除"
Else
MsgBox "你输入的数值为" & suru & ",不可以同时被3和被5整除"
End If
End If
End Sub
Sub zhengchu3and5()
Dim suru As String
suru = InputBox("请输入一个整数")
If Val(suru) = False Then '判断若输入的值不是数字则报错
MsgBox "错误!请输入一个整数"
ElseIf Int(suru) <> suru Then '判断若输入的值是数字但不是整数则报错
MsgBox "错误!请输入一个整数"
Else
If suru Mod 3 = 0 And suru Mod 5 = 0 Then '判断能否同时被3被5整除
MsgBox "你输入的值为" & suru & ",可以同时被3和被5整除"
Else
MsgBox "你输入的数值为" & suru & ",不可以同时被3和被5整除"
End If
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询