(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
二 、填空题
(1) 排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、 【1】 和选择排序等。
正确答案: 1.(交换排序)
(2) 当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为 【2】 。
正确答案: 1.(上溢)
(3) 【3】 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
正确答案: 1.(封装)
(4) 为了便于对照检查，测试用例应由输入数据和预期的 【4】 两部分组成。
正确答案: 1.(输出结果)
(5) 【5】 是从二维表列的方向进行的运算。
正确答案: 1.(关系运算)
(6) 在Visual Basic的立即窗口内输入以下语句
X＝97 <CR>
?Chr$(X) <CR>
在窗口中显示的结果是 【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)
