53．现有语句： y = IIf(x > 0 , x \\ 5, 0) 设x = 10，则y的值是 。
A．10 B．2 C．0 D．语句有错
54．阅读以下程序，运行该程序，单击窗体，则在窗体上显示 。
Private Sub Form_Click()
Dim i As Integer For i = 1 To 5 i = i + 1 Next i Print i End Sub
A.5 B.6 C.7 D.8
55．执行下面的程序，当单击窗体时，窗体上显示的是_________。
Private Sub Form_Click() Dim I As Integer, s As Integer For I = 5 To 32 Step 9 s = s + I Next I s = s + I Print s, I End Sub
A. 74 32 B. 74 41 C. 115 41 D. 115 32
56．下面的循环语句中，不可以采用 来求1到100的和。
A．Sum = 0 B．Sum = 0
For I = 1 To 100 For I = 100 To 1 Step -1 Sum = Sum + I Sum = Sum + I
Next I Next I C．I = 1 D．I = 1
Do Do Until I > 100 Sum = Sum + I I = I + 1
I = I + 1 Sum = Sum + I Loop While I <= 100 Loop
57．以下关于数组的说法中，错误的是__________。
A. 可用Public语句在窗体模块的通用说明处定义一个全局数组。 B. 对数组的输入输出处理常常和循环结合在一起使用。 C. 控件数组可以在设计时创建,也可以在运行时创建。
D．在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。
58．对动态数组A()，若原数组为A(5)，要改变其维界为A(10)，同时还要保留原数组的数据不丢失，应使用 语句进行重新定义。
A. Dim A(10) B. ReDim Preserve A(5 To 10) C. ReDim Preserve A(10) D. ReDim A(10) 59．下面关于Array函数的说法错误的是 。
A．Array函数可以给定义为变体类型的动态数组赋值 B．Array函数可以给任意维的数组赋值
6
C．Array函数可以给定义为变体类型的变量赋值 D．Array函数只能给一维数组赋值
60．下面定义数组的语句中错误的是 。
A．Dim a(x-10) B．Dim f(3,1 To 4)
C．Dim m( ) As Single D．Static b(0 To 5) As Long
61．下列有关控件数组的说法中，错误的是 。
A. 控件数组可以在设计时创建，也可以在运行时创建 B. 命令按钮可以和标签组成控件数组
C. 控件数组通过索引号来指定某个控件元素
D. 控件数组具有相同的名称，共享同样的事件过程
62．假定一个VB应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 。
A．只保存窗体模块文件
B．分别保存窗体模块、标准模块和工程文件 C．只保存窗体模块和标准模块文件 D．只保存工程文件 63．以下叙述中错误的是 。
A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B．当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 C．VB应用程序只能以解释方式执行
D．VB中有的事件可以由用户引发，有的事件也可以由系统引发
64．如果一个工程含有多个窗体及标准模块，则以下叙述中正确的是__________ 。
A．如果工程中含有Sub Main过程，则程序一定首先执行该过程 B．可以把标准模块设置为启动模块
C．用Hide方法只是隐藏一个窗体，并没有从内存中卸载该窗体 D．要用Show方法来显示一个窗体时，该窗体必须已在内存中 65．编写一个对Single类型一维数组a排序的Sub过程，该过程只能被本模块中其他过程所调用，其首句为 。
A. Sub f(a() As Single, n As Integer) B. Private Sub f(a() As Single)
C. Private Sub f(a As Single, n As Integer) D. Public Sub f(a() As Single)
66．若某过程声明为Sub g(n as Integer)，调用程序中的变量m为Integer型，则调用时实参与形参是按地址传递的为 。
A. Call g(5) B. Call g(m+1) C. Call g(m) D. Call g(( m ))
67．有如下事件过程：
Private Sub Command1_Click() Static n As Integer
Dim m As Integer
Cls
For m = 1 to 3
n = m + n Next m
7
Print m, n
End Sub
程序运行时，两次单击Command1命令按钮后，窗体上的显示结果为_____ _。
A. 3 6 B. 3 12 C. 4 6 D. 4 12
68．在窗体Form1中用\定义过程F，在窗体Form2中定义了变量i为
Integer型，则若要在窗体Form2的某事件过程中调用窗体Form1中的过程F，下列语句中错误的是___________。
A. Call Form1.F(i) B. Call Form1.F((i)) C. Form1.F (i) D. Form1.F i+1
69．若要定义一个变量，希望能够在该窗体的所有事件过程中都能够访问，可以将其定义为_____________。
①静态变量 ②局部变量 ③窗体/模块级变量 ④全局变量 A. ①②③ B. ②③④ C. ③④ D. ①④
70．在窗体上有一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl_Click() Static n As Integer Dim m As Integer Cls m = 2 m = m + 5 n = m + n Print m, n End Sub
程序运行时，三次单击Commandl命令按钮后，窗体上的显示结果为______。 A. 7 21 B. 21 7 C. 7 14 D. 7 7
71．在窗体（Name属性为Form1）上画两个文本框（Name属性分别为T1和T2）和一个命令按钮（Name属性为C1）。单击命令按钮C1后在窗体上输出的结果为 。
Private Sub C1_Click() s = T1.Text + T2.Text Print s End Sub
Private Sub Form_Load() T1.Text = 234 T2.Text = 432 End Sub
A．666 B．234432 C．432234 D．出错
72．现有一自定义的Sub子过程Private Sub Sort(A() As Integer)，主调过程中对数组的定义语句为Dim m(10) As Integer，下列选项中不能正确调用该子过程的语句是 。
A．Sort m B．Call Sort(m) C．Call Sort(m(10)) D．Sort m()
73．以下关于变量的作用域的说法中正确的是 。
Private X As Integer
Private Sub Form_Load()
8
Dim X As Integer Show X=2 Print X End Sub
A．窗体的“通用声明”处声明的X的值2 B．两个变量的值都是2 C．Load事件过程中声明的X的值2 D．两个变量的值都不是2 74．下列控件中，具有Caption属性的控件是 。
A．滚动条 B．列表框 C．计时器 D．框架
75．将字符串\添加到列表框的最后，可使用_________语句。
A. List1.AddItem \ B. List1.AddItem \ C. List1.AddItem \ D. List1.AddItem \
76．关于列表框的Text属性，下列 所描述的含义与List1.Text等价。
A．List1.List B．List1.ListIndex C．List1.List(List1.ListIndex) D．List1.List(ListIndex) 77．输出列表框（List1）最后一个数据项可以使用 。
A．Print List1.List(List1.ListCount) B．Print List1.List(List1.ListCount - 1) C．Print List1.List(ListCount) D．Print List1.List(ListCount - 1)
78．要将一个组合框设置为简单组合框，则应将其Style属性设置为__________。
A．0 B．1 C．2 D．3 79．下列关于改变滚动条Value属性值的方法，错误的是 。
A．单击滚动条两端的三角钮可以改变其Value属性值； B．可以通过赋值语句来改变滚动条的Value属性值；
C．单击滚动条滑块两端的空白处可以改变其Value属性值； D．单击滚动条上的滑块可以改变其Value属性值。 80．滚动条控件的LargeChange属性所设置的是___________。
A. 单击滚动条上空白区域时，滚动条控件Value属性值的改变量 B. 单击滚动条两端的箭头时，滚动条控件Value属性值的改变量
C. 单击滚动条上空白区域时，滚动条上滑块将移动到Value属性的最大值位置 D. 单击滚动条两端的箭头时，滚动条上滑块的最大移动范围 81．下列操作中，不能触发滚动条的Change事件的操作是 。
A．单击滚动条两端的箭头 B．单击滚动条空白区域
C．通过程序对滚动条的value属性赋值 D．单击滚动条上的滑块 82．在VB中，下列关于控件的属性或方法中，搭配错误的有 个。
(1)Command1.Value (2)List1.Cls (3)Label1.Print (4)Timer1.Visible (5)VScroll1.Value (6)Picture1.Print (7)Option1.Value (8)Text1.Value
A．3 B．4 C．5 D．6
9
83．在VB中，下列关于控件的属性或方法中，搭配错误的有 个。
(1) Picture1.Print (2)Timer1.Height (3)Text1.Print (4)List1.RemoveItem (5)Vscroll1.Value (6) Command1.Value
A．1 B．2 C．3 D．4
84．下列选项中，可以列出计算机中的所有驱动器的控件是 。
A．驱动器列表框 B．目录列表框 C．文件列表框 D．列表框
85．在窗体上创建驱动器列表框Drive1和目录列表框Dir1，如果希望改变Drive1中的驱动器时，Dir1中显示的目录也随之变化，则在Drive1的Change事件中的代码正确的是 。
A．Dir1.Path = Drive1.Path B．Drive1.Drive = Dir1.Path C．Dir1.Path = Drive1.Drive D．Drive1.Path = Dir1.Path 86．下列有关打开顺序文件的说法错误的是 。
A．For模式中的Output选项可用来在磁盘上创建一个新的顺序文件。 B．Input选项用来从文件中读取。若该文件不存在，则创建一个文件。
C．Append选项可用来打开一个新的顺序文件，文件打开后文件指针位于文件的末尾。 D．可以使用不同的文件号以Input方式打开同一顺序文件。 87. 以下有关文件的说法中正确的是 。
A．打开文件命令中，所指定的文件号最大可取512
B．在Input方式下，不能使用不同文件号同时打开同一个文件
C．若以Output或Append方式打开一个不存在的顺序文件，系统会出错 D．若以Input方式打开一个不存在的顺序文件，系统会出错 88．关于顺序文件的描述，下列说法中正确的是 。
A．可以用两个不同的文件号同时打开一个顺序文件来进行读操作或写操作；
B．使用Output模式打开一个顺序文件进行写操作时，如果文件已经存在，则用新的数据来取代原文件中的数据；
C．如果打开了一个顺序文件进行读操作，那么读操作结束后必须要用Close语句来关闭已打开的文件；
D．用Append模式打开一个文件进行写操作，如果文件不存在，则无法对该文件进行写数据，如果文件已经存在，则从末尾开始写数据。
二、分析程序，写结果
1. 运行下面的程序，当单击窗体时，窗体上显示的内容第一行是__(1)__，第二行是
___(2)___。
Private Sub Form_Click()
Dim x As Integer, y As Integer Do
x = x + 2 y = y + x * x If x > 4 Then Exit Do End If Loop Print x Print y
10