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

时间：2020-09-08 14:40:36 计算机等级我要投稿

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

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

2016年9月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