1.  线性表常采用的两种存储结构是______。

• A.散列方法和索引方式
• B.链表存储结构和数组
• C.顺序存储结构和链式存储结构
• D.线性存储结构和非线性存储结构

2.  软件需求分析阶段的工作，可以分为四个方面：需求获取、编写需求规格说明书、需求评审和______。

• A.阶段性报告
• B.需求分析
• C.需求总结
• D.都不正确

3.  在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。

• A.需求分析
• B.详细设计
• C.软件设计
• D.概要设计

4.  对建立良好的程序设计风格，下面描述正确的是______。

• A.程序应简单、清晰、可读性好
• B.符号名的命名只要符合语法
• C.充分考虑程序的执行效率
• D.程序的注释可有可无

5.  下列工具中，不属于结构化分析的常用工具的是______。

• A.数据流图
• B.数据字典
• C.判定树
• D.N-S图

6.  在软件生产过程中，需求信息的来源是______。

• A.程序员
• B.项目经理
• C.设计人员
• D.软件用户

7.  对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为______。

• A.并运算
• B.交运算
• C.差运算
• D.积运算

8.  设有关键码序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法进行排序，经过初始建堆后关键码值B在序列中的序号是______。

• A.1
• B.3
• C.7
• D.9

9.  数据库的故障恢复一般是由______来执行恢复。

• A.电脑用户
• B.数据库恢复机制
• C.数据库管理员
• D.系统普通用户

10.  下列选项中，不属于数据模型所描述的内容的是______。

• A.数据类型
• B.数据操作
• C.数据结构
• D.数据约束

11.  在窗体上画一个命令按钮，然后编写如下时间过程______。
    Print Sub Command1_Click()
    a=InputBox("Enter the First interger")
    b=InputBox("Enter the Second interger")
    Print b+a
    End Sub
    程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是

• A.579
• B.123
• C.456
• D.123456

12.  确定一个控件在窗体上的位置的属性是______。

• A.Width或Height
• B.Width和Height
• C.Top或Left
• D.Top和Left

13.  以下______控件没有Caption属性。

• A.CommandButton
• B.CheckBox
• C.TextBox
• D.Label

14.  在窗体上有一个名称为Command1的命令按钮，并有如下程序：
    Private Sub Command1_Click()
    Static X As Integer
    Static Y As Integer
    Cls
    Y=1:Y=Y+5:X=5+X:Print X, Y
    End Sub
    程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为______。

• A.15    16
• B.5    6
• C.15    15
• D.15    6

15.  表达式Str(Len("123"))+Str(77.7)的值是______。

• A.3+77.7
• B.377.7
• C.80.7
• D.12377.7

16.  表达式Int(-15.8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的运算结果是______。

• A.-1
• B.-2
• C.0
• D.1

17.  编写如下事件过程：
    Private Sub Form_MouseMove(Button As Integer, Shift As Interger, X As Single, Y As Single)
    If(ButtonAnd 3)=3 Then
    Print"AAAA"
    End If
    End Sub
    程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。

• A.按左键并移动
• B.按右键并移动
• C.同时按下左、右键并移动
• D.按什么键都不显示

18.  窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是______。

• A.Print Cbl.Selected
• B.Print Cbl.List(Cbl.ListIndex)
• C.Print Cbl.Selected.Text
• D.Print Cbl.List(ListIndex)

19.  窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为______。
    PriVate Sub Command1_Click()
    Dim A As Integer, B As Integer
    Text1.SelStart=2:Text1.SelLength=2
    A=Val(Text1.SelText):B=Len(Text1.Text)
    Print A*B
    End Sub

• A.68
• B.115
• C.1700
• D.170

20.  使用______方法，可清除列表框中所有的列表项。

• A.Remove
• B.Clear
• C.RemoveItem
• D.Move

21.  下列循环能正常结束的是______。

• A.x=5
      Do
      x=x+1
      Loop Until x＜0
• B.x=1
      Do
      x=x+2
      Loop Until x=10
• C.x=10
      Do
      x=x+1
      Loop Until x＞0
• D.x=6
      Do
      x=x-2
      Loop Until x=1

22.  程序运行时，当在空文本框中依次输入1234时，窗体上显示的是______。
    Private sub Text1_Change()
    Print Text1;
    End Sub

• A.1234
• B.12
• C.1121231234
• D.10

23.  在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是______。
    Private Sub Form_Load()
    For i=1 To 10
    sum=sum+i
    Next i
    Print "Sum="; sum
    End Sub

• A.在窗体上输出55
• B.在窗体上输出sum=55
• C.出错
• D.窗体上不输出

24.  在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示A*B的计算结果，如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是______。
   

• A.Private Sub Command1_Click()
      Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
      End Sub
• B.Privae Sub Command1_Click()
      Label3.Caption=HScroll1.Value * HScroll2.Value
      End Sub
• C.Private Sub Command1_Click()
      Label3.Caption=HScroll1*HScrcll2
      End Sub
• D.Pfivate Sub Command1_Click()
      Label3.Caption=HScroll1.Text * HScroll2.Text
      End Sub

25.  设a=6，则执行x=IIf(a＞5, -1, 0)后，x的值为______。

• A.5
• B.6
• C.0
• D.-1

26.  以下程序执行后，在窗体上输出的图案是______。
    Form1.Cls
    For a=1 To 5
    Print Space(5-a); String(a, "*")
    Next a

• A.*
        **
        ***
      ****
      *****
• B.**
      ***
      ***
      ****
      *****
• C.**
      ***
      ***
      ****
      *****
• D.*
      **
      ***
      ****
      ****

27.  假定窗体上有一个标签，名为Label。为了使该标签透明并且没有边框，则正确的属性设置为______。

• A.Label1.BackStyle=0
      Label1.BorderStyle=0
• B.Label1.BackStyle=1
      Label1.BorderStyle=1
• C.Label1.BackStyle=True
      Label1.BorderStyle=True
• D.Label1.BackStyle=False
      Label1.Borderstyle=False

28.  单击命令按钮时，下列程序段的执行结果为______。
    Private Sub Command1_Click()
    Print Func1(24, 18)
    End Sub
    Public Function Func1(m As Integer, n As Integer)As Integer
    Do While m＜＞n
    Do While m＞n:m=m-n:Loop
    Do While m＜n:n=n-m:Loop
    Loop
    Func1=m
    End Function

• A.8
• B.6
• C.4
• D.2

29.  下列程序段执行后，输出的结果是______。
    For k1=0 To 4
    y=20
    For k2=0 To 3
    y=10
    For k3=0 To 2
    y=y+10
    Next k3
    Next k2
    Next k1
    Print y

• A.90
• B.60
• C.40
• D.10

30.  使用语句Dim A(1 To 10) As Integer声明数组A后，以下叙述正确的是______。

• A.A数组中的所有元素值为0
• B.A数组中的所有元素值不确定
• C.A数组中的所有元素值为Empty
• D.执行语句“Erase A”后，A数组中的所有元素值为Null

31.  以下程序段的功能是______。
    x=8.6
    y=Int(x+0.5)
    Print y

• A.输出y的绝对值
• B.实现x的四舍五入
• C.实现x的绝对值
• D.实现y的四舍五入

32.  在窗体上建立一个命令控件数组Command1，并双击第一个命令按钮，编写如下事件过程：
    Private Sub Command1_Click(Index As Integer)
    Command1(Index).Caption=Format$(Now, "hh:mm:ss")
    End Sub
    以下描述正确的是______。

• A.当单击某个命令按钮时，数组中所有命令按钮的Caption属性将被设置为当前时间
• B.当单击某个命令按钮时，该按钮的Caption属性将被设置为当前时间
• C.程序有错误
• D.窗体的Caption属性将被设置为当前时间

33.  有如下的一个函数过程：
    Function fn(ByVal num As Long)
    Dim k As Long
    k=1:num=Abs(num)
    Do While num
    k=k*(num Mod 10)
    num=num\10
    Loop
    fn=k
    End Function
    通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为______。
    Private Sub Command1_Click()
    Dim n As Long
    Dim r As Long
    n=InputBox("请输入一个数值")
    n=CLng(n):r=fn(n)
    Print r
    End Sub

• A.12
• B.6
• C.3
• D.1

34.  下列关于函数过程的叙述中，正确的是______。

• A.如果不指明函数过程参数的类型，则该参数没有数据类型
• B.函数过程的返回值可以有多个
• C.函数过程形参的类型与函数返回值的类型没有关系
• D.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

35.  以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写______。
    Private Sub Command1_Click()
    x=Val(Text1.Text)
    If______Then
    Print x
    Else
    Text1.SetFocus
    Text1.Text=""
    End If
    End Sub

• A.x%4=1 And x%5=2
• B.x%4=1 Or x%5=2
• C.x Mod 4=1 And x Mod 5=2
• D.x Mod 4=1 Or x Mod 5=2

36.  要求当鼠标在图片框Picture1中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

• A.Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, XAs Single Y As Single)
      Picture1.Print X, Y
      End Sub
• B.Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, XAs Single, Y As Single)
      Print X, Y
      End Sub
• C.Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, XAs Single, Y As Single)
      Picture.Print X, Y
      End Sub
• D.Private Sub Form_MouseMove(Button As Integer Shift As Integer, X As Single, Y As Single)
      Picture1.Print X, Y
      End Sub

37.  一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为：
    Form1中定义的过程：
    Private Sub Fun1()
    ……
    End Sub
    Form2中定义的过程：
    Private Sub Fun2()
    ……
    End Sub
    Func中定义的过程：
    Private SubFun3()
    ……
    End Sub
    在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是______。

• A.上述3个过程都可以在工程中的任何窗体或模块中被调用
• B.Fun1和Fun2过程能够在工程中各个窗体或模块中被调用
• C.上述3个过程都只能在各自被定义的模块中调用
• D.只在Fun3过程能够被工程中各窗体或模块调用

38.  在窗体上有一个名称为CD1的通用对话框和一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是______。

• A.Private Sub Command1_Click()
      CD1.FileName="ABC"
      CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"|
      CD1.FilterIndex=1
      CD1.DialogTitle="保存"
      CD1.Action=2
      End Sub
• B.Private Sub Command1_Click()
      CD1.FileName="ABC"
      CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
      CD1.FilterIndex=2
      CD1.DialogTitle="保存"
      CD1.Action=2
      End Sub
• C.Private Sub Command1_Click()
      CD1.FileName="保存"
      CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
      CD1.FilterIndex=2
      CD1.DialogTitie="ABC"
      CD1.Action=2
      End Sub
• D.Private Sub Command1_Click()
      CD1.FileName="ABC"
      CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
      CD1.FilterIndex=1
      CD1.DialogTitle="保存"
      CD1.Action=1
      End Sub

39.  已知在菜单编辑器中设计了窗体的快捷菜单，其主菜单为a1，且取消其“可见”属性，如图所示。运行时，以下______事件过程可以使快捷菜单的菜单项响应鼠标右键单击。
   

• A.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)
      If Button=2 Then PopupMenu a1, 2
      End Sub
• B.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)
      PopupMenu a1, 0
      End Sub
• C.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)
      PopupMenu a1
      End Sub
• D.Private Sub Form_MouseDown(Button As Integer, Shift As_Integer, X As Single, Y As Single)
      If(Button=vbLetfButton) Or (Button=vbRightButton)Then PopupMenu a1
      End Sub

40.  下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
    Private  Sub Command1_Click()
    Dim Num(25)As Integer, Chr1 As String
    Chr1=UCase(InputBox("请输入字母字符串"))
    For k=1 To Len(Chr1)
    n=Asc(Mid(Chr1, k, 1))-Asc("A")
    If n＞=0 Then
    Num(n)=Num(n)+1
    End If
    Next k
    m=Num(0)
    For k=1 To 25
    If m＜Num(k)Then
    m=Num(k)
    End If
    Next k
    Print m
    End Sub

• A.3
• B.2
• C.1
• D.0