作业帮 > 数学 > 作业

vb中通过inputbox输入一个整数后,判断此数能同时被3和5整除,还是只被其中之一整除

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/09 07:24:59
vb中通过inputbox输入一个整数后,判断此数能同时被3和5整除,还是只被其中之一整除
Private Sub command1_click()
Dim int1 As Integer
int1 = InputBox("输入一个整数")
If int1 Mod 15 = 0 Then
MsgBox "此数能同时被3和5整除"
ElseIf int1 Mod 3 = 0 Then
MsgBox "此数能被3整除"
ElseIf int1 Mod 5 = 0 Then
MsgBox "此数能被5整除"
Else
MsgBox "此数不能被3和5整除"
End If
End Su