vb实验任务11答案

《vb实验任务11答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验任务11课程名称：程序设计基础VB实验名称——实验十一数组（1）一、实验目的：1．掌握数组的声明和数组元素的引用2．掌握定长数组使用3．掌握一维数组的基本操作算法二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：注意：其中每个同学实验1自行写结果验证，实验2－实验6发老师邮箱，尽量课上发。实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。（1）在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSu

2、bCommand1_Click()Dima(5)AsInteger,iAsInteger,tAsIntegerFori=0To4a(i)=i+1t=i+1Ift=3ThenPrinta(i);a(t-1)=a(i-2)Elsea(t)=a(i)EndIfIfi=3Thena(i+1)=a(t-4):ExitFora(4)=1Printa(i);NextIEndSub运行程序，单击命令按钮，输出结果是。（2）下面的事件过程执行结束后，K的值是，A(2)的值是，A(7)的值是，程序中第二个循环被执行了次，程序中第三个循环

3、被执行了次。OptionExplicitOptionBase1‘将数组的下界的默认值设为1PrivateSubCommand1_Click()DimA(10)AsInteger,iAsInteger,KAsIntegerFori=1To10A(i)=1NextiK=1ForK=1ToKStepKA(K)=0K=K+2NextKForK=KTo10Step-1A(K)=KK=K+2NextKEndSub（3）执行下面程序，单击命令按钮Command1后，数组元素A(1,2)的值是，数组元素A(2,2)的值是，数组元素A

4、(3,3)的值是。PrivateSubCommand1_Click()DimA(3,3)AsInteger,iAsInteger,jAsInteger,kAsIntegerDimBi=3:j=1A(i,j)=1Fork=2To9Ifi+1>3Orj+1>3ThenIfj=1Theni=i-1ElseIfA(i-1,j-1)=0Theni=i-1:j=j-1ElseIfj=3Theni=i-1Elsej=j+1EndIfElseIfj=1Ori=1ThenIfA(i+1,j+1)=0Theni=i+1:j=j+1Els

5、ej=j+1EndIfElseIfA(i-1,j-1)=0Theni=i-1:j=j-1EndIfEndIfA(i,j)=kNextkForEachBInAPrintBNextEndSub实验2实验7-1随机生成12个二位正整数，分别赋值给一个3×4的数组，找出每一行中的最大元素，运行后界面如图7-6所示。（参看例7-10）部分程序代码如下请填空。OptionExplicitOptionBase1‘将数组的下界的默认值设为1Dima(3,4)AsIntegerPrivateSubForm_Click()DimiAsI

6、nteger,jAsInteger,mmaxAsIntegerRandomizePrint"数组:"Fori=1To3Forj=1To4a(i,j)=Int(Rnd*(99-10+1)+10)Printa(I,j);NextjPrintNextiPrint"其中:"Fori=1To3mmax=a(I,1)Forj=2To4Ifmmax

7、0项，并显示输出（每4个一行）。说明：Fibonacci数列的前两项为1，从第三项开始，每项数据都等于前两项数据之和，即数列为：1，1，2，3，5，8，13，……·图实验3运行效果分析：像Fibonacci数列一般采用一维数组存放，根据题意可知数列中的每项数据是通过前两项数据之和推导而出，因此可依据上述规律给数组赋值，完成数组的生成。注意：输出采用标准格式，每4个一行。实验步骤：（1）填写程序代码，完成下列代码：OptionExplicitPrivateSubForm_Click()DimiAsInteger,Fib

8、o(1to20)AsIntegerFibo(1)=1Fibo(2)=1Fori=3To20Fibo(i)=Fibo(i-1)+Fibo(i-2)NextiPrint"Fibonacci数列的前20项："Fori=1To20PrintFibo(i),IfImod4=0thenprintNextiPrintEndSub（2）调试程序，并保存文件。实