VB实验五答案.doc

《VB实验五答案.doc》由会员分享，可在线阅读，更多相关《VB实验五答案.doc（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、沈阳师范大学面向对象程序设计实验报告实验题目 实验五数组和自定义类型 学号 姓名 刘丽 年级 10级 指导教师 王 飞 提交时间 10.24 一、实验目的（1）掌握数组的声明、数组元素的引用。（2）掌握固定长度数组和动态数组的使用差别。（3）掌握数组常用的操作和常用算法。（4）掌握列表框和组合框的使用。（5）掌握自定义类型及数组的使用。二、实验内容及要求（1）完成课堂讲授的两个示例例5.1和例5.4。（2）完成实验E第1实验内容（教材p272）。（3）完成课堂讲授的实例5.10和5.13（教材p113和教材p118）。（4）完成实验E第7实验内容（教材p273）。三、实验分析与设计例5.1 计

2、算一个班100个学生的平均成绩，然后统计高于平均分的人数。步骤1 启动 VisualBasic6.0，创建一个“标准EXE”类型的应用程序，步骤2 设计界面：不需添加控件 如图所示：步骤3 设置控件属性。步骤4 事件及编程，如下所示：窗体事件Private Sub Form_Click() Dim mark(1 To 100) As Integer Dim aver!, n%, i% aver = 0 For i = 1 To 100 mark(i) = InputBox(输入第 & i & 位学生的成绩) aver = aver + mark(i) Next i aver = aver /

3、100 n = 0 For i = 1 To 100 If mark(i) aver Then n = n + 1 Next i Print 平均分：, aver, 高于平均分的人数：, nEnd Sub步骤5 单击“运行”按钮运行程序，若程序运行有错，则进入代码窗口中调试。步骤6 保存文件，生成可执行文件。例5.4 求一维数组中各元素之和、最小数组元素，并将最小数组元素与数组中第一个元素交换。步骤1 启动 VisualBasic6.0，创建一个“标准EXE”类型的应用程序，步骤2 设计界面： 如图所示：步骤3 设置控件属性。在属性窗口中对控件的属性进行设置。本例中各个控件对象的有关属性设置参

4、见表1.1。表1-1 对象属性列表控件名 相关属性Command1Caption： 确定设置后的用户界面如下图所示。步骤4 事件及编程，如下所示：命令按钮事件Private Sub Command1_Click() Dim a, i%, min%, imin%, sum%, t% a = Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) min = a(0): imin = 0: sum = a(0) For i = 1 To UBound(a) sum = sum + a(i) If a(i) max Then max = a(i) If a(i)

5、= 100 Then MsgBox (输入人数超过数组声明的个数) Else With stud(n) .Name = Text1 .Sex = Text2 .Telephone = Text3 .School = Combo1.Text End With Text1 = : Text2 = : Text3 = : n = n + 1 End IfEnd Sub命令窗体事件Private Sub Command2_Click() Dim i% Picture1.Cls Picture1.Print 姓名 性别 电话 学校 Picture1.Print - For i = 0 To n - 1

6、With stud(i) Picture1.Print Trim(.Name); Tab(9); .Sex; Tab(14); .Telephone; Tab(22); .School End With Next iEnd Sub 命令窗体事件Private Sub Command3_Click()Dim tSchool As String, i%Picture2.ClstSchool = InputBox(请输入欲查询的学校)Picture2.Print 姓名 学校For i = 0 To n - 1 If Trim(stud(i).School) = Trim(tSchool) Then

7、Picture2.Print stud(i).Name, stud(i).School End If Next iEnd Sub步骤5 单击“运行”按钮运行程序，若程序运行有错，则进入代码窗口中调试。步骤6 保存文件，生成可执行文件。实验E第7实验 设计选课的运行界面。步骤1 启动 VisualBasic6.0，创建一个“标准EXE”类型的应用程序，步骤2 设计界面：如图所示：步骤3 设置控件属性。在属性窗口中对控件的属性进行设置。本例中各个控件对象的有关属性设置参见表1.1。表1-1 对象属性列表控件名 相关属性Label1Caption： 供选课课程 我选的课程List1List: C/C

8、+程序设计VB程序设计数据库技术与应用硬件技术基础Web程序设计多媒体技术与应用网略技术与应用软件技术技术基础大学计算机基础设置后的用户界面如下图所示步骤4 事件及编程，如下所示： Private Sub Form_Load() List1.Clear List1.AddItem C/C+程序设计 List1.AddItem VB程序设计 List1.AddItem 数据库技术与应用 List1.AddItem 硬件技术基础 List1.AddItem Web程序设计 List1.AddItem 多媒体技术与应用 List1.AddItem 网络技术与应用 List1.AddItem 软件技术

9、技术基础 List1.AddItem 大学计算机基础End SubPrivate Sub List1_Click()If List2.ListCount 5 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndexElse MsgBox 超过5门课程，不能再选End IfEnd Sub步骤5 单击“运行”按钮运行程序，若程序运行有错，则进入代码窗口中调试。步骤6 保存文件，生成可执行文件。四、运行结果例5.1单击窗体 计算结果例5.4实验E-1 实例5.10 例5.13 （1）输入 （2）查询 （3）结果 实验E第7实验 超过五门 五、教师评语