| 2004年全国计算机等级考试二级VB全真上机试题解析 |
热 |
| 2004年全国计算机等级考试二级VB全真上机试题解析 |
|
作者：2007年高… 文章来源：101高考信息网 点击数： 更新时间：2006-12-17 18:31:54  |
|
第1题：
在考生文件夹下有一个
；还有两个命令按钮，名称
并有一个函数过程 isprime
，如果是素数，则返回 Tru
运行时，单击"计算"按钮，
存盘"按钮，则把 Text1
工程文件sjt5.vbp，其窗体上有
分别为C1、C2，标题分别为"计
可以在程序中直接调用， 其
e，否则返回 False。
则找出小于 18000的最大的
中的计算结果存入考生文件夹
一个文本框，名称 为Text1
算"、 "存盘"，如图所示。
功能是判断参数 a 是否为素数
请编写适当的事件过程，使得在
素数，并显示在Text1中；单击"
下的out5.txt文件中。
本题的考查主要有两个,一个是循环,
一个是文件的访问。
由于在小于18000中寻找最大素数,并
18000以下寻找,没有找到减一再寻找,找
倡GoTo以及从结构体中退出（例如Exit F
且判断素数的函数已经给出,只要使用一个循环在
到记录在Text1.Text中,在结构化的程序中不再提
or等）,使用While判断是一个较好的选择。
第2题：
在考生文件夹下有一个工程文件sjt4
为Text1、Text2；和一个命令按钮，名称
名称分别为 Op1、Op2，标题分别为 "男
为 Ch1、 Ch2，标题分别为"体育"、
，单击"确定"按钮后实 现下面的要
.vbp，窗体上已经有两个文本框，名 称分别
为C1，标题为"确定"； 请画两个单选按钮，
生"、"女 生"；再画两个复选框，名称分别
"音乐"。请编写适当的事件过程，使得在运行时
求：
1）根据选中的单选按
钮，在Text1中显示"我是男生"
或"我是女生"。
2）根据选中的复选框
或"我的爱好是体育音乐"。
，在Text2中显示"我的爱好是体
如图所示。
育"或"我的爱好是 音乐"
注意： 不得修改
须选中一个单选按钮和至少
闭按钮结束程序，否则无成
已经给出的程序和已有控件的属
一个复选框，并单击"确定"按钮
绩。
性。在结束程序运行之前，必
。必须使用 窗体右上角的关
分析：单选按钮OptionButton和选择
CheckBox控件功能相似，但是二者间也存
中的其它OptionButton控件自动无效。相
框CheckBox的简单应用OptionButton控件和
在着重要差别。在选择一个OptionButton时，同组
反，可以选择任意数量的CheckBox控件。
只要注意了这一点本题可以在C1_Cli
Value为True表示选中,CheckBox的Value=
ck事件中判断他们的选中情况OptionButton的
1时表示选中。
第3题：
在名称为 Form1 的窗
标签的右边画一个文本框，
性使得在输入密码时，文本
以上这些设置都只能在属性
存盘时必须存放在考生文
体上画一个标签，名称为 L1，
名称为 Text1 ，其宽、高分别
框中显示"*"字符， 此外再把
窗 口中进行设置，运行时的窗
件夹下，工程文件名为 sjt1.vb
标签上显示"请输入 密码"， 在
为 2000和300，设置适当的属
窗体的标题设置为"密码窗口"，
体如图所示。 *注意：
p，窗体文件 名为sjt1.frm。
分析：创建的对象设置属性。属性窗
象属性的简便方法。在"视图"菜单中选择
或使用控件的上下文菜单，都可以打开属
Text1的PasswordChar属性设置为*即可完
口（选中对按[F4]调出）给出了设置所有的窗体对
"属性窗口"命令、单击工具栏上的"属性窗口"按钮
性窗口。在本题中要求对于密码框的设定,只要为
成
第4题：
在考生文件夹下有一个
一个单选按钮数组，名称为
2，标题依次为"飞机"、"火
已经给出了Op1的Click事件
的 ？改为正确的内容，使
示"我坐飞机去"或"我坐火
去"，如图所示。 注意
存盘。
工程文件 sjt3.vbp，窗体上已
Op1， 含三个单选按钮，它们的
车"、"汽车"，再画一个名 称
过程，但不完 整，要求
得在运 行时单击"飞机"或"
车去"，单击"汽车"单选按钮时
：不能修改程序中的其他部分。
经有一个标签 L1， 请画
Index属性 分别为0、1、
为Text1的文本框。窗体文件中
去掉程序中的注释符，把程序中
火车"单选按钮时，在Text1中显
，在Text1中显示"我开汽车
最后把修改后的文件按原文件名
本题考查对于OptionButton 控件的
闭的选项,判断它是否被选中使用的是val
了解,OptionButton控件显示一个可以打开或者关
ue属性,选中为True,反之为False。
一般在使用OptionButt
句是根据表达式的值，来决
这里需要根据用户的选择进
以由Index得到,这里填入In
判断Op1（1).Caption是"火
on控件使大多数人喜欢使用控件
定执行几组语句中的其中之一。
行分流,分流的依据是用户选择
dex,第二个空白,我们只要知道O
车",我们只能"坐",填入a即可。
数组,在第一题中Select Cas 语
根据后续的语句我们可以知道,
了那一个OptionButton,这个可
ptionButton数组从零开始,不难
第5题：
在考生文件夹下有一个
工程文件sjt5.vbp，窗体上有两
个图片框，名称为
P1、P2，分别用来表示
.ico"、"绿灯.ico"文件来
Timer1用于变换信号灯，黄
。运行时，信号灯不断变换
或信号灯下，遇到红灯或黄
给出了全部控件和程序，但
信号灯和汽车，其中在 P1 中轮
实现信号灯的切换；还有两个计
灯1秒，红灯2秒，绿灯3秒；Tim
，单击"开车"按钮后。 汽车开
灯，则停止移动， 当 变为绿
程序不完整，
流装入"黄灯.ico"、 "红灯
时器Timer1 和Timer2，
er2用于 控制汽车向左移动
始移动，如果移动到信号灯前
灯后再继续移动。在窗体中已经
要求阅读程序并去掉程序中的注释符
上述功能，但不能修改程序中的其他部分
文件以原文件名存盘。
，把程序中的 ？改为正确的内容，使其实 现
，也不能修改控件的属性。 最后把 修改后的
本题中涉及三个事件
点击开车按钮C1_Click,汽车开始启
必须启动Timer2,所以填入Timer2.Enable
动,由题面知道汽车的开动由Timer2控制,那么这里
=True
红绿灯由Timer1控制,在Timer1的事
图像,达到红绿灯转换的效果,如果看到其
仔细分析要在绿灯有三秒,也必须这样填
件Timer1_Timer中根据时间a来更换P1.Picture的
他灯已经有了,这里填入"绿灯.ioc"是简单的选择,
写
最后是汽车的移动,已
使用了picture的Move方法,
知是由Timer2操作的,在它的事
平行向右移动,改变Left值,这里
件Timer2_Timer中要移动汽车,
填入picture1.Left即可实现。
其他关于Timer控件以
及picture控件的属性方法事件
请自己参阅有关资料。
第6题：
在考生文件夹下有一个工程文件sjt5
为F1和F2，标题分别为"交通工具"和"到
别为Op1和Op2，标题分别为"飞机"和"火
Op3和Op4，标题分别为"广州"和"昆 明
过程。程序运行后， 选择不同单选
.vbp，请在窗体上画两个框架，其名 称分别
达目标"。在F1中画两 个单选按钮，名称分
车"。在 F2中画两个单选按钮，名称分别为
"。画一个文本框，其名称为Text1。编写适当事件
按钮时产生的显示结果见下表
程序的运行情况如图所
sjt5.frm。
示。存盘时，工程文件名为sjt5
.vbp，窗体文件名 为
单选按钮的Value属性
：
Value属性用来表示单
选按钮是"打开"的，按钮中
一个圆圈。
选按钮的状态，可以取True和Fa
心有一个圆点；取值为False时
lse两种值，取值为True时，单
，单选按钮是"关闭"的，按钮是
设置单选按钮Value属
性的语法是：
单选按钮名.Value = T
rue（-1)或False（0)
由于Value属性是单选按钮的缺省属
名。
性，因此在设置该属性的值的时候，可以省略属性
解题方法：
打开工程文件sjt5.vbp
架，通过属性窗口分别设置
标"。
，点击工具箱中的Frame控件图
其Name属性为"F1"和"F2"，Capt
标，然后在窗体上拖拉出两个框
ion属性为"交通工具"和"到达目
点击工具箱中的OptionButton控件图
口分别设置其Name属性为"Op1"和"Op2"，
标，然后在F1中拖拉出两个单选按钮，通过属性窗
Caption属性为"飞机"和"火车"。
点击工具箱中的Option
口分别设置其Name属性为"O
Button控件图标，然后在F2中拖
p3"和"Op4"，Caption属性为"广
拉出两个单选按钮，通过属性窗
州"和"昆明"。
点击工具箱中的TextBox控件图标，
然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如
下的代码：
Private Sub Form_Cli
ck（)
If Op1.Value = True Then
If Op3.Value = True
Then
Text1.Text = "坐飞机去广州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飞机
去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火车去广州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火车
去昆明"
End If
End If
End Sub
第7题：
在考生文件夹下有一个工程文件sjt6
Text1、Text2和Text3，文本框内容分别
两个单选按钮，其名称分别为Op1和Op2，
适当的事件程序。程序运 行后，如果选
本框中 内容与Text2文本框中内容进行
选中"连接"单选按钮并单击 Text3 文本
的顺序连接起来，并在Text3文本框中显
sjt6.vbp，窗体文件名为sjt6.frm。
.vbp，请在窗体上画三个文本框，其 名称分别为
设置为"等级考试"、 "计算机"和空白。然后画
标题 分别为"交换"和"连接"（如图所示），编写
中"交换"单选按钮并单击Text3文本框，则Text1文
交换，并在Text3文本框中显示"交换成 功"；如果
框，则把 Text1 和 Text2的内容按Text1、Text2
示连 接后的内容。存盘时，工程文件名为
解题方法：
打开工程文件sjt6.vbp，点击工具箱
文本框，通过属性窗口分别设置其Text属
中的TextBox控件图标，然后在窗体上拖拉出三个
性为"等级考试"、"计算机"和""。
点击工具箱中的OptionButton控件图
窗口分别设置其Name属性为"Op1"和"Op2"
标，然后在窗体中拖拉出两个单选按钮，通过属性
，Caption属性为"交换"和"连接"。
打开代码窗口，输入如
下的代码：
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "计算机"
Text2.Text = "等级考试"
Text3.Text = "交换成
功"
Else
Text3.Text = Text1.Text + Text2.
Text
End If
End Sub
第8题：
在Form1的窗体上画一个文本框，其
名称为Text1；再画两个命令按钮，
其名称分别为C1和C2，标题分别为"
行后，在窗体加载时使"退出"按钮不可用
级考试"，并使"退出"按钮可用，此 时
如图所示。
显示"和"退出"，编写适当的事件 过程。程序运
，如果单击"显 示"按钮，则在文本框中显示"等
如果单击"退出"按钮，则结束程序，程序运行情况
解题方法：
新建一个名为Form1的
拖拉出两个命令按钮，通过
示"和"退出"。
窗体，点击工具箱中的CommandB
属性窗口分别设置其Name属性为
utton控件图标，然后在窗体上
"C1"和"C2",Caption属性为"显
点击工具箱中的TextBo
x控件图标，然后在窗体上拖拉
出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等级考
试"
End Sub
Private Sub C2_Click
（)
End
End Sub
第9题：
在Form1的窗体上画一个命令按钮，
其名称为C1，标题为"显示"；再画
一个文本框，其名称为
使文本框不可见，如果双击
中显示"等级考试"。程序运
Text1，编写适当的事件过程。
窗体，则文本框出现；此时如果
行情况如图所示。
程序运行后，在窗 体加载时
单击 命令按钮，则在文本框
解题方法：
新建一个名为Form1的
拖拉出一个命令按钮，通过
窗体，点击工具箱中的CommandB
属性窗口设置其Name属性为"C1"
utton控件图标，然后在窗体上
，Caption属性为"显示"。
点击工具箱中的TextBox控件图标，
然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
Text1.Text = "等级考试"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub
第10题：
在窗体上画一个文本框，其名称为Te
名称为C1，Visible属性为False。编写适
输入字符，则命令按钮出现。程序运行情
xt1，Text属性为空白。再画一个命 令按钮，其
当的事件过程。程序 运行后，如果在文本框中
况如图 所示。
解题方法：
新建一个窗体，点击工
通过属性窗口设置其Text属
具箱中的TextBox控件图标，然
性为""。
后在窗体上拖拉出一个文本框，
点击工具箱中的Comman
性窗口设置其Name属性为"C
dButton控件图标，然后在窗体
1",Visible属性为False。
上拖拉出一个命令按钮，通过属
打开代码窗口，输入如下的代码：
Private Sub Text1_Ch
ange（)
C1.Visible = True
End Sub
按要求保存文件即完成本题。
| 文章录入：admin 责任编辑：admin |
|
上一篇文章： 2004年全国计算机等级考试二级VB全真上机试题解析
下一篇文章： 2003年全国计算机等级考试四级上机题 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
|
