VB补充程序求1-100之间所有奇数和原题
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 07:57:35
privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo
求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/
PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next
SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&
dimiasintegerdimsumasintegeri=1方法1dowhilei100sum=sum+ii=i+1loop方法3dosum=sum+ii=i+1loopwhilei<100
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
语句自己找给思路.第一种:暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
楼上回答基本是正确的.呵呵.就这一句有点可讨论的i=Int(Rnd*49+1)首先,对这里的数理解为整数.其次,1到50之间的数,如果包括1和50的话,应该是:i=Int(Rnd*50+1)如果不包括
Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问:在excle中如何检查再答:添加一个命令按钮定义它的单击属性为再添加一个文本显
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu
2500再问:过程,谢谢再答:1+3+5+...+9999+97+95+...+1(1+99)×50÷2=2500
大概这个意思:Dim MaxY as SingleDim X,YMaxY = -999999For X = 1
将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码:Private Sub Form_load()'必要的初始化操作Timer1.in
dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问:mod什么意思啊没怎么听课不懂啊谢谢啊
楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo
PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To13Forj=1ToiPrint"";NextjForj=iTo13-i+1PrintChr(56-i