A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的目录结构
C．显示根目录下的文件名
D．显示该路径下的文件
32．以下叙述中错误的是( )。
A．在KeyPress事件过程中不能识别键盘的按下与释放
B．在KeyPress事件过程中不能识别回车键
C．在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母
D．在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符
33．以下关于文件的叙述中，错误的是( )。
A．顺序文件中的记录一个接一个地顺序存放
B．随机文件中记录长度是随机的
C．执行打开文件的命令后，自动生成一个文件指针
D．LOF函数返回给文件分配的字节数
34．窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有
2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。
Private Sub Command1_Click()
Dim str As String，S As String．k As Integer
s=Text1
str =""
For k=Listl．ListCount-1 To 0 Step-1
If InStr(List1．List(k)，s)>0 Then
str=str ＆ List1．List(k)＆""
End If
Next k
If str=""Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是( )。
A．京
B．北京南京
C．南京北京
D．没有匹配的项目
35．以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是( )。
A．KeyAscii参数是所按键的ASCII码
B．KeyAscii参数的数据类型为字符串
C．KeyAscli参数可以省略
D．KeyAscii参数是所按键上标注的字符
36．在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp Mid(st，k，1) Mid(st，stlen-k 1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是( )。
A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED
37．在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉
图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是( )。
A．Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)
banana．Move Picture1．Left X，Picture1．Top Y
End Sub
B．Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left X，Picture 1．Top Y
End Sub
C．Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left X，Picture1．Top Y
End Sub
D．Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)
banana．Move banana．Left X，banana．Top Y
End Sub
38．在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click()
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A．15
B．13
C．11
D．9
39．在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是( )。
A． Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii==13 Then
’回车符的ASCIl码是13
a=Val(Text1)
If a>=0 Or a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
B． Private Sub Textl—KeyPress(KeyAscii As Integer)
If KeyAseii=13 Then
’回车符的ASCIl码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Textl．SetFocus
Else
Text2．SetFocus：MsgBox("分数错")
End If
End If
End Sub
C．Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
’回车符的ASCII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
D．Private Sub Text1_KeyPress(KeyAscii As Integer)
If KevAscii=13 Then
’回车符的ASCII码是13
a=Val(Textl)
If a>=0 Aad a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
40．在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。
Const n=5．m=4
Dim a(m，n)
Private Sub Command1 Click()
k=1
For i=1 To m
For j=1 To n
a(i，j)=k
k=k 1
Next j
Next i
End Sub
Private Sub Command2 Click()
summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ a(i，j)
Else
If j=1 Or j=n Then
summ=summ a(i，j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click()的作用是( )。
A．计算矩阵外围一圈元素的累加和
B．计算矩阵除外围一圈以外的所有元素的累加和
C．计算矩阵第1列和最后一列元素的累加和
D．计算矩阵第1行和最后一行元素的累加和
32．B。【解析】本题要在输入口令并Enter后隐藏Form1，显示Form2。本题第2个If的意思为当口令为Teacher时，则Form2的录入框正常显示，否则不显示，至此End If结束。此时应该为Form1．Hide，Form2．Show。对应第1个If语句。如果Form1．Hide，Form2．Show语句在两个End If的后面，则没有En ter时，就隐藏了Form1，显示Form2。所以B选项正确。
33．A。【解析】本题要把Text1文本框中的内容写到#2中，应先指定文件名。所以本题答案为A。
34．B。【解析】本题定义了一个有5个元素的数组，并给数组依次赋了值，然后调用prog函数，该函数的功能是如果a(j)
