vb计算机考试试题及答案,2016年9月vb计算机考试试题及答案

最新推荐文章于 2021-07-29 07:09:52 发布

陈星·Sin2

最新推荐文章于 2021-07-29 07:09:52 发布

阅读量297

点赞数

文章标签： vb计算机考试试题及答案

2016年9月vb计算机考试试题及答案

为帮助同学们顺利考过计算机二级，yjbys小编为大家带来计算机等级vb考试试题及答案如下，希望对同学们复习有所帮助!

1.基本操作(2小题，每小题15分，共计30分)

(1)在名称为Form1的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏;而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图所示。

注意：程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjt11.vbp，窗体文件名为sjt11.frm。

Private Sub C1_Click()

C1.Visible = False

C2.Visible = True

End Sub

Private Sub C2_Click()

C1.Visible = True

C2.Visible = False

End Sub

(2)在名称为Form1的窗体上画一个标签，其名称为Label1，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。程序运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。

程序的运行情况如图2所示。

要求：不得使用任何变量。

*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。

Private Sub Form_Click()

' Label1.Left = -Label1.Width + Me.Width

' Label1.Top = 0

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

' Label1.Left = -Label1.Width + Me.Width

Label1.Top = 0

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Left = -Form1.Label1.Width + Me.Width

' Label1.Top = 0

End Sub

2.简单应用(2小题，每题20分，计40分)

(1)在考生目录下有一个工程文件sjt21.vbp，窗体上有一个命令按钮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).Value Then

' n = ?

n = k

End If

Next k

Option1(n).Value = False

n = n + 1

If n = 4 Then

' n = ?

n = 0

End If

Option1(n).Value = True

End Sub

(2)在考生文件夹下有一个工程文件sjt22.vbp，窗体上已经画出所有控件。如图所示。在Text1文本框中输入一个任意的字符串(要求串的长度≥10)，然后选择组合框中的3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。

窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。

Dim is_num As Boolean

Private Sub Command1_Click()

Dim tmpStr As String * 50

Select Case Form1.Combo1.ListIndex

'Select Case ?

Case 0

tmpStr = Left(Trim(Text1.Text), 3)

Case 1

tmpStr = Right(Trim(Text1.Text), 3)

Case 2

tmpStr = Mid(Trim(Text1.Text), 3, 4)

'tmpStr = Mid(Trim(Text1.Text), ? )

End Select

Text2.Text = tmpStr

'Text2.Text = ?

End Sub

3.综合应用(1小题，计30分)

在考生文件夹下有一个工程文件sjt31.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。

在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

Dim a%, b As Boolean

Private Sub C1_Click()

' Timer2.Enabled = ?

Timer2.Enabled = True

b = True

End Sub

Private Sub Timer1_Timer()

a = a + 1

If a > 6 Then

a = 1

End If