实验报告-数组程序设计(4学时).docx

西南石油大学实验报告课程VB程序设计实验项目数组程序设计1专业年级2013级机械工程（卓越班）指导教师张淮鑫成绩姓名韦瑜学号201303010516实验日期2014-04-30一、实验目的：（1）掌握静态数组的定义（2）掌握数组的初始化和数组的赋值（3）掌握控件数组的使用（4）掌握使用数组的常用算法二、实验内容：【实验1】已知10个数为53、67、42、89、65、8、98、67、54、36，编写程序，使用array函数存储这10个数并求和。（1）编写代码Private Sub Form_Click()Dim a As Varianta = Array(53, 67, 42, 89, 65, 8, 98, 67, 54, 36)Sum = 0For i = 0 To UBound(a)Sum = Sum + a(i)Next iFor i = 0 To UBound(a)Print a(i); ;Next iPrintPrint sum=; SumPrintEnd Sub（2）运行效果【实验2】编写程序，定义二维静态数组，分别计算下列矩阵两条对角线元素之和。（1）编写代码Option Base 1Private Sub Form_click()Dim a(3, 3) As Integer, sum1 As Integer, sum2 As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = Val(InputBox(输入数据：))Next jNext iPrint 数组各元素为：For i = 1 To 3For j = 1 To 3Print Format(a(i, j), @@@@@);Next jPrintNext isum1 = 0: sum2 = 0For i = 1 To 3sum1 = sum1 + a(i, i)sum2 = sum2 + a(i, 4 - i)Next iPrint 主对角线之和为：; sum1Print 次对角线之和为：; sum2End Sub（2）运行效果【实验3】编写程序，随机产生10个[100，999]范围内的随机整数存入数组，并将前5个元素与后5个元素对应位置交换（即倒序排列）。（1）编写代码Private Sub Form_Click()Dim a(1 To 10) As IntegerFor i = 1 To UBound(a)Randomizea(i) = Int((999 - 100 + 1) * Rnd + 100)Next iPrint 数组各元素为：For i = 1 To 10Print Format(a(i), @@@@@);Next iPrintPrint 交换后的数组各元素为：For i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Print Format(a(i), @@@@@);Next iEnd Sub（2）运行效果【实验4】使用动态数组统计n个学生的成绩分布情况。要求：1、分别统计0-59、60-69、70-79、80-89、90-99和100各分数段的人数。2、在窗体上输出统计结果。3、对输入的成绩的有效性进行检测，如果数据出错必须重新输入数据。4、学生人数不少于5人。（1）编写代码Dim a() As IntegerPrivate Sub Form_Click()Dim s(5 To 10) As Integern = Val(InputBox(输入数据n：))ReDima(n)For i = 5 To 10s(i) = 0Next iFor i = 1 To nbegin: a(i) = Val(InputBox(输入第 i 个学生的成绩))If a(i) 0 Or a(i) 100 Then MsgBox (输入数据错误): GoTo beginIf a(i) = 60 Thenk = a(i) \ 10s(k) = s(k) + 1Elses(5) = s(5) + 1End IfNext iPrint 学生人数为：; n; 人Print 成绩分段情况如下Print 0~59; s(5)Print 60~69; s(6)Print 70~79; s(7)Print 80~89; s(8)Print 90~99; s(9)Print 100; s(10)End Sub（2）运行效果【实验5】利用控件数组完成三种除法运算。要求检测数据有效性。（1）设计界面（2）编写代码Private Sub Option1_Click(Index As Integer)Dim x As Integer, y