一 、选择题
(1) 数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及
A) 数据的存储结构    
B) 计算方法
C) 数据映象       
D) 逻辑存储
正确答案:  A

(2) 串的长度是
A) 串中不同字符的个数
B) 串中不同字母的个数
C) 串中所含字符的个数且字符个数大于零
D) 串中所含字符的个数
正确答案:  D

(3) 在计算机中，算法是指
A) 加工方法      
B) 解题方案的准确而完整的描述
C) 排序方法      
D) 查询方法
正确答案:  B

(4) 以下不属于对象的基本特点的是
A) 分类性      
B) 多态性
C) 继承性      
D) 封装性
正确答案:  C

(5) 开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称作
A) 软件投机      
B) 软件危机
C) 软件工程      
D) 软件产生
正确答案:  B

(6) 下面不属于软件设计原则的是
Ａ) 抽象       
Ｂ) 模块化
Ｃ) 自底向上      
Ｄ) 信息隐蔽
正确答案:  C

(7) 开发大型软件时，产生困难的根本原因是
A) 大系统的复杂性    
B) 人员知识不足
C) 客观世界千变万化    
D) 时间紧、任务重
正确答案:  A

(8) 下列SQL语句中，用于修改表结构的是
A) ALTER      
B) CREATE
C) UPDATE      
D) INSERT
正确答案:  A

(9) 数据库、数据库系统和数据库管理系统之间的关系是
A) 数据库包括数据库系统和数据库管理系统
B) 数据库系统包括数据库和数据库管理系统
C) 数据库管理系统包括数据库和数据库系统
D) 3者没有明显的包含关系
正确答案:  B

(10) 关系模型允许定义3类数据约束，下列不属于数据约束的是
A) 实体完整性约束    
B) 参照完整性约束
C) 域完整性约束     
D) 用户自定义的完整性约束
正确答案:  C

11) 下列说法错误的是
A) 标准模块也称程序模块文件，扩展名是.bas
B) 标准模块由程序代码组成
C) 标准模块只用来定义一些通用的过程
D) 标准模块不附属于任何一个窗体
正确答案:  C

(12) 在设计阶段，当双击窗体上的某个控件时，打开的窗口是
A) 工程资源管理器窗口   
B) 工具箱窗口
C) 代码窗口      
D) 布局窗口
正确答案:  C

(13) 下列说法错误的是
A) Caption为只读属性，运行时对象的名称不能改变
B) 设置Height或Width的数值单位为twip，是1点的1/20
C) Icon属性用来设置窗体最小化时的图标
D) 用来激活属性窗口的快捷键是F4键
正确答案:  A

(14) 下列说法不正确的是
A) 对象的操作由对象的属性、事件和方法来描述
B) Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象
C) 属性是对象的特征，不同的对象有不同的属性
D) 对象事件在代码窗口中体现过程
正确答案:  B

(15) 要使文件列表框中的文件随目录列表框中所选择的当前目录的不同而发生变化，应该
A) 在File1中的Change事件中，输入File1.Path＝Dir1.Path
B) 在Dir1中的Change事件中，输入File1.Path＝Dir1.Path
C) 在File1中的Change事件中，输入Dir1.Path＝File1.Path
D) 在Dir1中的Change事件中，输入Dir1.Path＝File1.Path
正确答案:  B

(16) 下列日期型数据正确的是
A) @January 10,1979@    
B) #January 10,1997#
C) "January 10,1997"    
D) &January 10,1997&
正确答案:  B

(17) 下面说法不正确的是
A) 变量名的长度不能超过255个字符
B) 变量名可以包含小数点或者内嵌的类型声明字符
C) 变量名不能使用关键字
D) 变量名的第一个字符必须是字母
正确答案:  B

(18) 变量L的值为－8，则－L^2的值为
A) 64       
B) －64
C) 16       
D) －16
正确答案:  B

(19) 下列程序段的执行结果为
X=2
Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1
Print Y - X > 0
A) True       
B) False
C) -1       
D) 1
正确答案:  B

(20) 在计时器控件中，Interval属性的作用是
A) 决定是否响应用户的操作
B) 设置计时器事件之间的间隔
C) 存储程序所需要的附加数据
D) 设置计时器顶端和其容器之间的距离
正确答案:  B

21) 使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是
A) A数组中的所有元素都为0
B) A数组中的所有元素值不确定
C) A数组中所有元素值都为Empty
D) 执行Erase A后，A数组中所有元素值都不为0
正确答案:  A

(22) 有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode=Key_F5 And Shift=ShiftKey Then
       Print "Press Shift+F5"
   ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
       Print "Press Ctrl+F6"
   End If
End Sub
A) 无任何信息     
B) Press Shift+F5
C) Press Ctrl+F6     
D) 程序出错
正确答案:  B

(23) 执行下列程序后，鼠标单击窗体，输出结果为  。
Private Sub Form_Click()
   Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
         As Integer, X As Single, Y As Single)
     Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
         As Integer, X As Single, Y As Single)
     Print " Up"
End Sub
A) DownUpClick     
B) ClickDownUp
C) DownClickUp     
D) UpDownClick
正确答案:  A

(24) 以下事件过程可以将打开的对话框的标题改为"新时代"的是
A) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowOpen
   End Sub 
B) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowFont
  End Sub
C) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.Show
   End Sub
D) Private Sub Command2_Click()
       CommonDialog1.DialogTitle="新时代"
       CommonDialog1.ShowColor
  End Sub
正确答案:  A

(25) 如果要设计一个多窗体程序时，要设计一个封面窗体(名称(Name) 为FormCover，标题(Caption 为"多媒体演示") ，其内部的各控件及其属性见下表。
控件 名称(Name) 标题(Caption) 
图片框 Pic1  
命令按钮1 Command1 "演示" 
命令按钮2 Command2 "结束" 
则设计出的窗体可能是
A)     B) 
C)     D) 
正确答案:  A

(26) 下列语句中，不能实现循环100次的是
A) N=0
  Do
     N=N+1
  Loop Until N>=100
B) N=0
  Do
     N=N+1
  Loop While n<100
C) N=0
  N=N+1
  Do
  Loop Until N<100
D) N=0
  Do While n<100
     N=N+1
  Loop
正确答案:  C

(27) 单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
   Dim m As Integer, I As Integer, x(10) As Integer
   For I=0 To 4: x(I) =I + 1: Next I
   For I=1 To 2: Call Prioc(x) : Next I
   For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
   Static I As Integer
   Do
      a(I) =a(I) + a(I + 1)
      I=I + 1
      Loop While I < 2
End Sub
A) 3 4 7 5      
B) 3 5 7 4
C) 1 2 3 4      
D) 1 2 3 5
正确答案:  B

(28) 下面程序段的运行结果是
a=1
b=1
Do
    a=a + 1
    b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7  b＝14     
B) k＝6  b＝6
C) k＝4  b＝8     
D) k＝6  b＝12
正确答案:  D