是5和7的整数倍,那必须是35的整数倍。。。用一个TextBox和CommandButtonprivate sub text1_change()'控制输入,不能为小数,负数if right(text1.text,1)="."or left (text1.text,1)="-" thentext1.text=""end ifend subprivate sub command1_click()if (val(text1.text) mod 35=0)thenmsgbox "yes"elsemsgbox "no"end if end sub...
添加一个command按钮Private Sub Command1_Click()Dim n%n = Val(InputBox("请输入正整数"))‘用val函数将字符串转化为数字If n Mod 5 = 0 And n Mod 7 = 0 Then MsgBox "yes"’输出ElseMsgBox "no"End ...
Dim n As Integer 'n为输入值设为整数型别n = Val(InputBox("请输入N值", "输入N值")) '产生输入框输入后将传回n值 '这里要判断一下输入是否为正整数
If n Mod 5 = 0 and n Mod 7=0Then '判断如果当n值除5和7值=0则输出
Print n '列出能被...