2015年计算机等级考试二级VB模拟试题

相关推荐

　　一、选择题：35题，2分/题，共70分

2015年计算机等级考试二级VB模拟试题

　　下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

　　1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是(A)

　　A)Load

　　B)Click

　　C)Unload

　　D)GotFocus

　　2.无论何控件，都具有一个共同属性。这个属性是(C)

　　A)Text

　　B)Font

　　C)Name

　　D)Caption

　　3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是(D)

　　A)，

　　B);

　　C)、

　　D)：

　　4.表达式3∧2*2+3 MOD 10\4的值是(C)

　　A)18

　　B)1

　　C)19

　　D)0

　　5.下面的变量名合法的是(A)

　　A)k_name

　　B)k ame

　　C)name

　　D)k-name

　　6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是(A)

　　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的值是(B)

　　A)12329

　　B)"12129200"

　　C)"12000129200"

　　D)"12329"

　　8.若设a = 4,b = 5,则下列表达式值为真的是(D)

　　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.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是(D)

　　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

　　程序运行后，单击该命令按钮三次，屏幕上显示的值是(D)

　　A)4 12

　　B)0 4

　　C)4 8

　　D)8 12

　　11.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是(B)

　　A)属性、控件和方法

　　B)属性、事件和方法

　　C)窗体、控件和过程

　　D)控件、过程和模块

　　12.下列程序段错误的是(A)

　　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)

　　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.下列程序段中，能正常结束循环的是(C)

　　A)I = 1

　　I = I + 2

　　Loop Until I = 10

　　B)I = 5

　　I = I + 1

　　Loop Until I < 0

　　C)I = 10

　　I = I + 1

　　Loop Until I > 0

　　D)I = 6

　　I = I - 2

　　Loop Until I = 1

　　15.引用列表框(List1)最后一个数据项应使用的表达式是(B)

　　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

　　Next i

　　End Sub

　　运行时输入出的结果是(D)

　　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

　　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 Function

　　程序运行后，单击该命令按钮，屏幕上显示的结果是(D)

　　A)2

　　B)1

　　C)0

　　D)16

　　18.以下属性和方法中，可重定义坐标系的是(C)

　　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

　　上述程序的运行结果是(D)

　　A)在文本框中输出15

　　B)在文本框中输出0

　　C)在文本框中输出不定值

　　D)出错

　　20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是(C)

　　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.下面说法不正确的是(D)

　　A)滚动条的重要事件是Change和Scroll

　　B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能

　　C)组合框是组合了文本框和列表框的特性而形成的一种控件

　　D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

　　22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是(D)

　　A)True

　　B)2

　　C)0

　　D)1

　　23.在下列关于菜单的说法中，错误的是(B)

　　A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件

　　B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程

　　C)菜单项的快捷键不可以任意设置

　　D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择

　　24.下面关于多重窗体的叙述中，正确的是(B)

　　A)作为启动对象的Main 子过程只能放在窗体模块内

　　B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体

　　C)没有启动窗体，程序不能执行

　　D)以上都不对

　　25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是(A)

　　A)KeyDown、KeyPress、KeyUp

　　B)KeyDown、KeyUp、KeyPress

　　C)KeyPress、KeyDown、、KeyUp

　　D)没有规律

　　26.要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是(A)

　　A)F="c:\filel.txt"

　　Open F For Input As # 1

　　B)F="c:\filel.txt"

　　Open "F" For Input As # 2

　　C)Open "c:\filel.txt" For Output As # 2

　　D)Open c:\filel.txt For Input As # 1

　　27.下列关于过程叙述不正确的是(D)

　　A)过程的传值调用是将实参的具体值传值递给形参

　　B)过程的传址调用是将实参在内存的地址传递给形参

　　C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的

　　D)无论过程传值调用还是过程传址调用，参数传递都是双向的

　　28.执行了下面程序后，组合框中数据项的值是(D)

　　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)

　　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.下列程序的执行结果是(A)

　　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

　　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

　　运行程序后，显示的结果是(C)

　　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

　　运行程序后，显示结果是(C)

　　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,然后单击"确定"按钮，则输出结果是(B)

　　A)123456

　　B)654321

　　C)135246

　　D)246135

　　34.设定文本框内的文字内容是否允许修改的属性是(B)

　　A)Text

　　B)Locked

　　C)PasswordChar

　　D)Multiline

　　35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩(百分制)组成，下列程序段正确的是(C)

　　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所示，当单击“结束”按钮时，结束程序。程序中有一个组合框、两个文本框、三个标签及一个命令按钮。请__[1]__、_[2]__和__[3]__处填入适当的内容，将程序补充完整。

　　Dim k As Integer

　　dim author(),b_concern

　　Privage Sub Combol_Click()

　　Dim n As Integer

　　n=Combol.ListIndex

　　Text(1)=[1]

　　Text(2)=[2]

　　End Sub

　　Private Sub Combol_Click()

　　[3]

　　End Sub

　　Private Sub Form_Load()

　　Combol.AddItem"哭泣的骆驼"

　　Combol.AddItem"双城记"

　　Combol.AddItem"窗外"

　　Combol.AddItem"红与黑"

　　Combol.AddItem"废都"

　　author()=Array("三毛"，"荻更斯"，"琼瑶"，"司汤达、"贾平凹")

　　b_concern()=Array("作家"，"商务"，"香江文艺"，"外国文学"、"上海")

　　End Sub

　　答案: author(n) ;b_concerm(n) ;End

　　2.在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。程序运行后的结果如图2-2所示。请在__[4]__处填入适当的内容，将程序补充完整。

　　Private Sub Form_Load()

　　Timer1.Interval=1000

　　End Sub

　　Private Sub Timer1_timer()

　　__[4]__

　　End Sub

　　答案: Labell.Caption=Time

　　3.在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对__[5]__的__[6]__属性进行设置。

　　答案: Form窗体、 Font

　　4.整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为__[7]__

　　答案:((M mod 10)*10 + M\10)

　　5.下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Asc和Chr函数，Select Case 语句中禁用枚举值。请在__[8]__、__[9]__、__[10]和__[11]__ 处填入适当的内容，将程序补充完整。

　　Private Sub Form_Load()

　　Dim x As String*1

　　X=__[8]__(“请输入单个字符”，“字符”)

　　Select Case UCase(__[9]__)

　　Case __[10]__

　　Print X+“是字母字符”

　　Case __[11]__

　　Print X+“是数字字符”

　　Case Else

　　Print X+“是其他字符”

　　End Select

　　End Sub