数组实验课练习题.ppt

《数组实验课练习题.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序设计1、生成一个一维数组(10个数组元素依次为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中,平均值保留整数部分。２、求二维数组中最大元素及其所在的行和列并将最大值存入变量Max中，将最大值的行位置存入row中，列位置存入变量column中。3、在窗体上打印数列2/1，3/2，5/3，8/5,13/8…的前10项和，将和保存在变量s中。４、求3行3列的矩阵主对角线元素和副对角线之和。编程：在窗体上打印数列2/1，3/2，5/3，8/

2、5,13/8…的前10项和，将和保存在变量s中。PrivateSubForm_Click()Dimf(1To11)AsLongf(1)=1f(2)=2:s=2printcstr(f(2))&"/"&cstr(f(1))Fori=3To11f(i)=f(i-1)+f(i-2)s=s+f(i)/f(i-1)printcstr(f(i))&"/"&cstr(f(i-1))NextiPrintsEndSub１、下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。PrivateSubForm_Click()Dima(10)AsInteger,xAsIn

3、tegerFori=1To8a(i)=2*i–1:Printa(i);NextiPrintx=InputBox("请输入要插入的整数")'**********SPACE**********【?】i=8DoWhilea(i)>x'**********SPACE**********【?】i=i-1Loop'**********SPACE**********Ifi>0Then【?】Elsea(1)=xFori=1To9Printa(i);NextiEndSub２、本程序用于实现：从键盘接收一数字，判断其是否在数组中，如果在数组中则将其删除，否则显示该数字不在数组中。Private

4、SubForm_Click()Dima(10)AsInteger,xAsIntegerFori=1To10a(i)=Int(Rnd*90)+10:Printa(i);Nextix=InputBox("请输入要删除的整数")Fori=1To10'**********SPACE**********Ifa(i)=xThen【?】Nexti'**********SPACE**********If【?】ThenFork=iTo9'**********SPACE**********【?】NextkPrint"删除后的数组:"Fori=1To9Printa(i);NextiElse:Pr

5、int"该数字不在数组中"EndIfEndSub３、下面的程序段用于删除数组中指定位置的数字，如果位置错误给出提示，否则分别显示删除前后的数组元素PrivateSubForm_Click()Dima(10)AsInteger,xAsIntegerDimiasinteger,kasintegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("请输入要删除第几位数字")'**********FOUND**********Ifx<0ThenFork=x+1To10'**********FOUND******

6、****a(k+1)=a(k)NextkPrint"删除后的数组:"Fori=1To9Printa(i);Nexti'**********FOUND**********EndIfPrint"删除位置错误"EndIfEndSub４、下面程序运行后单击窗体，输出结果为1234。PrivateSubForm_Click()Dimaa=Array(1,2,3,4)j=1'**********SPACE**********Fori=【?】s=s+a(i)*j'**********SPACE**********j=【?】Nexti'**********SPACE**********Pr

7、int【?】EndSub５、题目：以下程序段用于输出杨辉三角：11112113311464115101051161520156117213535217118285670562881……PrivateSubForm_Click()Constn=10Dimarr(n,n)AsIntegerForI=1Tonarr(I,I)=1'**********SPACE**********【?】NextIForI=3TonForj=2ToI-1'**********SPACE**********arr(i,j)=【?】NextjN