高手来解决问题
我们老师让俺们做这么一道题 "
用单行结构语句实现 从文本框输入一个数,单机 "判断 "按扭判断它能否同时被3,5,7整除 则用消息框显示 "能同时被3,5,7整除 ",否则显示 "不能整除 "
哪位好心人帮个忙,我初学VB 不懂这个东西
感谢大家了
[解决办法]
由于3，5，7是互质的，他们的最小公倍数是3*5*7=105
只有能整除105的数才能同时整除3，5，7
新建窗体,一个文本框，一个按钮：在窗体的load 事件中写：
form1.show
textbox1.setfocus
在按钮点击事件中写
if isnumeric(trim(text1.text)) then
if clng(trim(text1.text)) mod 105 = 0 then
msgbox "能被3，5，7整除 "
else
msgbox "不能被3，5，7整除 "
end if
else
msgbox "输入的数据个是不正确，请重新输入 "
text1.selstart = 0
text1.selleng =len(text1.text)
text1.setfocus
end if
