暨南大学专用实验报告纸4.docVIP

课程名称: 成绩评定: 实验项目名称:文件及其他 指导教师 张冰 实验项目编号：VB1104 实验项目类型：综合 实验地点：计 算中心C305 学生姓名: 学号: 学院: 系 专业: 实验时间2016 年5月21 EI下 午?6月18日下午 一、 实验目的 掌握常用控件的常用属性、事件和方法。包括窗体、文本框、标签、命令按钮、组 合框、列表框、单选按钮、复选框等。 熟练合理使用不同的控制结构和函数过程。 掌握数组的相关操作和常用算法，以及自定义数据类型数组的使用。 掌握顺序文件的特点，掌握顺序文件的打开、读写和关闭的方法。掌握Line Input 和Input的使用。 能够根据应用程序的需要读写脱机数据。 掌握菜单的设计方法。 二、 实验内容 (一)综合练习 设计如F图所示界而的窗体。 ⑴ 将左侧组合框设置为升序，当添加新的待选课程名称时口动放至合适的位置上。 (2)编写事件过程。 a） 当窗体加载时，分别从文件“待选课.txl”、“已选课中读取数据显示在左 侧的组合框和右侧的列表框中。 b） 在左侧组合框中输入数据按|川车键时，检杏无重复后，添加新的待选课程名称 至待选课列表框中。 c） 编写移动按钮事件： “〉”：将选中的课程移至已选课列表中 “”：将所冇待选课程移至已选课列表中 “V”：从已选课列表屮删除选中的已选课程，并将其移入待选课列表 “VV”：从已选课列表中删除所有的已选课程，并将其移入待选课列表 d） 单击“退出”按钮时，分别将组合框和列表框中的数据保存至“待选课 和“已选课.txt”文件中。 e） 编写SortASC和SortDSC过程对已选课列表框中的数据进行排序，在单击“升 序”按钮时调用SortASC过程，并将按钮的标题修改为“降序”，反之亦然。 f） 以EX4-1保存窗体和工程。 实验要求 a）将左侧组合框设置为升序时，需要设置什么属性？该属性的设置能否用代码完 成，为什么? b）添加新的待选课程名称到组合框时需要检杳冇无重复，请在下面空白处写出正 确的代码。 Private Sub Combol_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub “〉”按钮单击事件中，如果没有选中任何待选课程，会出现什么样的情况? 原因是什么？ 以下是对列表框数据进行升序排序的子过程SortASC,请完善。 Sub SortASC(a As )，选样法排序的子过程 For i = 0 To ? 2 For j = i + 1 To a.ListCount - 1 If a.List(i) a.List(j) Then End If Next j Next i End Sub (二)综合练习 在窗体上放置一个文本框，并设计如下图所示菜单。 (1)编写事件过程。 “文件”-“打开”：打开应用程序所在目录的studentl.dat文件。 “文件” ■“保存”：将文本框中内容保存至student2.dat文件。 在读取或者保存数据时需要保存数据的格式，因此在处理文件中的数据时需耍 使川自定义数据类型的数组。数据文件中的数据类型StudType定义如下： Private Type StudType Name As String * 3 Sex As String * 1 Age As Integer End Type Dim s() As StudType，定义一个StudType类型的动态数组 “格式”-“字体”：设置文本框中字体格式为“宋体”或者“隶书” “格式”-“字号”：增大或者减小字体大小。 “排序”?“年龄”：按照年龄进行升序或降序排序 “排序” ■“性别”：按照性别进行升序或降序排序。 (2)要求在文木框中输出时对齐，如下图。 (3)右键点击文本框时出现格式菜单，并且禁I上系统菜单的出现。 凰综合练习排序文件格式红洁栋仁芬 壳荣锋 强 莎 宇毅继伯浜員强鑫亚泽雪鹏永毅莉丹涛 范董陈李罗邓于曾叶余夏郭陈肖朱彭徐PS另男男女男男女男女男男女女女男V66666677777777口回冈色综合练习文件格式排序李光华陈昌兴吴浩权字体?字号? 凰综合练习 排序 文件格式 红洁栋仁芬 壳荣锋 强 莎 宇毅继伯浜員强鑫亚泽雪鹏永毅莉丹涛 范董陈李罗邓于曾叶余夏郭陈肖朱彭徐 PS另男男女男男女男女男男女女女男 V66666677777777 口回冈 色综合练习 文件格式排序 李光华 陈昌兴 吴浩权 字体? 字号? V- 刘国敏 23 20 21 23 19 20 宋体隶书 23 20 ⑷ 运行通过后用文件名EX4-2分别保存窗体和丄程。 实验要求 a)由于不清楚文件中的数据有多少，所以要使用动态数组來存放文件中的数据。下而 代码