2012vb试卷A
vb考试答案(A)
解：dim a%,b%,c%
a= InputBox("a=")：b = InputBox("b=")：c= InputBox("c=")：D=B*B-4*A*C
IF A<>0then
IF D>=0then
X1=(-B+SQR (D))/(2*A)：X2=(-B-SQR (D))/(2*A)：Print x1,x2
n=inputbox(“请输入n的值：”)
call jc(n,p)
Print p
End sub
Private sub jc(m%,q#)
Dim i%
Q=1
For i=1 to m
Q=q*i
next
End sub
3. 执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
5.返回系统当前日期和时间的函数是(D) 。
(C) Printer. Print “多媒体技术”
(D) Debug. Print “多媒体技术”
10. 以下关于图像框控件的说法中，错误的是（C）。
(A) 不可以通过Print方法在图像框中输出文本。
(B) 清空图像框控件中图形的方法之一是加载一个空图形。
(C) 图像框控件可以作为容器使用。
(D) 用Stretch属性可以自动调整图像框中图形的大小。
（2）编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
2012年vb计算机考试试题及答案
2012年vb计算机考试试题及答案第一部分：选择题（共40题，每题2分，总分80分）1. VB是以下哪种类型的编程语言？A. 解释性编程语言B. 面向对象编程语言C. 编译型编程语言D. 结构化编程语言2. 在VB中，以下哪个符号用于表示不等于？A. !=B. <>C. ==D. =3. 下列关于VB的说法中，不正确的是：A. VB可以用于开发Windows应用程序B. VB是Visual Basic的缩写C. VB可以与数据库进行交互D. VB只能运行在Windows操作系统上4. 在VB中，以下哪个选项用于声明整数变量？A. DimB. IntC. IntegerD. String5. 以下哪个是VB中的逻辑运算符？A. +B. /C. &&D. >6. VB中的控件是用来进行什么操作的？A. 数据存储B. 用户界面交互C. 网络通信D. 文件操作7. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. ButtonC. TextBoxD. ComboBox8. 以下哪个事件是在VB窗体加载时触发的？A. MouseClickB. KeyPressC. LoadD. FormOpen9. VB中用于执行特定任务的代码块被称为什么？A. 函数B. 过程C. 类D. 对象10. 在VB中，以下哪个函数可以将字符串转换为整数？A. CInt()B. CStr()C. CDbl()D. CBool()11. VB中的数组是用来存储什么类型的数据？A. 字符串B. 整数C. 浮点数D. 所有以上类型的数据12. 在VB中，以下哪个选项用于打开一个对话框来选择文件？A. OpenFileDialogB. MessageBoxC. InputBoxD. SaveFileDialog13. VB中的Do While循环是什么类型的循环结构？A. 前测试循环B. 后测试循环C. 无限循环D. 选择循环14. 在VB中，以下哪个选项用于释放对象所占用的资源？A. UsingB. FreeC. DisposeD. End15. VB中的Try...Catch语句用于处理什么类型的错误？A. 语法错误B. 逻辑错误C. 运行时错误D. 编译时错误...（继续撰写剩余试题及答案）第二部分：主观题（共3题，每题40分，总分120分）请根据以下问题进行简答：问题一：请解释VB中的常用数据类型及其区别。
VB期末考试试卷2012版(含答案)
'********** End ********** fun = Sum End Function Private Sub Form_Load() Show Print fun() NJIT_VBபைடு நூலகம்End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim fOut As Integer fOut = FreeFile Open App.Path & "\out.dat" For Output As #fOut Print #fOut, fun() Close #fOut End Sub
8
C:DrawWidth 属性 D:DrawStyle 属性
答案：B 第 19 题 （2.0 分） 关于顺序文件和随机文件的说法错误的是(). A:顺序文件中记录的逻辑顺序与存储顺序是一致的 B:随机文件的结构特点是固定记录长度以及每条记录均有记录号 C:随机文件的操作与顺序文件相同 D:随机文件读写操作比顺序文件灵活
答案：A 第 17 题 （2.0 分） 在 VB 中没有提供下列()事件. A:MouseDown B:MouseUp C:MouseOver D:MouseMove
答案：C 第 18 题 （2.0 分） 在 VB 中,坐标轴的默认刻度单位是缇,用户可以根据实际需要使用()来改变刻度单位. A:Scale 属性 B:ScaleMode 属性
答案：C 第 15 题 （2.0 分） 下列程序： Sub mtv(ByVal m As Integer, ByVal n As Integer) m = m+7 n = n* 5 Print"m=";m;"n="n; End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 7 mtv a,b
二级VB真题2012年3月
[真题] 二级VB真题2012年3月一、选择题(每小题2分，共70分) 下列各题[A]、[B]、[C]、[D] 四个选项中，只有一个选项是正确的。
第1题：下列叙述中正确的是( )。
A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构参考答案：A循环队列是一种顺序存储的线性结构，所以，“循环队列是队列的一种链式存储结构”、“循环队列是非线性结构”和“循环队列是一种逻辑结构”的说法都是错误的。
第2题：下列叙述中正确的是( )。
A.栈是一种先迸先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非线性结构D.以上三种说法都不对参考答案：D栈和队列都是线性结构，并且栈是后进先出，队列是先进先出，所以三种说法都不对。
第3题：一棵二叉树共有2S个结点，其中5个是叶子结点，则度为1的结点数为( )。
A.16B.10C.6D.4参考答案：A根据公式n0=n2+1，叶子结点个数为S，则度为2的结点数为4，那么度为l的结点数n1=n-n0-n2=25-4-5=16。
第4题：在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.外模式B.内模式C.概念模式D.逻辑模式参考答案：A数据库系统在其内部具有三级模式：概念模式、内模式与外模式。
其中，内模式(又称物理模式) 给出了数据库的物理存储结构与物理存取方法，如数据存储的文件结构、索引、集簇及hash等存取方式与存取路径，内模式的物理特性主要体现在操作系统及文件级上，它还未深入到设备级(如磁盘及磁盘操作) 上。
概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户(应用) 的公共数据视图，主要描述数据的概念记录类型及它们之间的关系，它还包括一些数据间的语义约束。
外模式(子模式或用户模式) 是用户的数据视图，也就是用户所见到的数据模式，它由概念模式推导而出的，在一般的DBMS中都提供相关的外模式描述语言(DDL)。
2012届毕业班VB清考试卷
东莞理工学院（本科）试卷（2012届清考卷）2011 --2012 学年第二学期《Visual Basic程序设计》试卷开课单位：计算机学院，考试形式：闭卷，允许带笔入场注意：请务必将答案填写在答题卷上，否则视为答题无效。
一、单选题(30小题，每小题1.5分，共45分)1、以下不属于Visual Basic系统的文件类型是____________。
A、.frmB、.batC、.vbpD、.vbg2、Visual Basic 是一种面向对象的程序设计语言，_________不是面向对象系统所包含的三要素。
A、属性B、变量C、事件D、方法3、在VB中通过____________属性来设置字体颜色。
A、FontColorB、ForeColorC、BackColorD、ShowColor4、若要使命令按钮不可操作，要对________属性设置。
A、EnabledB、VisibleC、BackcolorD、Caption5、"x是小于100的非负数"，用VB表达式表示正确的是____________。
A、0 <= x 0r x < 100B、0 <= x < 100C、0 <= x And x < 100D、0 <=x , x < 1006、设a=21，b=75，则执行c=Int((b-a)*rnd+a)+1后，c的值为_______。
A、1～76之间B、22～75之间C、22～76之间D、1～95之间7、设a=2，b=3，c=4，d=5，下列表达式a>b AND c<=d OR 2*a>c的值是_______。
A、TrueB、FalseC、-1D、18、用于获得字符串S从第5个字符开始的3个字符的函数是_______。
A、Mid$(S,5,3)B、Middle(S,5,3)C、Right$(S,5,3)D、Left$(S,5)9、字符串“东莞News Center”的长度是_______。
VB程序设计方法考试卷（A）
VB 程序设计方法考试卷（A ）姓名姓名 学号学号一、选择题（40%，每题2分）分） 1、以下关于文件的叙述中，错误的是（、以下关于文件的叙述中，错误的是（ ）。
A 、顺序文件中的记录一个接一个地存放、顺序文件中的记录一个接一个地存放B 、随机文件中记录的长度是随机的、随机文件中记录的长度是随机的C 、执行打开文件的命令后，自动生成一个文件指针、执行打开文件的命令后，自动生成一个文件指针D 、LOF 函数返回给文件分配的字节数函数返回给文件分配的字节数2、以下叙述中错误的是（、以下叙述中错误的是（ ）。
A 、事件过程是响应特定事件的一段程序、事件过程是响应特定事件的一段程序 B 、不同的对象可以具有相同名称的方法、不同的对象可以具有相同名称的方法C 、对象的方法是执行指定操作的过程、对象的方法是执行指定操作的过程D 、对象事件的名称可以由编程者指定、对象事件的名称可以由编程者指定3、以下合法的Visual Basic 标识符是（标识符是（ ）A 、Forloop B 、Const C 、9abc D 、a#x 4、当一个复选框被选中时，它的V alue 属性的值是( ) A 、3 B 、2 C 、1 D 、0 5、表达式5MOD3+3\5*2的值是（的值是（ ）A 、0 B 、2 C 、4 D 、6 6、设x=4,y=8,z=7,以下表达式x<y And (NOT y>z)OR z<x 的值是（的值是（ ）A 、1 B 、－1 C 、True D 、False 7、设窗体上有一个文本框，设窗体上有一个文本框，名称为名称为text1,程序运行后，程序运行后，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，要求该文本框不能接受键盘输入，但但能输出信息，以下属性设置正确的是（能输出信息，以下属性设置正确的是（ ）。
A 、text1.maxlength=0 B 、text1.enabled=false C 、text1.visible=0 D 、text1.with=0 8、以下能在窗体form1标题栏中显示“V isualBasic 窗体”的语句是（窗体”的语句是（ ）。
2012vb笔试外A带参考答案-共享
一、填空题（共10个空，每空2分，共20分）1. 弹出名称为“Menu ”的菜单的语句为 PopUpMenu Main 。
2. 在VB 中，声明静态变量的关键字是 Static 。
3. 在Visual Basic 中，所有控件都应具有的属性是___Name __。
4. 显示打开文件对话框的方法是：___ShowOpen ____。
5. 以下程序的功能是：找出数组a 中的第一次出现的最小值。
要求在任何情况下都能正确运行，请完善之。
Dim a%(), Mini%, i%, n%n = Val(InputBox("请输入整数个数")) '假设输入的 n 值一定大于零 ReDim a(1 To n) For i = 1 To na(i) = Rnd * 100 Next i Mini = 1For i = 2 To nIf a(i) > a(Mini) Then Mini = i Next i Print "最小值首次出现在下标为" & Mini & "的数组元素中，值为" & a(Mini)6. 以下程序的功能是循环产生“a ” 到“z ”之间的小写英文字母，并以每行显示10个字符的形式在窗体上显示出来，当出现字母”y ”时退出循环。
请完善程序。
(小写英文字母a 的ASCII 码值为97)Private Sub Form_Click() Dim a as string * 1,i as integer Doa =_chr(int(rnd()*26+97))_ i=i+1 Print a;If _i mod 10 = 0_ then Print Loop Until _a=”y ”_ End Sub1.VB是一种面向对象的可视化程序设计语言，它采用了 A 的编程机制。
A)事件驱动B) 从主程序开始执行C)按过程顺序执行D) 按模块顺序执行2.函数Format(9876.567, "00000.00")的返回值是 B 。
2012学业水平测试vb卷
Private Sub Command1_Click()Dim sum As Long, a As Integer, b As Integer, c As Integersum = 100（ sum = 0）a = V al(Text1.Text)b = V al(Text2.Text)c = V al(Text3.Text)sum = a * 10 + b - 15 + c * 25（sum = a * 10 + b * 15 + c * 25） Text4.Text = Str(sum)End SubPrivate Sub Command2_Click()EndEnd Sub************************百鸡百钱Private Sub Form_Click()For x = 0 To 20For y = 0 To 34z = 100 - x - y;（ z = 100 - x - y）If 5 * x + 3 * y + z \ 3 = 100 Then（If 5 * x + 3 * y + z / 3 = 100 Then）Print x, y, zEnd IfNext x （Next y）Next xEnd Sub求阶乘Private Sub Command1_Click() Dim f As IntegerDim q As Doublef = Val(Text1)If Text1 = "" ThenEndElseq = 0（q = 1）For i = 1 To fq = q + I （ q = q * i）Next iEnd IfText1 = Str(q) （Text2 = Str(q)）End SubPrivate Sub Command2_Click() EndEnd Sub****************************求三角形面积Private Sub Command1_Click()Dim s, a, h As Doublea = Val(Text1.Text)h = V al(Text2.Text)s = a * h / 2Text3.Text = Str(s)End SubPrivate Sub Command2_Click() End Sub****************************** Command2-->退出Private Sub Command1_Click()Dim s, a, h As Doublea = Val(Text1.Text)h = V al(Text2.Text)s = a * h / 2Text3.Text = Str(s)End SubPrivate Sub Command2_Click() End Sub****************************** Private Sub Command1_Click()Dim s, a, h As Doublea = Val(Text1.Text)h = V al(Text2.Text)s = a * h / 2Text3.Text = Str(s)End SubPrivate Sub Command2_Click()EndEnd Sub求100以内奇数和Command1-->计算Private Sub Command1_Click()Dim sum As Single, i As Integersum = 0For i = 1 To 100 Step 2sum = sum * iNext iText1.Text = sumEnd Sub*****************************Private Sub Command1_Click()Dim sum As Single, i As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNext iText1.Text = sumEnd Sub储蓄罐的存款Private Sub Command1_Click()Dim n As Integer, intsum As Integern = 1intsun = 1Do While intsun <= 500intsun = intsun * nn = n + 1LoopText1 = n + "个月储蓄罐的存款超过500元" End Sub*************************Private Sub Command1_Click()Dim n As Integer, intsum As Integern = 1intsun = 0Do While intsun <= 500intsun = intsun + nn = n + 1LoopText1 = n & "个月储蓄罐的存款超过500元" End Sub排序Dim a As SingleDim v As StringPrivate Sub Form_Load()For i = 1 To 10v = InputBox("输入数据")If v = "" Then Exit SubIf IsNumeric(v) Thena(i) = vElseMsgBox ("请输入正确内容")End IfNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 10For j = i To 10If a(i) > a(j) Thent = a(i): a(j) = a(i): a(j) = tEnd IfNext jNext iFor i = 1 To 10Picture1.Print aNext iEnd Sub**************************Dim a(10) As SingleDim v As StringPrivate Sub Form_Load()For i = 1 To 10v = InputBox("输入数据")If v = "" Then Exit SubIf IsNumeric(v) Thena(i) = vElseMsgBox ("请输入正确内容")End IfNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 10For j = i To 10If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 10Picture1.Print a(i)Next iEnd Sub二进制转十进制Private Sub Command1_Click()Dim s As String '用来存放输入的二进制数Dim sum As Integer '转换为十进制后的结果 s = Text1sum = 1For i = 1 To Len(s)sum = sum * Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i) Next sumText2 = Str(sum)End SubPrivate Sub Command2_Click()EndEnd Sub*********************Private Sub Command1_Click()Dim s As String '用来存放输入的二进制数Dim sum As Integer '转换为十进制后的结果 s = Text1sum = 0For i = 1 To Len(s)sum = sum + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i) Next iText2 = Str(sum)End SubPrivate Sub Command2_Click()EndEnd Sub判断润年Private Sub Command1_Click()Dim bYear As IntegerbYear = Val()If bYear Mod 400 > 0 And (bYear Mod 4 = 0 And bYear Mod 100 <> 0) Then MsgBox Str(bYear) + "年是闰年"ElseMsgBox Str(bYear) + "年不是闰年"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub***************************Private Sub Command1_Click()Dim bYear As IntegerbYear = Val(Text1.Text)If bYear Mod 400 = 0 Or (bYear Mod 4 = 0 And bYear Mod 100 <> 0) Then MsgBox Str(bYear) + "年是闰年"ElseMsgBox Str(bYear) + "年不是闰年"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub最大最小Dim a(10) As SingleDim v As StringPrivate Sub Form_Load()For i = 1 To 15v = InputBox("输入数据")If v = "" Then Exit SubIf IsNumeric(v) Thena = vElseMsgBox ("请输入正确数字")End IfNext iEnd SubPrivate Sub Command1_Click()Tmax = a(1)Tmin = a(1)For i = 1 To 15If Tmax < a(i) Then Tmax = a(i)If Tmin > a(i) Then Tmin = a(i)Next iPicture1.Print "Max="; TmaxPicture1.Print "Min="; TminEnd Sub****************************** Dim a(15) As SingleDim v As StringPrivate Sub Form_Load()For i = 2 To 15v = InputBox("输入数据")If v = "" Then Exit SubIf IsNumeric(v) Thena(i) = vElseMsgBox ("请输入正确数字")End IfNext iEnd SubPrivate Sub Command1_Click()Tmax = a(1)Tmin = a(1)For i = 1 To 15If Tmax < a(i) Then Tmax = a(i)If Tmin > a(i) Then Tmin = a(i)Next iPicture1.Print "Max="; TmaxPicture1.Print "Min="; TminEnd Sub角谷猜想Dim As-->Dim num Assteps-->step=0num=1-->num>1MOD 2=0韩信点兵（本条由350382386提供）dim as integer-->dim x as integerDo while x mod-->Do while x mod 105>0 x=x+1-->x=x-1在x=x-1下加上Loop。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2011~2012学年第二学期VB期末考试卷答题纸（A卷）专业班级：学号：姓名：一、单选题(用铅笔把选中的方格涂黑50×1=50分)1 2 3 45 6 7 89 10 11 1213 14 15 1617 18 19 2021 22 23 2425 26 27 2829 30 31 3233 34 35 3637 38 39 4041 42 43 4445 46 47 4849 50二、填空题（每空占一行，每行写一个答案20×2=40分）1. 2.3. 4.5. 6.7. 8.9. 10.11. 12.13. 14.15. 16.17. 18.19. 20.三、程序设计（5×2=10分）1、编写一Sub 过程，对一维数组a 中的元素从小到大排序。
Private Sub sort(a() As Integer)2、编写一递归函数，求出巴都万数列（Padovan Sequence ）的第n 项，并在Form_Click()事件中调用该函数求其前20项，以每行10个显示在窗体上，巴都万数列的计算公式是：⎩⎨⎧+=--321n n n p p p 32,1,0≥=n n2011~2012学年第二学期VB 期末考试卷（A 卷）一、选择题（1分×50=50分）1. VB 是面向 (1) 的高级程序设计语言A. 现代B. 数据C. 对象D.过程 2. 以下说法中，错误的是 (2) 。
A ．以.frm 为扩展名的文件是窗体模块文件B ．以.bas 为扩展名的文件是标准模块文件C ．窗体模块文件包含该窗体及其窗体上相关控件的属性信息D ．标准模块文件由事件过程、通用过程等内容组成 3. VB 工程文件的扩展名是 (3) 。
A ．.VfpB ．.Bas C. .VbpD. .Cls4．若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的 (4) 方法。
A ．MoveB ．SetFocusC ．RefreshD ．Drag5. 下列 (5) 是合法的变量名。
A. absB. ab_8C. cde-dD. xy#z6．下列 (6) 是正确的VB 常量。
A. #08/32/2010#B. E-5C. 7DD. True7．下面四个算术运算符中 , 优先级别最高的是 (7) 。
A. Mod B. / C. ^ D. * 8. 数学表达式)sin(2yx x y y x --+对应的VB 表达式是 (8) 。
A ．Sqr (x + y) - Sin(Abs(y ^ 2 * x) / (x - y))B ．Sqrt (x + y) - Sin(Abs(y ^ 2 * x) /( x - y))C ．Sqr (x + y) - Sin(|y ^ 2 * x| / (x - y))D ．Sqr t(x + y) - Sin(|y ^ 2 * x| / x - y)9．设x 是一个四位随机正整数，要取出x 的百位，下列的表达式有 (9) 可选择。
①left(str(x),2) ②right(str(x),3) ③mid(cstr(x),3,1) ④x\100 mod 10 ⑤x\100\10 A ．1个 B ．2个 C ．3个 D ．4个 10. 分别执行以下语句，输出结果为True 的是 (10) 。
A ．Print CInt(4.5) > Int(4.5)B ．Print CInt(-4.5) > Fix(-4.5)C ．Print CInt(-4.5) > Int(-4.5)D ．Print CInt(4.5) > Fix(4.5) 11．下列语句中，正确的是 (11) 。
A. Text1.GotFocus B. Picture1.Cls C. Label1.SetFocus D. List1.Print12．下面对相关表达式的结果描述正确的是(12) 。
A. "300" + 123的结果是"300123"B. "xyz" + 123的结果是"xyz123"C. "300" + "123"的结果是423D. "xyz" & 123的结果是"xyz123"13．变量S为字符型，若在文本框Text1、Text2中分别输入数字20与30后，再执行以下语句，S的最终结果为"50"的是（13）。
A. S = Text1.Text & Text2.TextB. S = Text1.Text + Text2.TextC. S = Val(Text1.Text) + Text2.TextD. S = Val(Text1.Text) & Text2.Text14．在下列属性中，属于CommandButton控件、ListBox控件共有的是(14) 。
A．Caption、Text B．Visible、FontC．Caption、Visible D．List、Visible15．以下关于MsgBox函数的说法中，正确的是(15) 。
A．MsgBox函数有返回值，且返回值类型为数值型B．MsgBox函数没有返回值C．MsgBox函数有返回值，且返回值类型为字符型D．通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型16．Print方法使用在(16) 上输出数据。
①窗体②文本框③图片框④文件⑤列表框⑥立即窗口A. ①③④⑥B. ①②③⑥C. ①②⑤D. ③④⑥17. 窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下ESC 键时执行某个命令按钮的Click事件过程，需要将该按钮的（17）属性设置为True。
A．Default B．Cancel C．Enabled D．Visible18．设x = 3，y= 2，z = 1，运行print x < y <z的结果是（18）。
A. TrueB. FalseC. 1D. 出错19．若在同一窗体内安排两组相互独立的单选按钮，可使用(19) 控件做容器将它们分开。
① TextBox ② PictureBox ③ Image ④ FrameA. ②④B. ②③C. ①②D. ③④20．下列不是窗体事件的是____（20）______。
A. LoadB. GotFocusC. PrintD. LostFocus 21．Select Case X结构中（X为Integer类型），如果判断条件为X = 5，正确的Case语句应该是(21) 。
A．Case X = 5 B．Case Is 5 C．Case 5 D．Case = 522．设x为字符型变量，n为整型变量，以下关于Mid函数的说法中，错误的是(22) 。
A．Mid(x, n)表示从字符串x的第n个位置开始向右取所有字符B．若x = "xyz "，执行语句Mid(x, 1, 2) = "ab"后，x的值为"abz"C．Mid(x, n, 1)的取值与Left(x, n)的取值相同D．使用Mid函数可提取字符串中指定位置、指定个数的字符23．要将焦点设置在某个控件上，可以采取(23) 。
A. 使用鼠标直接点击该控件B. 使用Tab键将焦点移到该控件C. 程序中调用该控件的SetFocus方法D. 以上都可以24．下列语句中，错误的是(24) 。
A．Label1.Caption = "Hello" B．Text1. Caption = "Hello"C．Command1.Caption = "Hello" D．Frame1.Caption = "Hello"25．若a为长整型变量，则执行a = 12 ：Print Len(a)；Len(Str(a))；Len(CStr(a))后，在窗体上看到的是(25) 。
A．4 2 3 B．2 3 2 C．4 3 2 D．2 2 326．下列关于菜单的说法中，错误的是(26) 。
A. 菜单编辑器的“名称”文本框是用于输入菜单项的名称，也就是为菜单命令设置它的“Name”属性B. 若菜单命令项之间加分隔线，则在“标题”文本框中键入连字符(-)，C. 除了Click事件之外，菜单项还可以响应其他事件D. 可以为菜单项选定快捷键27．第一次显示某窗体时，将引发一系列事件，正确的事件系列是(27) 。
A．Load、Initialize、Activate B．Initialize、Load、ActivateC．Load、Activate 、Initialize D．Initialize、Activate 、Load28. 复选框的Value属性为2时，表示___ _(28)____。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有误29. 表达式InStr(4, "abcabca", "c") + Int(2.5)的值为(29) 。
A. 7B. 8C. 5D. 930. 下列有关数组的说法正确的是（30）A.数组是有序变量的集合，序列中的变量类型可以不同B.数组下标用以确定数组元素在数组中的位置，下标取值只能是0或1C.在一定条件下动态数组可以反复改变其维数与大小D.固定大小数组也可以使用ReDim语句改变其大小31.下面有关数组的说法中，（31）是错误的。
A. 过程定义中，形参数组可以是定长字符串类型B. 在模块中由于未使用Option Explicit语句，所以数组不用先定义就可以使用，只不过是Variant类型C. Erase语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间D. 定义数组时，数组维界值可以不是整数32.在一个控件数组中用(32) 属性标识不同的控件数组元素。
A．TabIndex B．Index C．Caption D．Left33. 在窗体的通用声明处有语句Dim a() As Single，以下重新定义数组的语句中，正确的是(33) 。
A．ReDim a(3,3) : ReDim a(3,4) As DoubleB．ReDim a(3,3) : ReDim Preserve a(4,4)C．ReDim a(3) : ReDim a(3,3) As DoubleD．ReDim a(3,3) : ReDim Preserve a(3,4)34. 以下有关数组的说法中，错误的是(34) 。