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