& IIf（a>0 And a<=10,“龙门石窟”，“”）_ -& IIf（a>10 nd a<=20,“少林寺”，““）_ -& IIf（a>20 And=30，“绿博园”，“”） Text1.Text = t End sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是（ ） A旅游景点：龙门石窟 B.旅游景点：龙门石窟绿博园 C.旅游景点：绿博园 D.旅游景点：少林寺
66．设a=6，则执行x=Lif（a>5，-1，0）后X的值为（ ） A.5 B.6 C.0 D.-1
67.关于多行结构条件语句的执行过程，正确的说法是（ ） A.各个条件所对应的语句块中，一定有一个语句块被执行
B.找到条件为true的第一个入口，便从此开始执行其后的所有语句块 C若有多个条件为true，则它们对应的语句块都不被执行
D.多行选择结构中的语句块，有可能任何一个语句块都不被执行 68.在Visusl Basic中，下列控制结构不能够嵌套的是（ ） A.选择控制结构 B.多分支控制结构 C.for循环控制结构 D.Do循环控制结构
69.窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private sub commandl_click（） Dim a
a=Array（1，2，3，4，5，6，7） For K =2 To 5 S =s+a（k） Next Print s End sub
运行程序后，单击命令按钮，输出结果是（ ） A.10 B.14 C.18 D.120 70.下列程序段的执行结果为（ ） Privte sub form_load（） Dim a（3，3） For M =1 To 3 - For N=To 3
- If N =M OR N=3-M+1 then - a（M,N）=0 - Else
- A（M,N）=1 - End If - Next N - Next M
- For M=1To3 - For N=To 3
- Print a（M,N）,
- Next N - End sub
A.1 0 0 B.1 1 1 0 1 0 1 1 1 0 0 1 1 1 1 C. 0 0 0 D.0 1 0 0 0 0 1 0 1 0 0 0 0 1 0
71.下列关于For…Next语句的说法正确的是（ ） A.循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值
72.设计了如下程序，用于计算机并输出7！（阶乘）： Private sub commandl_click（） t =0
for k =7 to 2 step -1 t = t * k next print t End sub
执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是（ ） A. 把t=0改为t=1
B. 把for k=7 to 2 step-1 改为for k7 to 1 step 1 C. 把for k=7 to 2 step-1 改为for k =1 to 7 D. 把next改为next k
73.在窗体上画两个文本框text1和text2，一个命令按钮comml，请阅读以下程序段： Private sub commandl_click（） X=0
Do until x>=30
X=（x+2）*（x+4） N=n+1 Loop
Text1.text2=str（n） Text1.text2=str（x） End sub
运行程序后，单击命令按钮，在两个文本框中显示的值分别为（ ） A．1和0 B.2和240 C.2和120 D.4和168 74.使用ReDim Preserve语句，可以（ ）
A.改变数组最后一维的大小 B.改变数组第一维的大小
C.改变数组所有维的大小 D.改变数组维数和所有维的大小 75.语句Dim Arr（-3 to 5） As Integer定义的数组的元素个数是（ ） A.6 B.7 C.8 D.9
76.语句Dim Arr（3 to5，-2 to 2）定义的数组的元素个数是（ ）
A.20 B.12 C.15 D.24
77.没有数组定义语句：Dim a（5）As Integer，并设Listl为列表框控件。下列给数组元素赋值的语句错误的是（ ）
A.a（4）=3 B.a（4）=inputbox（“输入一个数”）
D.a （4）=Listl.listndex D.a=Array（1，2，3，4，5，6） ７８．下列哪个声明的数组不是动态数组（ ） A.Dim x（） B.Dim x（8）
C.ReDim x（8） D.ReDim preserve x（8）
79.使用数组明语句Dim Y(1 To 12)As Integer后，以下说法正确的是（ ） Ａ．Ｙ数组中的所有元素均为０ Ｂ．Ｙ数组中的所有元素值不确定
Ｃ．Ｙ数组中的所有元素均为Ｅｍｐｔｙ
Ｄ．运行Ｅｒａｓｅ Ｙ后，Ｙ数组中的所有元素均为ｅｍｐｔｙ
80.用复制、粘贴的方法建立了一个命令按钮数组commandl，以下说法错误的是（ ） A.该控件数组的所有caption属性均为commandl
B.在代码中访问其中的命令按钮时只需要使用名称comml C.该控件数组的大小相同
D.该命令按钮数组共享相同的事件过程
81.使用Array函数给某X赋值时，X必须是（ ） Ａ．已经生命的动态数组 Ｂ．Ｖａｒｉａｎｔ类型变量
Ｃ．已经声明的动态数组且该动态数组的类型为Ｖａｒｉａｎｔ Ｄ．已经声明的动态数组
８２．可以通过（ ）的方法输出一个二维数组中的各个元素 Ａ．引用数组中的两个下标 Ｂ．将数组名赋值给变量 Ｃ．通过引用数组的一个下标 Ｄ．以上都不正确
８３．假定建立一个名为ｃｏｍｍａｎｄｌ的命令按钮数组，则下列说法中错误的是（ ） Ａ．数组中每个命令按钮的名称（名称属性）均为ｃｏｍｍａｎｄｌ Ｂ．数组中的每个命令按钮的标题（ｃａｐｔｉｏｎ属性）都一样 Ｃ．数组中所有命令按钮可以使用同一个事件过程
Ｄ．用名称ｃｏｍｍａｎｄｌ（下标）可以访问数组中的每个命令按钮 ８４．在窗体上放置１个文本框，然后对其进行复制粘贴，没粘贴出现对话框时，单击“是”按钮，粘贴３次，共４个文本框，适当调整位置，在放置一个命令按钮，然后编写如下事件过程：
Option Base 1
Priv ate Sub Comman1_Click() Dim I As Integer
For I = 1 To 4
Text1(i) = Text1(i). Index Next i End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为（ ） A.0123 B.1234 C.0000 D.出错息息 85.以下（）是VB合法的数组元素表示。（ ）
A.X［10］ B.X（i+1）C.X10 D.X（１ｔｏ １０）
86.Visual Basic应用程序中，下列关于过程的说法正确的是（ ） A.过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不以嵌套，但过程的调用可以嵌套 C.过程的定义和调用都可以嵌套 D. 过程的定义和调用都比能嵌套
87.下列关于Sub过程的叙述正确的是（） A.一个Sub过程必须有一个ExitSub语句 B一个Sub过程必须有一个EndSub语句
C.在Sub过程中可以定义一个Function过程 D.可以用Goto语句退出Sub过程
88.现有如下过程：Sub aaa(x、y、z)
X=y+z End sub
下列选项中所有参数的虚实结合都是按地址传递方式调用的是（）
A Call aaa(6,9,z) B Call aaa (x,y,z) C Call aaa(3+x,5+y,z) D Call aaa(x+y,x-y,z) 89.下列过程语句的说明正确的是（）
A Sub fl (By Val x() As Integer) B Sub n(X%()) As Integer C Function fl%(fl%) D Function fl%(x As Integer ) 90.在自定义过程语句中使用的<参数>可以是下列哪种（）
A 常量或变量名 B表达式或变量名 C数组元素或变量名 D变量名或组名 91.在子过程Sub……End Sub中使用的形式参数可以是（）
A常数、简单变量、数组变量和运算式 B、简单变量、数组变量和数组元素 C常数、简单变量、数组变量 D简单变量、数组变量和运算式 92.过程共有3中，它们分别是（）
A Sub过程、函数过程和属性过程 B事件过程、函数过程和通用过程 C Sub过程、函数过程和通用过程 D事件过程、子过程和函数过程 93.SUB过程与Function过程最根本的区别是（ ）
A. SUB过程可以使用CALL语句或直接使用过程名调用，而Function过程不可以 B. Function过程可以有参数SUB过程不能有参数 C. 两种过程参数的传递方式不同
D. SUB过程的过程名不能有返回值，而Function 过程能通过过程名返回值 94.下面过程定义语句中合法的是（ ）
A.Subpi(byvalx()) B.SUB PI(X)AS SINGLE C.Function PI(PI) D.Function PI(BYVAL X) 95.在窗口模块的通用声明中声明变量时，不能使用的关键字是（ ） A.Dim B.Private C.Public D.Static 96.执行“工程”菜单中（ ）命令，可以添加一个标准模块。 A.添加过程 B.标准模块 C.添加模块 D.通用模块 97.不能脱离控件（包括窗体）而独立存在的过程是（ ）
A.事件过程 B.通用过程 C.sub过程 D.函数过程
103. 假定有下列两个过程：
private sub ppp(a As single?b As single)
a= a + b print a ?b b = a + b print a?b End Sub
Private sub form_Activate ()
X= 18
Call ppp ((x) ?(x) Print End Sub
则下列说法中不正确的是（ ）.
A. 形参是a和b，另个实参（x）和（x）允许重名 B. 形参是a和b，实参（x）表示地址调用 C. 形参是a和b，实参（x）表示是非地址调用
D. 形参是a和b，两个实参（x）和（x）不允许重名
104. 为达到把a、b中的值交换后输出的目的，编程如下： private sub command1_click() a% = 20 b%=10
call swap (a?b) print a?b End sub
Private sub swap(byval a As integer? byval b As integer) C=a A=b B=c End sub
在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的（A. 调用swap过程的语句错误，应该为 Call swap a,b B. 输出语句错误，应该为Print “a” ,“b”
C. 过程的形式参数有误，应该为swap （Byref a As integer ,BYRef b As integer） D. swap中3条赋值语句的顺序是错误的，应该为a=b:b=c:c=a
105.要想在过程调用后返回两个结果，下面的过程定义语句合法的是（ ）。 A. Sub pp(by val x,byval y) B. Sub pp(x,byval y) C. Sub pp(byval x,y) D. Sub pp(x,y)
106.下面哪种情况不会导致逻辑错误？（ ）
。 ）