29

1.面向对象方法中，实现对象的数据和操作结合于统一体中的是

A.结合

B.封装

C.隐藏  

D.抽象

2.在进行逻辑设计时，将E-R图中实体之间联系转换为关系数据库的

A.关系

B.元组 

C.属性

D.属性的值域

3.线性表的链式存储结构与顺序存储结构相比，链式存储结构的优点有

A.节省存储空间

B.插入与删除运算效率高

C.便于查找

D.排序时减少元素的比较次数

4.深度为７的完全二叉树中共有125个结点，则该完全二叉树中的叶子结点数为

A.62

B.63

C.64

D.65

5.下列叙述中正确的是

A.所谓有序表是指在顺序存储空间内连续存放的元素序列

B.有序表只能顺序存储在连续的存储空间内

C.有序表可以用链接存储方式存储在不连续的存储空间内

D.任何存储方式的有序表均能采用二分法进行查找

6.

A.ABDEGCFH   

B.DBGEAFHC 

C.DGEBHFCA    

D.ABCDEFGH

7.计算机软件包括

A.算法和数据  

B.程序和数据

C.程序和文档

D.程序、数据及相关文档

8.下面描述中不属于软件需求分析阶段任务的是

A.撰写软件需求规格说明书   

B.软件的总体结构设计

C.软件的需求分析                

D.软件的需求评审

9.当数据库中数据总体逻辑结构发生变化，而应用程序不受影响，称为数据的

A.逻辑独立性

B.物理独立性

C.应用独立性  

D.空间独立性

10.

A.并

B.投影 

C.交

D.选择

11.下列合法的Visual Basic数值变量是

A."BianLiang"

B.aBCD&

C.S$

D.2.5D-3

12.假定变量X的值为 33521397，则在声明其类型时不能声明为

A.Variant

B.Integer

C.Long

D.Double

13.假定在标准模块中的声明部分有如下语句：

Public VarA As Integer

而在窗体模块的声明部分有如下语句：

Public VarB As Integer

则以下叙述中正确的是

A.VarA和VarB都被声明为全局变量

B.VarA被声明为模块变量，VarB被声明为全局变量

C.VarA被声明为全局变量，VarB被声明为模块变量

D.VarA和VarB都被声明为模块变量

14.以下关于注释语句的叙述中，错误的是

A.注释语句是非执行语句，只起注释作用，不被解释和编译

B.注释语句可以放在程序的任何位置

C.注释语句不能放在续行符的后面

D.加入注释语句是为提高程序的可读性

15.下列数组定义语句中错误的是

A.k% = 10

    Dim Arr(k)

B.Const k% = 10

     Dim Arr(k)

C.a% = 5

     ReDim Arr(A)

D.Dim Arr1(1 To 10)

     Dim Arr2(1 To 10, 2 To 11)

16.在设计阶段，属性窗口的内容是

A.被选中控件的所有属性

B.被选中控件的属性，但不包括只能在运行期间才可以访问的属性

C.窗体上所有控件的属性

D.被选中控件的属性和当前窗体的属性

17.在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是

A.该控件的TabStop属性值为True

B.该控件的TabStop属性值为False

C.该控件的Enabled属性值为True

D.该控件的Locked属性值为True

18.当直线控件的BorderStyle属性被设置为1 – Solid时，控件显示的是

A.实线

B.虚线

C.点线

D.不可见

19.在窗体上画一个名称为Label1的标签和一个名称为List1的列表框，并在设计阶段向List1中添加若干列表项。程序运行时，当双击List1中的某个列表项时，在Label1中显示所选中的列表项，能实现上述功能的语句是

A. Label1.Caption = List1.Text

B.Label1.Caption = List1.ListIndex

C.Label1.Text = List1.List

D.Label1.Text = List1.ListIndex

20.下列能将输入焦点置于名称为txtAdd文本框中的语句是

A.txtAdd=SetFocus

B.txtAdd.SetFocus

C.txtAdd.SetFocus=True

D.SetFocus=True

21. 在窗体上画一个列表框，名称为List1，然后编写如下事件过程：

Private Sub Form_Load()

    For i = 1 To 6

        List1.AddItem i

    Next i

    For i = 1 To 3

        List1.RemoveItem i

    Next i

End Sub

运行程序，在列表框中显示的数据项是

A.1, 3, 5

B.2, 4, 6

C.1, 2, 3

D.4, 5, 6

22.

A.组合框控件

B.列表框控件

C.可显示多行的文本框控件

D.框架控件

23.为了改变单选按钮的选取状态，可以改变该控件一个属性的值，这个属性是

A.Checked

B.Style

C.Value

D.Caption

24.设图像框（Image）名称为Image1，则下面语句中正确的是

A.Image1.Picture = LoadPicture("pic.jpg")

B.Image1.Print "图像框"

C.Image1.Picture = "pic.jpg"

D.Image1.AutoSize = False

25.在Do Until…Loop循环中，判断循环结束的方法是

A.先判断循环条件，当条件为False时结束循环

B.先判断循环条件，当条件为True时结束循环

C.先执行循环体，再判断循环条件，当条件为False时结束循环

D.先执行循环体，再判断循环条件，当条件为True时结束循环

26.如果过程的首行是：Private Sub proc(x As Control)，则调用此过程时使用的实际参数应该是

A.变体型变量，变量名必须是x

B.某个控件的名称

C.名称为x的控件

D.字符型变量，变量名不限

27.对于一个名称为menu1的菜单项，下列叙述中正确的是

A.使menu1菜单项不可见的语句是menu1.Visible=True

B.能在menu1菜单项的左面显示"√"标记的语句为menu1.Checked = False

C.能将menu1菜单项禁用的语句为menu1.Enabled=False

D.menu1菜单项既可响应Click事件，也可响应DblClick事件

28.下列有关通用对话框控件的说法中，正确的是

A.在程序运行时，通用对话框控件在窗体上是可见的

B.在程序代码中，可以设置DialogTitle属性值来改变对话框的标题信息

C.把通用对话框控件加到窗体中后，在设计阶段可以调整其大小

D.通用对话框控件是Visual Basic的标准控件，默认情况下，自动显示在工具箱中

29.设变量V = 2，B = 5，则执行下面语句序列的输出是

 Print "V"; "B", 24;: Print: Print V; B

A.VB           24  2  5

B. VB           24

      2  5

C. V  B           24

      2  5

D.2  5           24

     2  5

30.

A.y = IIf(x > 0, 5, 2)

B.y = IIf(x < 0, 2, 5)

C.If x < 0 Then

             y = 2

     ElseIf x >= 0 Then

             y = 5

     End If

D.If x < 0 Then

         y = 2

     End If

     If x >= 0 Then

         y = 5

     End If

31.有如下程序代码：

Private Sub Form_Click()

    Dim a(3, 3) As Integer

    For I = 1 To 3

        For j = 1 To 3

            If j > 1 And I > 1 Then

                a(I, j) = a(a(I - 1, j - 1), a(I, j - 1)) + 1

            Else

                a(I, j) = I * j

            End If

            Print a(I, j);

        Next j

        Print

    Next I

End Sub

程序运行后，单击窗体，输出结果为

A.1  2  3

     2  3  1

     3  2  3

B. 1  2  3

     1  2  3

     1  2  3

C.1  2  3

     2  4  6

     3  6  9

D.1  2  3

     2  2  2

     3  3  3

32.设有如下程序代码：

Private Sub Command1_Click()

    Dim x As Integer

    x = 30

    Print f(x) + f(x)

End Sub

Private Function f(a As Integer) As Integer

    a = a / 3

    f = a

End Function

运行Command1_Click过程所产生的输出是

A.13

B.20

C.30

D.6

33.有如下程序代码：

Private Sub Form_Click()

    Dim a(100) As Integer

    Dim b(100) As Integer

    For i = 1 To 100

        a(i) = i

    Next i

    For i = 1 To 100

        b(i) = a(i) + a(i - 1)

    Next i

End Sub

运行程序，单击窗体，以下说法中正确的是

A.数组a和数组b中存放的均为1～100的整数

B.数组a中存放的是1～100的整数，数组b中存放的是101～200的整数

C.数组a中存放的是1～100的整数，数组b中存放的是1～199的奇数

D.数组a中存放的是1～100的整数，数组b中存放的是1～200的偶数

34.有下面程序代码：

Private Sub Command1_Click()

    Dim a, s As Integer

    a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

    k = 1

    s = 0

    Do

        s = s + a(k)

        k = k + 2

    Loop Until k > UBound(A)

    Print s

End Sub

程序运行产生的输出是

A.45

B.20

C.16

D.25

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

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 2 Then

        Print "ABCD";

    Else

        Print "DDDD";

    End If

End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Print "EFGH"

End Sub

程序运行后，单击命令按钮，输出结果是

A.ABCDEFGH

B.DDDDEFGH

C.ABCD

D.EFGH

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

Private Sub Command1_Click()

  Dim i As Integer, num As Integer

  Do

     For i = 1 To 10

         num = Int(Rnd * 10) + 1

         Select Case num

           Case 2

                Exit For

           Case 7

                Exit Do

         End Select

         n = n + 1

     Next i

  Loop

  Print n

End Sub

则下面描述中正确的是

A.当变量num的值为2时，事件过程Command1_Click执行结束

B.当变量num的值为7时，Do循环将终止

C.变量num的值一定是大于或等于11的整数

D.Do循环的执行次数一定为10次

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

Private Sub Command1_Click()

  Dim x As Integer

  x = -10 Mod -4

  If x <= -1 Then Print -1;

  If x <= -2 Then Print -2;

  If x <= -3 Then Print -3;

  Print

End Sub

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

A.-1

B.-2

C.-1 -2

D.-1 -2 -3

38.假定把计时器控件Timer1的Interval 属性设置为10，Enabled属性设置为True，并编写下面的程序：

Dim x As Integer

Private Sub Timer1_Timer()

    For i = 1 To 100

        x = x + 1

    Next i

    Print x

End Sub

程序运行一段时间后的结果是

A.输出100后正常结束

B.输出1000后正常结束

C.输出10000后正常结束

D.出错

39.设窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器，并有下面程序代码：

Private Sub Form_Load()

    Timer1.Enabled = False

    Timer1.Interval = 500

End Sub

Private Sub Command1_Click()

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    If Command1.Left > 0 Then

        Command1.Left = Command1.Left - 100

    End If

End Sub

下面叙述中正确的是

A.程序一运行，命令按钮就向左移动，到窗体左端停止

B.程序运行后，单击命令按钮，则按钮向左移动，到窗体左端停止

C.程序运行后，单击命令按钮，则按钮向左移动，每秒移动一次

D.程序一运行，命令按钮就向右移动，到窗体右端停止

40.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

  Dim a As Integer

  Static b As Integer

  a = 20

  b = 5

  Call sub1(a, b)

  Print a; b

End Sub

Private Sub sub1(ByRef x1 As Integer, y1 As Integer)

  x1 = x1 + 3

  y1 = x1 + y1

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A.23  23

B.23  28

C.20  5

D.20  25

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