《vb教学资料》vb二级复习资料

《《vb教学资料》vb二级复习资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、程序调试OptionExplicitPublicSub1・打印数字金字塔承icSubpyramid()'该过程齢打印数字金字塔?1'222'33333'4444444?555555555'6666666'71111'888'9DimiAsIntegerDimjAsIntegerDimstartAsInteger，管行起始空楷数DimnumAsInteger'每行数字个数Fori=1To9Ifi<=——1——Thenstart=20-inum=2*i-1Elsestart=10+inum=19-2*iEndIfForj=1To——2——Forml.PrintTab(start+j);3Next

2、jForml.PrintNextiEndSub2.计算一元二次方程的根少承OptionExplicitPublicSubgetanswer()'该过程是甫干计算一元二次方程的根，并将结果输岀来。Dimdalt!a#^b#,c#a=InputBoxC输入系数a")b=InputBoxC输入索毀b")c=InputBox入索数c")dalt=b*b-4*a*cif1thendalt=Sqr(dalt)MsgBoxFormat((-b+dalt)/2/a)j"0.00"+Chr(13)+Chr(10)+Format((-b一dalt)/2/a,"CLOCT)elseif2thenMsgBoxFor

3、mat(-b/2/a,"0.00")+Chr(13)+Chr(10)+Format(-b/2/%"CL00")Elsedalt=3MsgBoxFormat((-b+dalt)/2/a,"0.00")+"+i"+Chr(13)+Chr(10)+Format((-b-dalt)/2/a,"0.00")+"-i"EndIfEndSubPrivateConstn=10Privatea(lTon)AsInteger'BubbleSort过程是□泡排岸'Swap过程交换两个变量数值'GenerateDatn过裡产生16个［1,20］之间互不相同的随机整数PublicSubBubbleSort()Dimi

4、AsInteger^i=1DoForj=i+1Ifa(j)>'*******1jAsIntegerTona(i)Then•^L•«^L•«^L•«^L••«^L•«^L•«^L•.丫・•j•^99Swap(a(j),a(i))EndIfNextji=i+1«^L»«^L»«^L•1«^L•«^L•«^L•«^L••・^T・•・^T・LoopWhilei=nForml.Print"排岸结果"Fori=1TonForml.Printa(i):NextiEndSubPublicSubGenerateData()AsIntegerAsIntegerAsBoolean=1Ton=FalseDimiDi

5、mjDimbForibDoWhileNotba(i)=Int(20*Rnd+1)b=True••••••••••••••••••Forj=1ToiIfa(i)=a(j)Thenb=FalseExitForEndIfNextjLoopForml.Printa(i)NextiEndSub・丁・•j•・丁・•i•・丁・•I•・丫・•^r*•j•・丁・•j•・丁・•j•・丁・•j•・丁・PublicSubSwap(ByVaiaAsIntegerByVaibAsInteger)DimtempAsIntegertemp=aa=bb=tempEndSub2.査找一批数据中的最大数，并输出最大数的值及最大数

6、在数组中的下标值☆☆☆☆Dima(30)AsIrrtegerPublicSubFindJitax()'该过程是用于查找一批数据中的录大数，并输出最大数时值及最大数在数组中的下标值。DimPositionAsInteger，最大数在数组中的卞标DimmaxAsInteger、最大数DimiAsIntegerGenerateDatamax=1Position=2Fori=2To30Ifa(i)>maxThenmax=3Position二4EndIfNextiForml.Print"最大值二"&Str(max)Forml.Print"最大值的下标二"&Str(Position)EndSubPubl

7、icSubGenerateData()DimiAsIntegerFori=1To30a(i)=Int(500*Rnd()+1)Forml.Printa(i)IfiMod5=0ThenForml.PrintNextiEndSub3.将一批数据中小于零的数及它们的积打印出来☆☆☆PrivateConstn=10Privatea(lTort)AsInteger'TJ过程是熄一批数捉中小干零街玻及它们的积打印出来'数