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

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

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

■单选

1．下列叙述中正确的是

1. 线性表是线性结构
2. 栈与队列是非线性结构
3. 线性链表是非线性结构
4. 二叉树是线性结构

2．非空的循环单链表head的尾结点(由P所指向)，满足

1. P->next==NULL
2. P==NULL
3. p->next=head
4. P=head

3．已知数据表A中每个元素距其最终位置不远，为节省时间，应采用的算法是

1. 堆排序
2. 直接插入排序
3. 快速排序
4. 直接选择排序

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

1. 程序应简单、清晰、可读性好
2. 符号名的命名只要符合语法
3. 充分考虑程序的执行效率
4. 程序的注释可有可无

5．下列不属于结构化分析的常用工具的是

1. 数据流图
2. 数据字典
3. 判定树
4. PAD图

6．在软件生产过程中，需求信息的给出是

1. 程序员
2. 项目管理者
3. 软件分析设计人员
4. 软件用户

7．下列工具中不属于需求分析常用工具的是

1. PAD
2. PFD
3. N-S
4. DFD

8．NULL是指

1. 空格
2. 未知的值或无任何值
3. 空字符串

9．数据库的故障恢复一般是由

1. 数据流图完成的
2. 数据字典完成的
3. DBA完成的
4. PAD图完成的

10．下列说法中，不属于数据模型所描述的内容的是

1. 数据结构
2. 数据操作
3. 数据查询
4. 数据约束

11．Visual Basic程序设计采用的编程机制是

1. 可视化
2. 面向对象
3. 事件驱动
4. 过程结构化

12．Visual Basic 6．0分为3种版本，不属于这3种版本的是

1. 学习版
2. 专业版
3. 企业版
4. 业余版

13．确定窗体控件启动位置的属性是

1. Width和Height
2. Width或Height
3. StartUpPositon
4. Top和Left

14．新建一个窗体，其BorderStyle属性设置为Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是

1. BorderStyle的值设为Fixed．Single，此项设置值的作用即禁止最大化和最小化按钮
2. 窗体的MaxButton和MinButton值设为False
3. 正常情况下新建的窗体都没有最大化和最小化按钮
4. 该窗体可用鼠标拖动边框的方法改变窗体的大小

15．为了使命令按钮(名称为Commandl)右移200，应使用的语句是

1. Commandl．Move-200
2. Commandl．Move 200
3. Commandl．Left=Commandl．Left+200
4. Commandl．Left=Commandl．Left-200

16．以下关于函数过程的叙述中，正确的是

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

17．可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是

1. ％
2. #
3. !
4. $

18．在Visual Basic中，下列两个变量名相同的是

1. Japan和Ja_pan
2. English和ENGLish
3. English和Engl
4. China和Chin

19．设a="a"，b=" b"，c="c"，d="d"，执行语句x=IIf((ad)，"A"，"B")后，x的值为

1. "a"
2. "b"
3. "B"
4. "A"

20．表达式x=Sqr(a＾2-5)+sqr(b＾2-5)的类型是

1. 算术表达式
2. 逻辑表达式
3. 关系表达式
4. 字符表达式

21．与List1．Text属性值相同的是

1. List1．ListCount
2. List1．List(ListCount-1)
3. List1．ListIndex
4. List1．List(List．ListIndex)

22．当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽?

1. Name
2. Enabled
3. Caption
4. Visible

23．设执行以下程序段时依次输入2，4，6，执行结果为
    Dim a(4)As IntegerDim b(4)As Integer
    For k=0 T0 2
    a(k+1)=Val(InputBox("Enter data：")) 
    b(3-k)=a(k+1) 
    Next k
    Print b(k)

1. 2
2. 4
3. 6

24．编写如下事件过程：
    Private Sub Form_MouseDown(Button As Integer，Shift As Integer，
    X As Single，Y As Single) 
    If Shift=6 And Button=2 Then
    Print"PC" 
    End If
    End Sub
    程序运行后，为了在窗体上输出“PC"，应执行的操作为

1. 同时按下Shift键和鼠标左键
2. 同时按下Ctrl，Alt键和鼠标右键
3. 同时按下Shift键和鼠标右键
4. 同时按下Ctrl，Ah键和鼠标左键

25．如果在窗体上添加一个通用对话框控件DBT，那么语句“DBT．Action=4"的作用是

1. 显示“打开文件
2. 显示“保存文件
3. 显示“字体
4. 显示“打印

26．下列说明中，不属于随机文件特点的是

1. 可以随意读取随机文件中任一记录的数据
2. 随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
3. 随机文件的操作是以记录为单位进行的
4. 随机文件的读、写操作语句与顺序文件的读写操作语句一样

27．执行下面的程序后，输出的结果是
    X=1
    For j=l To 4
    x=X-l：Y=0
    For k=1 To 4
    X=X+1：Y=Y+1
    Next k
    Next j
    Print X；Y

1. 1 4
2. 13 4
3. 12 8
4. 20 6

28．有如下程序段，该程序段执行完后，执行循环的次数是
    total=0
    Counter=l
    Do
    Print Counter
    total=total+Counter
    Print total
    Counter=Counter+1
    Iftotal>10 Then
    Exit Do
    End If
    Loop While Counter<=10

1. 5
2. 10
3. 15
4. 20

29．有如下程序：
    Option Base 1
        Private Sub Form_Click()
    Dim nit，sum
    Sum=0
    alT=Array(1，3,5，7，8，11，13，15，17，19) 
    For i=1 To l0
    If arr(i)／3=arr(i)＼3 Then
    Sum=Sum+arr(i) 
    End If
    Next i
    Print Sum
    End Sub
    程序运行后，单击窗体，输出结果为

1. 25
2. 26
3. 27
4. 28

30．有如下程序：
    Private Sub Commandl_Click()
    a$="A WORKER IS HERE" 
    x=Len(a$)
    For i=1 To x-1
    b$=Mid$(a$，i，3) 
   If b$="WOR"Then S=S+1
    Next
    Print S
    End Sub
    单击命令按钮，程序运行结果为

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

31．单击命令按钮时，下列程序的执行结果是
    Private Sub Commandl_Click()
    BT 4
    End Sub
    Private Sub BT(x As Integer) 
    x=x*2+1
  If x<6 Then
    Call BT(x) 
    End If
    x=x*2
    Print x；
    End Sub

1. 15
2. 16
3. 17
4. 18

32．设有如下通用过程：
    Public Sub Fun(a()As Integer，x As Integer) 
    For i=1 To 5
    x=x+a(i) 
Next
    End Sub
    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
    Private Sub Commandl_Click()
    Dim arr(5)As Integer，n As Interger
    For i=1 To 5
    arr(i)=i+i
    Next
    Fun arr，n
    Textl．Text=Str(n) 
    End Sub
    程序运行后，单击命令按钮，则在文本框中显示的内容是

1. 30
2. 25
3. 20
4. 15

33．在窗体上画一个命令按钮，然后编写下列程序：
    Private Sub Commandl_Click()
    Dim a As Single，b As Single
    a=6：b=2
    RC a，b
    Print a，b
    End Sub 
    Sub RC(X As Single，Y As Single) 
    i=x
    x=i／y
    y=i Mod y
    End Sub

1. 4 3
2. 1 1
3. 3 0
4. 2 6

34．函数过程Fl的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是

1. Function F1(b As Integer) 
       If b Mod 2=0 Then
       Return 0
       Else
       Return  1
       End If
       End Function
   
2. Function F1(b As Integer) 
       If b Mod 2=0 Then
       F1=0
       Else Fl=1
   End If
   End Function
3. Function F1(b As Intger) 
       If b Mod 2=0 Then
       F1=1
       Else 
       F1=0
       End If
       End Function
   
4. Function F1(b As Integer) 
       If b Mod 2<>0 Then
       Return 0
     Else
       Return 1
       End If
       End Function

35．有如下事件过程：
        Private Sub Commandl_Click()
     Dim i As Integer
     For i=1 To 2
     DC
     Next i
     End Sub
     Sub DC()
     Dim x As Integer，In As String
     Static Y，n
     x=x+1
     y=y+1
     m=m&"*"：n=n&"#" 
     Print x，y，m，n
     End Sub
     程序运行后，输出的结果是

1. 1 1  *  #    1  1  *  #
2. 1 1  * #    1  2  *  #
3. 1 1  *  #    1  1  *  ##
4. 1 1  *  #    1  2  *  ##

■填空

36．冒泡排序算法在最好的情况下的元素交换次数为________。
37．在最坏情况下，堆排序需要比较的次数为________。
38．若串s="MathTypes"，则其子串的数目是________。
39．软件开发环境是全面支持软件开发全过程的________集合。
40．关系数据库的关系演算语言是以________为基础的DML语言。
41．下列语句的输出结果是________。
    Print Format$(1258．6，"000，000，00")
42．关系式x≤-5或x≥5所对应的布尔表达式是________4。
43．随机文件数据存取是以________为单位进行操作的。
44．在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。
    Private Sub Form_Load()
    List1．AddItem"北京" 
    List1．Addltem"上海" 
    List1．Addltem"河北" 
    End Sub
    Private Sub 
45．执行语句Open"TC．dat"For Random As #1 Len=50后，对文件TC．dat中的数据能执行的操作是________。
46．下面程序的功能是统计字符串中“i"的个数，请填空。
    Sub COU()
    aS="Beijing University of Technology" 
    Dim n As Integer
    n=Len(a$)
    For i=1 To n
    b$=________
   If ________ Then x=x+1
    Next i
    Print "X="；x
    End Sub

47．下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
    Private Type Ang
    K As Integer
    Sinx As Single
    Cosx As Single
    End Type
    Dim Ksc As Ang
    Private Sub Form_Click()
    Dim

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