vb高手帮个忙

if text1.text mod (3*5*7) = 0 then
msgbox "能"
else
msgbox "不能"
end if

根据最小公倍数的逻辑，这里不用一个一个写 if ** mod 3 = 0 and ** mod 5 = 0 and ** mod 7 = 0，只要写** mod 3*5*7=0即可
mod：求余运算。整除的话余数就是0。

dim a,m,n as double
a=text1.text
m=a/3
n=int(a\3)
if m=n then
m=a/5
n=int(a\5)
if m=n then
m=a/7
n=int(a\7)
if m=n then
msgbox "能同时被3、5、7整除"
else
msgbox "能同时被3、5整除，不能被7整除！"
end if
else
msgbox "能被3整除，不能被5、7整除！"
end if
else
msgbox "不能被3、5、7整除！"
end if

假设文本框的数为 n

那些事件我不说了 直接判断
a = n mod 3 (a 等于 0 则整除)
b = n mod 5
c = n mod 7
if a=0 and b = 0 and c= 0 then
‘同时整除
else
’没同时整除
end if

写个函数

dim a as string
a = text1.text
if a mod 3 =