暨南大学本科实验报告专用纸(四)1 / 6课程名称: 实验四 成绩评定: 实验项目名称: 文件及其他 指导教师 张冰 实验项目编号: VB1104 实验项目类型: 综合 实验地点: 计算中心 C305 学生姓名: 学号: 学院: 系 专业: 实验时间 2016 年 5 月 21 日 下 午 6 月 18 日 下 午一、 实验目的1. 掌握常用控件的常用属性、事件和方法。包括窗体、文本框、标签、命令按钮、组合框、列表框、单选按钮、复选框等。2. 熟练合理使用不同的控制结构和函数过程。3. 掌握数组的相关操作和常用算法，以及自定义数据类型数组的使用。4. 掌握顺序文件的特点，掌握顺序文件的打开、读写和关闭的方法。掌握 Line Input和 Input 的使用。5. 能够根据应用程序的需要读写脱机数据。6. 掌握菜单的设计方法。二、 实验内容(一) 综合练习1. 设计如下图所示界面的窗体。(1)将左侧组合框设置为升序，当添加新的待选课程名称时自动放至合适的位置上。(2)编写事件过程。暨南大学本科实验报告专用纸(四)2 / 6a) 当窗体加载时，分别从文件“待选课.txt” 、 “已选课.txt”中读取数据显示在左侧的组合框和右侧的列表框中。b) 在左侧组合框中输入数据按回车键时，检查无重复后，添加新的待选课程名称至待选课列表框中。c) 编写移动按钮事件： “”：将选中的课程移至已选课列表中 “”：将所有待选课程移至已选课列表中 “”按钮单击事件中，如果没有选中任何待选课程，会出现什么样的情况？原因是什么？d) 以下是对列表框数据进行升序排序的子过程 SortASC，请完善。Sub SortASC(a As ) 选择法排序的子过程For i = 0 To - 2For j = i + 1 To a.ListCount - 1If a.List(i) a.List(j) ThenEnd IfNext jNext iEnd Sub(二) 综合练习1. 在窗体上放置一个文本框，并设计如下图所示菜单。文件打开 Ctrl+O保存-退出格式字体字号宋体隶书变大变小排序年龄性别升序降序升序降序(1)编写事件过程。a) “文件”-“打开”：打开应用程序所在目录的 student1.dat 文件。“文件”-“保存”：将文本框中内容保存至 student2.dat 文件。暨南大学本科实验报告专用纸(四)5 / 6b) 在读取或者保存数据时需要保存数据的格式，因此在处理文件中的数据时需要使用自定义数据类型的数组。数据文件中的数据类型 StudType 定义如下：Private Type StudTypeName As String * 3Sex As String * 1Age As IntegerEnd TypeDim s() As StudType 定义一个 StudType 类型的动态数组c) “格式”-“字体”：设置文本框中字体格式为 “宋体”或者“隶书”“格式”-“字号”：增大或者减小字体大小。d) “排序”-“年龄”：按照年龄进行升序或降序排序“排序”-“性别”：按照性别进行升序或降序排序。(2)要求在文本框中输出时对齐，如下图。(3)右键点击文本框时出现格式菜单，并且禁止系统菜单的出现。(4)运行通过后用文件名 EX4-2 分别保存窗体和工程。2. 实验要求a) 由于不清楚文件中的数据有多少，所以要使用动态数组来存放文件中的数据。下面代码的功能是从当前目录中读取学生的信息，请完善。暨南大学本科实验报告专用纸(四)6 / 6Open App.Path & student1.dat For As #1i = 0Do While Not Input #1, iName, iSex, iAgei = i + 1ReDim s(1 To i)s(i).Name = iName: s(i).Sex = iSex: s(i).Age = iAgeText1.Text = Text1.Text & & vbCrLf保证文本框中每行存放一个学生的信息，LoopClose #1b) 文本框中如何实现对齐？请写出你的解决方案。中文字符与英文字符所占的宽度是否相同？c) 以下是对自定义数据类型数组 s 按照年龄进行排序的代码，请完善。For i = LBound(s) To UBound(s) - 1For j = i + 1 To UBound(s)If s(i).Age s(j).Age Then Next jNext id) 升序或者降序时如何显示 check 标记。e) 显示右键菜单的代码如下，请完善。Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)可使 VB 本身定义的系统右键菜单无效If Then PopupMenu End Subf) 说出该题的难点(至少 2 个)及解决方法。