vb编写程序,求出指定区间的同时除3余2.除5余3的所有整数.

dimii=0forj=100to999ifjmod3=0thenif(j-6)mod10=0theni=i+1endifendifnext没有编译运行LZ自己试试

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

fori=100to500ifimod5=4andimod7=2thensum=sum+1nextprintsum再问：这是完整的吗我是新手不好意思麻烦一个完整的要直接刻通过的再答：将它放入按钮事件即

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

PrivateSubCommand1_Click()Fori=1To7Step2s=""Forj=1To7-iStep2s=s&""Nextjm=""Fork=1Toim=m&iNextks=s&mP

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

%主函数functiontest()x=[];fori=1:200flag=isprime(i);ifflagx=[x,i];endenddisp('1-200之间的质数有:');xend%子函数fu

#includeboolprime(intn){inti;if(n==1)return0;for(i=2;i*i

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo

PrivateSubform_load()Dimn,a(),i,b(5)n=100000ReDima(n-1)Fori=0Ton-1Randomizea(i)=Int(Rnd*6)+1b(a(i)-1

我HI你吧,等一下