实验报告模版(第二单元).docVIP

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