第1套上机考试试题
一、基本操作题
图1－1
图1－2
二、简单应用题
下面出现的“考生文件夹”均为c：＼wexam\20060001。
1．在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'’号)，但不能修改其他部分。保存时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个列表框，名称为List1；一个文本框，名称为Text1；一个命令按钮，名称为Cl，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中，如图1－3所示。
图1-3
2．在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分。保存时不得改变文件名和文件夹。
在窗体上有三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为c1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图1－4所示。
图1-4
三、综合应用题
下面出现的“考生文件夹”均为c：＼wexamk20060001。
在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分。
本题描述如下：在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和opt2，标题分别为“100～200之间素数”和“200～400之间素数”；一个文本框，名称为Text1；两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”，如图1－5所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入out.txt文件中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块mode．bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数X是否为索数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中)。
图1－5
注意：必须把素数之和存入考生文件夹下的out．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp。
第1套参考答案与解析
一、基本操作题
标题 |
名称 |
内缩符号 |
| 文件 |
vbFile |
O |
| 打开 |
vbOpen |
1 |
| 关闭 |
vbClose |
1 |
| 退出 |
vbExit |
1 |
| 帮助 |
vbHelp |
0 |
(3)按要求设计含有“文件”和“帮助”的菜单栏。
(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
(5)设计完成之后，按规定方式存盘。
2．【解析】单击命令按钮触发Click事件，命令按钮的标题由其Caption属性设置；在窗体上打印信息通过Print方法来实现。
【解题步骤】
(1)建立界面和控件并设置控件属性。程序中用到的控件及其属性见表1－2。
表1－2
控件 |
属性 |
设置值 |
控件 |
属性 |
设置值 |
| Name |
Cmd1 |
Name |
Cmd2 | ||
| 按钮 |
Caption |
喜欢 |
按钮 |
Caption |
不喜欢 |
(2)编写程序代码。
参考代码：
Private Sub Cmd1_Click()
Print“数理化”
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。
Private Sub Cmd2_C1ick()
Print“政史地”
End SUb
二、简单应用题
1．【解析】本题考查的是列表框控件List的使用。向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。
但题目中要求是程序运行后自动添加，所以利用代码实现。
(1)首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frm。
(2)在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表1-3。
表1－3
控件 |
属性 |
设置值 |
控件 |
属性 |
设置值 |
| 列表框 |
Name |
List1 |
Name |
C1 | |
| 文本框 |
Name |
Text1 |
命令按钮 |
Caption |
复制 |
(3)进入代码窗口，得到如下程序代码：
(4)For语句循环变量的起始值为0。
(5)列表框的Text属性为最后一次选中的表项的文本
(6)修改这两处的代码。
参考代码如下：
(7)调试并运行。
(8)按题目要求存盘。
责任编辑：小草
