无忧考吧计算机二级Visual Basic语言程序设计模拟软件是专为准备二级VB考试的朋友制作的模拟考试系统，系统拥有大量的练习题和历年真题，不仅可以模拟理论考试，还可以模拟上机考试，另有大量的考试讲义和资讯，可以帮助您掌握考试的要点和信息，更有错题系统，可以让您的复习更有针对性。
 
无忧考吧计算机二级Visual Basic语言程序设计模拟软件功能介绍
 
1、专项练习
 
按照知识点呈现题目，考生可以强化薄弱知识点。
 
2、综合练习
 
按套呈现题目，考生可查看试题解析和操作演示。
 
3、全真模拟
 
全真模拟真实考试环境，让考生对等级考试不再陌生。
 
4、免费试用
 
每个科目可以免费试用综合练习的第1套试卷。
 
5、历届考题
 
内含历届考试真题，题量丰富，紧扣大纲，试题难度与正式考试题一致。
 
6、智能评分
 
自动评分，判断答题是否正确。
 
7、详尽解析
 
详细的解析，方便考生学习。
 
8、操作演示
 
详细地演示上机题的所有步骤，使得考生更易学习。
 
9、错题重做
 
自动记录做错的题，针对错题强化练习，反复刺激，加深印象。
 
10、我的收藏
 
对收藏的题目，反复练习，强化记忆。
 
11、查看笔记
 
在练习中添加笔记，笔记是学习中积累下来的财富，在考前冲刺复习中会起到很大的作用。
 
12、能力评估
 
根据考生练习情况，呈现个人数据分析结果。
 
13、学习讲义
 
不定时更新考试技巧和知识点汇总，以供参考。

 
山东省高校计算机等级考试VB考试模拟系统使用说明
 
一、系统安装
 
双击光盘上模拟系统安装程序(Setup.exe)，根据安装向导提示，很容易完成安装过程，安装完成后，在开始菜单和桌面上，会建立相应的快捷方式。
 
安装完成后，即可进行系统登录，若初次登录时，系统提示“组件无法注册”的信息，则需要安装 .Net framework2.0 (即安装光盘上的Microsoft_DotNetFXCHS2.0.exe)，用户也可从网络上下载该程序。安装该程序后，即可进行考试了。
 
二、系统启动与登录
 
双击桌面上的“计算机二级模拟考试”图标，或者依次选择“开始”－>“程序”－>“计算机二级考试”－>“模拟考试”－>“模拟考试”，均可启动考试机。系统启动后，出现如图1所示的登录界面。
 

 
图1 登录界面
 
1.在图1所示画面的“登录”窗口中，输入模拟考生考号，需要上下输入框中各输入一次，两次输入的考号需一致，模拟考号为13个1，即：1111111111111。
 
2.考号输入完毕后，点击“确定”按钮向服务器验证；若点击“退出”，则关闭考试机。
 
3.验证通过后，提示如图2所示。

 
文档介绍：
 
第15套1.基础操作(2小题,每小题15分,累计30分)(1)在名称为Form1窗体上画一个标签(名称为Label1,标题为“输入信息”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(mand1,标题为“显示”),图1所表示。然后编写命令按钮Click事件过程。程序运行后,在文本框中输入“计算机等级考试”,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中内容。运行后窗体图2所表示。要求程序中不得使用任何变量。*注意:存盘时必需存放在考生文件夹下,工程文件名为lq1.vbp,窗体文件名为lq1.frm。图1 图2(2)在名称为Form1窗体上画一个文本框(名称为Text1,Text属性为“国”,FontName属性为“黑体”)和一个水平滚动条(名称为HScroll1),图1所表示。在属性窗口中对滚动条设置以下属性:Min 10Max 100LargeChange 5SmallChange 2编写合适事件过程。程序运行后,假如移动滚动条上滚动框,则可扩大或缩小文本框中“国”字。运行后窗体图2所表示。要求程序中不得使用任何变量。*注意:存盘时必需存放在考生文件夹下,工程文件名为lq2.vbp,窗体文件名为lq2.frm。图1 图22.简单应用(2小题,每小题20分,累计40分)(1)在考生文件夹下有一个工程文件lq3.vbp,请在窗体上建立一个菜单,主菜单项为“项目”(名称为Item),它有两个子菜单项,其名称分别为Add和Delete,标题分别为“添加项目”和“删除项目”,然后画一个列表框(名称为List1)和一个文本框(名称为Text1),图1所表示。编写合适事件过程。程序运行后,假如实施“添加项目”命令,则从键盘上输入要添加到列表框中项目(内容任意,不少于三个);假如实施“删除项目”命令,则从键盘上输入要删除项目,将其从列表框中删除。程序运行情况图2所表示。在考生文件夹下工程文件lq3.vbp(对应窗体文件名为lq3.frm),能够实现上述功效。但这个程序不完整,请把它补充完整。要求:去掉程序中注释符,把程序中?改为合适内容,使其正确运行,但不能修改程序中其它部分。最终把修改后文件按原文件名存盘。图1 图2(2)在考生文件夹下有一个工程文件lq4.vbp(对应窗体文件名为lq4.frm),其功效是经过调用过程Sort将数组按升序排序。程序运行后,在四个文本框中各输入一个整数(图1所表示),然后单击命令按钮,即可使数组按升序排序,并在文本框中显示出来(图2所表示)。这个程序不完整,请把它补充完整,并能正确运行。要求:去掉程序中注释符,把程序中?改为正确内容,使其实现上述功效,但不能修改程序中其它部分。最终把修改后文件按原文件名存盘。图1 图23.综合应用(1小题,计30分)在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(图所表示)。程序运行后,假如实施“读入数据”命令,则读入datain1.txt文件中100个整数,放入一个数组中,数组下界为1;假如单击“计算并输出”按钮,则把该数组中大于等于700元素在文本框中显示出来,求出它们和,并把所求得和在窗体上显示出来;假如单击“存盘”按钮,则把所求得和存入考生文件夹下dataout.txt文件中。在考生文件夹下有一个工程文件lq5.vbp,考生能够装入该文件。窗体文件中ReadData过程能够把datain1.txt文件中100个整数读入Arr数组中;而WriteData过程能够把指定整数值写到考生文件夹下指定文件中(整数值经过计算求得,文件名为dataout.txt)。注意:考生不得修改窗体文件中已经存在程序。存盘时,工程文件名仍为lq5.vbp,窗体文件名仍为lq5.frm。第16套1.基础操作(2小题,每小题15分,累计30分)(1)在名称为Form1窗体上画两个标签(名称分别为Label1和Label2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(mand1,标题为“显示”),图1所表示。然后编写命令按钮Click事件过程。程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体标题栏上前后显示两个文本框中内容,图2所表示。要求程序中不得使用任何变量。*注意:存盘时必需存放在考生文件夹下,工程文件名为lq1.vbp,窗体文件名为lq1.frm。图1 图2(2)在名称为Form1窗体上画一个垂直滚动条(名称为VScroll1)和一个水平滚动条(名称为HScroll1),图1所表示。在属
 
内容来自淘豆网www.taodocs.com转载请标明出处.

 

 
一、选择题：35题，2分/题，共70分
 
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
 
1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是( )
 
A)Load B)Click C)Unload D)GotFocus
 
2.无论何控件，都具有一个共同属性。这个属性是( )
 
A)Text B)Font C)Name D)Caption
 
3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( )
 
A)， B)； C)、 D)：
 
4.表达式3∧2*2+3 MOD 10\4的值是( )
 
A)18 B)1 C)19 D)0
 
5.下面的变量名合法的是( )
 
A)k_name B)k ame C)name D)k-name
 
6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是( )
 
A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd")
 
C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time)
 
7.表达式12000 + "129" & 200的值是( )
 
A)12329 B)"12129200" C)"12000129200" D)"12329"
 
8.若设a = 4,b = 5,则下列表达式值为真的是( )
 
A)(True+a)>0 And b>10 B)a>b Or b>10-a
 
C)(False-b< 0) Eqv (a>b) D)a>b Xor b+3>5
 
9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是( )
 
A)Appearance B)Visible C)Enable D)Autoredraw
 
10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
 
Private Sub Command1_Click( )
 
Dim a As Integer
 
Static b As Integer
 
a = a + b
 
b = b + 4
 
Print a,b
 
End Sub
 
程序运行后，单击该命令按钮三次，屏幕上显示的值是( )
 
A)4 12 B)0 4 C)4 8 D)8 12
 
11.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是( )
 
A)属性、控件和方法 B)属性、事件和方法
 
C)窗体、控件和过程 D)控件、过程和模块
 
12.下列程序段错误的是( )
 
A)Dim a As Integer
 
a = array(1,2,3,4)
 
B)Dim a(),b()
 
a = array(1,2,3,4):b = a
 
C)Dim a As Variant
 
a = array(1,"asd",true)
 
D)Dim a() As Variant
 
a = array(1,2,3,4)
 
13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是( )
 
A)"I am happy!" B)"I am student I am s am harass studentam happy!"
 
C)"I am student am harass!" D)"I am student am happy!"
 
14.下列程序段中，能正常结束循环的是( )
 
A)I = 1
 
Do
 
I = I + 2
 
Loop Until I = 10
 
B)I = 5
 
Do
 
I = I + 1
 
Loop Until I < 0
 
C)I = 10
 
Do
 
I = I + 1
 
Loop Until I > 0
 
D)I = 6
 
Do
 
I = I - 2
 
Loop Until I = 1 15.引用列表框(List1)最后一个数据项应使用的表达式是( )
 
A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1)
 
C)List1.List(ListCount) D)List1.List(ListCount-1)
 
16.有如下程序：
 
Option Base 1
 
Private Sub Command1_Click()
 
Dim x,y(3,3)
 
x = Array(1,2,3,4,5,6,7,8,9)
 
For i = 1 To 3
 
For j = 1 To 3
 
y(i,j) = x(i*j)
 
If(j > = i) Then Print y(i,j);
 
Next j
 
Print
 
Next i
 
End Sub
 
运行时输入出的结果是( )
 
A)1 2 3
 
2 4 6
 
4 6 8
 
B)1 2 3
 
2 4 6
 
3 6 9
 
C)1
 
2 4
 
3 6 9
 
D)1 2 3
 
4 6
 
9
 
17.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
 
Private Sub Command1_Click()
 
Print pl(3,7)
 
End Sub
 
Public Function pl(x As Single,n As Integer) As Single
 
If n=0 Then
 
pl=1
 
Else
 
If n Mod 2=1 Then
 
pl=x*x+n
 
Else
 
P1=x*x-n
 
End If
 
End If
 
End Function
 
程序运行后，单击该命令按钮，屏幕上显示的结果是( )
 
A)2 B)1 C)0 D)16
 
18.以下属性和方法中，可重定义坐标系的是( )
 
A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性
 
19.在窗体上画一个文本框，然后编写如下事件过程：
 
Private Sub Form_Load()
 
Text1.Text = ""
 
Text1.SetFocus
 
For i = 1 To 5
 
Sum = Sum +i
 
Next i
 
Text1.text = Sum
 
End Sub
 
上述程序的运行结果是( )
 
A)在文本框中输出15 B)在文本框中输出0
 
C)在文本框中输出不定值 D)出错 20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )
 
A)If x > = 60 Then
 
Print "及格"
 
ElseIf x > = 70 Then
 
Print "中"
 
ElseIf x > = 80 Then
 
Print "良"
 
ElseIf x > = 90 Then
 
Print "优"
 
Else
 
Print "不及格"
 
End If
 
B)If x < 90 Then
 
Print "良"
 
ElseIf x < 80 Then
 
Print "中"
 
ElseIf x < 70 Then
 
Print "及格"
 
ElseIf x < 60 Then
 
Print "不及格"
 
Else
 
Print "优"
 
End If
 
C)If x > = 90 Then
 
Print "优"
 
ElseIf x > = 80 Then
 
Print "良"
 
ElseIf x > = 70 Then
 
Print "中"
 
ElseIf x > = 60 Then
 
Print "及格"
 
Else
 
Print "不及格"
 
End If
 
D)Select Case x
 
Case x > = 90
 
Print "优"
 
Case x > = 80
 
Print "良"
 
Case x > = 70
 
Print "中"
 
Case x > = 60
 
Print "及格"
 
Case Else
 
Print "不及格"
 
End Select
 
21.下面说法不正确的是( )
 
A)滚动条的重要事件是Change和Scroll
 
B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能
 
C)组合框是组合了文本框和列表框的特性而形成的一种控件
 
D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
 
22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是( )
 
A)True B)2 C)0 D)1
 
23.在下列关于菜单的说法中，错误的是( )
 
A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
 
B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
 
C)菜单项的快捷键不可以任意设置
 
D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
 
27.下列关于过程叙述不正确的是( )
 
A)过程的传值调用是将实参的具体值传值递给形参
 
B)过程的传址调用是将实参在内存的地址传递给形参
 
C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
 
D)无论过程传值调用还是过程传址调用，参数传递都是双向的
 
28.执行了下面程序后，组合框中数据项的值是( )
 
Private Sub Form_Click()
 
For i=1 to 6
 
Combo1.AddItem i
 
Next i
 
For i= 1 to 3
 
Combo1.RemoveItem i
 
Next i
 
End Sub
 
A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6
 
29.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应( )
 
A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1
 
B)将 Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1
 
C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0
 
D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为0
 
30.下列程序的执行结果是( )
 
Private Sub Form_Activate()
 
Dim score(3) As Integer, total As Integer
 
Dim aa_score As Variant
 
score(1)=50: score(2) =14：score(3)=36
 
tota=0: i=0
 
For Each aa_score In score
 
i=i+1
 
total=tota + aa+_score
 
Print i,aa_score,total
 
Next
 
End Sub
 
A)1 0 0
 
2 50 50
 
3 14 64
 
4 36 100
 
B)1 50 50
 
2 14 64
 
3 36 100
 
C)0 50 50
 
1 14 64
 
2 36 100
 
D)0 0 0
 
1 50 50
 
2 14 64
 
3 36 100
 
31.在Activate 事件过程中，写入下面的程序：
 
Option Base 1
 
Private Sub Form_Activate()
 
Dim t As Integer
 
Dim a( ) As Variant
 
a=Array (2,4,6,8,10,1,3,5,7,9)
 
For i=1 to 10\2
 
t= a(i)
 
a(i)=a(10 - i + 1)
 
a(10 - i + 1)=t
 
Next i
 
For j= 1 to 10
 
Print a(j);
 
Next j
 
End Sub
 
运行程序后，显示的结果是( )
 
A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10
 
C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 1
 
32.在Activate 事件过程中，写入下面的程序：
 
Private Sub Form _Activate()
 
Dim S As String, a As String, b As String
 
a= "*" : b =" $"
 
For i= 1 to 4
 
If i / 2= Int(i / 2) Then
 
S=String(Len (a)+i , b)
 
Else
 
S=String(Len(a) + i, a)
 
End If
 
Print S;
 
Next i
 
End Sub
 
运行程序后，显示结果是( )
 
A)$$ ***$$$$***** B)*$$**$$***$$$****$$$$
 
C)**$$$****$$$$$ D)$*$$**$$$***$$$$****
 
33.在窗体上设置相应的控件，并在代码窗口编写下列程序：
 
Printe Sub Form_Click()
 
Dim a As Long ,b As Long
 
a=InputBox("请输入若干个整数")
 
Call P(a,b)
 
Print b
 
End Sub
 
Private Sub P(x As Long, y As Long)
 
Dim n As Integer, j As String*1, s As String
 
k=Len(Trim(Str(x)))
 
s=""
 
For i= K To 1 Step -1
 
j=Mid(x,i,1)
 
s=s+j
 
Next i
 
y=Val(s)
 
End Sub
 
运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是( )
 
A)123456 B)654321 C)135246 D)246135
 
34.设定文本框内的文字内容是否允许修改的属性是( )
 
A)Text B)Locked C)PasswordChar D)Multiline
 
35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩(百分制)组成，下列程序段正确的是( )
 
A)Type studl
 
no As Integer
 
name AS String
 
score(1 to 3) As Single
 
End Type
 
B)Type studl
 
no As Integer
 
name As String *10
 
score() As Single
 
End Type
 
C)Type studl
 
no As Integer
 
name As String *10
 
score(1 to 3) As Stngle
 
End Type
 
D)Type studl
 
no As Integer
 
name As String
 
score(1 to 3) As String
 
End Type 二、填空：每空2分，共30分。
 
1.有一图书查询系统，当在组合框中选择书名后，则在两个文本框中显示出作者和出版社，程序运行后的界面如图2-1所示，当单击“结束”按钮时，结束程序。程序中有一个组合框、两个文本框、三个标签及一个命令按钮。请________处填入适当的内容，将程序补充完整。
 
Dim k As Integer
 
dim author(),b_concern
 
Privage Sub Combol_Click()
 
Dim n As Integer
 
n=Combol.ListIndex
 
Text(1)= ________
 
Text(2)= ________
 
End Sub
 
Private Sub Combol_Click()
 
________
 
End Sub
 
Private Sub Form_Load()
 
Combol.AddItem"哭泣的骆驼"
 
Combol.AddItem"双城记"
 
Combol.AddItem"窗外"
 
Combol.AddItem"红与黑"
 
Combol.AddItem"废都"
 
author()=Array("三毛"，"荻更斯"，"琼瑶"，"司汤达、"贾平凹")
 
b_concern()=Array("作家"，"商务"，"香江文艺"，"外国文学"、"上海")
 
End Sub
 
2.在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。程序运行后的结果如图2-2所示。请在________处填入适当的内容，将程序补充完整。
 
Private Sub Form_Load()
 
Timer1.Interval=1000
 
End Sub
 
Private Sub Timer1_timer()
 
________
 
End Sub
 
3.在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对________的________属性进行设置。
 
4.整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为________
 
5.下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Asc和Chr函数，Select Case 语句中禁用枚举值。请在________处填入适当的内容，将程序补充完整。
 
Private Sub Form_Load()
 
Dim x As String*1
 
X=________(“请输入单个字符”，“字符”)
 
Select Case UCase(________)
 
Case ________
 
Print X+“是字母字符”
 
Case ________
 
Print X+“是数字字符”
 
Case Else
 
Print X+“是其他字符”
 
End Select
 
End Sub
 
6.下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为一个随机数产生的1~9(包括1、9)中的一个正整数，n是一个随机数产生的5~10(包括5、10)中的一个正整数，请在________处填入适当的内容，将程序补充完整。
 
Private Sub Form_Load()
 
Dim a As Integer,n As Integer, S As Double,Sn As Double
 
a=Fix(9*Rnd)+1
 
n=Fix(6*Rnd)+5
 
Sn=0
 
S=0
 
For i=1 to ________
 
S=S+a*10^(i-1)
 
________
 
print Sn
 
Next i
 
End Sub
 
7.如果菜单标题的某个字母前输入一个“________”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“________；_________”，那么显示时将形成一行分隔符。 计算机等级考试二级VB全真模拟试题答案
 
一、选择题：
 
1.A 2.C 3.D 4.C 5.A 6.A 7.B 8.D 9.D 10.D 11.B
 
12.A 13.A 14.C 15.B 16.D 17.D 18.C 19.D 20.C 21.D 22.D
 
23.B 24.B 25.A 26.A 27.D 28.D 29.A 30.A 31.C 32.C 33.B
 
34.B 35.C
 
二、填空题
 
1: author(n) ；b_concerm(n) ；End
 
2: Labell.Caption=Time
 
3: Form窗体 、 Font
 
4:((M mod 10)*10 + M\10)
 
5: InputBox; X"A"To"z" "0"To"9"
 
6: n；Sn = Sn + S
 
7: & 、 - 、 _
 

 
计算机等级考试二级VB全真模拟试题.doc
 
下载Word文档到电脑，方便收藏和打印[全文共6181字]
 
编辑推荐：
 

 

 

 

 

 
下载Word文档