31、以下叙述中错误的是（ ）。
A．在KeyPress 事件过程中不能识别键盘的按下与释放
B．在KeyPress 事件过程中不能识别回车键
C．在KeyDown 和KeyUp 事件过程中，将键盘输入的"A"和"a"视作相同的字母
D．在KeyDown 和KeyUp 事件过程中，从大键盘上输出的"1"和从右侧小键盘上输入的"1"被视作不同的字符
32、单击按钮时，以下程序运行后的输出结果是（ ）。
Private Sub proc1（x As Integer ，y As Integer ，z As Integer）
x＝3＊z
y ＝2＊z
z ＝x＋y
End Sub
Private Sub Co mmand1＿Click（）
Di mx As Integer ，y As Integer ，z As Integer
x＝1：y ＝2：z ＝3
Call proc1（x，x，z）
Print x；x；z Call proc1（x，y ，y）
Print x；y ；y
End Sub
A．6 6 12
6 10 10
B．9 5 10
5 10 10
C．9 6 12
9 10 15
D．9 10 10
5 4 10
33、在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Co mmand1的命令按钮，运行后的窗体外观如图所示：
设有如下的类型和变量声明：
Private Type Person
name As STRING＊8
major As Stri ng＊20
End Type
Di mp As Person
设文本框中的数据已正确地赋值给Person 类型的变量p ，当点击"保存"按钮时，能够正确地把变量中的数据写入随机文件Test2．dat 中的程序段是（ ）。
A．Open ＂c ：＼Test2．dat＂For Output As ＃1
Put ＃1，1，p
Close ＃1
B．Open ＂c ：＼Test2．dat＂For Rando m As ＃1
Get ＃1，1，p
Close ＃1
C．Open ＂c ：＼Test2．dat＂For Rando m As ＃1Len ＝Len
（p）Put ＃1，1，p
Close ＃1
D．Open ＂c ：＼Test2．dat＂For Rando m As ＃1Len ＝Len
（p）Get ＃1，1，p
Close ＃1
34、设在工程文件中有一个标准模块，其中定义了下列记录类型：
Type Books
Name As Stri ng＊10
TelNum As Stri ng＊20
End Type
在窗体上画一个名为Co mmand1的命令按钮，要求当执行事件过程Co mmand1Click 时，在顺序文件Person ．txt中写入一条Books 类型的记录。下列能够完成该操作的事件过程是（ ）。
A．Private Sub Co mmand1＿Click（）
Di m BASBooks
Open ＂Person txt＂For Output As ＃1
B .Name ＝InputBox （＂输入姓名＂）
B .TelNum＝lnputBox （＂输入电话号码＂）
Write ＃1BName ，BTelNum
Close ＃1
End Sub
B．Private Sub Co mmand1＿Click（）
Di m BAs Books
Open ＂Person txt＂For Input As ＃1
B .Name ＝InputBox（＂输入姓名＂）
B .TelNum＝InputBox（＂输入电话号码＂）
Print ＃1，B．Name ，B．TelNam
Close ＃1
End Sub
C．Private Sub Co mmand1＿Click（）
Di m BASBooks
Open ＂Person txt＂For Output As ＃1
B .Name ＝InputBox（＂输入姓名＂）
B .TelNum＝InputBox（＂输入电话号码＂）
Write ＃1，B
Close ＃1
End Sub
D．Private Sub Co mmand1＿Click（）
Open ＂Person txt＂For Input As ＃1
Name ＝lnputBox（＂输入姓名＂）
TelNum＝lnputBox（＂输入电话号码＂）
Pri m＃1Name TelNum
Close ＃1
End Sub
35、在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Co mmand1，然后编写如下事件过程：
Private Sub Form＿Load（）
List1．AddIte m＂Ite m1＂
List1．AddIte m＂Ite m2＂
List1．AddIte m＂Ite m3＂
End Sub
Private Sub Co mmand1＿Click（）
List1．List（List1．ListCount）＝＂AAAA＂
End Sub
程序运行后，单击命令按钮，其结果为（ ）。
A．把字符串＂AAAA＂添加到列表框中，但位置不能确定
B．把字符串＂AAAA＂添加到列表框的最后（即＂Ite m3＂的后面）
C．把列表框中原有的最后一项改为＂AAAA＂
D．把字符串＂AAAA＂插入到列表框的最前面（即＂Ite m1＂的前面）
36、有如下函数：
Function fun（a As Integer ，n As Integer）As Integer
Di m m As Integer
While a ＞＝n
a＝a－n
m＝m＋1
Wend
fun ＝m
End Function
该函数的返回值是（ ）。
A．a 乘以n 的乘积
B．a 加n 的和
C．a 减n 的差
D．a 除以n 的商（不含小数部分）
37、为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（ ）。
A．Visi ble
B．Ti mer
C．Enabled
D．Interval
38、下列叙述中，不属于软件需求规格说明书的作用的是（ ）。
A．便于用户、开发人员进行理解和交流
B．反映出用户问题的结构，可以作为软件开发工作的基础和依据
C．作为确认测试和验收的依据
D．便于开发人员进行需求分析
39、在窗体上画一个名称为File 的文件列表框，并编写如下程序：
Private Sub File1＿DblClick（）
x＝Shell（File1．File Name ，1）
End Sub
以下关于该程序的叙述中，错误的是（ ）。
A．x 没有实际作用，因此可以将该语句写为：Call Shell（File ．File Name ，1）
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1．File Name 指定
D．File1中显示的是当前驱动器、当前目录下的文件
40、设A＝＂87654321＂，则表达式Val（Left（A，4）＋Mid（A，4，2））的值为（ ）。
A．876543
B．876554
C．8
D．6
