江苏省高校计算机等级考试命题研究院 江苏省高校计算机等级考试辅导
新版全国计算机二级VB选择题第2套

1.下列叙述中正确的是

 

A.所谓算法就是计算方法

 

B.程序可以作为算法的一种描述方法

 

C.算法设计只需考虑得到计算结果

 

D.算法设计可以忽略算法的运算时间

 

2.下列各序列中不是堆的是

 

A.(91,85,53,36,47,30,24,12)   

 

B.(91,85,53,47,36,30,24,12)

 

C.(47,91,53,85,30,12,24,36) 

 

D.(91,85,53,47,30,12,24,36)

 

3.深度为5的完全二叉树的结点数不可能是

 

A.15

 

B.16

 

C.17

 

D.18

 

4.

 

 

 

A.ABDEGCFH

 

B.DBGEAFHC

 

C.DGEBHFCA

 

D.ABCDEFGH

 

5.下面描述不属于软件特点的是

 

A.软件是一种逻辑实体,具有抽象性

 

B.软件在使用中不存在磨损、老化问题

 

C.软件复杂性高

 

D.软件使用不涉及知识产权

 

6.下面对类-对象主要特征描述正确的是

 

A.对象唯一性

 

B.对象无关性

 

C.类的单一性    

 

D.类的依赖性

 

7.在数据库中,数据模型包括数据结构、数据操作和

 

A.数据约束 

 

B.数据类型

 

C.关系运算  

 

D.查询

 

8.一个运动队有多个队员,一个队员仅属于一个运动队,一个队一般都有一个教练,则实体运动队和队员的联系是

 

A.一对多

 

B.一对一

 

C.多对一

 

D.多对多

 

9.设循环队列为Q(1: m),其初始状态为front=rear=m。经过一系列入队与退队运算后,front=30,rear=10。现要在该循环队列中作顺序查找,最坏情况下需要比较的次数为

 

A.19

 

B.20  

 

C.m-19  

 

D.m-20

 

10.

 

 

A.投影            

 

B.交

 

C.选择 

 

D.并

 

11.Visual Basic中的整数可以用十六进制或八进制表示,十六进制数前面冠以&H,八进制数前面冠以

 

A.$O

 

B.&O

 

C.$E

 

D.&E

 

12.下面可以作为Visual Basic的变量名的是

 

A.Alpha

 

B.^2

 

C.Print

 

D.abc-123

 

13.下列说法中错误的是

 

A.在过程中,可以用Static定义变量,但当该过程调用结束后,其值继续保留

 

B.当用Static关键字定义一个过程时,该过程中的所有变量都是"Static"存储方式的

 

C. Sub Main过程一定是程序运行时首先被执行的过程,是整个程序的入口点

 

D. 同一个工程中只能有一个Sub Main过程

 

14.以下关于控件数组的叙述中,正确的是(  )。

 

 

 

A.数组中各个控件具有相同的名称

 

B.数组中可包含不同类型的控件

 

C.数组中各个控件具有相同的Index属性值

 

D.数组元素不同,可以响应的事件也不同

 

 

 

15.以下不具有Picture属性的对象是

 

A.命令按钮

 

B.形状控件

 

C.图片框

 

D.窗体

 

 

16.当窗体上有多个控件时,为了在程序运行后使得焦点位于某个控件上,应对该控件进行的设置是

 

A.把Enabled属性设置为True

 

B.把TabIndex属性设置为1

 

C.把TabIndex属性设置为0

 

D.把Index属性设置为0

 

17.有一种控件,可以在其中承载其他控件,还可以在其中用Print方法输出文本,这种控件是

 

A.框架

 

B.图片框

 

C.图像框

 

D.通用对话框

 

18. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

    Move 500, 500

End Sub

程序运行后,单击命令按钮,产生的结果为

 

A.将命令按钮移动到距窗体左边界、上边界各500的位置

 

B.将窗体移动到距屏幕左边界、上边界各500的位置

 

C.将命令按钮向左、上方向各移动500

 

D.将命令按钮向左、上方向各移动500

 

19.以下说法中正确的是

 

A.能获取列表框List1中最后一个列表项内容的表达式是List1.List(ListCount-1)

 

B.Shape控件可以将同一个窗体上的多个单选按钮分成多个组

 

C.当在名称为Drive1的驱动器列表框中选取不同的驱动器时,系统将执行事件过程Drive1_Click

 

D. 当一个复选框被选中时,它的Value属性的值是1

 

20.在窗体上画2个名称分别为Text1Text2的文本框然后编写如下事件过程

Private Sub Form_Load()

    Show

    Text1.Text = "China Beijing"

    Text1.SetFocus

End Sub

 

Private Sub Text1_LostFocus()

    Text1.SelText = "Tianjin"

End Sub

 

 

运行程序Text1中用鼠标选中文本Beijing然后单击Text2Text1中的内容为

 

A.China Beijing

 

B.China Tianjin

 

C.China

 

D.Beijing

 

21.对于图片框和图像框以下描述中正确的是

 

A.二者都可以设置AutoSize属性以使装入的图形能自动改变大小

 

 

 

B.二者都可以设置Stretch属性,使得控件能根据图形的实际大小自动调整

 

 

 

 

C.如果把图片框的AutoSize属性设置为False,则只有在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸

 

D.当图像框的Stretch属性为True时,将自动放大或缩小图像框中的图形以与图像框的大小相适应

 

22.下面关于水平滚动条的Max,Min属性的叙述中错误的是

 

A.Max的值必须大于Min的值

 

B.Max的值和Min的值都是整数

 

 

 

 

C.滚动框在最右边时,Value属性的值等于Max的值

 

 

 

D.Max的值可以大于Min的值

 

23.某二叉树共有13个结点,其中有4个度为1的结点,则叶子结点数为

A.Private Type Student

        sno As String * 10

        sn As String * 20

     End Student

 

 

 

 

B.Private Type Student

        sno As String * 10

        sn As String * 20

     End Type

 

C.Public Type Student

        sno As String * 10

        sn As String * 20

     End Type Student

 

 

 

D.Public Typedef Student

        sno As String * 10

        sn As String * 20

     End Type

 

 

 

24.下列各语句中正确的是

 

A.Dim x As Variant=Array(1,2,3,4,5)

 

 

 

B.Dim x() As Integer : x=Array(1,2,3,4,5)

 

 

 

 

C.Dim x As Variant : x=Array (1,"abc",2,3,4)

 

 

 

D.Dim x As Integer : x=Array(1,2,3,4,5)

 

25. 以下关于变量的叙述中错误的是

 

A.在过程中用DimStatic语句声明的变量是局部变量

 

B.局部变量的作用域是声明它的过程

 

C.在过程中用Static语句声明的变量是静态局部变量

 

D.任何局部变量在声明它的过程执行完毕后即被释放

 

26.下面关于通用对话框的叙述中错误的是

 

A.通用对话框可以用来显示一个字体对话框

 

 

 

B.用文件对话框可以打开一个数据文件

 

 

 

C.文件对话框只用来获得文件名和路径,不能打开任何文件

 

D.利用颜色对话框可以获得一个颜色值

 

 

 

27.把一个名称为mnuStyle的菜单项设置为不可用的语句是

 

A.mnuStyle.Checked=False

 

B.mnuStyle.Enabled=False

 

C.mnuStyle.Visible=False

 

D.mnuStyle.Caption=False

 

28.按下键盘上的F1功能键将产生的事件是

 

A.KeyDown

 

B.KeyPress

 

C.KeyF1

 

D.KeyCode

 

29.以下程序段中执行结果与其他3个选项不同的是

 

A.Dim y As Integer

     y = 11

     Select Case y

       Case 15 To 5

         Print "Executed"

     End Select

 

 

 

 

B.Dim y As Integer

     y = 10

     Select Case y

       Case Is > 10, Is < 10

         Print " Executed "

     End Select

 

 

 

C.Dim y As Integer

     y = 10

     Select Case y

       Case Is > 15, 1, 5 To 8

         Print " Executed "

 

     End Select

 

D.Dim y As Integer

     y = 10

     Select Case y

       Case 1, 3, Is > 6

         Print " Executed "

 

     End Select

 

30.有如下程序代码

Private Sub Form_Click()

    Dim i As Integer, n As Integer

    For i = 0 To 30

        i = i + 3

        n = n + 1

        If i > 10 Then Exit For

    Next i

    Print n

End Sub

 

 

运行程序单击窗体输出结果是

 

A.2

 

B.3

 

C.4

 

D.5

 

31.有下面的函数过程

Private Function fun(str As String, ch As String) As Integer

    n = 0

    For k = 1 To Len(str)

        If Mid(str, k, 1) = ch Then

            n = n + 1

        End If

    Next k

    fun = n

End Function

 

 

此函数返回的是

 

A.字符ch在字符串str中第一次出现的位置

 

B.字符ch在字符串str中出现的次数

 

C.字符ch在字符串str中最后一次出现的位置

 

 

 

D.以上都是错误的

 

32.设窗体上有一个名称为Option1的单选按钮数组(其下标从0开始),共有4个单选按钮,并有下面事件过程:

 

 

Private Sub Option1_Click(Index As Integer)

    n = Index

    If Index < 3 Then n = n + 1

    Print Option1(n).Caption

End Sub

 

 

程序运行时,单击其中一个单选按钮,则在窗体上显示的是

 

A.被选中单选按钮的下一个按钮的标题,但如果选中的是最后一个,则显示最前面一个单选按钮的标题

 

B.被选中单选按钮的下一个按钮的标题,但如果选中的是最后一个,则显示该单选按钮的标题

 

C.被选中的单选按钮的标题

 

D.被选中单选按钮的上一个按钮的标题,但如果选中的是最前面的一个,则显示最后面按钮的标题

 

33.有下面程序代码

Private Sub Command1_Click()

    Dim a(3, 3) As Integer

    s = 0

    For i = 1 To 3

        For j = 1 To 3

            a(i, j) = i * j

        Next j

    Next i

    For j = 1 To 3

       s = s + a(j, 4 - j)

    Next j

    Print s

End Sub

 

 

程序运行时的输出是

 

A.10

 

B.14

 

C.18

 

D.6

 

34.在窗体上画一个名称为Command1的命令按钮然后编写如下事件过程

Option Base 1

Private Sub Command1_Click()

  Dim a As Variant

  Dim i As Integer, m As Integer, index As Integer

  a = Array(-10, 23, -50, 90)

  m = a(LBound(A))

  index = LBound(A)

  For i = LBound(A) To UBound(A)

      If a(i) < m Then

         m = a(i)

         index = i

      End If

  Next i

  Print index

End Sub

 

程序运行时单击Command1则在窗体上输出的结果是

 

A.0

 

B.1

 

C.2

 

D.3

 

35.在窗体上画一个文本框Text1,并编写如下事件过程:            

 

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

  Dim ch As String

  ch = UCase(Chr(KeyAscii))

  If Not (ch >= "A" And ch <= "Z") Then

 

 

   _____________________

  End If

End Sub

 

 

要求当程序运行时,在文本框Text1中只能输入字母,无法输入其它字符,则在横线处应填入的语句是

 

A.Text1.Text=""

 

B.KeyAscii = 0

 

C.ch=""

 

D.Text1.Text=Text1.Text & ch

 

36.在窗体上画一个名称为Command1的命令按钮然后编写如下事件过程

Private Sub Command1_Click()

  Dim s As String, i As Integer

  Dim n As Integer

  s = InputBox("输入数据")

  n = Len(s)

  For i = 1 To n \ 2

      If __________________________  Then

         Exit For

      End If

  Next i

  If i > n \ 2 Then

     Print s & "是对称字符串"

  Else

     Print s & "不是对称字符串"

  End If

End Sub

 

 

该过程的功能是判断输入的字符串是否为对称字符串例如"1234321""XYZZYX"都是对称字符串。为了实现这一功能,则在横线处应填入的表达式是

 

A.Mid(s, i, 1) <> Mid(s, n - i + 1, 1)

 

 

 

B.Mid(i, s, 1) <> Mid(n - i + 1, s , 1)

 

C.Mid(s, i+1, 1) <> Mid(s, n - i, 1)

 

D.Mid(i+1, s , 1) <> Mid(n - i , s , 1)

 

37.有如下程序段

x = 5

For i = 1 To 20 Step 2

    x = x + i \ 5

Next i

 

 

 

执行上面的程序段后x的值为

 

A.21

 

B.22

 

C.23

 

D.24

 

38.在窗体上画一个名称为Label1的标签然后画一个名称为HScroll1的水平滚动条MinMax属性分别设置为0255。程序运行后,如果用鼠标移动滚动框,则在标签Label1中显示滚动条的当前值,以下能实现上述操作的程序段是

 

A.Private Sub HScroll1_Change()

       Label1.Text=HScroll1. Caption

     End Sub

 

 

 

B.Private Sub HScroll1_Click()

       Label1.Caption=HScroll1.Value

 

     End Sub

 

C.Private Sub HScroll1_Change()

       Label1.Caption=HScroll1.Value

     End Sub

 

 

 

D.Private Sub HScroll1_Click()

       Label1.Text=HScroll1.Caption

 

     End Sub

 

39.在窗体上画一个名称为Text1的文本框,再建立一个名称为Option1的控件数组(含3个单选按钮,标题分别为宋体、黑体、仿宋,下标从0开始),并编写如下程序代码:

 

 

Private Sub Option1_Click(Index As Integer)

  Dim ft As String

  Select Case _________________

     Case 0

          ft = "宋体"

     Case 1

          ft = "黑体"

     Case 2

          ft = "仿宋"

  End Select

  Text1.FontName = ft

 

 

End Sub

程序运行后,单击某个单选按钮,可将文本框的文本字体设置为相应的字体,则在横线处应填入的内容是

 

 

 

A.ft

 

B.Option1.Text

 

C.Text

 

D.Index

 

40.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码:

 

 

Private Sub Command1_Click()

  Dim a As Integer, b As Integer

  a = 5: b = 10

  Call mysub(a, b)

  Print a; b

End Sub

Private Sub mysub(ByRef x As Integer, y As Integer)

  x = x + 5

  y = y * 2

End Sub

 

 

以下叙述中正确的是

 

A.针对过程调用语句Call mysub(a, b)来说实参a和形参x间的参数传递方式为传值

 

B.程序运行时,单击Command1,在窗体上的输出结果为10  20

 

C.当调用mysub过程时,在过程中对形参y值的改变不影响其对应实参的值

 

D.上述程序的执行顺序是:执行Command1_Click过程后,再执行mysub过程

 

1.B  2.C  3.A  4.A  5.D  6.A  7.A  8.A  9.D  10.A  11.B  12.A  13.C  14.A  15.B  16.C  17.B  18.B  19.D  20.B  21.D  22.A  23.B  24.C  25.D  26.B  27.B  28.A  29.D  30.B  31.B  32.B  33.A  34.D  35.B  36.A  37.A  38.C  39.D  40.B