151．下面的语句或方法中错误的有____C___个（其中m和n都为Integer型变量）。 ① Dim Arry(m, n) As Integer ② n=32764+5
③ Print m=m+n;m+n ④ ChDrive \
A．1 B．3 C．2 D．4 152．数学表达式
ex?sin330?x?y对应的VB表达式是___D___。
A．Abs(e^x+Sin(30)/Sqr(x+y)
B．Abs(Exp(x)+Sin(30)^3)/Sqr(x+y)
C．Abs(e^x+Sin(30*3.14159/180)^3/Sqr(x+y)
D．Abs((Exp(x)+Sin(30*3.14159/180)^3/Sqr(x+y)) 153．VB6．0的控件有____B___ 三类。
A．标准控件、对象控件和Windows控件 B．内部控件、ActiveX控件和可插入的对象 C．数据库控件、Activex控件和可插入的对象 D．内部控件、ActiveX控件和图形控件 154．以下说法中，错误的是 C 。
A．使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B．ReDim语句只能出现在过程中
C．使用ReDim语句重新定义的动态数组，只能比原数组大
D．使用ReDim语句可以对动态数组的所有元素进行初始化
155．若在模块中用Private Function Fun(A As Single, B As Integer) As Integer定义了函数Fun。调用函数Fun的过程中定义了I，J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是___B____。
A．Fun 3.14, J B．Call Fun(I, 365) C．Fun (I), (J) D．K=Fun(\
156．若文件“D:\\abc.txt”不存在，以下打开该文件的语句中，错误的是 B 。
A．Open \B．Open \C．Open \D．Open \157．下列定义Sub过程的语句中正确的语句是___B____。 ①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String)
④Private Sub Test(St As String)
A．①② B．②③④ C．①④ D．①②③④
158．假设有一个菜单项，其名为Menu1，为了在运行时该菜单项失效（变灰），应使用的语句是___A____。
A．Menu1.Enabled = False B．Menu1.Visible = True
C．Menu1.Visible = False D．Menu1.Enabled = True 159．以下对数组参数的说明中，错误的是___A___。
A．在过程中可以用Dim语句对形参数组进行声明 B．形参数组只能按地址传递
C．实参为动态数组时，可用Redim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程
160．下列选项中，所包含的所有表达式能够将两位整数X的个位数与十位数对调（例如将78转换为87）的是___D____。
① Val(Right(X, 1) & Left(X, 1)) ② Val(Right(Str(X), 1) & Left(Str(X), 1)) ③ Val(Right(CStr(X), 1) & Left(CStr(X), 1)) ④ Val(Mid(X, 2, 1) + Mid(X, 1, 1)) A．①② B．②③ C．②④ D．①③④
161．窗体上有多个控件，在Form_Activate()事件过程中添加___B____语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。
A．Text1．Text=\ B．Text1．SetFocus
C．Form1．SetFocus D．Text1．Visible=True
162．变量S为字符型，若在文本框Text1、Text2中分别输入数字23与35后，再执行以下语句，S的值为“58”的是____C___。
A．S = Text1.Text ＆ Text2.Text B．S = Text1.Text + Text2.Text C．S = Val(Text1.Text) + Text2.Text D．S = Val(Text1.Text) ＆ Text2.Text
163．下面有关数组的说法中，错误的是___C____。
A．数组必须先定义后使用
B．数组形参可以是定长字符串类型
C．Erase语句的作用是对已定义数组的值重新初始化 D．定义数组时，数组维界值可以不是整数
164．以下关于子过程或函数的定义中，正确的是 D 。
A．Sub f1(n As String*1)
B．Sub f1(n As Integer)As Integer
C．Function f1(f1 As Integer)As Integer D．Function f1(ByVal n As Integer)
165．以下语句中，不能正确执行的是____D___。
A．If Option1.Value Then
B．If Option1.Value=True Then C．Check1.Value=0 D．Check1.Value=True
166．以下有关ReDim语句用法的说明中，错误的是____B___。 A．ReDim可用于定义一个新数组
B．ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C．无Perserve关键字的ReDim语句，可重新定义动态数组的维数
D．在ReDim语句中，可使用变量说明动态数组的大小
167．定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用
Dim S(3) As String*6,A(3) As String定义了两个字符串数组。下面调用语句中正确的有 C 。
①Call Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S)
A．①② B．①③ C．②④ D．②③ 168．针对语句If I=1 Then J=1，下列说法正确的是 C 。
A．I=1和J=1均为赋值语句 B．I=1和J=1均为关系表达式 C．I=1为关系表达式，J=1为赋值语句 D．I=1为赋值语句，J=1为关系表达式
169．在窗体模块的通用声明处有如下语句，会产生错误的语句是____D_____。 ①Const A As Integer=25 ②Public St As String*8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10
A．①② B．①③ C．①②③ D．②③④ 170．下列定义Sub过程的语句中，正确的语句是___B____。 ①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String)
④Private Sub Test(St As String)
A．①② B．②③④ C．①④ D．①②③④ 171．以下有关数组参数的说明中，正确的是 B 。 A．在过程中也可用Dim语句对形参数组进行说明
B．动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C．调用过程时，数组名不能作为实参 D．数组可以按地址传递也可以按值传递
172．以下关于子过程或函数的定义中，正确的是 D 。
A．Sub f1(n As String*1)
B．Sub f1(n As Integer)As Integer
C．Function f1(f1 As Integer)As Integer D．Function f1(ByVal n As Integer)
173．求圆的内接正多边形的面积公式为nRsin(π/n)Rcos(π/n)，其对应的VB6．0算术表达式是_____A__。其中n为大于2的正整数，R为圆半径，π为圆周率。 A．n*r*sin(3.14159／n)*r*cos(3.14159／n) B．n×R×sinπ／n×R×cosπ／n
C．n×R×sin(4.13159／n)×R×cos(4.13159／n)
D．nRsin(π／n)Rcos(π／n)
174．变量S为字符型，若在文本框Text1、Text2中分别输入数字23与35后，再执行以下语句，S的值为“58”的是___C____。
A．S = Text1.Text ＆ Text2.Text B．S = Text1.Text + Text2.Text C．S = Val(Text1.Text) + Text2.Text D．S = Val(Text1.Text) ＆ Text2.Text
175．以下有关数组作为形参的说明中，错误的是___C___。
A．调用过程时，只需把要传递的数组名填入实参表
B．使用动态数组时，可用ReDim语句改变形参数组的维界 C．在过程中也可用Dim语句对形参数组进行说明 Ｄ．形参数组只能按地址传递
176．要使过程调用结束后返回两个结果，下面的过程语句正确的是___A____。
A． Sub Proc1(n，m) B． Sub Proc1(ByVal n，ByVal m) C． Sub Proc1(n，ByVal m) Ｄ．Sub Proc1((n)，m)
177．以下表达式中，可以表示“A和B之一大于0”的是 C 。
①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0 A．①③ B．③④ C．②④ D．①②④
178．设变量A为长整型，则下面不能正常执行的语句是 C 。 A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2 179．若在模块中用Private Function Fun(a As Single, b As Integer) As Integer定义了函数Fun。调用函数Fun的过程中定义了i，j和k三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是____B___。
A．Fun 3.14, j B．Call Fun(i, 365) C．Fun (i), (j) D．K=Fun(\
180．要向文件data1.txt添加数据，正确的文件打开命令是___B____。
A．Open \B．Open \C．Open \D．Open \
181．要使过程调用结束后返回两个结果，下面的过程语句正确的是____C____。
A．Sub Proc1(ByVal n，ByVal m) B．Sub Proc1(n，ByVal m) C．Sub Proc1(n，m) D．Sub Proc1((n)，m)
182．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入__B_____。
A．文件($F) B．文件(&F) C．文件(#F) D．文件(%F)
183．下面有关数组处理的叙述中，正确的是_____D。
A．在过程中使用ReDim语句可以改变动态数组的数据类型 B．在过程中，可以使用Dim、Private和Static语句来定义数组
C．用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数 D．不可以用Public语句在窗体模块的通用处说明一个全局数组
184．在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成____D_____。 A．Case 3<=X<=7 B．Case 3<=X，X<=7 C．Case Is<=7，Is>=3 D．Case 3 To 7
x?e3185．数学表达式Sin27?的VB算术表达式为____B___。
x?y?A．Sin(27)+Sqr(x+Exp3)/(x+y)
B．Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C．Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D．Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)
186．在程序中分别将变量Inta、B1、St和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是___A____。
A．B1=#True# B．Inta=4.6
C．St=5 ＆ 123.5 D．D=#10／05／01#
187．在窗体Form1中用“Public Sub Fun(x As Integer，Y As Single)”定义过程Fun，在窗体Form2中定义了变量i为Integer，J为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中正确的语句有___C_____个。
①Call Fun(i，j) ②Call Form1．Fun(i，i) ③Form1．Fun (i)，j ④Form1．Fun i + 1，(j)
A．1 B．2 C．3 D．4 188．数学表达式
x5?cos290(e?lny)?5x对应的VB表达式是 C 。
A．(x^5-Cos(29))／Sqr(e^x+ln(y))+5
B．(x^5-Cos(29))／(Sqr(Exp(x)+Log(y))+5)
C．(x^5-Cos(29*3.14159／180))／(Sqr(Exp(x)+Log(y))+5) D．(x^5-Cos(29*3.14159／180))／(Sqr(e^x+Log(y))+5) 189．以下对数组参数的说明中，错误的是___D____。
A．只需把要传递的数组名作为实参，即可调用过程 B．形参数组只能按地址传递
C．实参为动态数组时，可用Redim语句改变对应形参数组的维界 D．在过程中可以用Dim语句对形参数组进行声明
190．在窗体模块的通用声明处，可以使用___C____语句说明数组。
①Public A(10) As Integer ②Dim A(10) As Integer ③Private A(10) As Integer ④Static A(10) As Integer A．①② B．③④ C．②③ D．①④ 191．以下有关过程的说法中，错误的是____D___。
A．在Sub或Function过程中不能再定义其他Sub或Function过程
B．调用过程时，形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组 C．过程的形式参数不能再在过程中用Dim语句进行说明
D．使用ByRef说明的形式参数在形实结合时，总是按地址传递方式进行结合的
192．若在应用程序中用“Private Sub Sub1(X As Integer，Y As Single)”定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是___C____。 ①Call Sub1(I，J) ②Call Sub1(I，43)
③Call Sub1(3.15，34) ④Call Sub1(\，\ A．①③ B．①②③ C．②③④ D．无
193．下列有关过程中形式参数的描述中，错误的是 B 。