5. 编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按t键，则程序输出的结果是______。
7. 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod2=0 Then f=m Else f=l End lf End Function Private Sub Command1_Click( ) Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print 8 End Sub 程序运行后，单击命令按钮，在窗体上显示的是
10. 下列程序执行后，变量X的值为______。 Dim fl.b,c,d As Single Dim X As Single fl=10 b=30 c=400 If b＞fl Then d=fl: fi=b: b=d End If If b＞c Then X=b Else If fl＞c Then X=c Else X=a End If
18. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3:n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
21. 窗体上有单选钮和列表框控件。单击名称为Option1、标题为“国家”的单选钮，向列表框中添加国家名称，如下图所示。 Option1的单击事件过程如下： Private Sub Option1_Click() Dim arr arr=Array("中国"，"日本"，"德国"，"美国"，"澳大利亚”) List1.Clear For i=0 To Ubound(arr) List1.AddItem arr(i) Next End Sub 以下关于上述代码的叙述中，正确的是______。
22. 窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer m=InputBox("输入第一个数") n=InputBox("输入第二个数") Do While m＜＞n Do While m＞n m=m-n Loop Do While n＞m n=n-m Loop Loop Print m End Sub 该程序的功能是______。
23. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record ID AS Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize, NextChar, MyChar Open "d: \temp\female. txt" For Input As #1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 MyChar=Input(1, #1) Next NextChar Print EOF(1) Close #1 End Sub 运行程序，单击命令按钮，其输出结果为______。
31. 窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x="VisualBasicProgramming" a=Right(x, 11) b=Mid(x, 7, 5) c=MsgBox(a,, b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是______。
32. 在窗体上画一个名称为CD1的通用对话框，并有以下程序： Private Sub Form-load() CD1. DefaultExt=".doc" CD1. fileName="c:\file1. txt" CD1. filter="应用程序(*.exe)|*.exe End Sub 程序运行时，如果显示了“打开”对话框，在文件夹类型中下拉列表中的默认文件类型为______。
34. 设在工程中有一个标准模块，并定义了如下类型： Type Stutype ino As Integer stmame As String*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click时，在C盘根目录下的随机文件Student.dat中写入一条记录。下列能够完成该操作的是______。
A.Sub Command1_Click() Dim student As Studtype Dim record_no As Integer record_no=1 With student .ino=12:.strname="smith": .strsex="男":.smark=89 End With Open"c:\Student.dat"For Input As#1 Len =Len(Student) Put#1,record_no,Student Close#1 End Sub
B.Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student .ino=12:.stmame="smith" .strsex="男":.smark=89 End With Open"c:\student.dat"For Random As#1 Len=Len(Student) Put#1,Record_no,Student Close#1 End Sub
C.Private Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student .ino=12:.strname="smith" .strsex="男":.smark=89 End With Open"c:\student.dat"For Random As 1 Len=Len(Student) Write#1,Record_no,Student Close#1 End Sub
D.Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student .ino=12:.strname="smith" .strsex="男":.smark=89 End With Open"c:\student.dat"For Output As#1 Len=Len(Student) Put#1,Record_no,Student Close#1 End Sub
A B C D
B
[解析] 本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件，打开文件的方法格式为：Open FileName For Random As#文件号[Len=记录长度]，然后以Put方法写入一条记录，方法的格式为：Put[#]文件号，[记录号]，变量名。
35. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, x As Integer For i=1 To 6 If i=1 Then x=i If i=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为______。
设有如下的类型声明： Private Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则以下能够正确地把数据写入文件的程序段是
A.Open"c:\Test.dat"For Random As#1 Put#1,1,P Close#1
B.Open"c:\Test.dat"For Random As#1 Get#1,1,p Close#1
C.Open"c:\Test.dat"For Random As#l Len=Len(p) Put#1,1,p Close#1
D.Open"c:\Test.dat"For Random As#1 Len=Len(p) Get#1,1,p Close#1
A B C D
C
37. 某系统总体结构图如下图所示：
该系统总结构图的深度是______。
A.7
B.6
C.3
D.2
A B C D
C
[解析] 树的最大层次称为树的深度。图中的系统总体结构为树型，有3层，故深度为3。
38. 下列操作说明中，错误的是______。
A.在具有焦点的对象上进行一次按下字母键操作，会引发KeyPress事件
B.可以通过MousePointer属性设置鼠标光标的形状
C.不可以在属性窗口设置MousePointer属性
D.可以在程序代码中设置MousePointer属性
A B C D
C
39. 当用______方式打开文件时，如果对文件进行写操作，则写入的数据附加到原文件的后面。
A.Output
B.Append
C.Input
D.Random
A B C D
B
[解析] 本题考查文件的打开方式。以追加的方式打开文件时，每次写入的记录存放在文件的末尾。
40. 在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Move 500,500 End Sub 程序执行时，单击命令按钮，实现的功能是______。
深色：已答题 浅色：未答题