Dim n As Integer
n = InputBox("请输入一个数n")
If (n Mod 3 = 0) And (n Mod 5 = 0) Then MsgBox n & "能被3和5整除" Else MsgBox n & "不能被3和5整除"
你是要一个完整的程序还是要一段判断的代码回去做
if n mod 5=0 and n mod 3 =0 then
n 能被3和5整除
else
n 不能被3和5整除
end if
基本程序就是这样 ,当然程序里不能这样写 ,这样写是无法运行的。原理就是这样
需要完整的程度再追。