文档介绍：105
第 50套试题答案及详解
一、基本操作题
第 1 小题
【审题分析】本题需在命令按钮的单击事件过程中,通过修改文本框的 FontName 属
性值为“楷体_GB2312”来改变文本框中文本的字体。
【操作步骤】
步骤1:新建一个“标准EXE”工程,按表50-1在窗体中画出控件并设置其相关属性。
表 50-1
步骤 2:打开代码编辑窗口,编写命令按钮的单击事件过程。
参考代码:
Private Sub Cmd1_Click()
= "楷体_GB2312"
End Sub
步骤 3:按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】要使命令按钮位于窗体左上角需将其Top属性值和Left属性值设置为0;
要在单击一次窗体后,命令按钮同时向右、向下移动100,需在窗体的单击事件过程中,
设置命令按钮的 Top 属性值和 Left属性值各增加 100。
【操作步骤】
步骤 1:新建一个“标准 EXE”工程,按表 50-2 在窗体中画出控件并设置其相关属
性。
表 50-2
步骤 2:打开代码编辑窗口,编写命令按钮的 Click 事件过程。
参考代码:
PrivateSub Cmd1_Click()
=+100
=+100
End Sub
步骤 3:按要求将文件保存至考生文件夹中。
二、简单应用题
第 1 小题
【审题分析】根据题目要求,要在程序运行时能每隔 1 秒,标签中的数字加 1,需将
计时器的Interval属性值设置为 1000 毫秒, Enabled属性值设置为 True, 在计时器的 Timer
事件过程中将标签中的数值加1。
106
【操作步骤】
步骤 1:新建一个“标准 EXE”工程,按表 50-3 在窗体中画出控件并设置其相关属
性。
表 50-3
步骤 2:双击窗体上的计时器控件,在其 Timer事件过程中加入以下代码:
参考代码:
Private Sub Tmr1_Timer()
= + 1
End Sub
步骤 3:按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】本题源程序在命令按钮的单击事件过程中,首先利用For循环语句(循
环变量 k 的初值为 0,终值为 3)逐一检查单选按钮数组中的每个元素是否被选中,若选
中则用变量n 记录下选中单选按钮的索引号,即 n=k。循环结束后,取消对当前选中单选
按钮的选择,且变量 n 增 1;接着判断 n 的值是否为 4,若是则将 n 的值置为 0,重新从
单选按钮数组的第1 个元素开始;最后设置索引号为 n 的单选按钮被选中。
【操作步骤】
步骤 1:打开考生文件中的本题工程文件 ,按表 50-4 在窗体中用“复制”
和“粘贴”命令画出包含 4 个元素的单选数组和 1 个命令按钮并设置属性。
表 50-4
步骤 2:打开代码编辑窗口,去掉程序中的注释符“'”,将问号“?”改为正确的内
容。
参考代码:
Private Sub Cmd1_Click()
For k = 0 To 3
If Opt1(k).Value Then
107
n = k
End If
Next k
Opt1(n).Value = False
n = n + 1
If n = 4 Then
n = 0
End If
Opt1(n).Value = True
End Sub
步骤 3:按要求将文件保存至考生文件夹中。
三、综合应用题
【审题分析】本题其实就是设计一个简单的乘法运算,为避免不必要的错误,可在执
行运算前用Val函数将文本框中数字字符串转换为数值数据。
【操作步骤】
步骤 1:新建一个“标准 EXE”工程,按表 50-5 在窗体中画出控件并设置其相关属
性。
表 50-5
步骤 2:打开代码编辑窗口,编写“总价”命令按钮的单击事件过程。
参考代码:
Private Sub Cmd1_Click()
Dim num As Integer
Dim rmb As Currency
num = Val()
rmb = Val()
num * rmb
End Sub
步骤 3:按要求将文件保存至