【2017年整理】VB实验任务12答案.doc
文本预览下载声明
实验任务12
课程名称：程序设计基础VB
实验名称——实验十二 数组（2）
一、实验目的：
1．掌握数组的声明和数组元素的引用
2．掌握定长数组的使用
3．掌握数组的基本操作算法
4．掌握控件数组的使用
二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：
实验1在课前做好，课上验证
实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。
（1）执行下面程序，单击命令按钮，输出结果是 。
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2); arr(3, 4)
End Sub
（2）运行程序，单击窗体，则在窗体上显示的是 。
Option Base 1
Private Sub Form_Click()
Dim a , Sum As Integer, i
Sum = 0
a=Array(1,3,5,7,9,11,13,15,17,19,21,23)
For Each i In a
If i/3 = i\3 Then Sum = Sum + i
Next
Print Sum
End Sub
实验2实验7-2 下列程序代码读入N个数，用选择排序法对这N个数按从大到小的顺序排序，并在文本框Textl中输出排序结果。（动态数组）
部分程序代码如下，请填空。
Dim a() As Integer
Private Sub Command1_C1ick()
N=Val(InputBox(请输入N:)) : ReDim A(N) For I=1 To N
A(I)=Val(InputBox(请输入A(I ):, ,I))
Next I
Text1.Text=
For I=1 To N?1
For J= I+1 To N
If A(I)A(J) Then
T=A(I)
A(I)= A(j)
A(J)= t
End If
Next J
Text1.Text=Text1.Text Str(A(I))
Next I
Text1.Text=Text1.Text Str(A(N))
End Sub
实验3实验7-3 实现N×N矩阵的转置。
【分析】 矩阵的转置是指矩阵的行和列元素以对角线为中轴线互换，即原来的i行j列元素在转置后称为j行i列元素（使用二维数组存放矩阵）。
（1）程序代码段如下，请填空。
Option Explicit
Const N = 4
Private Sub Form_Click()
Dim a(N, N) As Integer, i As Integer, j As Integer, temp As Integer
Picture1.Cls 每次数据生成前清除图片框中的内容 Picture1.Print 原数组为:
For i = 1 To N
For j = 1 To N
a(i, j) = Int(100 * Rnd) + 1
Picture1.Print a(i, j),
Next j
Picture1.Print
Next i
Picture1.Print 转置后数组为: For i = 1 To N
For j=i+1 to N 填写代码段,实现矩阵的转置Temp=a(I,j)
显示全部