vb中用inputbox函数输入一个整数后,判断次数能同时被3和5整除,还是只被其中之一整除.

Private Sub form_load()
a = InputBox("","输入一个数","")
If IsNumeric(a) Then
If a Mod 15 = 0 Then
MsgBox a & "能被3和5同时整除"
Else
If a Mod 3 = 0 Then
MsgBox a & "能被3整除"
Else
If a Mod 5 = 0 Then
MsgBox a & "能被5整除"
Else
MsgBox "都不能被整除"
End If
End If
End If
Else
MsgBox "输入非数字"
End If
End Su