vb 考试经典例题,,详细讲解

《vb 考试经典例题,,详细讲解》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、``求2000到6000之间能被7整除但不能被17整除的所有整数的和与平均数PrivateSubCommand1_Click()Label1.Visible=FalseDimi,n,aver,sumAsLongFori=2000To6000IfiMod7=0AndiMod17<>0ThenPrinti;n=n+1sum=sum+iEndIfNextiPrintPrintsum,sum/nEndSub、*编写程序，要求使用循环结构输出如下图形。****** ****** ****** ******PrivateSubForm

2、_Click()Fori=1To4PrintTab(20+i);Forj=1To6Print"*";NextjPrintNextiEndSub2、请输入X、Y、Z三个数，按照从大到小的顺序排列。PrivateSubForm_Click() Dimx!,y!,z!,t!x=InputBox("请输入x的值")y=InputBox("请输入y的值") z=InputBox("请输入z的值")Ifx

3、fPrintx,y,zEndSub3、求出fibonacci（斐波那契）数列的前20项的值。`````PrivateSubForm_Click()a=0b=1Printa,bFori=1To9a=a+bb=a+bPrinta,bIfiMod2=1ThenPrintNextiEndSub4、求[25,300](包括25和300)内奇数（或偶数）的个数。PrivateSubForm_Click()DimiAsIntegerDimjsAsInteger,osAsIntegerjs=0os=0Fori=25To300IfiMod2

4、=0Thenos=os+1Elsejs=js+1NextPrintjs,osEndSub5、求[1,200]中奇数和的平均值。PrivateSubForm_Click()DimiAsInteger,sumAsIntegerDimaverAsIntegersum=0Fori=1To199Step2sum=sum+iaver=2*sum/i-1NextiPrintaverEndSub6、求[25,300](包括25和300)内奇数（或偶数）的个数。PrivateSubForm_Click()DimiAsIntegerDimjs

5、AsInteger,osAsIntegerjs=0os=0Fori=25To300IfiMod2=0Thenos=os+1Elsejs=js+1NextPrintjs,osEndSub7、求二维矩阵a(1to6,1to6)第一列和第六列所有元素的和，所有元素从[0,100](含0和100)中随机产生。`````PrivateSubForm_Click(）Dima(1To6,1To6)DimiAsInteger,jAsIntegerFori=1To6Forj=1To6a(i,j)=Int(Rnd*101)Printa(i,j

6、);Ifj=1Thenx=x+a(i,1)EndIfIfj=6Theny=y+a(i,6)EndIfNextPrintNextPrintx+yEndSub8、求二维矩阵a(4,4)所有非边界元素的和，元素从[0,100](含0和100)中随机产生。PrivateSubForm_Click() Dimzu(1To4,1To4) Fori=1To4Forj=1To4zu(i,j)=Int(101*Rnd) Printzu(i,j);NextPrintNextDimsAsLong Fori=2To3 Forj=2To3 s=s+

7、zu(i,j) Nextj,iPrintsEndSub9、二维5x5矩阵中，将第一列和第五列的元素交换位置。元素从[0,100](含0和100)中随机产生。PrivateSubForm_Click() Dima(1To5,1To5),t Print"修改前";Fori=1To5Forj=1To5`````a(i,j)=Int(101*Rnd) Printa(i,j);NextjPrintNextiPrint"修改后" Fori=1To5 t=a(i,1)a(i,1)=a(i,5) a(i,5)=tNextiFori=1To

8、5 Forj=1To5 Printa(i,j); NextPrintNextEndSub10、在一个数组的第四个位置插入一个数。PrivateSubCommand1_Click()Dima(11)Fori=1To10 a(i)=Int(Rnd*101) Printa(i);NextPrintn=Inpu