《VB程序设计》实验单元二.docVIP

《VB程序设计》实验单元二 实验报告 专业班级： 姓名 学号 实验五 数组（1） 一、实验目的 掌握数组的常用操作和常用算法。 二、实验环境 VB6.0 三、实验内容 1、假设Dim Num(9) as integer语句定义了一个数组，并且在该数组中存储了10个学生的成绩，请编写代码在窗体上打印出最高分与最低分。 四、实验步骤 绘制一个command，程序代码为： Private Sub Command1_Click() Dim Min As Integer Max = Num(0) Min = Num(0) For i = 1 To 9 If Num(i) Max Then Max: Num (i) If Num(i) Max Then Min: Max (i) Next i Print 最高分是: Max; Print 最低分是: Min; End Sub 五、实验结果 三、实验内容 2、输入任意10个整数，然后按由大到小的顺序显示出来。 四、实验步骤 程序编码为： Option Base 1 Dim a(10) As Integer Dim i%, j%, t% Private Sub Command1_Click() For i = 1 To 10 a(i) = Val(InputBox(请输入第 i 个数!)) Picture1.Print a(i) Next i End Sub Private Sub Command2_Click() For i = 1 To 99 For j = i + 1 To 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next a For i = 1 To 10 Picture2.Print a(i) Next i End Sub Private Sub Command3_Click() End End Sub 五、实验结果 三、实验内容 3、编程求下列矩阵主对角线上的元素之和。 1 2 3 4 5 6 7 8 9 四、实验步骤 Private Sub Command1_Click() Dim s%, i, j, n Dim d(3, 3) 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 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 五、实验结果 实验六 数组（2） 实验目的掌握自定义。Private Sub Check1_Click() Combo1.Enabled = Not Combol.Enabled Text1.Enabled = Not Text1.Enabled End Sub Private Sub Check2_Click() Option1.Enabled = Not Option1.Enabled Option2.Emabled = Not Option2.Enabled End Sub Private Sub Combo1_LostFocus() 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 Private Sub Command1_Click() List1.Clear If Check1.Value = 1 Then List1.AddItem C