《9月vb计算机考试试题及答案》由会员分享，可在线阅读，更多相关《9月vb计算机考试试题及答案（6页珍藏版）》请在金锄头文库上搜索。
1、xx年9月vb计算机考试试题及答案 为帮助同学们顺利考过计算机二级，为大家带来计算机等级vb考试试题及答案如下，希望对同学们复习有所帮助! (1)在名称为Form1的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，那么“命令按钮2”出现，“命令按钮1”隐藏;而如果单击“命令按钮2”，那么“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如下列图。 注意：程序中不得使用变量。 存盘时必须存放在考生文件夹下，工程文件名为sjt11.vbp，窗体文件名为sjt11.frm。 P
2、rivate Sub C1Click() C1.Visible = False C2.Visible = True End Sub Private Sub C2Click() C1.Visible = True C2.Visible = False End Sub (2)在名称为Form1的窗体上画一个标签，其名称为Label1，在属性窗口中把BorderStyle属性设置为1(如图1所示)，编写适当的事件过程。程序运行后，如果单击窗体，那么可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 程序的运行情况如图2所示。 要求： 不得使用任何变量。 *注意： 存盘时必须存放在考生文件
3、夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。 Private Sub FormClick() Label1.Left = -Label1.Width + Me.Width Label1.Top = 0 End Sub Private Sub FormMouseDown(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 FormMouseUp(But
4、ton As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = -Form1.Label1.Width + Me.Width Label1.Top = 0 End Sub (1)在考生目录下有一个工程文件sjt21.vbp，窗体上有一个命令按钮Command1(标题为“下一个”)。 要求： 在窗体上建立一个单项选择按钮数组Option1，含4个单项选择按钮，标题分别为“选项1”、“选项2”、“选项3”、“选项4”，初始状态下，“选择1”为选中状态。如下列图。窗体文件中已经给出了命令按钮的Click事件过程，但不
5、完整，请去掉程序中的注释符，把程序中的?改为正确的内容，使得每单击命令按钮一次，就选中下一个单项选择按钮，如果已经选中最后一个单项选择按钮，再单击命令按钮，那么选中第1个单项选择按钮。 注意： 不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 Private Sub Command1Click() 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 En
6、d If Option1(n).Value = True End Sub (2)在考生文件夹下有一个工程文件sjt22.vbp，窗体上已经画出所有控件。如下列图。在Text1文本框中输入一个任意的字符串(要求串的长度10)，然后选择组合框中的3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。 窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意： 不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 Dim isnum As Boolean Private Sub Command1Click() Dim tmpStr A
7、s 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 在考生文件夹下有一个工程文件sjt31
8、.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，那么停顿移动，当变为绿灯后再继续移动。 在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部
9、分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。 Dim a%, b As Boolean Private Sub C1Click() Timer2.Enabled = ? Timer2.Enabled = True b = True End Sub Private Sub Timer1Timer() a = a + 1 If a 6 Then a = 1 End If Select Case a Case 1 P1.Picture = LoadPicture(黄灯.ico) Case 2, 3 P1.Picture = LoadPicture(红灯.ico) Case 4, 5,
10、 6 P1.Picture = LoadPicture(?) P1.Picture = LoadPicture(绿灯.ico) If b Then Timer2.Enabled = True End Select End Sub Private Sub Timer2Timer() If (a P1.Left And P2.Left P1.Left + P1.Width) Or P2.Left = 100 Then Timer2.Enabled = ? Timer2.Enabled = False Else P2.Move ? - 10, P2.Top, P2.Width, P2.Height P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height End If End Sub
