vb找出200-300之间的所有素数,并将其置于姐边框中

早上好啦

PrivateSubForm_Load()DimstrAsStringFori=100To200IfiMod3=2AndiMod5=3AndiMod7=2Thenstr=str&""&iEndIfNe

Dimb(100)PrivateSubCommand1_Click()Fori=1To100a=Int(1800*Rnd)+200b(i)=aPrintb(i)NextiEndSubb这个数组里面就保

dimi,sfori=200to300s=imod5ifs=""thenprintiendif再问：大哥对不对啊我马上要考VB了，再答：PrivateSubCommand1_Click()Dimi,s

对质数的定义是：除了1和本身,不能和其它数整除.那么计算质数我们,仅需要一趟循环检查就可以了.假设用户输入了初始值jj那么确定质数应该：1）计数器aa必须从2开始（1不算）.2）计数器aa必须小于jj

OptionExplicitPrivatea(9)AsIntegerPrivateiMaxIndexAsIntegerPrivateSubCommand1_Click()Dimi,j,k,iMaxAs

dimiasinteger,iiasintegerfori=1to1999if(imod3)=0and(imod7)=0andright(i,1)=3thenii=ii+1endifnextprint

为什么每行3个字,到空格这行就5个了么每一行三个数减去后一行的,得到的数是下一行的86536515243501216512（19）（-5）（00）或者看成一个5位数就是18500我不知道题目是怎么写的

Fori=10To9999IfLeft(CStr(i),IIf(iNexti

PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSu

PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu

PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1j=j+1Ifj=11ThenExitForIfList1.List(i)NextEndSubPr

PrivateSubCommand1_Click()i=2344Doi=i+1Forj=2Toi-1IfiModj=0ThenExitForNextLoopUntili=jPrintiEndSu

说实在的,你的第二段话我没怎么看明白我就按照标题帮助你一下吧,你想要一个有小数的随机数区间,其实并不难,只需要在你原来的代码上稍作改动就行,我们以5~10举例吧,如果你需要得到5~10之间省略到6位小

1.不明白你是什么意思2.逆序输出PrivateSubText1_Change()Text2=Right(Text1,1)&Left(Text1,1)EndSub3.华氏转摄氏PrivateSubTe

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

PrivateFunctionfact(n&)AsBoolean'错误1：参数n的数据类型应该与command1_click事件里的i类型一致Dims&'错误2：s的类型也应该是长整型（&）,你原来定

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

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim