作业帮 > 综合 > 作业

试编程判断输入的正整数是否及时5又是7的整数倍,若是,则输出yes,否则输出no(用VB的知识作答)

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/28 04:56:46
试编程判断输入的正整数是否及时5又是7的整数倍,若是,则输出yes,否则输出no(用VB的知识作答)
试编程判断输入的正整数是否及时5又是7的整数倍,若是,则输出yes,否则输出no(用VB的知识作答)
是5和7的整数倍,那必须是35的整数倍.
用一个TextBox和CommandButton
private sub text1_change()'控制输入,不能为小数,负数
if right(text1.text,1)="." or left (text1.text,1)="-" then
text1.text=""
end if
end sub
private sub command1_click()
if (val(text1.text) mod 35=0)then
msgbox "yes"
else
msgbox "no"
end if
end su