vb输入1个整数 判断能否被3和7整除,若能输出A 不能输出B

题目

vb输入1个整数 判断能否被3和7整除,若能输出A 不能输出B
我需要正确的代码.

答案

pravite sub command1_Click()
dim n%
n=inputbox("请输入一个整数","输入整数")
if n mod 3=0 and n mod 7=0 then
print "A"
else
print "B"
end if
end sub