第二部分 Visual Basic 程序设计
（2001 年 秋季）
一、选择题（用答题卡答题，答案依次填在21-30答题号内）
21. 窗口上有多个控件，在 Form_Activate() 事件过程添加___21___语句，就可确保每次运行程序时，都将光标定位在文本框Text上。
A. Text1.Text=\ C. Form1.SetFocus
B. Text1.SetFocus D. Text1.Visible=True
22. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔形、字符串型和日期型，下列赋值语句在执行时会出错的是___22___。
A.Inta=4.6
B.Bl=#True#
C.St=5&123.5
D.D=#10/05/01#
23.代数表达式
对应的Visual Basic表达式是__23___。
A. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos((x+y)/2) B. Sqr(x+log(x))/(a+b)+exp(-2*t)+cos((x+y)/2) C. Sqr((x+ln(x))/(a+b))+exp(-2t)+cos((x+y)/2) D. Sqr((x+log(x))/(a+b))+exp(-2*t)+cos(x+y/2)
24. 以下有关变量作用域的说法中 ，正确的是___24___。
A. 只有在标准模块中用Public语句说明的变量才是全局变量 B. 在过程中不能使用Public语句说明全局变量
C. 在标准模块的通用声明处可用Private语句说明模块级变量 D.在窗体的通用声明处可用Private语句说明窗体级变量
25. 语句Print \输出的结果是___25___。
A. \
B. 出现错误信息
C. 5*20
D. 100
26. 下列不正确的变量名是___26___。
A. Form
B. Command
C. Text
D. Arry@
27. 若磁盘文件C:\\Data1.dat不存在，下列打开文件语句中，会产生错误的是___27___。
A. Open \ B. Open \ C. Open \ D. Open \
28. 改变目录列表框(DirListBox)控件的Path属性的途径可以有___28___。
①单击目录列表框某一项
②程序代码中改变目录列表框的Path属性值 ③双击目录列表框某一项
④ 在程序中用ChDir命令设置当前工作目录
A. ①②
B. ②③
C. ②③④
D. ①②③④
29. 以下有关数组的说明中，错误的是___29___。
A. 根据数组说明的方式，可将数组分为动态数组和静态数组 B. 在过程中，不能用Private语句定义数组
C. 利用ReDim语句重新定维时，不得改变已经定义说明过的数组的数据类型 D. 数组重新定维后，原有的数组元素内容将不予保留
30. 窗体的Name属性为Frm1,在窗体模块通用声明处和过程Sub1中分别用Public K As Integer, Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用___30___。
A. Frm1.K
B. Form.K
C. Form1.K
D. K
31. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是___31___。
A. Private Sub sort(A() As Integer) B. Private Sub sort(A(10) As Integer) C. Private Sub sort(ByVal A() As Integer) D. Private Sub sort(A(,) As Integer)
32. 可以在___32___中，使用语句Public PubStr As String*20定义一个定长字符串。
A. 窗体模块
B. 标准模块
C. 类模块
D. 三者均可
33. 以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是___33___。
A. 在缺省情况下，设计时的第一个窗体被指定为启动窗体 B. 通过人为设置，可指定任一窗体为启动窗体
C. 通过人为设置，可指定标准模块中的Main()过程为启动过程 D. 通过人为设置，可指定窗体模块中的Main()过程为启动过程
34. 在过程中由语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中___34___会影响循环执行的次数。
①N1=N1+I
②N2=N2+N3
③ I=I+N3 A. ①②
B.①②③
④N3=2*N3 C. ③
D. ①②③④
35. 在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码：
Private Sub Form_Click()
Dim K As Integer
Dim entry As String, item As String entry=\
For k=Len(entry) To 1 Step -1
item=LCase(Mid(entry,k,1))&k List1.AddItem item Next k
End Sub
运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是___35___。 A. b4
B. b2
C. d4
D. d2