实验5-数组实验.doc

实 验 报 告课 程VB程序设计实验项目数组程序设计I成 绩专业班级石油工程2班指导教师耿新宇姓 名李彬学 号1101010210实验日期实验目的：（1）掌握静态数组和动态数组定义及使用（2）掌握“控件数组”的使用实验内容：【实验1】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值 实验结果：（1）程序代码(粘贴程序代码到此栏目下)Private Sub Command1_Click()Print 原数组为Dim a(0 To 4, 0 To 4) As LongFor i = 0 To 4 For j = 0 To 4 a(i, j) = j + 1 + (i * 5) Print Format(a(i, j), ); Next j PrintNext iPrintFor i = 0 To 4 For j = 0 To 4 If i = j Then sum1 = sum1 + a(i, j) If i + j = 4 Then sum2 = sum2 + a(i, j) Next jNext iPrintPrint 主对角线之和为： & sum1Print 次对角线之和为： & sum2PrintPrint 一三行交换后的数组For i = 0 To 4 For j = 0 To 4 t = a(0, j): a(0, j) = a(2, j): a(2, j) = t Print Format(a(i, j), ); Next j PrintNext iPrintPrint 行列交换后的数组For i = 0 To 4 For j = 0 To 4 Print Format(a(j, i), ); Next j PrintNext iEnd Sub（2）运行结果窗体(截取运行结果图粘贴到此栏目下)【实验2】利用一维数组，统计一个班学生成绩059，6069，7079，8089，90100各分数段的人数，生成一个各分数段的柱状图或曲线图（2选1）。人数为运行时输入，成绩给定方法要求为键盘输入。实验结果：（1）程序代码(粘贴程序代码到此栏目下)Private Sub Command1_Click()Dim a(5 To 10) As IntegerFor i = 1 To 20 S = Val(InputBox(输入 & i & 位学生成绩) If S = 60 And S = 100 Then k = S 10 a(k) = a(k) + 1 Else a(5) = a(5) + 1 End IfNext ia(9) = a(9) + a(10)For j = 0 To 4 Shape1(j).Height = a(5 + j) * 150 Shape1(j).Top = 4680 - a(5 + j) * 150 Label6(j).Caption = a(5 + j) Label6(j).Top = 4680 - a(5 + j) * 160Next jEnd Sub（2）运行结果窗体(截取运行结果图粘贴到此栏目下)【实验3】从键盘输入10个整数，存放在一个一维数组中，然后将钱5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换实验结果：（1）程序代码Private Sub Command1_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10 a(i) = Val(InputBox(请输入数据) Print Format(a(i), );Next iPrintFor i = 1 To 10 If i = 5 Then t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) =