vb用循环语句求fibonacci

用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.DimiAsInteger,nAsLong,sAsStringText8=""Adodc1.RecordSource

iffornext

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

没有具体数据,无法测试,但主体可用如下方法：Dimp1AsDouble‘用于储存Φi-1的值Dimp2AsDouble’用于储存Φi-2的值PrivateSubForm_Click()DimiAsIn

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

我也才学vb假如是fort=1to10step1那么t的取值就是1、2、3、4、5、6、7、8、9、10；如果step2那么t的取值是1、3、5、7、9；如果是step3那么t取值是1、4、7、10；

fori=3to10000‘查找质数forj=2toi-1x=imodjifi<>0thenexitfor'如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

i=1j=1x=1i=2j=1x=2j=2x=3i=3j=1x=4j=2x=5j=3x=6i=4j=1x=7j=2x=8j=3x=9j=4x=10循环结束,此时x=10

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

14i=1时,j=1to1,k=1to3,a=a+1执行3次,a=3i=2时,j=1to2,k分别=1to3和,2to3,则执行3+2=5次,a=3+5=8i=3时,同理,a=a+1执行3+2+1=6

'第1题：DimxAsIntegerDimMaxIAsIntegerDimiAsIntegerx=InputBox("请输入第1个整数")MaxI=xFori=2To10x=InputBox("请输入

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

forx(循环变量)=1(初始值)to10(终止值)step2(步进)next以上为完整的循环结构1.没有终止值所以错3.初始值比终止值小所以步进应该为整数而它是负数所以也错4.初始值大于终止值默认步

给你做到第4题吧：Private Sub Command1_Click()    Dim i As Long,

sqr(n)是指n的平方跟从2到根号n,用来找素数素数肯定从2开始,然后a=根号a*根号a超过根号a就重复计算了再问：那使用sqr(n)有什么好处？或者说和其他的取值方式比有什么区别？为什么不用for

大概这个意思：Dim MaxY as SingleDim X,YMaxY = -999999For X = 1

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

数值0等同于布尔值常量的False,而DoUntil则是当表达式为真时跳出循环,这与DoWhile刚好相反,所以:DoUntil0相当于DoUntilFalse相当于DoWhileNot(False)