IVB程序设计实验要求及报告6.docVIP

上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验6 列表框、组合框与过程 实验目的 掌握列表框和组合框的使用 掌握自定义函数过程和子过程的定义和调用方法 掌握形参和实参之间的对应关系 掌握值传递和地址传递的传递方式 二、实验要求 在C:\下建立子文件夹“VB实验6”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(61.vbp)、窗体文件(61.frm) 及可执行文件（61.exe），本实验中的第二题，需保存的文件有：工程文件(62.vbp)、窗体文件(62.frm) 及可执行文件（62.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 设计一个选课的运行界面，如图6-1（a）所示。它包含2个列表框，左边为可供选择的课程名称，通过Form_Load事件加入，并按拼音字母顺序排序；当单击某门课程名称后，将该课程加入到右边的列表框中，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入并出现如图6-1（b）所示的提示。窗体及所有控件字体默认、大小均为小四。 图6-1 (a) 图6-1 (b) Private Sub Form_Load() List1.AddItem C/C++程序设计 List1.AddItem VB程序设计 List1.AddItem 数据库数据与应用 List1.AddItem 硬件技术基础 List1.AddItem Web程序设计 List1.AddItem 多媒体技术与应用 List1.AddItem 网络技术与应用 List1.AddItem 软件技术基础 List1.AddItem 大学计算机基础 End Sub Private Sub List1_Click() If List2.ListCount 5 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 超过5门功课，不能再选, , 信息提示 End If End Sub 在窗体上建立一个简单组合框，在组合框的文本区输入数字字符，按回车键后加入到组合框的列表区内（非数字则不加入），然后清空文本区，如图6-2（a）所示；单击“交换”按钮后，可将组合框列表区中最小值项目和第0个项目交换；最大值项目与最后项交换, 如图6-2（b）所示。窗体中所有控件字体默认大小。 图6-2（a） 图6-2（b） Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If IsNumeric(Combo1.Text) Then Combo1.AddItem Combo1.Text End If Combo1.Text = End If End Sub Private Sub Command1_Click() Dim i%, min%, max%, x% min = 0 For i = 1 To Combo1.ListCount - 1 If Val(Combo1.List(i)) Val(Combo1.List(min)) Then min = i Next x = Combo1.List(0) Combo1.List(0) = Combo1.List(min) Combo1.List(min) = x max = Combo1.ListCount - 1 For i = 0 To Combo1.ListCount - 2 If Val(Combo1.List(i)) Val(Combo1.List(max)) The