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

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

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

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

3、（斐波那契）数列的前20项的值。PrivateSubForm^ClickOa=0b二1Printa,bFori=1To9a二a.+bb二a+bPrinta,bIfiMod2=1ThenPrintNextiEndSub4、求［25,300］（包括25和300）内奇数（或偶数）的个数。PrivateSubForm^ClickODimiAsIntegerDimjsAsInteger,osAsIntegerjs二0os二0Fori=25To300IfiMod2=0Thenos二os+1Elsejs二js+1NextPrintjs,osEndSub5、求［1,200］中奇数和的平均值。Pri

4、vateSubForm_Click()DimiAsInteger,sumAsIntegerDimaverAsIntegersum二0Fori=1To199Step2sum二sum+iaver二2*sum/i-1NextiPrintaverEndSub6、求［25,300］(包括25和300)内奇数(或偶数)的个数。PrivateSubFormClick()DimiAsIntegerDimjsAsInteger,osAsIntegerjs二0os=0Fori二25To300IfiMod2=0Thenos二os+1Elsejs二js+1NextPrintjs,osEndSub7、求二维

5、矩阵a(lto6,1to6)第一列和第六列所有元素的和，所有元素从［0,100］(含0和100)中随机产生。PrivateSubForm_Click()Dima(lTo6,1To6)DimiAsInteger,jAsIntegerFori=1To6Forj二1To6a(i,j)=Int(Rnd*101)Printa(i,j);Ifj二1Thenx二x+a(i,1)EndIfIfj二6Theny二y+a(i,6)EndIfNextPrintNextPrintx+yEndSub8、求二维矩阵a(4,4)所有非边界元素的和，元素从[0,100](含0和100)中随机产生。PrivateS

6、ubForm^ClickODimzu(lTo4,1To4)Fori二1To4Forj=1To4zu(i,j)二Int(101*Rnd)Printzu(i,j);NextPrintNextDimsAsLongFori二2To3Forj=2To3s二s+zu(i,j)Nextj,iPrintsEndSub9、二维5x5矩阵中，将第一列和第五列的元素交换位置。元素从[0,100](含0和100)中随机产生。PrivateSubForm^ClickODima(lTo5,1To5),tPrint〃修改前〃;Fori二1To5Forj=1To5a(i,j)=Int(101*Rnd)Printa

7、(i,j);NextjPrintNextiPrint修改后〃Fori二1To5t二a.(i,1)a(i,1)二a(i,5)a(i,5)二tNextiFori=1To5Forj二1To5Printa(i,j);NextPrintNextEndSub10、在一个数组的第四个位置插入一个数。PrivateSubCommandl_Click()Dima(11)Fori=1To10a(i)=Int(Rnd*101)Printa(i);NextPrintn二InputBox(〃〃