Private Sub command1_click()Dim int1 As Integerint1 = InputBox("输入一个整数")If int1 Mod 15 = 0 ThenMsgBox "此数能同时被3和5整除"ElseIf int1 Mod 3 = 0 ThenMsgBox "此数能被3整除"ElseIf int1 Mod 5 = 0 ...