《VB程序设计》 实验单元二实验报告专业班级： 1306 姓名刘铭沂学号 0602 指导教师：王自强完成时间：实验五数组（ 1）一、实验目的1、掌握数组的常用操作和常用算法。2、掌握列表框和组合框的使用。3、掌握自定义函数和过程的定义和调用方法二、实验环境三、实验内容1、假设已使用 Dim Num(99) as integer语句定义了一个数组，并且在该数组中存储了 100 个学生的成绩，请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意 10 个整数，然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素之和。 1 2 3 4 5 6 7 8 9四、实验步骤一．输入以下代码Dim Max As IntegerDim Min As IntegerMax=Num(0)Min=Num(0)For i= 1 To 99If Num(i)>Max Then Max = Num(i)If Num(i) a(i + 1) Then t = a(i + 1): a(i + 1) = a(i): a(i) = t End If Next i Next b Print a(1); a(2); a(3); a(4); a(5); a(6); a(7); a(8); a(9); a(10)End Sub三．输入以下代码Private Sub Form_Click()Dim s As IntegerDim i As IntegerDim j As IntegerDim d(3, 3) As IntegerDim n As Integer' 先构成矩阵的二维数组n = 0For i = 1 To 3 For j = 1 To 3 n = n + 1 d(i, j) = n Next jNext i' 输出矩阵For i = 1 To 3 For j = 1 To 3 Print d(i, j), Next j PrintNext i' 计算主对角线和并输出s = 0For i = 1 To 3 For j = 1 To 3 If i = j Then s = s + d(i, j) Next jNext iPrint sEnd Sub五、实验结果六、实验体会本次试验难度越来越高，我也经过一番搜寻和借鉴才完成了本次试验，总体来说对VB已经感到压力非常大。实验五数组（ 2）一、实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用。二、实验环境三、实验内容1、...
