VB模拟选择题(已完成)

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）.cis （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） VB

3、采用事件驱动编程机制（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*5S1 = VB Test则S1的值为()(A) VB Test(B) VB Te(C

4、) VBTes(D) BTest(答案：B)30203.下列()是合法的变量名(A) xy(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 (在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。static 语句声明的变量，与dim语句声明的变量的主要区别 是：前者只能在sub或function 过程中使用，在退出sub或

5、function过程后变量的值保留；后者使用在sub或function过 程中时，退出sub或function 过程后变量的值不保留。)(D) Private(答案：C)30206.定义变量时如不指定类型，该变量为()变量。(A) In teger(B) Stri ng(C) Variant(Variant数据类型是所有没被显式声明(用如Dim、Private、Public 或Static 等语句)为其他类型变量的 数据类型。Variant数据类型并没有类型声明字符。即变体类型)(D) Si ngle(答案：C)30207.用户自定义数据类型的成员不能是()。(A) 数组(B) 日期型(C)

6、货币型(D) 定长字符串(答案：A)30208.下列()是合法的变量名。(A) x%y(B) 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) (4 + 6 5 * 7 / 9 Mod 3=4 + 6 35 / 9 mod 3=4 + 6 3.8888888 mod 3=4 + 1 mod 3=4 + 1=5)30302.下列逻辑表达式为 True的是()。(A) Av9(B) Aa(C) a

7、AT(D) ATvAND(答案：C)30303.下列运算符中，优先级最高的是()。(A) Like(B) Mod(C) Not(D) Eqv(答案：B)30304.设 a=6， b=5，c=-2;执行语句 Print a 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) (答案： D) 30307. 表达式 2 = 3

8、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

9、) 8(答案： B)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) Pictur

10、e1.Print(B) Form1.Print(C) Debug.Print(D) Text1.Print)分隔多个表达式。(答案： D)30507. 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)3

11、0601. 执行 x = InputBox( 请输入半径 ,0,求面积 ) ，在输入框中 输入 3后回车 ,则下列叙述正确的是( )。(A) x 的值是数值 3(B) x 的值是字符 3(C) 0 是默认值(D) 对话框标题是 求面积 (答案： B)这个 inputbox 是错误的，正确的是 x=val( “请输入半径 ”, “求面 积”，0)30602. 执行 x = MsgBox( 数据类型不匹配 ,1,出错提示 !) ，然后 单击消息框的 取消按钮， x 的值是( )。(A) True(B) False(C) 1(D) 2(答案： D)30603. 下列语句正确的是( )。(A) Msg

12、Box 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(D) 出错(答案： A)30605. 执行 MsgBox 除数不能为 0！, 48, 数据出错 ，在弹出的停止图标消息框中显示的图标是( )。 (A)(B) 问号图标(C) 感叹号图标(D) 消息图标(答案： C)30606. 下

13、列语叠 ?组：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) MsgBox a$, ,b$,c$ 执行后消息框中显示的内容是( )(A) Today(B) Tomorrow(C) Today And Tomorrow(D) 1(答案： C)30

14、608. 下列程序运行时 ,消息框显示的内容是()。Private Sub Command1_Click()MsgBox CStr(123 + 321)End Sub(A) 444(B) 123321(C) 123+321(D) 显示出错信息(答案： A)Msgbox 有计算功能30609.窗体上有一个命令按钮 Comma nd1，编写如下事件过程：Private Sub Command1_Click()x = InputBox(x=)y = InputBox(y=)Print x + yEnd Sub运行后，单击命令按钮，先后在两个输入对话框中输入 123 和 321 ，窗体显示的内容是(

15、)。(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) 窗体的Name属性定义窗体的名称(C) 可以在运行期间改变窗体的 N

16、ame 属性(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) 任何时刻

17、最多只有一个窗体是活动窗体(C) 标准模块不能设置为启动模块(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. 运行后，在

18、窗口上单击鼠标时，窗体不会接收到的事件 是( )。(A) MouseDown(B) MouseUp(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

19、)30803. 设置( )属性使标签 Label1 没有边框。(A) Label1.BorderStyle = 0(B) Label1.BorderStyle = 1(C) Label1.BackStyle = True(D) Label1.BackStyle = False(答案： A)30804. 下列叙述错误的是( )。(A) 标签和文本框都有 Move 方法？(B) 标签和文本框都有 Text 属性(C) 标签具有 Caption 属性，而文本框没有(D) 文本框具有 Locked 属性，而标签没有(答案： B)30805. 下列控件属性赋值语句错误的是( )。(A) Label1 =

20、 欢迎 (B) Text1.Text = 欢迎 (C) Text1 = 欢迎 (D) Text = 欢迎 (答案： D)30806. 设置标签 Label1 的( )属性使它不可见。(A) Label1.Visible = 0(B) Label1.Visible = 1(C) Label1.Visible = True(D) Label1.Visible = False (答案： D) 30807. 设置标签的( )属性，可改变其文字对齐方式。(A) Justify(B) Font(C) Alignment(D) 以上都不是(答案： C)30808. 触发文本框 Change 事件的操作是(

21、)。(A) 改变文本框的内容(B) 改变文本框的大小(C) 文本框获得焦点(D) 文本框失去焦点(答案： A)30809. 修改文本框的内容触发( )事件。(A) Modify(B) Change(C) ChangeData(D) AutoSize(答案： B)30901. 设置图像框的( )可使框内的图片按图像框大小自动调 整。(A) AutoSize 属性为 True(B) AutoSize 属性为 False(C) Stretch 属性为 True(D) Stretch属性为False (使图像框适应图像)(答案： C)30902. 下列语句组：ScaleWidth = 100 : Sc

22、aleHeight = 100Circle(50, 40) ,10, , , ,2 绘制的是( )。(A) 圆形(B) 椭圆(C) 扇形(D) 弧线(答案：B)30903.将当前目录下的图形文件Clock.jpg装入图片框Picturel的语句是()。(A) Picture = Clock1.jpg(B) Picture = LoadPictureCCIock1.jpg)(C) Picture1.Picture = Clock1.jpg(D) Picture1.picture = LoadPicture(Clock1.jpg)(答案：D)30904.设置Line控件的()属性可使其呈现不同式样

23、。(A) BorderStyle(B) Style(C) FillStyle(D) Shape(答案：A)3090 5.下列叙述错误的是()。(A) Scale方法用来定义新坐标系(B) 窗体缺省坐标原点在窗体的左下角(C) ScaleLeft和ScaleTop属性可改变坐标系的原点位置。(D) ScaleWidth和ScaleHeight属性可改变其对象高度和宽度的刻度单位(答案： B)30906. 下列叙述错误的是( )。(A) Pset 方法用于绘制点(B) Circle 方法用于画圆、椭圆、圆弧和扇形(C) Line 方法用于画直线或矩形(D) Ponit 方法用于绘制有颜色的点(答案

24、： 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) 图像框(D) 图片框(答案： B)31001.复选框的Value属性为0表示()。(A) 复选框未被选中(B) 复选框被选

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

26、 = 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

27、 = False (答案： B)31007. 复选框和单选按钮的( ) 属性可以反应其当前状态。(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) 按钮的 E

28、nabled 属性为 False(B) 按钮的 Sytle 属性为 0(C) 按钮的 Default 属性为 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. 设置命令按钮的( )属性，可使指针指向该按

29、钮时显示 提示内容。(A) Caption(B) ToolTipText(C) Font(D) Tag(答案： B)31105. 下列( )方法不能触发命令按钮的 Click 事件。(A) 在程序运行时单击命令按钮(B) 在代码中设命令按钮的 Value 属性为 True(C) 在设计时设命令按钮的 Default属性为True，运行时按ESC 键 (cancle 属性 )(D) 使用 Tab 键把焦点移到按钮上，然后按空格键或回车键(答案： C)31106. 下列描述错误的是( )。(A) 单击命令按钮可触发 MouseDown 事件(B) 单击命令按钮可触发 MouseUp 事件(C) 命

30、令按钮支持单击事件(D) 命令按钮支持双击事件(答案： D)31107. 窗 体 上 有 命 令 按 钮 OK, 它 的 单 击 事 件 过 程 为 CmdOK_Click() ，则该按钮的 Name 和 Caption 属性分别为( )。(A) OK,Cmd(B) Cmd,OK(C) CmdOK,OK(D) OK ， CmdOK(答案： C)31108. 执行( )语句，可使窗口的按钮 Command1 上显示 “确定”(A) Command1.Show = 确定 (B) Command1.Caption = 确定 (C) Command1.Name = 确定 (D) Command1.Vi

31、sible = 确定 (答案： B)31109. 命令按钮不能响应( )事件。(A) DblClick(B) DragDrop(C) KeyPress(D) MouseMove(答案： A)31201. 引用列表框 List1 最后一项数据应使用( )(A) List1.List ( ListCount-1)(B) List1.List ( List1.ListCount-1)(C) List1.List ( ListCount)(D) List1.List ( List1.ListCount)(答案： B)31202. 下列( )控件结合了文本框和列表框的特性。(A) 图片框(B) 图像框(

32、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) List1.Text(答案： D)31205. 使用( )语句将 北京奥运 添加到列表框 List1 的首项。(A) List1.Text = 北京奥运 (B) List

33、1.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 中现有项目数的语句是( )。(A) Print Combo1.ListIndex(B) Print Combo1.Inde

34、x(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.将框架的()属性设为False,可使框架内的所有对象在 运行

35、时均不可操作。(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. 用(

36、)分隔同一窗体中的多组单选按钮，使它们互不干 扰。(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) BorderS

37、ytle(D) ClipControls(答案： 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)3140

38、2.文本框获得焦点时，能触发KeyPress事件的操作是()(A) 选定文本框中内容(B) 双击文本框(C) 按下键盘上的某个键(D) 单击文本框(答案： C)31403. 下列叙述错误的是( )。(A) 所有的控件均支持 Tab 顺序(B) 可以在设计阶段改变 Tab 顺序(C) 可以在运行阶段改变 Tab 顺序(D) 可以设置相应的属性使 Tab 顺序不起作用(答案： A)31404. 下列描述正确的是( )。(A) 不同控件的 TabIndex 属性可以相同(B) 同一窗体中不同控件的 TabIndex 属性值可以任意设置(C) 窗体(没有)、命令按钮、标签和文本框控件都有 TabInd

39、ex 属性(D) 窗体上控件的 TabIndex 属性堠 ?必须小于该窗体的控件个 数(答案： D)31405. 对文本框 Text1 编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCase(b)End Sub运行时，下列叙述正确的是( )。(A) Text1 中无法输入字符(B) Text1 中内容为 b(C) Text1 中输入的字符都变为大写(D) Text1 中输入的字符都被转换成 ASCII 码(答案： C)31406. 下

40、列叙述错误的是( )。(A) 在 KeyDown 事件中，键盘上输入的 A 或 a 被视作相同的字 母(B) 在 KeyUp 事件中， 键盘上的 1和右侧小键盘上的 1视作不同 的数字(C) 只有获得焦点的对象才能够接受键盘事件(D) KeyPress 事件中可以识别键盘上某个键的按下与释放( X ) (答案： D)31407. 下列叙述错误的是( )。(A) 如果文本框的TabStop属性为False,则不能接收从键盘上输 入的数据 (造成的结果是通过 Tab 无法获得焦点，而非无法接收 输入的数据 )(B) 文本框的Enabled属性为False时，其Tab顺序不起作用(C) 文本框失去焦

41、点时，触发 LostFoc us 事件(D) 可以用Tab In dex属性改变Tab顺序(答案： A)31408.设置控件的()属性为False，使该控件不能通过Tab键得到焦点。 (A) GotFocus(B) SetFocus(C) TabStop(D) TabIndex(答案： 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

42、 y ， x， y)(C) Min = x : If y = x Then Min = y(D) If y z - x Then z = x + yIf x + y z - y Then x = z + yPrint x, y, z(A) 3 5 9(B) 14 3 11(C) 8 3 11(D) 8 5 9(答案： B)31503.窗体上有一个命令按钮 Comma ndl,编写如下事件过程:Private Sub Command1_Click()Sum = 0For m = 1 To 3Select Case mCase 1a = 1Case 2 a = 2Case 3End SelectP

43、rint a,Sum = S um + aNext mPrint SumEnd Sub 运行时，单击按钮，输出结果是( )。(A) 3 3 3 9(B) 3 2 1 6(C) 1 1 1 3(D) 1 2 3 6(答案： D)31504.窗体上有一个命令按钮 Comma ndl,编写如下事件过程:Private Sub Command1_Click() a = 80: b = 50: c = 30If a c Then b = cIf b = c And a c Then c = a + bPrint a, b, cEnd Sub 运行时，单击按钮，窗体输出的结果是( )。(A) 80 50

44、30(B) 80 30 30(C) 50 30 80(D) 50 30 30(答案： B)31505. 执行下列程序段后， x 的值是( )。n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i 3Print BCase 5 To 10Print CCase ElsePrint DEnd Select(A) A(B) B(C) C(D) D(答案：B)(一步一步的执行，先执行上一步(is3)再执行(5 to 10)31507.执行下列语句后，x的值是 ?)。a = 3x = IIf(a 5, int(-5.6), Fix(5.6)(A) 5(B

45、) -5(C) 6(D) -6(答案： A) IIF( 表达式 1 ，表达式 2.表达式 3 )当表达式 1 的值为 true 时，执行表达式 2，否则是表达式 3)31508.窗体上有一个命令按钮 Comma ndl,编写如下事件过程：Private Sub Command1_Click()a = Val(lnputBox(请输入分数：,计算你的等级,60)If a 100 ThenPrint 输入错误 Elself a 60 ThenPrint 不合格 Elself a 80 ThenPrint 合格 ElsePrint 优秀 End lfEnd Sub运行时， 单击按钮， 在输入对话框中

46、直接回车， 输出结果为 ( )(A) 输入错误(B) 不合格(C) 合格(D) 优秀(答案： C)31509. 如果 x 小于 y 的平方， 则在窗体上输出 OK 。完成该要求 的单行条件语句是( )。(A) If x y 八 2 The n OK(B) If x y 八 2 The n Show OK(C) If x y 八 2 The n Prin t OK(D) If x y 八 2 The n Put OK(答案： C)31601. 已知字母 D 的 ASCII 码是 68。在窗体上添加命令按钮Comma ndl,并编写如下事件过程：Private Sub Command1_Click

47、()m = 68: a = DPrint aFor i = () 循环次数的控制m = m + 1a = Chr(m) + a + Chr(m)Print aNext iEnd Sub运行时， 要使单击按钮后输出如下结果， 程序中的空缺部分应为 ( )。D:(本来就有的，不在循环内)EDEFEDEFGFEDEFG(A) 1 To 4(B) 1 To 3(C) 1 To 4 step 2(D) 1 To 3 step 2 (答案： B) 31602. 阅读下列程序段： x = 0For i = 1 To 4For j = 1 To i x = x + 1 Next j, i 执行以上循环后， x

48、 的值为( )。(A) 6(B) 9(C) 10(D) 16(答案： C) ( 0+1) +(1+1)+(1+1+1)+( 1+1+1+1) 31603. 运行下列程序，单击窗体后输出的结果是( ) Private Sub Form_Click()Dim k As IntegerFor k = 1 To 2Print 3 + k; 3 & k; Spc(3);NextEnd Sub(A) 31 3132 32(B) 4 315 32(C) 31 31 32 32(D) 4 31 5 32 (答案： D) 31604. 执行下列程序段后输出的结果是( ) s = 1For i = 1 To 3F

49、or j = 0 To i-1 s = s + s * j Next j print s;Next I(A) 1 2(B) 2 1(C) 2 2 12(D) 1 2 12 (答案： D) (S=1+0=1S=1+0=1:s=1+1*1=2S=2+2*0=2:s=2+2*1=4 S=4+4*0=4:s=4+4*1=8:s=8+8*B=24?) 31605. 阅读下列程序段：m = 0For i = 1 To 3For j = 1 To i m = m + j Next j, i 执行以上的循环后， i 和 m 的值分别为( )。(A) 3 6(B) 3 10(C) 4 6(D) 4 10(答案： D) (注意陷阱 )31606.运行下列程序段，其中“n=n+1语句被执行的次数是()Dim m%, n%For m = 1 To 3For n = 1 To 6 Step 2n = n + 1Print nNext(A) 3(B) 6(C) 9(D) 1