VB实验任务11答案

实验任务11课程名称：编程基础VB实验名称实验11序列(1)一、实验目的：1 .掌握数组的声明和数组元素的引用2 .掌握固定长度数组的使用3 .掌握一维数组的基本操作算法二、实验内容(包括实验要求(主题)、实验步骤、程序列表、运行状况)；注意：其中，每个学生实验自己写结果验证，实验2-实验6人发出老师的邮箱地址，尽量上课。实验1人工导出如下程序的执行结果，利用单步调试工具验证执行过程和执行结果，更深入地理解了数组的存取。(1)在表单上绘制命令按钮(Name属性为Command1)，并编写以下代码私有子命令1 _ click ()Dim a(5) As Integer，i As Integer，t As IntegerFor i=0 To 4a(i)=i 1t=i 1If t=3 ThenPrint a(i )a(t - 1)=a(i - 2 )Elsea(t)=a(i )End Ififi=3thena (I1)=a (t-4 ) :退出a(4)=1Print a(i )下一步日本职业足球联赛运行程序并单击命令按钮，结果输出如下。(2)当下一个事件过程的执行结束时，k的值是A(2)的值，A(7)的值是程序执行第二循环，而程序执行第三循环。Option Explicit将Option Base 1 数组下界的默认值设置为1私有子命令1 _ click ()Dim A(10) As Integer，i As Integer，K As IntegerFor i=1 To 10A(i)=1下一步K=1For K=1 To K Step KA(K)=0K=K 2下一代kfor k=k to 10步骤- 1A(K)=KK=K 2下一代k日本职业足球联赛(3)执行以下程序，点击命令按钮Command1，数组元素a (1，2 )的值为数组元素a (2，2 )的值，数组元素a (3，3 )的值为。私有子命令1 _ click ()dima (3，3 ) ASC integer，i As Integer，j As Integer，k As IntegerDim Bi=3: j=1A(i，j)=1For k=2 To 9ifi 13或者j 13If j=1 Theni=i - 1ElseIf A(i - 1，j - 1)=0 Theni=i - 1: j=j - 1ElseIf j=3 Theni=i - 1Elsej=j 1End IfElseIf j=1 Or i=1 ThenIf A(i 1，j 1)=0 Theni=i 1: j=j 1Elsej=j 1End IfElseIf A(i - 1，j - 1)=0 Theni=i - 1: j=j - 1End IfEnd IfA(i，j)=k下一代kFor Each B In APrint B下一步日本职业足球联赛实验2实验7-1随机产生12比特的正整数，将其分配给34个阵列，找到每行的最大元素，并且在图7-6中示出执行之后的接口。 (参照例7-10 )一些程序代码请填写如下。Option Explicit将Option Base 1 数组下界的默认值设置为1dima (3，4 ) ass integer私有子表单_单击()Dim i As Integer，j As Integer，mmax As IntegerRandomizePrint 阵列： For i=1 To 3For j=1 To 4a(i，j)=Int(Rnd*(99-10 1) 10 )Print a(I，j )Next jPrint下一步Print 中： For i=1 To 3mmax=a(I，1 )For j=2 To 4If mmax a(i，j) Then mmax=a(I，j )Next jprintstr(I ) 行的最大元素是： ； mmax.mmax下一步日本职业足球联赛将实验Fibonacci数列的前20项以数组形式存储，显示了输出(每4行)。 说明： Fibonacci数列的前两个项为1，从第三项开始，各自的数据为前两个数据之和，即数列为1，1，2，3，5，8，13，图实验3运转效果分析：如Fibonacci序列那样使用一维序列存储，从问题的含义可知序列中的各数据是从最初的两个数据之和导出的，因此可以基于上述规律代入序列，完成序列的生成。 注：输出为标准格式，每四行为一行。实验步骤：(一)填写程序代码，完成以下代码：Option Explicit私有子表单_单击()Dim i As Integer，Fibo(1 to 20) As IntegerFibo(1)=1Fibo(2)=1For i=3 To 20Fibo(i)=Fibo(i-1) Fibo(i-2 )下一步Print Fibonacci数列的前20项：For i=1 To 20Print Fibo(i )If I mod 4=0 then print下一步Print日本职业足球联赛(2)调试程序，保存文件。实验4如图所示从用户输入产生10个自然数，并分别显示它们的偶数或奇数。按下图“点击输入自然数”按钮，显示输入对话框图实验9-3执行结果分析：将用户输入的10个数据以一维数组存储，并与累加算法组合完成。注：数组声明的位置文本框中显示1行和多行数据的方法实验步骤：(1)接口设计窗体将根据如图所示的界面排出控件。(2)属性设定按照程序代码为每个控制对象设置名称属性。按照图中所示，为多行文本框设置MultiLine和ScrollBars属性。(3)填写程序代码，完成以下代码：Option ExplicitConst n=10Dim a(1 to n) As integer 定义阵列私有子cmd create _ click ()Dim i As IntegerText1= 。For i=1 To na(i)=val(Inputbox (请输入，I 个数)、项目1 )Text1.Text=Text1.text a(i )下一步日本职业足球联赛私有子cmd disp _ click ()Dim I As Integer，odd As Integer，even As Integertx even= 3360 tx odd= tx even= tx even= tx even=even=0 : odd=0For i=1 to nIf a(i) mod 2=0 Thentxeven=txeven(i)vbcrlfeven=even a(i )ElseTxtodd=Txtddd a(i) vbcrlfOdd=odd a(i )End If下一步Txteven=Txteven 偶数和是even设txtodd=txtodd 奇数和为odd日本职业足球联赛(4)调试程序，保存文件。课外实验实验5教材p77练习7Option Base 1dima (5，5 ) as integer，UpSum As Integer，DownSum As Integer私有子cmd cal _ click ()TxtUpDown=Abs(UpSum - DownSum )日本职业足球联赛私有子cmd create _ click ()Dim i As Integer，j As IntegerPicture1.ClsFor i=1 To 5For j=1 To 5a(i，j)=Int(Rnd * 9 1 )Picture1.Print a(i，j )Next jPicture1.Print下一步日本职业足球联赛私有子cmddownsum _ click ()Dim i As Integer，j As IntegerDownSum=0For i=1 To 5For j=1 To i - 1DownSum=DownSum a(i，j )Next j下一步TxtDownSum=DownSum日本职业足球联赛私有子cmdupsum _ click ()Dim i As Integer，j As IntegerUpSum=0For i=1 To 5For j=i 1 To 5UpSum=UpSum a(i，j )Next j下一步TxtUpSum=UpSum日本职业足球联赛实验6教材p77练习8Option Base 1私有子表单_单击()dima()asint，i As Integer，japaseintegerdimcol()a