为帮助同学们顺利考过计算机二级，yjbys小编为大家带来计算机等级vb考试试题及答案如下，希望对同学们复习有所帮助!
1.基本操作(2小题，每小题15分，共计30分)
(1)在名称为Form1的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏;而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图所示。
注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。
Private Sub C1_Click()
ble = False
ble = True
End Sub
Private Sub C2_Click()
ble = True
ble = False
End Sub
(2)在名称为Form1的窗体上画一个标签，其名称为Label1，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。程序运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。
程序的运行情况如图2所示。
要求： 不得使用任何变量。
*注意： 存盘时必须存放在考生文件夹下，工程文件名为，窗体文件名为。
Private Sub Form_Click()
' = h + h
' = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' = h + h
= 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
= h + h
' = 0
End Sub
2.简单应用(2小题，每题20分，计40分)
(1)在考生目录下有一个工程文件，窗体上有一个命令按钮Command1(标题为“下一个”)。
要求： 在窗体上建立一个单选按钮数组Option1，含4个单选按钮，标题分别为“选项1”、“选项2”、“选项3”、“选项4”，初始状态下，“选择1”为选中状态。如图所示。窗体文件中已经给出了命令按钮的`Click事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。
注意： 不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
' For k = 0 To ?
For k = 0 To 3
If Option1(k)e Then
' n = ?
n = k
End If
Next k
Option1(n)e = False
n = n + 1
If n = 4 Then
' n = ?
n = 0
End If
Option1(n)e = True
End Sub
(2)在考生文件夹下有一个工程文件，窗体上已经画出所有控件。如图所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10)，然后选择组合框中的3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。
窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意： 不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
Dim is_num As Boolean
Private Sub Command1_Click()
Dim tmpStr As String * 50
Select Case Index
'Select Case ?
Case 0
tmpStr = Left(Trim(), 3)
Case 1
tmpStr = Right(Trim(), 3)
Case 2
tmpStr = Mid(Trim(), 3, 4)
'tmpStr = Mid(Trim(), ? )
End Select
= tmpStr
' = ?
End Sub
3.综合应用(1小题，计30分)
在考生文件夹下有一个工程文件，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯”、“红灯”、“绿灯”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
Dim a%, b As Boolean
Private Sub C1_Click()
' led = ?
led = True
b = True
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a > 6 Then
a = 1
End If
Select Case a
Case 1
ure = LoadPicture("黄灯")
Case 2, 3
ure = LoadPicture("红灯")
Case 4, 5, 6
' ure = LoadPicture("?")
ure = LoadPicture("绿灯")
If b Then led = True
End Select
End Sub
Private Sub Timer2_Timer()
If (a < 4) And ( > And < + h) Or <= 100 Then
' led = ?
led = False
Else
' ? - 10, , h, ht
- 10, , h, ht
End If
End Sub
书香门第
