Question

输入一个数,判断它能否同时被2,5,7整除。用vb语言抄写

输入一个数,判断它能否同时被2,5,7整除。用vb语言抄写

Answer 1

dim a as long
a=val(inputbox("请输入一个数字"))
if a mod 2=0 and a mod 5=0 and a mod 7=0 then
msgbox("此数能被2，5，7同时整除")
else
msgbox("此数不能被2，5，7同时整除")
end if

追问

为啥写完之后告诉我缺少编译错误，缺少表达式

Answer 2

Private Sub Form_Load()
For i = 1 To 100000
If i Mod 2 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then Print i
Next
End Sub