在即将到来的全国计算机等级考试之时，小编为广大计算机等级考试的考生汇总整理了计算机二级VB考试试题，在计算机培训栏目中还有一级和三级的考试辅导资料，想获得更多的资料，请点击唯学网计算机培训栏目，祝考生能顺利通过考试。
试题答案及详解
一、基本操作题
第 1 小题
【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName 属性值为"楷体_GB2312"来改变文本框中文本的字体。
【操作步骤】
步骤 1：新建一个"标准 EXE"工程，按表 50-1 在窗体中画出控件并设置其相关属性。
表 50-1
步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub Cmd1_Click()
Txt1.FontName = "楷体_GB2312"
End Sub
步骤 3：按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】要使命令按钮位于窗体左上角需将其 Top 属性值和 Left 属性值设置为 0; 要在单击一次窗体后，命令按钮同时向右、向下移动 100，需在窗体的单击事件过程中， 设置命令按钮的 Top 属性值和 Left 属性值各增加 100。
【操作步骤】
步骤 1：新建一个"标准 EXE"工程，按表 50-2 在窗体中画出控件并设置其相关属性。
表 50-2
步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。
参考代码：
PrivateSub Cmd1_Click()
Cmd1.Left=Cmd1.left+100
Cmd1.Top=Cmd1.Top+100
End Sub
步骤 3：按要求将文件保存至考生文件夹中。
二、简单应用题
第 1 小题
【审题分析】根据题目要求，要在程序运行时能每隔 1 秒，标签中的数字加 1，需将计时器的 Interval 属性值设置为 1000 毫秒，Enabled 属性值设置为 True，在计时器的 Timer 事件过程中将标签中的数值加 1。
【操作步骤】
步骤 1：新建一个"标准 EXE"工程，按表 50-3 在窗体中画出控件并设置其相关属
表 50-3
步骤 2：双击窗体上的计时器控件，在其 Timer 事件过程中加入以下代码：
参考代码：
Private Sub Tmr1_Timer()
Lab1.Caption = Lab1.Caption + 1
End Sub
步骤 3：按要求将文件保存至考生文件夹中。
第 2 小题
【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用 For 循环语句(循 环变 k 的初值为 0，终值为 3)逐一检查单选按钮数组中的每个元素是否被选中，若选 中则用变 n 记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，且变 n 增 1;接着判断 n 的值是否为 4，若是则将 n 的值置为 0，重新从 单选按钮数组的第 1 个元素开始;最后设置索引号为 n 的单选按钮被选中。
【操作步骤】
步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，按表 50-4 在窗体中用"复制" 和"粘贴"命令画出包含 4 个元素的单选数组和 1 个命令按钮并设置属性。
表 50-4
步骤 2：打开代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。
参考代码：
Private Sub Cmd1_Click()
For k = 0 To 3
If Opt1(k).Value Then
106
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(Txt1.Text)
rmb = Val(Txt2.Text)
Pic1.Cls
Pic1.Print num * rmb
End Sub
步骤 3：按要求将文件保存至考生文件夹中。
请参加2014年计算机等级考试的考生能仔细阅读，如若获知更多关于 计算机等级考试培训的资讯，请随时关注唯学网计算机培训栏目，小编会为您在第一时间做出相关报道。
