大一下课程VB程序设计实验要求及报告6

上海立信会计学院本科实验报告

班级：学号：姓名：指导教师：

系部：专业：实验时间：

实验6 列表框、组合框与过程

一、实验目的

1．掌握列表框和组合框的使用

2．掌握自定义函数过程和子过程的定义和调用方法

3．掌握形参和实参之间的对应关系

4．掌握值传递和地址传递的传递方式

二、实验要求

1．在C:\下建立子文件夹“VB实验6”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(61.vbp)、窗体文件(61.frm) 及可执行文件（61.exe），本实验中的第二题，需保存的文件有：工程文件(62.vbp)、窗体文件(62.frm) 及可执行文件（62.exe），其余实验依此类推。

2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。

三、实验内容：

1.设计一个选课的运行界面，如图6-1（a）所示。它包含2个列表框，左边为可供选择的

课程名称，通过Form_Load事件加入，并按拼音字母顺序排序；当单击某门课程名称后，将该课程加入到右边的列表框中，并在左边列表框中删除该课程。当右边课程数已满5门时，不允许再加入并出现如图6-1（b）所示的提示。窗体及所有控件字体默认、大小均为小四。

图6-1 (a) 图6-1 (b)

2.在窗体上建立一个简单组合框，在组合框的文本区输入数字字符，按回车键后加入到组

合框的列表区内（非数字则不加入），然后清空文本区，如图6-2（a）所示；单击“交换”按钮后，可将组合框列表区中最小值项目和第0个项目交换；最大值项目与最后项交换, 如图6-2（b）所示。窗体中所有控件字体默认大小。

图6-2（a）图6-2（b）

3.设计一个点菜程序，当单击“添加到我点的菜单中”按钮时，将组合框“饭店菜单”中

选中的菜添加到列表框“我点的菜”中，当单击“添加到饭店菜单中”按钮时，可以将文本框中输入的菜单名添加到组合框“饭店菜单”中，如已存在将不重复添加。要求：设计窗体界面，窗体中所有控件字体默认、大小为小四，并设计代码，初始时文本框、列表框、组合框内容均为空。

图6-3

4. 编写一个子过程ProcMin(a(),amin)，求一维数组a 中的最小值amin 。要求主调程序在随

机产生10个-300 ~ -400之间的数，在窗体上显示所产生的数组中的各元素，通过Form_Load 事件加入；调用ProcMin(a(),amin)过程，在窗体上显示数组中的最小值。窗体中所有控件字体默认、大小为小四，效果如图6-4所示。

图6-4

5. 编写一个自定义函数过程MySin(x)，求：

)!

12()1(!7!5!31)(121753--+⋅⋅⋅-+-=--n x x x x x x MySin n n 。当第n 项的值小于|10-5|时结束，x 为弧度。主调程序同时调用MySin(x)函数和内部函数Sin(x)，计算x=2时的函数值。要求：通过单击按钮事件在窗体上显示结果，进行比较验证，窗体中所有控件字体默认、大小为小四，效果如图6-5所示。

图6-5

6. 如果一个整数的所有因子（包括1，但不包括它本身）之和与该数相等，则称这个数为

完数。如6=1+2+3，所以6是一个完数。编写一个函数IsWs(m)，判断m 是否为完数，函数的返回值是逻辑型。主调程序在窗体上输出1000以内所有的完数，通过Form_Load 事件加入，窗体中所有控件字体默认、大小为小四，效果如图6-6所示。

图6-6

四、实验过程中的问题、错误，解决方法，总结、体会、建议。