一 、选择题
(1) 下列数据结构中，按先进后出原则组织数据的是
A．线性链表 
B．栈
C．循环链表 
D．顺序表
正确答案: B

(2) 具有3个结点的二叉树有
A．2种形态
B．4种形态 
C．7种形态 
D．5种形态
正确答案: D

(3) 设有下列二叉树：

对此二叉树前序遍历的结果为
A．ZBTYCPXA
B．ATBZXCYP
C．ZBTACYXP
D．ATBZXCPY
正确答案: B

(4) 结构化程序设计主要强调的是
A．程序的规模 
B．程序的效率
C．程序设计语言的先进性 
D．程序易读性
正确答案: D

(5) 程序的3种基本控制结构是
A．过程、子过程和分程序 
B．顺序、选择和重复
C．递归、堆栈和队列
D．调用、返回和转移
正确答案: B

(6) 下列叙述中，不属于测试的特征的是
A．测试的挑剔性 
B．完全测试的不可能性
C．测试的可靠性 
D．测试的经济性
正确答案: C

(7) 需求分析中开发人员要从用户那里了解
A．软件做什么 
B．用户使用界面
C．输入的信息 
D．软件的规模
正确答案: A

(8) 下列关系模型中，能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
A．选择
B．连接
C．投影
D．并
正确答案: B

(9) 下列叙述中，正确的是
A．用E-R图能够表示实体集间一对一的联系、一对多的联系和多对多的联系
B．用E-R图只能表示实体集之间一对一的联系
C．用E-R图只能表示实体集之间一对多的联系
D．用E-R图表示的概念数据模型只能转换为关系数据模型
正确答案: C

(10) "年龄在18-25之间"这种约束是属于数据库当中的
A．原子性措施 
B．一致性措施
C．完整性措施
D．安全性措施
正确答案: C

(21) 下列程序段的执行结果为
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
A．**0** 
B．**1**
C．**2** 
D．0
正确答案: B

(22) 下列程序段的执行结果为
m=2
n=3
Do
m=m + n
n=n + 1
Loop While m < 10
Print m; n
A．1 5 
B．14 6
C．a b 
D．10 25
正确答案: B

(23) 有如下的程序段，该程序段执行完后，共执行的循环次数是
total=0
Counter=1
Do
Print Counter
total=total * Counter+1
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10
A．4 
B．10
C．15 
D．20
正确答案: A

(24) 下列程序的运行结果为
Dim a(-1 To 6)
For i=LBound(a, 1) To UBound(a, 1)
a(i) =i
Next i
Print a(LBound(a, 1) ) ; a(UBound(a, 1) )
A．0 0 
B．-5 0
C．-1 6 
D．0 6
正确答案: C

(25) 下面的数组声明中，正确的是
A．Dim pict［3,4］ As Integer 
B．Dim pict(3,4) As Integer
C．Dim pict［3.4］ As Integer 
D．Dim pict(3:4) As Integer.
正确答案: B

(26) 下面的过程定义语句中不合法的是
A．Sub Para(ByVal n() ) 
B．Sub Para(n) As Integer
C．Function Para(ByVal n) 
D．Function Para(proc1)
正确答案: B

(27) 单击命令按钮时，下列的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=86: y=29
Call Proc(x, y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A．12 32 
B．6 29
C．2 3 
D．12 3
正确答案: B

(28) 下列程序的执行结果为
Private Sub Command1_Click()
Dim FirStr As String
FirStr= "abcdef"
Print Pct (FirStr)
End Sub
Private Function Pct(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr= ""
strLen=Len(xStr)
i=1
Do While i <=Len(xStr) - 3
tempStr=tempStr + Mid(xStr, i, 1) + Mid(xStr, strLen - i + 1, 1)
i=i + 1
Loop
Pct=tempStr
End Function
A．abcdef 
B．afbecd
C．fedcba 
D．defabc
正确答案: B

(29) 单击命令按钮时，下列程序代码的运行结果为
Private Sub Command1_Click()
Print MyFunc(20, 18)
End Sub
Public Function MyFunc(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
MyFunc=m
End Function
A．0 
B．2
C．4 
D．6
正确答案: B

(30) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=2: b=4
Call CS (a, B．
End Sub
Sub CS (x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
程序运行后，单击命令按钮，a和b的值分别为
A．0 0 
B．1 1
C．0 2 
D．1 2
正确答案: C

(31) 下面有一段程序代码，如果从键盘上输入"Computer"，则在文本框内显示的内容是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >=65 And KeyAscii <=122 Then
KeyAscii=42
End If
End Sub
A．Computer 
B．什么都没有
C．******** 
D．程序出错
正确答案: C

(32) 下列有关子菜单的说法中，错误的是
A．除了Click事件之外，菜单项不可以响应其他事件
B．菜单项的索引号必须从1开始
C．每个菜单项都是一个控件，与其他控件一样也有其属性和事件
D．菜单的索引号可以不连续
正确答案: B

(33) 在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.*) |*.txt|" _
& Batch Files(*.bat) |*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是
A．All Files(*.*) 
B．Text Files(*.*)
C．Batch Files(*.bat) 
D．All Files(*.*) |Text Files(*.*)
正确答案: A

(34) 在Visual Basic中，要将一个窗体从内存中释放，应使用的语句是
A．Hide 
B．Unload
C．Load 
D．Show
正确答案: B

(35) 在Visual Basic中按文件的编码方式不同，可将文件分为
A．顺序文件和随机文件 
B．文本文件和数据文件
C．ASCII文件和二进制文件 
D．数据文件和可执行文件
正确答案: C

 (2) 当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 【2】 。
正确答案:  1.(上溢)

(3) 【3】 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
正确答案:  1.(封装)

(4) 为了便于对照检查，测试用例应由输入数据和预期的 【4】 两部分组成。
正确答案:  1.(输出结果)

(5) 【5】 是从二维表列的方向进行的运算。
正确答案:  1.(关系运算)

(6) 在Visual Basic的立即窗口内输入以下语句
X＝97
?Chr$(X)
在窗口中显示的结果是 【6】 。
正确答案:  1.(a)

(7) 如果要将形状控件的内部设置为水平线，应将FillStyle属性设置为 【7】 。
正确答案:  1.(2)

(8) 在窗体上画两个文本框，其名称分别为Name1和PassWord1，然后编写如下事件过程
Private Sub Form_Load()
   Show
   Name1.Text=""
   Password1.Text=""
   Password1.SetFocus
End Sub
Private Sub Password1_KeyDown(KeyCode As Integer, Shift As Integer)
   Name1.Text=Name1.Text + Chr(KeyCode - 3)
End Sub
程序运行后，如果在Password1中输入"hit"，则在Name1文本框中显示的内容是 【8】 。
正确答案:  1.(EFQ)

(9) 在一个窗体上有两个命令按钮，cmdMax和cmdMin。单击cmdMax时，窗体上显示"字体由小变大"，字号每次增加2；单击cmdMin时，窗体上显示"字体由大变小"，字号每次减小2。请填空。
Private Sub Form_Load()
   Form1.Caption="字体变化示范"
   cmdMax.Caption="字体变大"
   cmdMin.Caption="字体变小"
End Sub
Private Sub cmdMax_Click()
     【9】
   Form1.Print "字体由小变大"
End Sub
Private Sub cmdMin_Click()
     【10】
   Form1.Print "字体由大变小"
End Sub
正确答案:  1.(Form1.FontSize = Form1.FontSize + 2) 2.(Form1.FontSize)

(10) 下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click()
   Dim i As Integer
   Open 【11】 As #1
   For i=1 To 10
        【12】
   Next i
   Close #1
End Sub

正确答案:  1.("Base.txt" For Output) 2.(Print #1, i)

(11) 下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1，则打印"您的成绩为优秀！"；若Text为2，则打印"您的成绩为良好！"
若Text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。
Private Sub Command1_Click()
   Select Case Val(Text1.Text)
      Case 【13】
         Print "您的成绩为优秀！"
      Case 【14】
         Print "您的成绩为良好！"
      Case 【15】
         Print "您的成绩为一般"
      Case Else
         Print "您的成绩一般以下！"
   End Select
End Sub
正确答案:  1.(1) 2.(2) 3.(3)