2007年9月计算机等级考试二级VB上机练习(1)

1．基本操作（2小题，每小题15分，共计30分）
注意：下面出现的"考生文件夹"均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在窗体上建立一个二级菜单，该菜单含有"文件"和"帮助"（名称分别为vbFile和vbHelp）两个主菜单项，其中"文件"菜单包括"打开"、"关闭"和"退出"三个子菜单项（名称分别为vbOpen、vbClose和vbExit），如图1-1所示。只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

图 1-1

（2）在名为Form1的窗体上画一个框架，名称为Frm1，标题为"框架"，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为"文本框"。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

 图 1-2

2．简单应用（2小题，每题20分，计40分）
注意：下面出现的"考生文件夹"均为c:\wexam\25160001。
（1）在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中自动建立4个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中，如图1-3所示。

 图 1-3

（2）在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体有3个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要求程序运行后，如果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育美术"，如图1-4所示。

 图 1-4

3．综合应用（1小题，计30分）
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为"100-200之间素数"和"200-400之间素数"，一个文本框，名称为Text1，和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为"计算"和"存盘"，如图1-5所示。程序运行后，如果选中一个单选按钮并单击"计算"按钮，则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击"存盘"按钮，则把计算结果存入"out.txt"文件中，该文件必须放在考生文件夹中。（在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中。）
注意：必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp。

 
图 1-5