《VB实验任务11答案》由会员分享，可在线阅读，更多相关《VB实验任务11答案（6页珍藏版）》请在金锄头文库上搜索。
1、实验任务11课程名称：程序设计基础VB实验名称实验十一 数组（1）一、实验目的：1掌握数组的声明和数组元素的引用2掌握定长数组使用3掌握一维数组的基本操作算法二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：注意：其中每个同学实验1自行写结果验证，实验2实验6发老师邮箱，尽量课上发。实验1 人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。（1）在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click() Dim a(5) As Integer, i
2、As Integer, t As Integer For i = 0 To 4 a(i) = i + 1 t = i + 1 If t = 3 Then Print a(i); a(t - 1) = a(i - 2) Else a(t) = a(i) End If If i = 3 Then a(i + 1) = a(t - 4) : Exit For a(4) = 1 Print a(i); Next IEnd Sub运行程序，单击命令按钮，输出结果是 。（2）下面的事件过程执行结束后，K的值是 ，A(2)的值是 ，A(7)的值是 ，程序中第二个循环被执行了 次，程序中第三个循环被执行了 次
3、。Option ExplicitOption Base 1 将数组的下界的默认值设为1Private Sub Command1_Click() Dim A(10) As Integer, i As Integer, K As Integer For i = 1 To 10 A(i) = 1 Next i K = 1 For K = 1 To K Step K A(K) = 0 K = K + 2 Next K For K = K To 10 Step -1 A(K) = K K = K + 2 Next KEnd Sub（3）执行下面程序，单击命令按钮Command1后，数组元素A(1, 2)
4、的值是 ，数组元素A(2, 2)的值是 ，数组元素A(3, 3)的值是 。Private Sub Command1_Click() Dim A(3, 3) As Integer, i As Integer, j As Integer, k As Integer Dim B i = 3: j = 1 A(i, j) = 1 For k = 2 To 9 If i + 1 3 Or j + 1 3 Then If j = 1 Then i = i - 1 ElseIf A(i - 1, j - 1) = 0 Then i = i - 1: j = j - 1 ElseIf j = 3 Then i
5、 = i - 1 Else j = j + 1 End If ElseIf j = 1 Or i = 1 Then If A(i + 1, j + 1) = 0 Then i = i + 1: j = j + 1 Else j = j + 1 End If Else If A(i - 1, j - 1) = 0 Then i = i - 1: j = j - 1 End If End If A(i, j) = k Next k For Each B In A Print B Next End Sub实验2实验7-1 随机生成12个二位正整数，分别赋值给一个34的数组，找出每一行中的最大元素，运
6、行后界面如图7-6所示。（参看例7-10）部分程序代码如下请填空。Option ExplicitOption Base 1 将数组的下界的默认值设为1Dim a(3, 4) As IntegerPrivate Sub Form_Click() Dim i As Integer, j As Integer, mmax As Integer Randomize Print 数组: For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(Rnd*(99-10+1)+10) Print a(I,j); Next j Print Next i Print 其中: For
7、i = 1 To 3 mmax = a(I,1) For j = 2 To 4 If mmax a(i, j) Then mmax=a(I,j) Next j Print 第 + Str(i) + 行中的最大元素为:; mmax Next iEnd Sub实验3利用数组存放Fibonacci数列的前20项，并显示输出（每4个一行）。说明：Fibonacci数列的前两项为1，从第三项开始，每项数据都等于前两项数据之和，即数列为：1，1，2，3，5，8，13， 图 实验3运行效果分析：像Fibonacci数列一般采用一维数组存放，根据题意可知数列中的每项数据是通过前两项数据之和推导而出，因此可依据
8、上述规律给数组赋值，完成数组的生成。注意：输出采用标准格式，每4个一行。实验步骤：（1）填写程序代码，完成下列代码：Option ExplicitPrivate Sub Form_Click() Dim i As Integer, Fibo(1 to 20) As Integer Fibo(1) = 1 Fibo(2)=1 For i = 3 To 20 Fibo(i)= Fibo(i-1)+Fibo(i-2) Next i Print Fibonacci数列的前20项： For i = 1 To 20 Print Fibo(i), If I mod 4=0 then print Next i
9、 PrintEnd Sub（2）调试程序，并保存文件。实验4 如图所示由用户输入生成10个自然数，分别显示其中的偶数、奇数以及它们的和。 图 按下“单击输入一组自然数”按钮弹出输入对话框 图 实验9-3 运行结果分析：采用一维数组存放用户输入的10个数据，并结合累加求和算法完成。注意：数组声明的位置；文本框中单行和多行显示数据的方法实验步骤：（1）界面设计在窗体上按照图所示界面排放好各个控件。（2）属性设置请根据程序代码，设置好各个控件对象的名称属性；请根据图设置多行文本框的MultiLine和ScrollBars属性。（3）填写程序代码，完成下列代码：Option ExplicitConst
10、 n = 10 Dim a(1 to n) As integer 定义数组Private Sub CmdCreate_Click() Dim i As Integer Text1 = For i = 1 To n a(i) = val(Inputbox(“请输入第”, & I & “个数”,”project1”) Text1.Text = Text1.text & a(i) & ” ” Next iEnd SubPrivate Sub CmdDisp_Click() Dim I As Integer, odd As Integer, even As Integer Txteven = : Tx
11、todd = even = 0 : odd = 0 For i=1 to n If a(i) mod 2=0 Then Txteven= Txteven & a(i) & vbcrlf even = even + a(i) Else Txtodd= Txtddd & a(i) & vbcrlf Odd=odd+a(i) End If Next i Txteven = Txteven & 偶数和为 & even Txtodd = Txtodd & 奇数和为 & oddEnd Sub（4）调试程序，并保存文件。课外实验实验5 教材p177练习7Option Base 1Dim a(5, 5) As Integer, UpSum As Integer, DownSum As IntegerPrivate Sub CmdCal_Click() TxtUpDown = Abs(UpSum - DownSum)End SubPrivate Sub CmdCreate_Click() Dim i As Integer, j As Integer Picture1.Cls For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 9 + 1)
