VB检查输入的两个数是否能整除

抢个沙发!S=""fori=0to200step5ifimod30thenS=S&i&","nextiMsgboxS

PrivateSubCommand1_Click()OnErrorGoToHellDimMAsInteger'月份DimNAsLong'张数DimRAsInteger'折扣M=InputBox("请输

Private Sub Command1_Click()X = val(InputBox(""))For i =&nbs

3再答：6再答：9再答：12再答：12再答：15再答：18再答：21再答：24再答：27再答：30再答：33再答：36再答：39再答：42再答：45再答：48再答：51再答：54再答：57再答：60再

PrivateSubcommand1_click()Dimint1AsIntegerint1=InputBox("输入一个整数")Ifint1Mod15=0ThenMsgBox"此数能同时被3和5整除

count=0Fori=1To1000IFi%7==0Thencount++Nexti

这样才完整：判断不出错.N-1省去了许多判断,提高了效率.PrivateSubCommand1_Click()DimNAsIntegerDimiAsIntegerIfIsNumeric(Text1.T

额,这个更简单了if(i%7==0)

inta;inti=a%3,j=a/3;if(i==0)能被3整除;if(1==j%10)个位数是1;%就是取"余数",比如51%10＝1；－－51除以10余1；

FunctionJudge(NAsInteger)AsBooleanJudge=NMod17*37=0EndFunctionPrivateSubForm_Click()DimiAsIntegerFor

被5整除的数有一个特点,分为两类,一类是可以被10整除,如10,20……,另一类就是不能被10整除但是能被5整除,如5,15……dimcount1aslong‘先看n整除以10等于多少,比如n是10的

大致思路可以这样,不妨假设输入的a>等于b,然后你引入一个新变量c,让c初始值为1,并让c+1的值附值给c,条件是c

判断一个数n是否为素数,只需要判断其是否能被2到sqrt(n)之间的整数整除即可,因此该空应该填写0,即一旦整除之后跳出循环,并进行下一步判断当然,如果您想调用sqrt函数的话应该事先加载math.h

#include <stdio.h>void main(){int i;for(i=100;i<=300;i++){if(i%3==0&

PrivateSubForm_Click()DimiAsIntegerFori=1To100IfiMod3=0AndiMod7=0ThenPrintiEndIfNextEndSu

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

printf()和scanf()都是C语言里的标准输出、输入函数哦.stdio、h什么的是程序运行时要调用的.我想,你也许不是要一个真的可以在电脑上跑的程序吧?如果单纯按数学意思来的话,MOD是取余算

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsSingle,nAsStringn=InputBox("enterdatan:")Fori=

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊