vb打印fibon

Private Sub Command3_Click()For i = 1 To 4For j = 

这个应该可以!

有了,可能不是最好的算法,希望对你有帮助!DIMm,nASINTEGERDIMaASSTRINGDIMbASSTRINGform=1to4a=""b=""b=space$(4-m)forn=1toma

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

新建工程,添加command1控件,复制我的代码.vb6.0+xp调试通过.代码如下PrivateSubCommand1_Click()DimiAsIntegerPrintSpace(10)&"*"F

10,20,程序的意思就是A赋值为2,B赋值为10,再把B的值赋给A,B+10赋值给B,即B=20.然后输出A的值,输出“,”,B的值,“,”.所以输出的结果是10,20,再问：补充一下，“print

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

PrivateSubCommand1_Click()DimA%,B%,C%,D%,E%'定义5个IntegerForA=0To9'让A当百位上的数从0到9循环ForB=0To9'让B当十位上的数从0到

PrintInt(Rnd*57)+1再问：错的再问：都是固定的数。再问：而且是10～57之间的一个随机数再答：在刚才的语句前面加语句Randomize再答：RandomizePrintint(Rnd*

循环么For i=1 to 9      For j=1 to 9 &

PrivateSubCommand1_Click()Fori=0To99RandomizeIfiMod10=0ThenPrintPrintInt(Rnd*90+10);ElsePrintInt(Rnd

按照你给出的结果,1*2*3*4*5=120.其源代码如下：PrivateSubCommand1_Click()Clsn=Val(Text1.Text)Fori=1TonPrinti;If(iPrin

Dim KG As IntegerPrivate Sub form_Click()  Me.Cls  KG&n

PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimkAsIntegerFori=1To5Print""Forj=1ToiFork=1TojP

如果是在特定picture,神马自己的jpg,bmp上作图,那就不要看下去了.假如思路要这样的话：49/2取整加1（也可以直接数出来25个数字）；一般的,我们把三角形正放,可知有以下几点常识：1,最上

PrivateSubCommand1_Click()DimnAsIntegern=1Fori=1To3Forj=1TonPrint"*";Nextjn=n+2Print"";Nextn=3Fori=1

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

Dimnum(1To20)AsInteger'随机数数组Dimcount(1To10)AsInteger'计数数组'生成一个20个元素的数组temp="生成数组如下："&Chr(10)Fori=1To

PrivateSubForm_Click()Fori=1To5Print"**";Forj=1ToiPrinti;NextjPrint"**"NextiEndSu