原创力文档- 1、本文档共9页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB实验务12答案
实验任务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 原数组为:
图7-7 实验7-3运行界面 For i = 1 To N
图7-7 实验7-3运行界面
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
文档评论（0）