vb选择题集锦-.pdf

《vb选择题集锦-.pdf》由会员分享，可在线阅读，更多相关《vb选择题集锦-.pdf（32页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、30101.标准控件不包括（）控件。(A)驱动器列表框(B)目录列表框(C)文件列表框(D)通用对话框(答案：D)30102.当一个工程含有多个窗体时，它的启动窗体是（）。(A)正在编辑的窗体(B)最后一个添加的窗体(C)第一个添加的窗体(D)在 工程属性 对话框中指定的窗体(答案：D)30103.VB 应用程序在（）模式下不能编辑代码和设计界面。(A)运行(B)中断(C)设计(D)以上均不能(答案：A)30104.下列叙述错误的是（）。(A)VB 应用程序没有明显的开始和结束语句(B)VB 控件的所有属性值均可在属性窗口中设置(C)VB 是事件驱动型可视化编程工具(D)VB 通过 工具 菜单

2、的 选项 设置代码编辑窗口的字体大小(答案：B)30105.标准模块文件的扩展名是（）。(A).cls(B).frm(C).bas(D).rec(答案：C)30106.下列叙述错误是（）。(A)打开一个工程文件，系统自动装入与该工程有关砠?文件(B)保存 VB 程序时，应分别保存窗体和工程文件(C)事件可以由用户触发，也可以由系统触发(D)VB 应用程序只能以解释方式执行(答案：D)30107.在设计阶段，双击窗体上的某个控件，可以打开（）。(A)代码窗口(B)属性窗口(C)工具箱窗口(D)工程资源管理器窗口(答案：A)30108.下列叙述错误的是（）。(A)VB 是可视化程序设计语言(B)V

3、B 采用事件驱动编程机制(C)VB 是面向过程的程序设计语言(D)VB 应用程序可以以编译方式执行(答案：C)30109.下列叙述正确的是（）。(A)VB 的事件由用户定义(B)VB 程序以顺序方式执行(C)VB 程序从 Main()函数开始执行(D)VB 运行时，总是等待事件的发生(答案：D)30201.下列为整型变量的是（）。(A)x!(B)x#(C)x%(D)x$(答案：C)30202.设有语句组：Dim S1 As String*5 S1=VB Test 则 S1 的值为（）。(A)VB Test(B)VB Te(C)VBTes(D)BTest(答桠?：B)30203.下列（）是合法的

4、变量名。(A)x_y(B)x-y(C)2x(D)and(答案：A)30204.下列（）为单精度变量。(A)x!(B)x#(C)x%(D)x$(答案：A)30205.由（）关键字声明的局部变量在整个程序运行时一直存在。(A)Dim(B)Public(C)Static(D)Private(答案：C)30206.定义变量时如不指定类型，该变量为（）变量。(A)Integer(B)String(C)Variant(D)Single(答案：C)30207.用户自定义数据类型的成员不能是（）。(A)数组(B)日期型(C)货币型(D)定长字符串(答案：A)30208.下列（）是合法的变量名。(A)x%y(B

5、)xy%(C)2x(D)Or(答案：B)30209.日期常量用（）作为界定符。(A)(B)%(C)#(D)&(答案：C)30301.表达式 4+6 5*7/9 Mod 3 的值是（）。(A)4(B)5(C)6(D)7(答案：B)30302.下列逻辑表达式为True 的是（）。(A)Aa(C)aAT(D)AT b c 后，窗体上显示的是（）。(A)1(B)True(C)False(D)出错信息(答案：B)30305.下列表达式中，值最大的是（）。(A)2 3(B)2/3(C)2 mod 3(D)3 mod 2(答案：C)30306.下列运算符中，优先级最低的是（）。(A)*(B)(C)/(D)(

6、答案：D)30307.表达式2=3 1 的是（）。(A)0(B)1(C)True(D)False(答案：C)30308.x大于 0 且小于 10 的 VB 表达式是（）。(A)0 x 0 And x 0 Or x 0:x 10(答案：B)30309.判断整型变量x 是奇数的表达式是（）。(A)x Mod 2 0(B)x Mod 2!=0(C)x Mod 2 0(D)x Mod 2 0(答案：A)30401.返回值为数值的函数是（）。(A)Mid(B)Instr(C)Left(D)Rtrim(答案：B)30402.表达式 Len(幸运 52)的值是（）。(A)0(B)4(C)6(D)8(答案：B

7、)30403.以下（）语句可表示50,100 之间的随机数。(A)Int(Rnd*51)+49(B)Int(Rnd*51+50)(C)Int(Rnd*50)+50(D)Int(Rnd*50+50)(答案：B)30404.返回值为字符串的函数是（）。(A)Str(B)Val(C)Len(D)Asc(答案：A)30405.当 x=0 时，函数IIf(x 0,1,IIf(x 2=y(C)x=y 2(D)x=y+(答案：C)30506.错误使用Print 方法的是（）。(A)Picture1.Print(B)Form1.Print(C)Debug.Print(D)Text1.Print(答案：D)30

8、507.Print 方法分区输出时，用（）分隔多个表达式。(A)空格(B)逗号(C)冒号(D)分号(答案：B)30508.Print 10+6=;10+6的输出结果是（）。(A)16=10+6(B)10+6=10+6(C)10+6=16(D)10+6=10+6(答案：C)30509.下列叙述错误的是（）。(A)不允许使用行号与标号(B)单条语句可分行书写(C)同一行上可以书写多条语句(D)VB 代码不堠?分字母的大小写(答案：A)30601.执行 x=InputBox(请输入半径,0,求面积)，在输入框中输入3 后回车,则下列叙述正确的是（）。(A)x 的值是数值3(B)x 的值是字符 3 (

9、C)0 是默认值(D)对话框标题是 求面积 (答案：B)30602.执行 x=MsgBox(数据类型不匹配,1,出错提示!)，然后单击消息框的取消 按钮，x 的值是（）。(A)True(B)False(C)1(D)2(答案：D)30603.下列语句正确的是（）。(A)MsgBox VbOkOnly,Error(B)MsgBox Error,VbOkOnly(C)MsgBox(VbOkOnly,Error)(D)MsgBox(Error,VbOkOnly)(答案：B)30604.执行 Len(InputBox(请输入编号:)，在输入框中输入神州 1号 后回车，结果为（）。(A)4(B)7(C)0

10、(D)出错(答案：A)30605.执行 MsgBox 除数不能为0！,48,数据出错，在弹出的消息框中显示的图标是（）。(A)停止图标(B)问号图标(C)感叹号图标(D)消息图标(答案：C)30606.下列语叠?组：a$=Today And Tomorrow b$=Right(a$,8):c$=Left(a$,5)MsgBox a$,b$,c$执行后消息框的标题是（）。(A)Today(B)Tomorrow(C)Today And Tomorrow(D)1(答案：B)30607.下列语句组：a$=Today And Tomorrow b$=Right(a$,8):c$=Left(a$,5)Ms

11、gBox a$,b$,c$执行后消息框中显示的内容是（）。(A)Today(B)Tomorrow(C)Today And Tomorrow(D)1(答案：C)30608.下列程序运行时,消息框显示的内容是（）。Private Sub Command1_Click()MsgBox CStr(123+321)End Sub(A)444(B)123321(C)123+321(D)显示出错信息(答案：A)30609.窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x=InputBox(x=)y=InputBox(y=)Print x+y

12、End Sub 运行后，单击命令按钮，先后在两个输入对话框中输入123 和 321，窗体显示的内容是（）。(A)444(B)123321(C)123+321(D)出错信息(答案：B)30701.将窗体的（）属性设置为T rue，可使 Form_Load 事件中的 Print 方法显示结果。(A)DrawStyle(B)DrawMode(C)AutoRedraw(D)Enabled(答案：C)30702.将窗体的BoderStyle 属性设置为（）可使窗口不显示标题栏。(A)0(B)1(C)2(D)5(答案：A)30703.下列叙述正确的是（）。(A)窗体的 Name 属性可以为空(B)窗体的

13、Name 属性定义窗体的名称(C)可以在运行期间改变窗体的Name 属性(D)窗体的 Name 属性的值显示在窗体标题栏中(答案：B)30704.设置窗体的（）属性可改变窗体标题。(A)Caption(B)Name(C)BackColor(D)BorderStyle(答案：A)30705.通过（）属性设置窗体图标。(A)Icon(B)Picture(C)MouseIcon(D)DownPicture(答案：D)30706.一个工程含有多个窗体及标准模块，下列叙述错误的是（）。(A)如果工程含Sub Main 过程，程序首先执行该过程(B)任何时刻最多只有一个窗体是活动窗体(C)标准模块不能设置

14、为启动模块(D)Hide 方法只是隐藠?而不从内存中清除窗体(答案：A)30707.使用（）方法可隐藏窗体，但不从内存中释放。(A)Show(B)Load(C)Hide(D)UnLoad(答案：C)30708.下列描述错误的是（）。(A)窗体的 Load 事件在加载窗体时发生(B)窗体的 Height、Width 属性用于设置窗体的高和宽(C)执行 Unload Form1 语句后，窗体仍在内存中但不可见(D)当窗体的Enabled 属性为 False 时，对窗体的操作都被禁止(答案：C)30709.运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（）。(A)MouseDown(B)Mous

15、eUp(C)Click(D)Load(答案：D)30801.下列叙述错误的是（）。(A)标签和文本框都有Caption 属性(B)标签和文本框的主要区别在于能否编辑其内容(C)标签具有AutoSize 属性，而文本框没有(D)文本框具有ScrollBar 属性，而标签没有(答案：A)30802.能清除文本框Text1 中内容的语句是（）。(A)Text=(B)Text1.Text=(C)Text1.clear(D)Text1.Cls(答案：B)30803.设置（）属性使标签Label1 没有边框。(A)Label1.BorderStyle=0(B)Label1.BorderStyle=1(C)

16、Label1.BackStyle=True(D)Label1.BackStyle=False(答案：A)30804.下列叙述错误的是（）。(A)标签和文本框都有Move 方法(B)标签和文本框都有Text 属性(C)标签具有Caption 属性，而文本框没有(D)文本框具有Locked 属性，而标签没有(答案：B)30805.下列控件属性赋值语句错误的是（）。(A)Label1=欢迎 (B)Text1.Text=欢迎 (C)Text1=欢迎 (D)Text=欢迎 (答案：D)30806.设置标签Label1 的（）属性使它不可见。(A)Label1.Visible=0(B)Label1.Vis

17、ible=1(C)Label1.Visible=True(D)Label1.Visible=False(答案：D)30807.设置标签的（）属性，可改变其文字对齐方式。(A)Justify(B)Font(C)Alignment(D)以上都不是(答案：C)30808.触发文本框Change 事件的操作是（）。(A)改变斠?本框的内容(B)改变文本框的大小(C)文本框获得焦点(D)文本框失去焦点(答案：A)30809.修改文本框的内容触发（）事件。(A)Modify(B)Change(C)ChangeData(D)AutoSize(答案：B)30901.设置图像框的（）可使框内的图片按图像框大小自

18、动调整。(A)AutoSize 属性为 True(B)AutoSize 属性为 False(C)Stretch 属性为 True(D)Stretch 属性为 False(答案：C)30902.下列语句组：ScaleWidth=100:ScaleHeight=100 Circle(50,40),10,2 绘制的是（）。(A)圆形(B)椭圆(C)扇形(D)弧线(答案：B)30903.将当前目录下的图形文件Clock.jpg装入图片框Picture1 的语句是（）。(A)Picture=Clock1.jpg(B)Picture=LoadPicture(Clock1.jpg)(C)Picture1.P

19、icture=Clock1.jpg(D)Picture1.picture=LoadPicture(Clock1.jpg)(答案：D)30904.设置 Line 控件的（）属性可使其呈现不同式样。(A)BorderStyle(B)Style(C)FillStyle(D)Shape(答案：A)3090 5.下列叙述错误的是（）。(A)Scale 方法用来定义新坐标系(B)窗体缺省坐标原点在窗体的左下角(C)ScaleLeft 和 ScaleTop 属性可改变坐标系的原点位置。(D)ScaleWidth 和 ScaleHeight 属性可改变其对象高度和宽度的刻度单位(答案：B)30906.下列叙述

20、错误的是（）。(A)Pset 方法用于绘制点(B)Circle 方法用于画圆、椭圆、圆弧和扇形(C)Line 方法用于画直线或矩形(D)Ponit 方法用于绘制有颜色的点(答案：D)30907.设置图片框的（）使其按图片尺寸自动调整大小。(A)AutoSize 属性为 True(B)AutoSize 属性为 False(C)Stretch 属性为 True(D)Stretch 属性为 False(答案：A)30908.不属于 VB 作图方法的是（）。(A)Pset(B)Line(C)Shape(D)Circle(答案：C)30909.VB 的图形控件不包括（）。(A)直线(B)框架(C)图像框

21、(D)图片框(答案：B)31001.复选框的Value 属性为 0 表示（）。(A)复选框未被选中(B)复选框被选中(C)堠?选框内有灰色的钩(D)操作出错(答案：A)31002.单选按钮被选定时，其Value 属性为（）。(A)1(B)0(C)True(D)False(答案：C)31003.运行时，下列哪种方法不能选中单选按钮（）。(A)用鼠标单击单选按钮(B)在属性窗口中将单选按钮的Value 属性设置为1(C)用 Tab 键将焦点转移到一组单选按钮后单击其中的单选按钮(D)采用单选按钮的访问键快捷方式(答案：B)31004.下列（）语句使复选框Check1 无效。(A)Check1.Va

22、lue=1(B)Check1.Value=2(C)Check1.Style=1(D)Check1.Style=0(答案：B)31005.下列（）语句使复选框Check1 的标题显示在左边。(A)Check1.Style=0(B)Check1.Alignment=0(C)Check1.Style=1(D)Check1.Alignment=1(答案：D)31006.下列（）语句设置单选按钮Option1 为选中状态。(A)Option1.Value=0(B)Option1.Value=True(C)Option1.Value=1(D)Option1.Value=False(答案：B)31007.复

23、选框和单选按钮的（）属性可以反应其当前状态。(A)Value(B)Checked(C)Caption(D)Selected(答案：A)31008.单选按钮不具有（）属性。(A)Value(B)Checked(C)Caption(D)Stytle(答案：B)31009.要取得复选框的状态，应访问（）属性。(A)Value(B)Checked(C)Visible(D)Enabled(答案：A)31101.在属性窗口为命令按钮的Picture 属性装入了图片，但却没有显示的原因是（）。(A)按钮的 Enabled 属性为 False(B)按钮的 Sytle 属性为 0 (C)按钮的 Default

24、属性为 False(D)按钮的 DisabledPicture属性没有装入图片(答案：B)31102.如果命令按钮的Caption 属性包含（），则按下Alt+C 可激活该按钮。(A)&C(B)$C(C)#C(D)C(答案：A)31103.设置命令按钮的（）属性为 True，可使按下Esc 键时执行该按钮的单击事件过程。(A)Cancel(B)Enabled(C)Value(D)Default(答案：A)31104.设置命令按钮的（）属性，可使指针指向该按钮时显示提示内容。(A)Caption(B)ToolTipText(C)Font(D)Tag(答案：B)31105.下列（）方法不能触发命令

25、按钮的Click 事件。(A)在程序运行时单击命令按钮(B)在代码中设命令按钮的Value 属性为 True(C)在设计时设命令按钮的Default 属性为 True，运行时按ESC 键(D)使用 Tab 键把焦点移到按钮上，然后按空格键或回车键(答案：C)31106.下列描述错误的是（）。(A)单击命令按钮可触发MouseDown事件(B)单击命令按钮可触发MouseUp 事件(C)命令按钮支持单击事件(D)命令按钮支持双击事件(答案：D)31107.窗体上有命令按钮OK,它的单击事件过程为CmdOK_Click()，则该按钮的Name 和Caption 属性分别为（）。(A)OK,Cmd(

26、B)Cmd,OK(C)CmdOK,OK(D)OK，CmdOK(答案：C)31108.执行（）语句，可使窗口的按钮Command1上显示“确定”。(A)Command1.Show=确定 (B)Command1.Caption=确定 (C)Command1.Name=确定 (D)Command1.Visible=确定 (答案：B)31109.命令按頠?不能响应（）事件。(A)DblClick(B)DragDrop(C)KeyPress(D)MouseMove(答案：A)31201.引用列表框List1 最后一项数据应使用（）。(A)List1.List（ListCount-1)(B)List1.L

27、ist（List1.ListCount-1)(C)List1.List（ListCount)(D)List1.List（List1.ListCount)(答案：B)31202.下列（）控件结合了文本框和列表框的特性。(A)图片框(B)图像框(C)组合框(D)标签(答案：C)31203.将列表框的MultiSelect 属性设置为（）后，可用Shift 或 Ctrl 键配合鼠标在列表框中进行多项选择。(A)无(B)0(C)1(D)2(答案：D)31204.引用列表框List1 被选中项数据应使用（）。(A)List1.list(B)List1.listCount(C)List1.Index(D)

28、List1.Text(答案：D)31205.使用（）语句将 北京奥运 添加到列表框List1 的首相。(A)List1.Text=北京奥运 (B)List1.AddItem 北京奥运 (C)List1.List(0)=北京奥运 (D)List1.AddItem 北京奥运,0(答案：D)31206.使用（）方法可以只删除列表框指定项目。(A)Cls(B)Clear(C)Remove(D)RemoveItem(答案：D)31207.用（）方法可将项目添加到组合框中。(A)List(B)ListIndex(C)Add(D)AddItem(答案：D)31208.能输出组合框Combo1 中现有项目数的

29、语句是（）。(A)Print Combo1.ListIndex(B)Print Combo1.Index(C)Print Combo1.ListCount(D)Print Combo1.Count(答案：C)31209.使用（）语句可将组合框Combo1 的第 3 项置为当前项。(A)Combo1.ListIndex=3(B)Combo1.Index=3(C)Combo1.ListIndex=2(D)Combo1.Index=2(答案：C)31301.计时器控件以一定时间间隔触发（）事件。(A)Enabled(B)Interval(C)Timer1(D)Timer(答案：D)31302.将框架

30、的（）属性设为False，可使框架内的所有对象在运行时均不可操作。(A)Enabled(B)Visible(C)BorderSytle(D)ClipControls(答案：A)31303.拖动滚动条中的滑块将触发滚动条的（）事件。(A)Slide(B)Scroll(C)DragOver(D)DragDrop(答桠?：B)31304.下列叙述错误的是（）。(A)计时器的Enabled 属性为 False，会暂停计时器的计时操作(B)运行时计时器不可见，所以其位置和大小无关紧要(C)触发计时器Timer 事件的时间间隔可人为设定(D)计时器的Interval 属性以秒为单位(答案：D)31305.

31、用（）分隔同一窗体中的多组单选按钮，使它们互不干扰。(A)框架(B)组合框(C)复选框(D)列表框(答案：A)31306.单击滚动条两端的箭头可触发滚动条的（）事件。(A)Change(B)Scroll(C)DragOver(D)ItemCheck(答案：A)31307.设置（）属性可改变单击滚动条两端箭头时的滚动步长。(A)Max(B)Min(C)LargeChange(D)SmallChange(答案：D)31308.将框架的（）属性设为False，可使框架内的所有对象在运行时均不可见。(A)Enabled(B)Visible(C)BorderSytle(D)ClipControls(答案

32、：B)31309.计时器控件能正常工作应具备的两个条件是（）㠠?(A)Enabled 属性为 True 和 Interval 属性为 0(B)Enabled 属性为 False 和 Interval 属性为 0(C)Enabled 属性为 True 和 Interval 属性非 0(D)Enabled 属性为 False和 Interval 属性非 0(答案：C)31401.使用（）方法将焦点移到某个控件上。(A)SetFocus(B)GotFocus(C)Move(D)Refresh(答案：A)31402.文本框获得焦点时，能触发KeyPress 事件的操作是（）。(A)选定文

33、本框中内容(B)双击文本框(C)按下键盘上的某个键(D)单击文本框(答案：C)31403.下列叙述错误的是（）。(A)所有的控件均支持Tab 顺序(B)可以在设计阶段改变Tab 顺序(C)可以在运行阶段改变Tab 顺序(D)可以设置相应的属性使Tab 顺序不起作用(答案：A)31404.下列描述正确的是（）。(A)不同控件的TabIndex属性可以相同(B)同一窗体中不同控件的TabIndex属性值可以任意设置(C)窗体、命令按钮、标签和文本框控件都有TabIndex属性(D)窗体上控件的TabIndex属性堠?必须小于该窗体的控件个数(答案：D)31405.对文本框Text1 编写如下事件过

34、程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As String b=Chr(KeyAscii)KeyAscii=Asc(UCase(b)End Sub 运行时，下列叙述正确的是（）。(A)Text1 中无法输入字符(B)Text1 中内容为 b(C)Text1 中输入的字符都变为大写(D)Text1 中输入的字符都被转换成ASCII 码(答案：C)31406.下列叙述错误的是（）。(A)在 KeyDown 事件中，键盘上输入的A 或 a 被视作相同的字母(B)在 KeyUp 事件中，键盘上的1 和右侧小键盘上的1 视作不同的数字

35、(C)只有获得焦点的对象才能够接受键盘事件(D)KeyPress 事件中可以识别键盘上某个键的按下与释放(答案：D)31407.下列叙述错误的是（）。(A)如果文本框的TabStop 属性为 False，则不能接收从键盘上输入的数据(B)文本框的Enabled 属性为 False 时，其 Tab 顺序不起作用(C)文本框失去焦点时，触发LostFoc us事件(D)可以用 TabIndex属性改变Tab 顺序(答案：A)31408.设置控件的（）属性为 False，使该控件不能通过Tab 键得到焦点。(A)GotFocus(B)SetFocus(C)TabStop(D)TabIndex(答案：

36、C)31409.要使用自定义的鼠标指针，必须将MousePointer 属性设置为（）。(A)0(B)15(C)3(D)99(答案：D)31501.下列求两数中最小数的程序段不正确的是（）。(A)If x y Then Min=x Else Min=y(B)Min=IIf(x y，x，y)(C)Min=x:If y =x Then Min=y(D)If y z-x Then z=x+y If x+y z-y Then x=z+y Print x,y,z(A)3 5 9(B)14 3 11(C)8 3 11(D)8 5 9(答案：B)31503.窗体上有一个命令按钮Command1，编写如下事件

37、过程：Private Sub Command1_Click()Sum=0 For m=1 To 3 Select Case m Case 1 a=1 Case 2 a=2 Case 3 a=3 End Select Print a,Sum=S um+a Next m Print Sum End Sub 运行时，单击按钮，输出结果是（）。(A)3 3 3 9(B)3 2 1 6(C)1 1 1 3(D)1 2 3 6(答案：D)31504.窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a=80:b=50:c=30 If a c T

38、hen b=c If b=c And a c Then c=a+b Print a,b,cEnd Sub 运行时，单击按钮，窗体输出的结果是（）。(A)80 50 30(B)80 30 30(C)50 30 80(D)50 30 30(答案：B)31505.执行下列程序段后，x 的值是（）。n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i 3 Print B Case 5 To 10 Print C Case Else Print D End Select(A)A(B)B(C)C(D)D(答案：B)31507.执行下列语句后，x 的值是?）。a=3

39、 x=IIf(a 5,int(-5.6),Fix(5.6)(A)5(B)-5(C)6(D)-6(答案：A)31508.窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a=Val(InputBox(请输入分数：,计算你的等级,60)If a 100 Then Print 输入错误 ElseIf a 60 Then Print 不合格 ElseIf a 80 Then Print 合格 Else Print 优秀 End If End Sub 运行时，单击按钮，在输入对话框中直接回车，输出结果为（）。(A)输入错误(B)不合格(C)合

40、格(D)优秀(答案：C)31509.如果 x 小于 y 的平方，则在窗体上输出OK。完成该要求的单行条件语句是（）。(A)If x y 2 Then OK(B)If x y 2 Then Show OK(C)If x y 2 Then Print OK(D)If x y 2 Then Put OK(答案：C)31601.已知字母 D 的 ASCII 码是 68。在窗体上添加命令按钮Command1，并编写如下事件过程：Private Sub Command1_Click()m=68:a=D Print a For i=()循环次数的控制m=m+1 a=Chr(m)+a+Chr(m)Print

41、a Next i End Sub 运行时，要使单击按钮后输出如下结果，程序中的空缺部分应为（）。D EDE FEDEF GFEDEFG(A)1 To 4(B)1 To 3(C)1 To 4 step 2(D)1 To 3 step 2(答案：B)31602.阅读下列程序段：x=0 For i=1 To 4 For j=1 To i x=x+1 Next j,i 执行以上循环后，x 的值为（）。(A)6(B)9(C)10(D)16(答案：C)31603.运行下列程序，单击窗体后输出的结果是（）。Private Sub Form_Click()Dim k As Integer For k=1 To

42、 2 Print 3+k;3&k;Spc(3);Next End Sub(A)31 31 32 32(B)4 31 5 32(C)31 31 32 32(D)4 31 5 32(答案：D)31604.执行下列程序段后输出的结果是（）。s=1 For i=1 To 3 For j=0 To i-1 s=s+s*j Next j?s;Next I(A)1 2(B)2 1(C)2 2 12(D)1 2 12(答案：D)31605.阅读下列程序段：m=0 For i=1 To 3 For j=1 To i m=m+j Next j,i 执行以上的循环后，i和 m 的值分别为（）。(A)3 6(B)3

43、10(C)4 6(D)4 10(答案：D)31606.运行下列程序段，其中“n=n+1”语句被执行的次数是（）。Dim m%,n%For m=1 To 3 For n=1 To 6 Step 2 n=n+1 Print n Next Next(A)3(B)6(C)9(D)18(答案：B)31607.窗体上有两个文本框（Text1、Text2）和一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x=0 Do While x 50 x=(x+2)*(x+4)n=n+1 Loop Text1.Text=CStr(n)Text2.Text=CStr

44、(x)End Sub 运行时，单击按钮，Text1 和 Text2 将分别显示（）。(A)0 和 0(B)1 和 8(C)2 和 120(D)3 和 15180(答案：C)31608.窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()For i=1 To 4 For j=4 To 8 Sum=Sum+1 Next j Next i Print Sum End Sub 运行时，单击按钮，输出结果是（）。(A)4(B)8(C)20(D)32(答案：C)31609.窗体上有一个命令按钮Command1，编写如下事件过程：Private S

45、ub Command1_Click()a=0 For m=1 To 3 a=a+1 b=0 For j=1 To 3 a=a+1 b=b+2 Next j Next m Print a,b End Sub 运行时，单击按钮，输出结果是（）。(A)6 6(B)6 18(C)12 6(D)12 18(答案：C)31701.在通用声明中给出Option Base 1 语句，则数组a 包含（）个元素。Dim a(3,-2 To 1,5)(A)120(B)75(C)60(D)13(答案：C)31702.下列叙述错误的是（）。(A)控件数组的每一个元素共享同样的事件过程(B)控件数组的每一个元素都有与之相

46、关联的下标值(C)控件数组的每一个元素都有不同的Name 属性作为标识(D)可在运行过程中删除控件数组的某个元素(答案：C)31703.运行下列程序，单击窗体后输出的结果是（）。Private Sub Form_Click()Dim a Dim s As Integer,i As Integer a=Array(1,2,3)For i=2 To 0 Step-1 s=s+a(i)*a(i)Next i Print s End Sub(A)13(B)14(C)不确定(D)程序出错(答案：B)31704.如下数组声明语句中数组a 包含的元素个数为（）。Dim a(3,-2 To 1,5)(A)96

47、(B)75(C)60(D)13(答案：A)31705.下列语句错误的是（）。(A)Private a(-10 To 5)(B)Dim a(N)N 为变量(C)Dim a()As Integer(D)Dim a%(10,-10 To-10)(答案：B)31706.运行下列程序，单击窗体后输出的结果是（）。Private Sub Form_Click()Dim a Dim s As Integer,i As Integer a=Array(1,2,3,4,5,6)s=1 For i=5 To 1 Step-2 s=s*a(i)Next i Print s End Sub(A)15(B)48(C)1

48、20(D)720(答案：B)31707.窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Dim a(10)For j=6 To 10 a(j)=j-5 Next j Text1.Text=a(0)+a(a(10)/a(6)End Sub 运行时，单击按钮，Text1 中显示（）。(A)0(B)1(C)2(D)3(答案：A)31708.能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。(A)ReDim arr(7)(B)ReDim Preserve arr(7)(C)Public arr(1 To 7)(D)S

49、tatic arr(7)(答案：B)31709.如下程序段中包含一个错误。x=4 Dim a(x)For m=4 To 0 Step-1 a(m)=m+1 Next m 出错的原因是（）。(A)第四行，数组元素a(m)下标越界(B)第四行，不能用循环变量m 进行运算(C)第二行，不能用变量定义数组下标(D)以上原因都不对(答案：C)31801.窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1），阅读如下程序：Private Sub func(T As TextBox,a As Integer)T.Text=1234 a=a*a End Sub Private Sub

50、 Form_Load()Text1.Text=ABCD Text2.Text=10 End Sub Private Sub Command1_Click()Dim temp As Integer temp=Val(Text2.Text)Call func(Text1,temp)Text2.Text=temp End Sub 运行后，单击按钮，Text1 和 Text2 将分别显示（）。(A)ABCD 和 10(B)1234 和 100(C)ABCD 和 100(D)1234 和 10(答案：B)31802.窗体上有命令按钮Command1 和 Command2，请阅读下列程序：Dim a As