1、VB 程序设计实验单元二实验报告实验五 数组（1）一、实验目的1、 掌握数组的常用操作和常用算法。2、 掌握列表框和组合框的使用。3、 掌握自定义函数和过程的定义和调用方法二、实验环境 VB6.0三、实验内容1、假设已使用 Dim Num(99) as integer 语句定义了一个数组，并且在该数组中存储了 100 个学生的成绩，请编写代码在窗体上打印出最高分与最低分。2、从键盘上任意 10 个整数，然后按由大到小的顺序显示出来。3、编程求下列矩阵主对角线上的元素之和。1 2 34 5 67 8 9四、实验步骤1 题Private Sub Command1_Click()Dim num(99
2、) As Integer, i%For i = 1 To 99num(i) = Int(Rad * 99 + 1)Next iPrint iDim 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) arr(j + 1) Thent = arr(j + 1): arr(j + 1) = arr(j): arr(j) = tEnd IfNext jNext iFor i = 1 To 10Print arr(i)Next iE
3、nd Sub3 题Private Sub Command1_Click()Dim s As IntegerDim i As IntegerDim j As IntegerDim d(3, 3) As IntegerDim n As Integer先构成矩形的二维数组n = 0For i = 1 To 3For j = 1 To 3n = n + 1d(i, j) = nNext jNext i 输出矩阵For i = 1 To 3For j = 1 To 3Print d(i, j)Next jPrintNext i计算主对角线的和并输出s = 0For i = 1 To 3For j = 1
4、 To 3If i = j Then s = s + d(i, j)Next jNext iPrint sEnd Sub五、实验结果1 题2 题3 题实验五 数组（2）一、 实验目的1、掌握列表框和组合框的使用。2、掌握自定义类型及数组的使用。二、实验环境 VB6.0三、实验内容1、设计一个如下图所示的应用程序。当“预装”复选框没有被选定时，它下面的两个单选按钮不能使用。如果单击“确定”按钮，则在列表框中显示用户所选择的配置。2、设计一个选课的运行界面。它包括 2 个列表框，左边为已开设的课程名称，通过 Form_Load 事件加入。当单击某课程名称后，将课程加入到右边列表框，并在左边列表框中
5、删除该课程。当右边课程数已满 5 门时，不允许再加入。四、实验步骤1 题代码设计为：Private Sub Form_load( ) Option1.enable=false Option2.enable=false End Sub Private Sub Check1_click( ) If Check2 then Option1.enable=true Option2.enable=true End if End Sub Private Sub Command1_click( ) List1.clear If Check1.value=1 then List11.additem combo
6、1.text List11.additem .text1 End if If Check2.value=1 then If option1 then List11.additem “win 2000“ If option2 then List11.additem “win XP“ End ifEnd Sub2 题代码设计为：Private Sub Form_Load()Label1.Caption = “待选课“Label2.Caption = “已选课“End Sub Private Sub List1_Click() If List2.ListCount 4 ThenMsgBox “课程已
7、选满“, , “ 注意“Exit Sub End If If List1.ListIndex = 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub五、实验结果1 题2 题实验七 过程一、实验目的1. 掌握自定义函数和过程的定义和调用方法。2. 掌握实参和形参之间的对应关系。二、实验环境 VB6.0三、实验内容1、编一函数过程 IsPrime (n),对于已知正整数 n,判断该数是否是素数,函数的返回值类型为布尔型。主调程序毎输入一个数，调用该函数过程，然后在图形框中显示输入的数。对于素数，显示一个“”。界面如下：2、分别用函数和子过程求表达式：的和四、实验步骤五、实验结果
