三、简单应用题
42、(1)在窗体上建立一个二级菜单,该菜单含有"文件"和"编辑"(名称分别为vbFile和vbEdit)两个主菜单项,其中"文件"菜单包括"打开"、"保存"和"关闭"3个子菜单项(名称分别为vbOpen、vbSave和vbClose)。在名称为Form1的窗体上建立两个主菜单,其标题分别为"文件"和"编辑",名称分别为vbFile和vbEdit,在"文件"菜单下有3个子菜单项,标题分别为"打开"、"保存"和"关闭",名称分别为vbOpen、vbSave和vbClose。要求程序运行后,如果选中"文件"下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图31-3所示。
图31-3
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的,请在有"?"的地方填入正确内容,然后删除"?"及代码前的所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体上建立一个名称为Command1,标题为"计算"的命令按钮,再建立一个名称为Text1的文本框。运行界面如图31-4所示。要求程序运行后,若单击"计算"按钮,将计算200~350之间所有素数的和,在文本框中显示结果,同时把结果存入文件out.txt中。(在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件,而isprimenum函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以把该模块文件添加到自己的工程中。)
图31-4
四、综合应用题
43、在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,请在有"?"的地方填入正确内容,然后删除"?"及代码前的所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
窗体Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1,标题为"移动";水平滚动条的名称为HScroll1。单击"移动"按钮后,在弹出的对话框中输入数值。输入一个整数后,单击"移动",滚动条中的滚动块移动到指定的刻度,如果超过了滚动条的最大刻度,则不移动,并且在窗体上显示"输入的数值太大",如果超过了滚动条的最小刻度,则不移动,并且在窗体上显示"输入的数值太小"。如图8-5所示。
图8-5
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |