Copyright © 2008 - 2011
www.51zuoti.com All Rights Reserved.

• 首 页
• 个人中心
• 推广计划
• 用户论坛
• 问题反馈

点此将开始本套试卷的模拟考试 »»

■单选

1．假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为

1. 
2. 
3. 
4. 

2．算法分析的目的是

1. 找出数据结构的合理性
2. 找出算法中输入和输出之间的关系
3. 分析算法的易懂性和可靠性
4. 分析算法的效率以求改进

3．线性表L=(al，a2，a3，…ai，…an)，下列说法正确的是

1. 每个元素都有一个直接前件和直接后件
2. 线性表中至少要有一个元素
3. 表中诸元素的排列顺序必须是由小到大或由大到小
4. 除第一个元素和最后?个元素外，其余每个元素都有一个且只有一个盲接前件和直接后件

4．在单链表中，增加头结点的目的是

1. 方便运算的实现
2. 使单链表至少有一个结点
3. 标识表结点中首结点的位置
4. 说明单链表是线性表的链式存储实现

5．软件工程的出现是由于

1. 程序设计方法学的影响
2. 软件产业化的需要
3. 软件危机的出现
4. 计算机的发展

6．软件开发离不开系统环境资源的支持，其中必要的测试数据属于

1. 硬件资源
2. 通信资源
3. 支持软件
4. 辅助资源

7．在数据流图(DFD)中，带有名字的箭头表示

1. 模块之间的调用关系
2. 程序的组成成分
3. 控制程序的执行顺序
4. 数据的流向

8．分布式数据库系统不具有的特点是

1. 数据分布性和逻辑整体性
2. 位置透明性和复制透明性
3. 分布性
4. 数据冗余

9．关系表中的每一横行称为一个

1. 元组
2. 字段
3. 属性
4. 码

10．下列数据模型中，具有坚实理论基础的是

1. 层次模型
2. 网状模型
3. 关系模型
4. 以上3个都是

11．下列说法正确的是

1. 对象的可见性可设为True或False
2. 标题的属性值不可设为任何文本
3. 属性窗口中属性只能按字母顺序排列
4. 某些属性的值可以跳过不设置，自动设为空值

12．下列关于退出Visual Basic系统的方法的描述错误的是

1. 打开Visual Basic主窗体的“文件”菜单，执行其中的“退出”命令
2. 按快捷键Alt+Q退出
3. 单击Visual Basic主窗体右上角的“关闭”按钮
4. 按快捷键Alt+E退出

13．单击窗体上的关闭按钮时，触发的事件是

1. Form_Initialize()
2. Form Load()
3. Form_Unload()
4. Form_Click()

14．在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是

1. 一个空格加一个下划线“_”
2. 一个下划线“_”
3. 一个造字符“_”
4. 一个空格加一个连字符“_”

15．为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False?

1. Visible
2. Timer
3. Enabled
4. Interval

16．以下关于Visual Basic数据类型的说法，不恰当的是

1. Visual Basic 6．0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等
2. 目前Decimal数据类型只能在变体类型中使用
3. 用户不能定义自己的数据类型
4. 布尔型数据只能取两种值，用两个字节存储

17．以下各项，可以作为Visual Basic变量名的是

1. Book
2. 2_Seek
3. 123．58
4. Book_1

18．表达式(3／2+1)*(5／2+2)的值是

1. 11．25
2. 3
3. 6．125
4. 4

19．于自定义对话框概念的说明，错误的是

1. 建立自定义对话框时必须执行添加窗体的操作
2. 自定义对话框实际上是VB的窗体
3. 在窗体上还要使用其他控件才能组成自定义对话框
4. 自定义对话框不一定要有与之对应的事件过程

20．下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是
    Private Sub Text1_Change()
    Text2．Text=Str(6．28* Val(Textl．Text)) 
    End Sub

1. 将在文本框Text1输入的数字变为数值
2. 将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串
3. 只要Text1中的内容一改变，Text2中显示的圆周长也随之改变
4. 事件过程中的Val函数和str函数使用错误，事件过程不能执行

21．用什么语句可以选择指定的表项或取消已选择的表项?

1. 列表框．Selected(索引值)
2. 列表框名．Selected(索引值)=True | False
3. 列表框．Selected
4. 列表框名．Selected=True | False

22．用于将屏幕上的对象分组的控件是

1. 列表框
2. 组合框
3. 标签
4. 框架

23．以下说法不正确的是

1. 使用ReDim语句可以改变数组的维数
2. 使用ReDim语句可以改变数组的类型
3. 使用ReDim语句可以改变数组的每一维的大小
4. 使用ReDim语句可以改变对数组中的所有元素进行初始化

24．有如下事件过程：
    Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) 
   If(Button And 3)=3 Then
    Print”OK” 
    End If
    End Sub
    程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是

1. 左键
2. 右键
3. 同时按下左键和右键
4. 按什么都不显示

25．在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示：*txt，则能够满足上述要求的程序是

1. Private Sub Commandl_Click()
       CommonDialog1．FileName=”SaveFile” 
       CommonDialog1．Filter=”AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*.doc" 
       CormnonDialog1．FiherIndex=2
       CommonDialog1．DialogTifle="Save" 
       CommonDialog1．Action=2
       End Sub
2. Private Sub Commandl_Click()
       CommonDialog1．FileName="SaveFile" 
       CommonDialog1．Filter="AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc" 
       CommonDialog1．FiherIndex=1
       CommonDialog1．DialogTifle="Save" 
       CommonDialog1．Action=2
       End Sub
3. Private Sub Commandl_Click()
       CommonDialog1．FileName="Save" 
       CommonDialog1．Filter="AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc" 
       CommonDialog1．FiherIndex=2
       CommonDialog1．DialogTitle="SaveFile"
       CommonDialog1．Action=2
       End Sub
4. Private Sub Commandl_Click()
       CommonDialog1．FileName="：SaveFile" 
       CommonDialog1．Filter="AllFiles|*．*|(*．txt)|*．txt|(*．doc)|*．doc" 
       CommonDialog1．FiherIndex=1
       CommonDial091．DialogTitle="Save" 
       CommonDial091．Action=l
       End Sub

26．阅读下面的程序段：
    For a=1 To 2
    For b=1 To a 
    For e=b To 2
    I=I+1
    Next
      Next
    Next
   Print I
    执行上面的三重循环后，I的值为

1. 4
2. 5
3. 6
4. 9

27．设有下面的循环：
    i=0
    While i<=1
    i=i+3
    Print i
    Wend
    则运行后的输出结果是

1. 1
2. 2
3. 3
4. 4

28．设有下面的循环：
    i=1
    D0
    i=i+3
      Print i
    Loop Until i>____
    程序运行后要执行3次循环体，则条件中i的最小值为

1. 6
2. 7
3. 8
4. 9

29．执行以下语句过程，在窗体上显示的内容是
    Option Base 0
    Private Sub Command3_Click()
    Dim d
    d=Array("a"，"b"，"c"，"d") 
   Print d(1)；d(3) 
    End Sub

1. ab
2. bd
3. ac
4. 出错

30．下列程序段，在运行时最早输出的内容是
    a=2
    c=1
    AAA：
        C=C+a
    If c <10 Then
    Print c
    Goto AAA
    Else
    Print"10以内的奇数显示完毕。" 
    End If

1. 3
2. 7
3. 9
4. 6

31．有如下程序段：
    Private Sub Command1_Click()
    Dim a As Integer
    a=2
      For i=1 To 3
    Print G(a) 
    Next i
    End Sub
    Function G(a As Integer) 
    b=0
    Static c
    b=b+1
    c=c+1
    G=a+b+c
      End Function
    运行上面的程序后，单击命令按钮，输出结果为

1. 1 2 3
2. 2 3 4
3. 4 5 6
4. 1 4 6

32．单击命令按钮时，下列程序的运行结果为
    Private Sub Commandl_Click()
    Print MyBM(23，18) 
     End Sub
    Public Function MyBM(m As Integer，n As Integer)As Integer
    Do While m<>n
    Do While m>n：m=m-n：Loop
    Do While In    Loop
    MyBM=m
    End Function

1. 1
2. 3
3. 5

33．有如下的程序：
    Private Sub Commandl_Click()
    Dim k As Integer，in As Integer
    Dim P As Integer
    k=4：m=1
    P=Pid(k，m)：Print P；
    P=Pid(k，m)：Print P
    End Sub
    Private Function Pid(a As Integer，b As Integer) 
    Static m As Integer，i As Integer
    m=5：i=2
    i=i+m+1
    m=i+a+b
    Pid=m＼2
    End Function
    单击命令按钮后，输出结果为

1. 2 2
2. 4 4
3. 5 5
4. 6 6

34．假定在工程文件中有一个标准模块，其中定义了如下记录类型
    Type Books
    Name As String*10
    TelNum As String*20
    End Type
    要求在执行事件过程Commandl?Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操
    作的事件过程是

1. Private Sub Commandl_Click．()
       Dint B As Books
       Open"c：＼Person．txt"For Output As #1
         B．Name=InputBox("输入姓名") 
       B．TelNum=InputBox("输入电话号码") 
       Write #1，B．Name，B．TelNum
       Close #1
       End Sub
2. Private Sub Commandl_Click()
       Dim B As Books
       Open"C：＼Person．txt"For Input As #1
       B．Name=InputBox("输入姓名") 
       B．TelNum=InputBox("输入电话号码") 
       Print#1，B．Name，B．TelNum
       Close #1
       End Sub
3. Private Sub Commandl_Click()
       Dim B As Books
       Open"C：＼Person．txt"For Output As#1
       Name=InputBox("输人姓名") 
       TelNum=InputBox("输入电话号码") 
       Write #1．B
       Close #1
       End Sub
4. Private Sub Commandl_Click()
       Dim B As Book
       Open"c：＼Person．txt"For Input As#1
       Name=InputBox("输入姓名") 
       TelNum=InputBOX("输入电话号码") 
       Print#1．B．Name，B．TelNum
       Close#l
       End Sub

35．在窗体上画一个命令按钮，然后编写如下事件过程：
    Private Sub Commandl_Click()
    Dim m As Integer，n As Integer，P As Integer
    m=3：n=5：P=0
    Call Y(m，n，P) 
    Print Str(P) 
    End Sub
    Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) 
    k=i+j
    End Sub
    程序运行后，如果单击命令按钮，则在窗体上显示的内容是

1. 4
2. 6
3. 8
4. 10

■填空

36．在算法正确的前提下，评价一个算法的两个标准是________。
37．将代数式Z=转换成程序设计中的表达式为________。
38．软件危机出现于60年代末，为了解决软件危机，人们提出了________的原理来设计软件，这就是软件工程诞生的基础。
39．填空：________是数据库设计的核心。
40．在关系数据库中，把数据表示成二维表，每一个二维表称为________。
41．在名称为Forml的窗体上画一个文本框，其名称为Textl，在属性窗El中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
    Private Sub Form_Click()
    Open"d：＼test＼smtextl．txt"For Input As#1
    Do While Not ________
  Line Input#1．aspect$
  whole$=whole$+aspect$+Chr$(13)+Chr$(10) 
  
42．已知8的ASCIl码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
    Dim  ________
    For i=65 T0 90
    PP(i)=0
    Next
    x$=InputBox("Enter a strin9"，x$)
    x$=UCase$(x$)
    For i=1 T0  ________
    n=Asc(Mid$(x$，i，1)) 
    If n>=65 And n<=90 Then
   
43．下面运行程序后，单击命令按钮，输出的结果是________ 。
    Private Sub Commandl_Click()
    Dim a％(1 To 4)，b％(3 To 6)，i％，s1#，s2#
    For i=1 To 4
    a(i)=i
    Next i
    For i=3 To 6
    b(i)  =i
        Next i
    s1=YAS(a) 
    s2=YAS(b) 
    Pri
44．如果存在如下过程：
    Private Function FMax(a()As Integer) 
    Dim First As Integer，Last As Integer，i As Integer
    First=LBound(a) 
    Last=UBound(a) 
    Max=a(First) 
    For i=First To Last
    If a(i)>Max Then Max=a(i) 
    Next i<
45．在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件"对话框，设置该对话框可用于保存文本文件(默认)和word文档，然后在文本框控件中显示保存的文件名，请填空。
    Private Sub Commandl_Click()
    CommonDial091．Filter=________
    CommonDial091．Filter=________
    CommonDial091．ShowSave
    TextBox．Text=________

«« 感觉很多题目不会？那就先进行章节练习吧！