当前位置:首页 >> 其它课程 >>

VB复习题


2010-2011(2)VB 选择题复习资料

1 (A) (B) (C) (D) 2 (A) (B) (C) (D) 3 (A) (B) (C) (D) 4 (A) (B) (C) (D) 5 (A) (B) (C) (D) 6 (A) (B) (C) (D) 7 (A) (B) (C) (D) 8 (A) (B) (C) (D)

&q

uot;当程序中断修改后再运行时,VB 进入( )模式。 设计 运行 中断 编程" B "以下( )控件可作为容器使用。 Label PictureBox TextBox Image" B "VB 是一种面向( )的程序设计设计语言。 过程 用户 对象 方法" C "以下关于窗体的叙述中,错误的是( ) 。 窗体的 Enabled 属性用于设置窗体及窗体上的控件是否响应事件 窗体的 MaxButton 属性只能在设计状态设置 窗体的 Hide 方法用于从内存中清除窗体 窗体的 Cls 方法用来清除窗体上运行时打印的文字或绘制的图形" C "以下叙述中错误的是( ) 。 一个工程可以含有多个标准模块文件 窗体文件包含该窗体及其控件的属性 以 BAS 为扩展名的文件是资源文件 在工程资源管理器窗口可以包含多个工程文件及属于该工程的其他文件" C "在设计阶段,双击窗体上的某个控件时,打开的窗口是( ) 。 工程资源管理器窗口 窗体布局窗口 代码窗口 属性窗口" C "下列关于保存工程的说法正确的是( ) 。 保存工程时只保存窗体文件即可 保存工程时只保存工程文件即可 保存窗体文件且保存工程文件 工程文件与窗体文件是同一个文件" C "在设计阶段,双击窗体上任一空白处,打开的窗口是( ) 。 工程资源管理器窗口 代码窗口 工具箱窗口 属性窗口" B

1

9 (A) (B) (C) (D) 10 (A) (B) (C) (D) 11 (A) (B) (C) (D) 12 (A) (B) (C) (D) 13 (A) (B) (C) (D) 14 (A) (B) (C) (D) 15 (A) (B) (C) (D) 16 (A) (B) (C) (D) 17 (A) (B) (C)

"当一个工程含有多个窗体时,单击“启动”命令按钮,运行的窗体是( ) 。 正在编辑的窗体 第一个添加的窗体 最后一个添加的窗体 在“工程属性”对话框中指定的窗体" D "下列叙述中,正确的是( ) 。 事件可以由用户触发,也可以由系统触发 Visual Basic 应用程序只能以解释方式执行 保存 Visual Basic 程序时,只需保存窗体文件即可 所有控件都有 DblClick 事件" A "下列叙述中错误的是( ) 。 VB 6.0 是事件驱动可视化编程工具 VB 6.0 的应用程序没有明显的开始和结束语句 VB 6.0 中控件的所有属性均可在属性窗口中设置 VB 6.0 通过“工具”菜单的“选项”实现显示代码的字体大小" C "标准控件不包括( )控件。 驱动器列表框 文件列表框 目录列表框 通用对话框" D "下列不属于 VB 三种模式的是( )模式。 设计 运行 代码 中断" C "下列属于容器的控件是( ) 。 Image PictureBox ListBox TextBox" B "下列( )语言不属于面向对象的程序设计语言。 C C++ VB Delphi" A "以下叙述中错误的是( ) 。 可用 Print 方法在窗体或图片框上显示表达式内容 用 Show 方法可显示工程中的各窗体 用 Hide 方法隐藏的窗体还在内存中 可用 Cls 方法清除窗体或文本框中的文本" D "以下叙述中错误的是( ) 。 运行一个工程时,首先显示 Form1 窗体 打开一个工程同时也打开其所含的多个窗体和标准模块文件 窗体 Load 事件中的 Print 方法是否有效要取决于窗体 AutoRedaw 属性的设置

2

(D) 窗体的 Enabled 属性用于设置窗体及窗体上的控件是否响应事件" A 18 "有程序代码:Picture1.Picture = LoadPicture(""C:\Pict.bmp"") ,则:Picture1、Picture 和 LoadPicture 分别代表( ) 。 (A) 对象、方法、值 (B) 对象、属性、方法 (C) 对象、属性、值 (D) 对象、属性、函数" D 19 "下列叙述正确的是( ) 。 (A) Visual Basic 的事件是由用户定义的 (B) Visual Basic 程序从主窗体开始执行 (C) Visual Basic 程序是过程驱动的 (D) 保存一个 Visual Basic 程序,应分别保存其窗体模块、标准模块和工程文件" D 20 "下列关于 Visual Basic 的叙述不正确的是( ) 。 (A) 变量名区分字母大、小写 (B) 不能用系统保留字声明为变量名 (C) 允许在一行中书写多条语句,但要用冒号隔开 (D) 允许一条语句分成若干行书写,但要在上一行末加上空格及下划线作为续行标志" A 21 "下列( )控件不是容器。 (A) Form (B) Label (C) Frame (D) PictureBox" B 22 "下列关于窗体的叙述中,错误的是( ) 。 (A) 窗体的 Enabled 属性为 False 时,窗体及窗体上的控件不能响应事件 (B) 窗体的 Moveable 属性用于设置窗体在运行时能否被移动 (C) 窗体的 Hide 方法用于关闭窗体,并从内存中删除窗体 (D) 窗体的 WindowsState 属性用于设置窗体运行之初的状态(最大化、最小化或者正常) " C 23 "VB6.0 集成开发环境中不带有( )窗口。 (A) DOS 界面窗口 (B) 窗体窗口 (C) 工程资源管理器窗口 (D) 属性窗口" A 24 "下列叙述中,错误的是( ) 。 (A) VB6.0 是事件驱动型可视化编程工具 (B) VB6.0 应用程序在运行模式下可以查看程序代码,但不能对其进行修改 (C) VB6.0 工具箱中的所有控件都具有 Enabled 和 Top 属性 (D) VB6.0 中控件的所有属性均可在设计模式下设置" D 25 "用户将 ActiveX 控件添加到工具箱中的方法是( ) 。 (A) 选择“工程”菜单下“部件”命令 (B) 选择“工程”菜单下“引用”命令 (C) 选择“工程”菜单下“属性”命令 (D) 选择“工具”菜单下“选项”命令" A 26 " 有 程 序 代 码 如 下 : Label1.Caption = ""Label1.Caption"" , 则 Label1 、 Caption 、

3

""Label1.Caption""分别代表( ) 。 (A) 对象、值、属性 (B) 对象、属性、值 (C) 对象、方法、属性 (D) 对象、事件、值" B 27 "对于窗体,以下( )属性设置值在程序运行时才起作用。 (A) MinButton (B) Left (C) BackColor (D) Name" B 28 "能够被本模块的其它过程引用的是( ) 。 (A) 局部变量 (B) 模块级变量 (C) 静态变量 (D) 以上都是" B 29 "以下( )是不合法的常量。 (A) True (B) 1999-12-1 (C) 100 (D) ""AB""" B 30 "在窗体中,用( )语句声明的变量是静态变量。 (A) Dim Z As Integer (B) Public Z As Integer (C) Private Z As Integer (D) Static Z As Integer" D 31 "用 Dim x,y As Integer 语句声明变量,以下正确的是( ) 。 (A) x 和 y 都是整型变量 (B) x 是变体型变量,y 是整型变量 (C) x 是整型变量,y 是变体型变量 (D) x 和 y 都是变体型变量" B 32 "以下能正确自定义数据类型 Teacher 的代码是( ) 。 (A) Type Teacher Name As String*12 TeL As Integer End Type (B) Type Teacher Name As String*12 TeL As Integer Type End (C) Type Teacher Name As String*12 TeL As Integer End Type Teacher (D) Type Teacher

4

Name String*8 TeL As Integer End Teacher" A 33 "以下( )是合法的变量名。 (A) X+Y (B) xyz123 (C) _xyz (D) integer" B 34 "以下能正确定义数据类型 StuIt 的代码是( ) 。 (A) Type StuIt Name As String*8 Xh As Integer End ? Type StuIt (B) Type StuIt Name As String*8 Xh As Integer Type End (C) Type StuIt Name As String*8 Xh As Integer End ? Type (D) Type StuIt Name String*8 Xh As Integer End StuIt" C 35 "下列( )是合法的变量名。 (A) X-Y (B) xy_z (C) 23x_yz (D) integer" B 36 "设有语句: Dim S1 As String*6 S1 = ""VB Test"" 则 S1 的值为( ) 。 (A) VB Te (B) VB Tes (C) BTest (D) VB Test" B 37 "下列变量的数据类型为长整型的是( ) 。 (A) X! (B) X% (C) X$ (D) X&" D 38 "下列对变量的定义中,定义 X 为变体型变量的是( ) 。

5

(A) Dim X as Double (B) Dim X (C) Dim X! (D) X%=23" B 39 "下列没有类型说明符的数据类型是( ) 。 (A) 字符型 (B) 对象和变体类型 (C) 单精度型 (D) 长整型" B 40 "下列( )不是合法常量。 (A) False (B) #2009-12-26# (C) Const pi=3.14 (D) 2009-12-26" D 41 "在“通用、声明”段中用以下语句定义数组,则数组 A 的元素个数是( ) 。 Option Base 1 Dim A%(4,-1 To 3,3) (A) 60 (B) 80 (C) 120 (D) 36" A 42 "以下( )的变量可以被该窗体其它过程引用。 (A) 在窗体 Load 事件中用 Dim 语句定义 (B) 在窗体某过程中用 Public 语句定义 (C) 在窗体某过程中用 Static 语句定义 (D) 在窗体“通用 声明”段中用 Dim 语句定义" D 43 "下列按取值范围从小到大的顺序排列的数据类型是( ) 。 (A) 整型,长整型,单精度,双精度 (B) 整型,变体型,单精度,双精度 (C) 长整型,货币型,单精度,双精度 (D) 整型,长整型,双精度,单精度" A 44 "以下能正确定义数据类型 ieBook 的是( ) 。 (A) Type ieBook Name As String*8 ie As Integer End Type ieBook (B) Type ieBook Name As String*8 ie As Integer Type End (C) Type ieBook Name As String*8 ie As Integer End Type

6

(D) Type ieBook Name String*8 ie As Integer End ieBook" C 45 "用 Dim A(3,-2 To 2) As Integer 语句定义数组 A 后,下列语句中不正确的是( ) 。 (A) A(3,-2) = 1 (B) A(0,-2) = A(3,-2) (C) A(-1,-1) = A(3,2) - A(3,1) (D) A(2,-2) = 0" C 46 "在语句 Text1.ForeColor=vbRed 中,vbRed 是( ) 。 (A) 直接常量 (B) 系统常量 (C) 符号变量 (D) 系统变量" B 47 "以下( )是不合法的变量。 (A) True (B) True1 (C) str1 (D) int_A" A 48 "能够被模块内的所有过程引用的变量是( ) 。 (A) 过程级变量 (B) 模块级变量 (C) 静态变量 (D) 动态变量" B 49 "计算圆面积,精确到两位小数,面积 s 的变量类型应当为( ) 。 (A) String (B) Integer (C) Double (D) Boolean" C 50 "以下( )是合法的变量名。 (A) a123 (B) a 123 (C) 123a (D) Date" A 51 "以下( )是合法的日期型常量。 (A) ""12/26/2010"" (B) 12/26/2010 (C) #12/26/2010# (D) {12/26/2010}" C 52 "以下能正确自定义数据类型为 Worker 的代码是( ) 。 (A) Type Worker Name As String*12 Age As Integer End Type

7

(B)

Type Worker Name As String*12 Age As Integer Type End (C) Type Worker Name As String*12 Age As Integer End Type Worker (D) Type Worker Name String*8 Age As Integer End ? Worker" A 53 "用 Dim x, y, j As Integer, m, n As Single 语句声明多个变量,以下说法正确的是( (A) x, y, j 都是整型变量,m 是变体型变量,n 是单精度变量 (B) x, y, m 都是变体型变量,j 是整型变量,n 是单精度变量 (C) x, y, j 都是整型变量,m,n 都是单精度变量 (D) x, y, m 都是变体型变量,j 是整型变量,n 是双精度变量" B 54 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() Dim x As Integer Static y As Integer x=x+1 y=y+2 End Sub 运行后,连续两次单击 Command1,x、y 的值分别为( ) (A) 1 4 (B) 1 2 (C) 2 4 (D) 2 2" A 55 "以下算术运算符中,优先级最低的是( ) 。 (A) \ (B) / (C) ^ (D) *" A 56 "Int(1985.5) \10 的值为( ) 。 (A) 198 (B) 198.5 (C) 198.6 (D) 199" A 57 "以下表达式的运算结果中,值最小的是( ) 。 (A) 5\6 (B) 5/6 (C) 6 mod 5 (D) 5 mod 6" A

) 。

8

58 (A) (B) (C) (D) 59 (A) (B) (C) (D) 60 (A) (B) (C) (D) 61 (A) (B) (C) (D) 62 (A) (B) (C) (D) 63 (A) (B) (C) (D) 64 (A) (B) (C) (D) 65 (A) (B) (C) (D) 66 (A) (B) (C)

"以下的 VB 表达式中,错误的是( ) 。 Not(x<0 Or x>10) x > 0 And x < 10 x < 0 Or x > 10 x > 0 : x < 10" D "判断整型变量 x 是 5 的倍数的表达式是( ) 。 x Mod 5 <> 0 x\5<>0 x Mod 5 =0 x\5=0" C "设 a=8,b=6,c= -2;执行语句 Print a>b>c 后,窗体上显示的是( ) 。 1 True False 出错信息" B "判断整型变量是奇数的表达式是( ) 。 n Mod 2 <> 0 n Mod 2 = 0 n Mod 2 ≠ 0 2 Mod 2 ≠0" A "设 a=8:b=6:c= -1;执行语句 Print a=b>c 后,窗体上显示的是( ) 。 1 True False 出错信息" B "下列表达式中,合法的是( ) 。 a<b+c a≥b+c a≤b+c a≠b+c" A "下列语句语法正确的是( ) 。 a=1 b=2 c=3 a=1:b=2:c=3 a=1,b=2,c=3 a=1;b=2;c=3" B "表达式 Int(Rnd*91+10)值的范围是( ) 。 (10,100) (10,100] [10,100) [10,100]" D "下列关系表达式的值为真的是( ) 。 ""A"">""a"" ""9"">""a"" ""That"">""Thank""

9

(D) 67 (A) (B) (C) (D) 68 (A) (B) (C) (D) 69 (A) (B) (C) (D) 70 (A) (B) (C) (D) 71 (A) (B) (C) (D) 72 (A) (B) (C) (D) 73 (A) (B) (C) (D) 74 (A) (B) (C) (D) 75 (A) (B)

12>12.1" C "下列算术运算符中,优先级最高的是( ) 。 Mod / \ +" B "下列运算中,优先级最低的是( ) 。 算术运算 关系运算 逻辑运算 字符运算" C "下列表达式的运算结果中,值最小的是( ) 。 5\6 5/6 6 mod 5 5 mod 6" A "VB 中能表示不属于[0,10]的表达式是( ) 。 10 < x < 0 x < 0 And x > 10 x < 0 : x >10 not (x >= 0 And x < =10)" D "下列不能判断整型变量 x 是 5 的倍数的表达式是( ) 。 x/5=x\5 int(x/5)=x/5 x Mod 5 = 0 5 Mod x = 0" D "下列表达式中,合法的是( ) 。 a \ (b - b) a ≥ b+c a+b=c a≠b mod c"C "下列运算中,优先级最高的是( ) 。 算术运算 关系运算 逻辑运算 字符运算" A "下列关系表达式的值为真的是( ) 。 ""A"" > ""a"" ""9"" < ""7"" ""The"" > ""Thank"" 12 > 12.1" C "表达式 0 Mod 4 ^ 2 + (1 = 1)的值是( ) 。 2 3

10

(C) (D) 76 (A) (B) (C) (D) 77 (A) (B) (C) (D) 78 (A) (B) (C) (D) 79 (A) (B) (C) (D) 80 (A) (B) (C) (D) 81 (A) (B) (C) (D) 82 (A) (B) (C) (D) 83 (A) (B) (C) (D) 84 (A)

9 10" C "设 a=8,b=6,c=1;执行语句 Print a>b>c 后,窗体上显示的是( ) 。 1 True False 出错信息" C "设 a=""12345"",则表达式 Val(Left(a, 3) + Mid(a, 2, 3))的值为( ) 。 123234 ""123234"" 123345 ""123345""" A "能正确判断字符型变量 stra 是字母字符(不区分大小写字母)的表达式是( ) 。 UCase (stra) >= ""A"" And UCase(stra) <= ""Z"" UCase (stra) >= ""A"" Or UCase(stra) <= ""Z"" LCase (stra) >= ""A"" And LCase(stra) <= ""Z"" LCase (stra) >= ""a"" Or LCase(stra) <= ""z""" A "下列算术运算符中,优先级最高的是( ) 。 Mod ^ \ *" B "下列表达式中,不合法的是( ) 。 ""AB"" + 123 ""AB"" & 123 ""AB"" & ""123"" ""AB"" + ""123""" A "下列关系表达式的值为 False 的是( ) 。 ""计算机"" < ""计算机系"" ""9"">""a"" ""CDF"" < ""cdf"" #12/30/2009# < #1/1/2010#" B "表达式 Mid(""ABC"",3)的结果为( ) 。 AAA ABC C CCC" C "赋值语句 a=Left(“123456"",2)执行后,a 的值为( ) 。 12 “12” 23 “23”" B "以下( )语句可表示[50,100]之间的随机整数。 Rnd*51+49

11

(B) (C) (D) 85 (A) (B) (C) (D) 86 (A) (B) (C) (D) 87 (A) (B) (C) (D) 88 (A) (B) (C) (D) 89 (A) (B) (C) (D) 90 (A) (B) (C) (D) 91 (A) (B) (C) (D) 92 (A) (B) (C) (D) 93

Rnd*51+50 Int(Rnd*51)+49 Int(Rnd*51)+50" D "函数 Int(-9.6)和 Int(10.6)的值分别为( ) 。 -10 和 10 -10 和 11 -9 和 10 -9 和 11" A "当 x=-1 时,函数 IIf(x > 0, 1, IIf(x < 0, -1, 0))的返回值是( ) 。 0 1 -1 出错" C "表达式 12+Str(88.8)的值为( ) 。 1288.8 12 88.8 100.8 1288" C "当 x=5 时,函数 IIf(x > 0, 1, IIf(x < 0, -1,0))的返回值是( ) 。 0 1 -1 出错" B "表达式 Len(""2009 计算机等级考试"")的值为( ) 。 9 11 18 14" B "函数 Choose(3,""+"",""-"",""×"",""÷"")返回值是( ) 。 + - × ÷ C " "表达式 4+5\6*7/8 mod 9 的值是( ) 。 4 5 6 7" B "用于获取字符串 S 中从第 4 个字符开始的 4 个字符的函数是( ) 。 Mid(S,4,4) Left(S,4,4) MidStr(S,4,4) MiddleStr(S,4,4)" A "Rnd 函数的功能是( ) 。

12

(A) (B) (C) (D) 94 (A) (B) (C) (D) 95 (A) (B) (C) (D) 96 (A) (B) (C) (D) 97 (A) (B) (C) (D) 98 (A) (B) (C) (D) 99 (A) (B) (C) (D) 100 (A) (B) (C) (D) 101 (A) (B) (C) (D)

产生(0,1)之间的随机数 产生[0,1]之间的随机数 产生(0,1]之间的随机数 产生[0,1)之间的随机数" D "以下( )函数输出的结果为数值型。 format String inputBox ASC" D "设 a=""李大刚"" ,以下( )语句输出的结果为""李""。 Mid(a,1,1) Mid(a,1,2) Mid(a,0,2) Left(a,2)" A "以下( )语句可表示[10,50]之间的随机整数。 Int(Rnd *41 + 9 ) Int(Rnd *41) +10 Int(Rnd *40) + 11 Int(Rnd *40 + 10)" B "以下( )语句能使窗体 Form1 的背景为黄色。 Form1.BackColor=RGB(255,0,255) Form1.BackColor=vbBlue Form1.BackColor=RGB(255,255,0) Form1.BackColor=vbGreen" C "设 x=""ABC"",Y=""AB"",函数 IIf(x < Y, 1, IIf(x > Y, -1, 0))的返回值是( ) 。 0 1 -1 出错" C "表达式 Year(Date)的运行结果是( ) 当前年份 当前日期 当前时间 当前周" A "语句 Print CInt(1234.6)和 Print Int(1234.6)运行结果分别是( ) 1234,1234 1234,1235 1235,1234 1235,1235" C "语句 Print 12+""88.8""运行结果是( ) 1288.8 100.8 88.812 12+88.8" B

13

102 "语句 Print Len(Left(""2010 上海世博"", 4) & ""隆重开幕"")运行结果是( ) (A) 上海世博隆重开幕 (B) 2010 隆重开幕 (C) 8 (D) 12" C 103 "下列语句能设置文本框 Text1 的文字颜色为蓝色的是( ) (A) Text1.ForeColor = RGB(255, 0, 0) (B) Text1.ForeColor = RGB(0, 255, 0) (C) Text1.ForeColor = RGB(0, 0, 255) (D) Text1.ForeColor = RGB(0, 0, 0)" C 104 "表达式 Chr(Int(Rnd * 9 + 67))产生( )范围内的一个英文字符。 (A) ""C""~K"" (B) ""c""~k"" (C) ""B""~J"" (D) ""b""~j""" A 105 "Now 函数返回值的类型是( ) 。 (A) Date (B) Integer (C) String (D) Variant" A 106 "设系统日期是 2010 年 12 月 28 日,则执行语句 D = Date - #1/1/2010#,D,的值为 ( ) 。 (A) 361 (B) #12/28/2010# (C) #1/1/2010# (D) 出错" A 107 "设 a$ = ""ABCDEFG"",下列表达式的值类型为 Integer 的是( ) 。 (A) Len(a) (B) Left(a, 7) (C) Ltrim(a) (D) Lcase(a)" A 108 "函数 String(5, ""str"")的返回值是( ) 。 (A) ""sssss"" (B) ""strstrstrstrstr"" (C) ""str"" (D) 出错" A 109 "在立即窗口中运行以下语句,对其输出结果的描述中,正确的是( ) 。 a=""Beijing"" b=""ShangHai"" Print a,b (A) ""Beijing”和“ShangHai”中间没有空格 (B) ""Beijing”和“ShangHai”中间有 1 个空格 (C) ""Beijing”和“ShangHai”中间有 6 个空格 (D) ""Beijing”和“ShangHai”前面有 7 个空格" D

14

110 (A) (B) (C) (D) 111 (A) (B) (C) (D) 112 (A) (B) (C) (D) 113 (A) (B) (C) (D) 114 (A) (B) (C) (D) 115 (A) (B) (C) (D) 116 (A) (B) (C) (D) 117 (A) (B) (C) (D) 118 (A) (B) (C)

"要强制显式声明变量,可在窗体模块或标准模块的声明段中加入( )语句。 Option Base 0 Option Base 1 Option Explicit 变量声明" C "执行语句 Print Format$(5456.678, ""0#,##0.00"",正确的输出是( ) 。 5456.68 5,456.68 05,456.68 05,456.67" C "以下语句错误的是( ) 。 Text1.Cls Me.Cls Form1.Cls Picture1.Cls" A "以下关于 VB 代码书写规则的叙述中,错误的是( ) 。 一条语句可以分为多行书写 多条语句可以书写在同一行上 可以用""Rem"" 注释单行语句 区分应用程序代码字母的大小写" D "以下语句中,合法的是( ) 。 x,y ?x;y x = 1 , y=2 x = 1; y = 2" B "下列关于 VB 编码规则的叙述中,正确的是( ) 。 一条语句可以分为多行书写 多条语句不能书写在同一行上 每条语句以分号“;”结尾 应用程序代码字母是区分大小写的" A "要强制显式声明变量可在窗体模块或标准模块的声明段中加入( )语句。 Option Basic 0 Option Basic 1 Option Compare Option Explicit" D "下列语句错误的是( ) 。 Form1.Print Debug.Print Label1.Print Picture1.Print" C "Print ""5+15=""; 5+15 的输出结果是( ) 。 5+15=5+15 5+15= 20 ""5+15""= 20

15

(D) ""5+15="";5+15" B 119 "对于窗体 Form1 有如下程序,双击窗体后运行的结果是( ) 。 Private Sub Form_Click() Print 3, End Sub Private Sub Form_DblClick() Print 5 End Sub (A) 3,5 (B) 3 5 (C) 3 5 (D) 5" C 120 "下列使用 Cls 方法正确的是( ) 。 (A) Text1.Cls (B) Picture1.Cls (C) Label1.Cls (D) list1.Cls" B 121 "用 Dim X,Y% 语句定义 X 和 Y,则( ) 。 (A) X 和 Y 均为整型变量 (B) X 和 Y 均为可变类型变量 (C) X 为可变类型,Y 为整型,且 X 和 Y 的初值均为 0 (D) X 为初值为空的可变类型,Y 为初值为 0 的整型" D 122 "下列叙述中,错误的是( ) 。 (A) 要强制显式声明变量,可在窗体或标准模块的声明段中加入“Option Explicit” (B) 如在某过程中用“Const r=5”定义 r,则在该过程的后续语句中对 r 只能读不能写 (C) 如在某过程中直接使用末定义的变量 X,则该 X 的初值为空、类型为 Variant (D) 用“Dim r=5 As Integer”定义的变量 r,其初值为整数 5" D 123 "函数 Format(2345.678, ""##,##0.00"")输出的结果是( ) 。 (A) 数字型 2,345.68 (B) 字符型 2,345.68 (C) 数字型 2345.68 (D) 字符型 2345.67" B 124 "下列语句正确的是( ) 。 (A) Text1.Cls (B) Image1.Cls (C) List1.Cls (D) Picture1.Cls" D 125 "下列叙述中,错误的是( ) 。 (A) 一条语句可以分为多行书写,但要在上行末加上“VBCrLf” (B) 在同一行上书写多条语句,应在两两语句中加上“:”号 (C) 可以用“Rem”或“'”注释单行语句 (D) VB 程序代码不区分字母的大小写" A 126 "在立即窗口中运行以下语句,其输出结果是( ) 。 a=""BeiJing""

16

b=""ShangHai"" Print a,b Print a;b (A) BeiJingShangHai BeiJing ShangHai (B) BeiJing,ShangHai BeiJing;ShangHai (C) BeiJing ShangHai BeiJingShangHai (D) BeiJingg;ShangHai BeiJing,ShangHai" C 127 "下列不能实现清空图片框的方法是( ) 。 (A) Picture1.Remove (B) Picture1.Picture = LoadPicture (C) Picture1.Picture = LoadPicture() (D) Picture1.Picture = LoadPicture("""")" A 128 "Print ""5+15=""; 5+15 的输出结果是( ) 。 (A) 5+15=5+15 (B) 5+15= 20 (C) ""5+15""= ""5+15"" (D) 20=5+15" B 129 "对于窗体 Form1 有如下程序,单击窗体后运行结果是( ) 。 Private Sub Form_Click() Print ""ABC""; Spc(5); ""DEF"" End ? Sub (A) ""ABC"" ""DEF"" (B) ""ABC"";""DEF"" (C) ABC DEF (D) ABC;DEF" C 130 "要强制显式声明变量可在窗体模块或标准模块的声明段中加入( )语句。 (A) Option Private (B) Option Basic 0 (C) Option Compare (D) Option Explicit" D 131 "要使 Print 方法在 Form_Load 事件中起作用,要对窗体的( )属性进行设置。 (A) BackColor (B) DrawStyle (C) AutoRedraw (D) Caption" C 132 "执行语句 Print Format(3608.548, ""0#,##0.0""),正确的输出是( ) 。 (A) 03,608.5 (B) 3,608.5 (C) 03,608.55 (D) 3,608.55" A

17

133 "以下错误的语句是( ) 。 (A) Label1.Cls (B) Me.Cls (C) Form1.Cls (D) Picture1.Cls" A 134 "下列关于 VB 编码规则的叙述中,错误的是( ) 。 (A) 一条语句可以分为多行书写 (B) 多条语句可以书写在同一行上,每条语句之间用逗号隔开 (C) 可以用 Rem<注释内容>给语句或程序段加上注释,以提高可读性 (D) 不区分程序代码中变量名的字母的大小写" B 135 "以下程序段的输出结果是( ) 。 x=5:y=15 Print x; ""+"", y; ""=""; Print x + y (A) 5+15=20 (B) 5+ 15= 20 (C) ""5+15""= 20 (D) ""5+15="";5+15" B 136 "执行以下语句,在出现的输入框中不作任何输入,直接按“确定”按钮后,st 变 量的内容为( ) 。 st$= InputBox(""请输入字符串"",""对话框"",""示例"") (A) “示例” (B) “请输入字符串” (C) “对话框” (D) 空" A 137 "以下语句中,错误的是( ) 。 (A) MsgBox ""Error"", vbOKCancel (B) MsgBox vbOKCancel, ""Error"" (C) y=MsgBox (""Error"", vbOKCancel) (D) y=MsgBox (""Error"")" B 138 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x = Val(InputBox(""x="")) y = InputBox(""y="") Print x + y End Sub 运行后, 单击命令按钮, 先后在两个输入对话框中输入 123 和 321, 窗体显示的内容是 ( ) 。 (A) 444 (B) 123321 (C) 123+321 (D) 出错信息" A 139 "执行语句 MsgBox ""除数不能为 0!"", 16,""数据出错"",在弹出的对话框中显示 的图标是( ) 。 (A) 感叹号图标

18

(B) 问号图标 (C) 停止图标 (D) 消息图标" C 140 "以下关于 MsgBox 函数的叙述,错误的是( ) 。 (A) 可以省略任何参数 (B) 可以指定消息框中出现的图标 (C) 可以指定消息框的默认按钮 (D) 调用后返回的值类型为整型" A 141 "执行语句 a=""software and hardware "":b=Right(a,8):c=Mid(a,1,8):MsgBox a, ,c,b,1 后消息框的标题是( ) 。 (A) 1 (B) software (C) hardware (D) software and hardware" B 142 "执行语句 MsgBox ""除数不能为 0!"",48,""数据出错"",在弹出的对话框中显示的图 标是( ) 。 (A) 问号图标 (B) 停止图标 (C) 感叹号图标 (D) 消息图标" C 143 "执行语句 a=""software and hardware"":b=Left(a,8):c=Mid(a,5,4):MsgBox a, ,b,c,1 后消息框的标题是( ) 。 (A) 1 (B) software (C) hardware (D) software and hardware" B 144 "对于 InputBox 函数,下列说法错误的是( ) 。 (A) InputBox 函数可以指定默认值 (B) InputBox 函数返回的是数值型数据 (C) InputBox 函数返回的是字符型数据 (D) 函数值可以赋于一个变量,也可以不给任何变量赋值" B 145 "窗体上有一命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() MsgBox CStr(""456"" + 456) End Sub 程序运行时,单击按钮,消息对话框显示的内容是( ) 。 (A) 912 (B) 456 (C) 456 + 456 (D) 显示出错信息" A 146 "用 InputBox 函数可帮助生成( ) 。 (A) 消息框 (B) 输入框 (C) “保存”对话框

19

(D) “颜色”对话框" B 147 "执行 x = InputBox(""x="", ""x!"", ""0"") , 在输入框中输入 10 后回车, 则下列叙述 中,错误的是( ) 。 (A) ""0""是默认值 (B) 输入框标题是""x!"" (C) x 的值为数值 10 (D) x 的值为字符""10""" C 148 "执行语句 st= InputBox(""请输入数值"",""输入对话框"",""1""), 用户输入 5 并按 “确 定”按钮后,st 变量的内容为( ) 。 (A) ""1"" (B) ""请输入数值"" (C) 5 (D) ""5""" D 149 "执行语句 X=MsgBox(""Error"", vbOKCancel),弹出对话框后按 Esc 键,变量 X 的内 容为( ) 。 (A) 数值型 1 (B) 数值型 2 (C) 字符型 1 (D) 字符型 2" B 150 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x = val(InputBox(""x="")) y = val(InputBox(""y="")) Print x + y End Sub 运行后, 单击命令按钮, 先后在两个输入对话框中输入 123 和 321, 窗体显示的内容是 ( ) 。 (A) 444 (B) 123321 (C) 123+321 (D) 出错信息" A 151 "执行语句 MsgBox ""除数不能为 0!"", 2 + 16, ""数据出错"",在弹出的对话框中显 示( ) 。 (A) 感叹号图标和“是”“否”两个按钮 、 (B) 问号图标和“确定”“取消”两个按钮 、 (C) 停止图标和“终止”“重试”“忽略”三个按钮 、 、 (D) 消息图标和“是”“否”“取消”三个按钮" C 、 、 152 "下列关于 MsgBox 函数的叙述,不正确的是( ) 。 (A) 可以省略任何参数 (B) 可以设定消息框的指定图标 (C) 可以指定消息框的默认按钮 (D) 函数调用后返回值为数值型" A 153 "下列语句能显示具有“终止”“重试”和“忽略”按钮的消息框,且“重试”为 、 默认按钮的是( ) 。 (A) MsgBox ""信息提示!"", vbYesNoCancel + vbDefaultButton1

20

(B) MsgBox ""信息提示!"", vbYesNoCancel + vbDefaultButton2 (C) MsgBox ""信息提示!"", vbAbortRetryIgnore + vbDefaultButton1 (D) MsgBox ""信息提示!"", vbAbortRetryIgnore + vbDefaultButton2" D 154 "以下关于事件的叙述中,错误的是( ) 。 (A) 事件是系统定义的能被对象识别的动作 (B) 事件可分为用户事件与系统事件 (C) VB 为每个对象设置好各种事件,并定义好事件过程的过程名 (D) VB 中对象的事件就是对象的方法" D 155 "对于窗体 Form1 有如下程序,单击窗体后,在弹出的消息框中选择“否”按钮, 则变量的值是( ) 。 Private Sub Form_Click() Dim a a = MsgBox(""请选择操作!"", vbYesNo) End ? Sub (A) vbYes (B) vbNo (C) True (D) False" B 156 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x = InputBox(""x="") y = InputBox(""y="") Print x + y End Sub 运行后, 单击命令按钮, 先后在两个输入对话框中输入 123 和 321, 窗体显示的内容是 ( ) 。 (A) 444 (B) 123321 (C) 123+321 (D) x + y" B 157 "执行语句 MsgBox ""请仔细阅读!"", vbExclamation,""提示"",在弹出的对话框中 将显示( )图标。 (A) 感叹号 (B) 问号 (C) 停止 (D) 消息" A 158 "以下语句中,错误的是( ) 。 (A) MsgBox(""Error"") (B) MsgBox vbAbortRetryIgnore, ""Error"" (C) y=MsgBox (""Error"", vbAbortRetryIgnore) (D) MsgBox ""Error"", vbAbortRetryIgnore" B 159 "执行语句 MsgBox ""AAA"", 2, ""BBB"" 后,所产生的消息框的标题是( ) 。 (A) AAA (B) BBB (C) 2

21

(D) 出错,不能产生消息框" B 160 "执行语句 X = InputBox(""请输入数据"" ,0,""示例""), 弹出对话框后输入 5, “确 按 定”按钮后,X 的值为( ) 。 (A) 示例 (B) 请输入数据 (C) 0 (D) 5" D 161 "执行语句 MsgBox ""警告!"", 1 + 16, ""Error"",所产生的消息框( ) 。 (A) 有“确定”和“取消”按钮及出现停止(×)图标 (B) 有“确定”按钮及出现停止(×)图标 (C) 有“确定”和“取消”按钮及出现感叹号(! )图标 (D) 有“确定”按钮及出现感叹号(! )图标" A 162 "对于 InputBox 函数,下列说法错误的是( ) 。 (A) InputBox 函数可以指定默认值 (B) InputBox 函数可以省略“提示信息”参数 (C) InputBox 函数返回的是字符型数据 (D) InputBox 函数值可以赋予一个变量,也可以不给任何变量赋值" B 163 "对于窗体, )属性在程序运行后不能改变。 ( (A) Caption (B) BorderStyle (C) Name (D) Left" C 164 "以下( )是窗体卸载时发生的事件。 (A) Load (B) Click (C) UnLoad (D) GotFocus" C 165 "程序运行时,不由系统触发的事件是( ) 。 (A) Initialize (B) Load (C) UnLoad (D) MouseUp" D 166 "如果 Form1 是启动窗体,并且 Form1 的 Load 事件过程中有 Form2.Show,则程序 启动后( ) 。 (A) Form2 是最后的活动窗体 (B) Form1 是最后的活动窗体 (C) 编译错误 (D) 运行出错" B 167 "如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是( ) 。 (A) 不能把标准模块设置为启动模块 (B) 任何时刻最多只有一个窗体是活动窗体 (C) 用 Hide 方法将从内存中清除该窗体 (D) 如果工程中含 Sub Main 过程,则程序可能首先执行该过程" C 168 "对象本身的行为称为( ) 。

22

(A) (B) (C) (D) 169 (A) (B) (C) (D) 170 (A) (B) (C) (D) 171 (A) (B) (C) (D) 172 (A) (B) (C) (D) 173 (A) (B) (C) (D) 174 (A) (B) (C) (D) 175 (A) (B) (C) (D) 176 (A) (B) (C) (D)

事件 方法 过程 属性" B "如果一个工程含有多个窗体及标准模块,则以下叙述中正确的是( ) 。 可以把标准模块设置为启动模块 任何时刻最多只有一个窗体是活动窗体 用 Hide 方法可以从内存中清除窗体 如果工程中含 Sub Main 过程,则程序一定首先执行该过程" B "窗体的显示和隐藏方法是( ) print,hide move,hide show,hide show,Print" C "以下关于窗体的描述正确的是( ) 。 只有用于启动的窗体可以有菜单 窗体和其中所有控件的事件过程代码都放在窗体文件中 窗体名字和存盘的窗体文件名必须相同 开始运行时窗体的位置只能是设计阶段时显示的位置" B "以下可以实现卸载窗体 Form1 的语句是( ) 。 End Form1.Cls Form1.Hide Unload Form1" D "一旦装载窗体,系统自动触发的第一个事件是( ) 。 Click Dblclick Initialize Load" C "从内存中卸载窗体,以下事件发生的顺序是( ) 。 Terminate,QueryUnload,Unload QueryUnload,Unload,Terminate Unload,Terminate,QueryUnload QueryUnload,Terminate,Unload" B "窗体的( )属性设置在程序运行时才起作用。 Top Backcolor BorderStyle Caption" A "在文本框中输入文字会发生许多事件,这些事件发生的顺序是( ) 。 KeyUp,Keypress,Change Keypress,KeyUp,Change KeyDown,Keypress,Change KeyDown,Change,Keypress" C

23

177 (A) (B) (C) (D) 178 (A) (B) (C) (D) 179 (A) (B) (C) (D) 180 (A) (B) (C) (D) 181 (A) (B) (C) (D) 182 (A) (B) (C) (D) 183 (A) (B) (C) (D) 184 (A) (B) (C) (D) 185 (A) (B) (C)

"程序运行时,不是由系统触发的事件是( ) 。 Initialize MouseMove Load Activate" B "以下叙述中错误的是( ) 。 时钟只有系统事件,没有用户事件 任何时刻活动窗体最多只有一个 Hide 方法只是隐藏一个窗体,而不是从内存中清除该窗体 所有属性既可以在属性窗口中设置,也可以在程序代码中设置" D "VB 中用来完成一定的操作或实现一定功能的特殊函数称为( ) 。 事件 方法 属性 过程" B "如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是( ) 。 可以把标准模块设置为启动模块 任何时刻最多只有一个窗体是活动窗体 用 Hide 方法可将窗体隐藏 如果工程中含 Sub Main 过程,则程序可能首先执行该过程" A "以下关于窗体的叙述中错误的是( ) 。 一个 VB 工程中可以有多个窗体,但最多只能有一个窗体作为启动窗体 窗体之间可以通过在“通用”段声明 Public 类型的变量来传递数据 窗体启动之初可以呈现为最大化、最小化或正常(保持设计时大小)等三种状态 只有启动窗体才有菜单" D "下列窗体属性中用于设置窗口标题栏图标的是( ) 。 Picture Icon MousePicture MouseIcon" B "若要取消窗体的最大化功能,则可设置( )属性为 False 来实现。 ControlBox MinButton MaxButton Enabled" C "若要使窗体启动时位于屏幕的中央,则可通过设置( )属性来实现。 Top Left StartUpPosition WindowsState" D "当窗体 Form 开始运行时,Initialize、Activate、Load 三个事件发生的顺序是( ) 。 Initialize, Activate, Load Initialize, Load, Activate Activate, Initialize, Load

24

(D) 186 (A) (B) (C) (D) 187 (A) (B) (C) (D) 188 (A) (B) (C) (D) 189 (A) (B) (C) (D) 190 (A) (B) (C) (D) 191 (A) (B) (C) (D) 192 (A) (B) (C) (D) 193 (A) (B) (C) (D) 194 (A) (B)

Load, Initialize, Activate" B "VB 坐标系的默认原点在窗体的( ) 。 左上角 左下角 右上角 右下角" A "若要取消窗体的最小化功能,可通过设置( )的属性值为 False 来实现。 ControlBox MinButton MaxButton Enabled" B "在窗体 Form1 的单击事件中,与 Form1.Hide 等价的语句是( ) 。 Form1.Cls Me.Hide Me.Cls Form1.UnLoad" B "如果一个工程含有多个窗体及标准模块,以下叙述错误的是( ) 。 Load 语句把一个窗体装入内存,但此时窗体并没有显示出来 任何时刻最多只有一个窗体是活动窗体 Hide 方法可以清除内存中指定的窗体 在多个窗体中,可以用关键字 Me 代表程序代码所在的窗体" C "以下叙述中,错误的是( ) 。 当文本框的内容发生变化时,必将触发 Change 事件 设置文本框的 MaxLength 属性,可限制文本框中能输入文本的最大长度 文本框的 PasswordChar 属性可以设置密文的长度 文本框的内容在程序运行时是可以编辑的" C "为了使标签 Label1 呈现透明,正确的属性设置为( ) 。 Label1.BorderStyle=0 Label1.BorderStyle=1 Label1.BackStyle=0 Label1.BackStyle=1" C "标签没有( )属性。 Enabled Visible Text Caption" C "向文本框输入字符时,会触发( )事件。 Click LostFocus KeyPress MouseMove" C "要使文本框能显示多行文本,需设置( ) 。 Enabled 属性为 True Visible 属性为 True

25

(C) MultiLine 属性为 True (D) TabStop 属性为 True" C 195 "向文本框 Text1 输入字符,同时也能在文本框 Text2 中显示该字符, 编程时应使用 Text1 的( )事件。 (A) Click (B) Change (C) Keypress (D) KeyDown" B 196 "要使文本框最多可输入 10 个字符,设置的属性选项是( ) 。 (A) MultiLine (B) MaxLength (C) SingleLine (D) MaxLine" B 197 "要判断在文本框是否按了 Enter 键,应通过( )事件来判断。 (A) Click (B) Change (C) Keypress (D) KeyDown" C 198 "使文本框获得焦点的方法是( ) 。 (A) SetFocus (B) Change (C) GotFocus (D) LostFocus" A 199 "当文本框的( )属性为 True 时,该文本框控件相当于标签的作用。 (A) Locked (B) Visible (C) MultiLine (D) Enabled" A 200 "以下能清除文本框 Text1 中内容的程序代码是( ) 。 (A) Text1.Cls (B) Text1.Clear (C) Text1="""" (D) Text1.Text=""""" D 201 "以下关于标签和文本框的叙述中,正确的是( ) 。 (A) 标签和文本框都具有 Text 属性 (B) 标签和文本框都具有 MultiLine 属性 (C) 标签和文本框都具有 Locked 属性 (D) 标签和文本框都具有 BorderStyle 属性" D 202 "下列叙述错误的是( ) 。 (A) 当文本框的内容发生变化时,必将触发 Change 事件 (B) 设置文本框的 MaxLength 属性,可限制其输入文本的最大长度 (C) 文本框 ScrollBars 属性值为 2 时,才能使文本框显示多行内容 (D) 当光标从文本框中移走时,发生 LostFocus 事件" C 203 "下列叙述错误的是( ) 。

26

(A) (B) (C) (D) 204 (A) (B) (C) (D) 205 (A) (B) (C) (D) 206 (A) (B) (C) (D) 207 (A) (B) (C) (D) 208 (A) (B) (C) (D) 209 (A) (B) (C) (D) 210 (A) (B) (C) (D) 211 (A) (B) (C) (D)

键盘 KeyDown 事件不区分大小写字母 键盘 Keypress 事件区分大小写字母 键盘 KeyDown 事件可接收键盘所有键的信息 键盘 Keypress 事件可接收键盘所有键的信息" D "下列( )是文本框所具有的属性。 Enabled Style AutoSize Caption" A "要判断是否按了 Pause 键,应在( )事件中判断。 Click GotFocus Keypress KeyDown" D "下列( )是所有控件的公共属性。 Name 和 Enable Name 和 Tag Name 和 Visible Name 和 Width" B "若要使文本框成为只读文本框,可以通过设置( )属性值为 True 来实现。 ReadOnly Lock Locked Enabled" C "以下叙述中,错误的是( ) 。 当文本框的内容发生变化时,必将触发 Change 事件 设置文本框的 MaxLength 属性,可限制文本框中能输入文本的最大长度 文本框的 ForeColor 属性用于设置文本框的背景颜色 文本框的内容在程序运行时可以编辑" C "当向文本框中输入文字时,下列事件不会被触发的是( ) 。 KeyPress KeyDown Change Click" D "以下关于标签和文本框的叙述中,正确的是( ) 。 标签和文本框都具有 Caption 属性 标签和文本框都具有 MultiLine 属性 标签和文本框都具有 Text 属性 标签和文本框都具有 BorderStyle 属性" D "要使标签控件显示时不覆盖其背景内容,要对( )属性进行设置。 BackColor ForeColor BorderStyle BackStyle" D

27

212 "执行( )语句可以把焦点移动到文本框 Text1 上。 (A) Text1.SetFocus (B) Text1.SelText (C) Text1.SelLength (D) Text1.SelStart" A 213 "下列能够触发文本框 Change 事件的操作是( ) 。 (A) 文本框失去焦点 (B) 文本框获得焦点 (C) 设置文本框的焦点 (D) 改变文本框的内容" D 214 "要使文本框中输入的任何字符均显示“*” ,应将文本框的( )属性设置为“*” 。 (A) PassWordChar (B) MultiLine (C) MaxLength (D) ScrollBars" A 215 "当焦点进入文本框 Text1 时,要自动选定文本框中第 2 到第 5 个位置上的 4 个字 符,可通过以下( )代码实现。 (A) Text1.SelStart = 1 Text1.SelLength = 4 (B) Text1.SelStart = 2 Text1.SelLength = 4 (C) Text1.SelLength = 4 Text1.SelStart = 2 (D) Text1.SelLength = 4 Text1.SelStart = 1" A 216 "将文本框的( )属性设置为 True 时,文本框控件在运行时不能编辑。 (A) PassWordChar (B) ScrollBars (C) MultiLine (D) Locked" D 217 "指令 Circle(1000,1000),500,8, , ,2”将绘制( ) 。 (A) 圆 (B) 椭圆 (C) 圆弧 (D) 扇形" B 218 "以下叙述中,错误的是( ) 。 (A) VB 允许更改窗体坐标轴的方向、坐标原点的位置和坐标的度量单位 (B) Image 控件、PictureBox 控件、Shape 控件和 Line 控件都是图形控件 (C) PictureBox 控件支持图形方法绘图,而 Image 控件不支持 (D) PictureBox 和 Image 控件均具有 AutoSize 属性" D 219 "窗体上有一命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() Line (200, 150)-Step(200, 150), , B End Sub

28

运行时,单击按钮后 CurrentX=( ) 。 (A) 400 (B) 0 (C) 200 (D) 300" A 220 "为了清除图片框内来自文件的图片,应采用的正确方法是( ) 。 (A) 选择图片框,然后按 Del 键 (B) 执行语句: Picture1.Cls (C) 执行语句: Picture1.Clear (D) 执行语句: Picture1.Picture=LoadPicture()" D 221 "以下叙述中,错误的是( ) 。 (A) Pset 方法用于绘制点,利用它可画任意曲线 (B) Circle 方法用于画圆、椭圆、圆弧和扇形 (C) Line 方法只能用于画直线 (D) Point 方法用于返回指定点的 RGB 颜色" C 222 "窗体上有一命令按钮 Command1,编写如下的事件过程: Private Sub Command1_Click() a = 100: b = 150: c = 2000: d = 2000 Cls Line (a, b)-(c, d), vbBlue, BF End Sub 运行时,单击按钮窗体上显示( ) 。 (A) 一个未填充的矩形 (B) 一条直线 (C) 一个填满了颜色的矩形 (D) 无任何图形" C 223 "下列关于绘图方法叙述中,错误的是( ) 。 (A) 可通过容器控件画圆、椭圆 (B) Circle 方法用于画圆、椭圆、圆弧和扇形 (C) Point 方法用于返回指定点的 RGB 颜色 (D) Line 方法用于画直线或矩形" A 224 "窗体上有一命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() Cls Line (100, 150)-(3000, 3000), vbRed, B End Sub 运行时,单击按钮窗体上显示( ) 。 (A) 一条直线 (B) 一个边框为红色未填充的矩形 (C) 一个填满红颜色的矩形 (D) 无任何图形" B 225 "可使 Shape1 控件呈现为椭圆的语句是( ) 。 (A) Shape1.BorderStyle = 0 (B) Shape1.Shape = 2

29

(C) Shape1.Shape = 3 (D) Shape1.FillStyle = 0" B 226 "要使图像框(Image)可自动改变大小以适应其中的图形,应把( ) 。 (A) Stretch 属性值设置为 True (B) Stretch 属性值设置为 False (C) AutoSize 属性值设置为 True (D) AutoSize 属性值设置为 False" B 227 "以下语句组 ScaleWidth = 10: ScaleHeight = 10 Circle (4, 5), 3, , , , 1.5 所绘的图形是( ) 。 (A) 弧形 (B) 扇形 (C) 圆 (D) 椭圆" D 228 "要绘制多种式样的直线,需要设置控件 Line1 的( )属性。 (A) Shape (B) Style (C) FillStyle (D) BorderStyle" D 229 "下列( )语句可绘制扇形。 (A) Circle (1500, 1500), 500, 1, ,,2 (B) Circle (1500, 1500), 500,-1, -2 (C) Circle (1500, 1500), 500, , 1, 2 (D) Circle (1500, 1500), 500, , -1, -2" D 230 "下列( )方法可改变窗体坐标轴的方向、坐标原点的位置和坐标的度量单位。 (A) Scale (B) Line (C) Pset (D) Point" A 231 "运行下列语句后,窗体当前坐标(CurrentX,CurrentY)值为( ) 。 Line (1000, 1500)-Step(2000, 2500) (A) (1000, 2500) (B) (2000, 2500) (C) (3000, 2500) (D) (3000, 4000)"D 232 "下列( )语句不能清除图片框 Picture1 中用 Print 显示的文本和用 Circle 绘制的 图形。 (A) Picture1.Cls (B) Picture1.Clear (C) Picture1.Refresh (D) Picture1.Picture = LoadPicture()" B 233 "下列叙述中,错误的是( ) 。 (A) Pset 方法用于绘制点

30

(B) Point 方法用于绘制有颜色的点 (C) Line 方法用于画直线/矩形 (D) Circle 方法用于画圆、椭圆、圆弧和扇形" B 234 "指令“Circle(1000,1000),500,8, , ,1”将绘制( ) 。 (A) 圆 (B) 椭圆 (C) 圆弧 (D) 扇形" A 235 "窗体上有一命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() a = 100: b = 150: c = 2000: d = 2000 Cls Line (a, b)-(c, d), vbBlue, B End Sub 运行时,单击按钮,窗体上显示( ) 。 (A) 一个未填充的矩形 (B) 一条直线 (C) 一个填满了颜色的矩形 (D) 无任何图形" A 236 "下列关于 Shape 控件说法错误的是( ) 。 (A) FillStyle 属性可以修改其填充方式 (B) FillColor 属性可以改变填充颜色 (C) BorderStyle 属性可以改变其边框颜色 (D) Shape 属性用于设置显示的几何形状" C 237 "以下叙述中,错误的是( ) 。 (A) Pset 方法用于绘制点,利用它可画任意曲线 (B) Circle 方法用于画圆、椭圆、圆弧和扇形 (C) Line 方法只能用于画直线 (D) Point 方法用于返回指定点的 RGB 颜色" C 238 "可使 Shape1 控件呈现为正方形的语句是( ) 。 (A) shape1.BorderStyle = 0 (B) Shape1.Shape = 1 (C) Shape1.Shape = 3 (D) Shape1.FillStyle = 0" B 239 "运行时要在图片框 Picture1 中显示字符串“运动” ,可使用( ) 。 (A) Picture1.Text = ""运动"" (B) Picture1.Print ""运动"" (C) Picture1.Print = ""运动"" (D) Print ""运动""" B 240 "设窗体 Form1 的 CurrentX=200,运行以下语句后,窗体当前坐标 CurrentX 值为 ( ) 。 Line Step(500, 500)-(1000, 2000) (A) 1000 (B) 500

31

(C) 1500 (D) 2000" A 241 "设置( )属性可以更改窗体坐标的度量单位。 (A) DrawStyle (B) ScaleLeft (C) ScaleTop (D) ScaleMode" D 242 "执行以下指令将绘制( ) 。 Scale (0, 0)-(100, 100) Circle (50, 50), 10, , -0.1, -2.5 (A) 圆 (B) 椭圆 (C) 圆弧 (D) 扇形" D 243 "以下叙述错误的是( ) 。 (A) Pset 方法如果没有颜色参数,则用容器对象的背景色画点 (B) Circle 方法用于画圆、椭圆、圆弧和扇形 (C) Line 方法用于画直线和矩形 (D) Point 方法用于返回指定点的 RGB 颜色" A 244 "在窗体上画三个单选按钮,组成一个控件数组。各个单选按钮一定具有共同值的 属性是( ) 。 (A) Tag (B) Name (C) Index (D) Value" B 245 "复选框和单选按钮的( )属性可以反映其当前状态。 (A) aption (B) Alignment (C) Value (D) Style" C 246 "当 Value 属性为 0 时,表示( ) 。 (A) 复选框未被选中 (B) 复选框被选中 (C) 复选框内有灰色的勾 (D) 复选框操作有错误" A 247 "如果要把单选按钮的外观设置为图形方式,应把( ) 。 (A) Alignment 属性设置为 0 (B) Alignment 属性设置为 1 (C) Style 属性设置为 0 (D) Style 属性设置为 1" D 248 "在实际应用中,经常将一组单选按钮置于一个框架(Frame)控件内。关于框架在 这里的作用,以下说法错误的是( ) 。 (A) 使该组单选按钮受到框架的控制 (B) 使该组单选按钮构成一个控件数组

32

(C) (D) 249 (A) (B) (C) (D) 250 (A) (B) (C) (D) 251 (A) (B) (C) (D) 252 (A) (B) (C) (D) 253 (A) (B) (C) (D) 254 (A) (B) (C) (D) 255 (A) (B) (C) (D) 256 (A) (B) (C) (D) 257 (A)

使该组单选按钮免受框架外单选按钮的影响 使该组单选按钮互斥,即同一时刻只有一个单选按钮被选中" B "组合框的 Style 属性设为 1 时,组合框的类型是( ) 。 下拉式组合框 弹出式组合框 简单式组合框 下拉式列表框" C "在程序运行时,下列哪种方法不能选中单选按钮( ) 。 用鼠标单击单选按钮 操作单选按钮的快捷键 在属性窗口中将单选按钮的 Value 属性设置为 1 在属性窗口中将单选按钮的 Value 属性设置为 True" C "复选框的 Value 属性值为 2 时,表示( ) 。 复选框未被选中 复选框被选中 复选框内有灰色的钩 复选框操作出错" C "若单选按钮被选中,则 Value 属性为( ) 。 True False 0 1" A "下列( )方法可以将复选框的标题显示在它的左边。 Check1.Alignment = 0 Check1.Alignment = 1 Check1.Style = 0 Check1.Style = 1" B "单选按钮不具有( )属性。 Value Text Caption Style" B "可把单选按钮或复选框设置成图形方式的办法是( ) 。 设置 Alignment 属性值为 0 设置 Alignment 属性值为 1 设置 Style 属性值为 0 设置 Style 属性值为 1" D "单选按钮的控件数组各元素之间由( )属性识别。 Name Index Caption Value" B "下列能使单选按扭 Option1 被选中、复选框 Check1 未被选中的语句是( ) 。 Option1.Value =True 和 Check1.Value=0

33

(B) Option1.Value =1 和 Check1.Value=False (C) Option1.Value =False 和 Check1.Value=1 (D) Option1.Value =0 和 Check1.Value=True" A 258 "如果要在单选按钮上显示某个图标,应先将( ) 。 (A) Alignment 属性设置为 0 (B) Alignment 属性设置为 1 (C) Style 属性设置为 0 (D) Style 属性设置为 1" D 259 "下列使复选框 Check1 被选中但无效的语句是( ) 。 (A) Check1.Value = 1 (B) Check1.Value = 2 (C) Check1.Enabled = False (D) Check1.Value = False" B 260 "下列对框架控件的叙述,错误的是( ) 。 (A) 在某控件上画框架,就可将控件置于该框架内 (B) 在框架内画控件,才能使控件置于该框架内 (C) 通过拖动框架以判断一个控件是否置于该框架内 (D) 将一组单选按钮置于一个框架内使其只能选中其中之一" A 261 "复选框的 Value 属性值为 1 时,表示( ) 。 (A) 复选框未被选中 (B) 复选框被选中 (C) 复选框内有灰色的钩 (D) 复选框操作出错" B 262 "复选框或单选按钮的当前状态通过( )属性来设置或访问。 (A) Value (B) Checked (C) Selected (D) Caption" A 263 "下面关于复选框和单选按钮的说法正确的是( ) 。 (A) 两者的 Value 属性的缺省值都为 Unchecked (B) 复选框 Value 属性的缺省值为 Unchecked,单选按钮为 False (C) 两者的 Value 属性的缺省值都为 False (D) 两者的 Value 属性的缺省值都为 True" B 264 "窗体上设置一个复选框和一个文本框,文本框内的字体随复选框选中与否改变为 粗体或取消粗体,正确的代码是( ) 。 (A) Private Sub Check1_Click() Text1.FontBold = True End Sub (B) Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True End If End Sub (C) Private Sub Check1_Click()

34

Text1.FontBold = Check1.Value End Sub (D) Private Sub Check1_Click() If Check1.Value = True Then Text1.FontBold = True End If End Sub" C 265 "复选框不具有( )属性。 (A) Value (B) Checked (C) Caption (D) Style" B 266 "对于单选按钮和复选框,以下叙述错误的是( ) 。 (A) Value 表示单选按钮的状态时其值为逻辑型 (B) Value 表示复选框的状态时其值为整型 (C) Alignment 设置为 1 可以将单选按钮的标题显示在它的左边 (D) 两者的 Value 属性的缺省值都为 Unchecked" D 267 "在实际应用中,经常将一组单选按钮置于一个框架(Frame)控件内。关于框架在 这里的作用,以下说法正确的是( ) 。 (A) 使该组单选按钮互斥,即同一时刻只有一个单选按钮被选中 (B) 使该组单选按钮构成一个控件数组 (C) 对框架内的单选按钮操作也会影响框架外的单选按钮 (D) 删除框架时,框架内的该组单选按钮不会被删除" A 268 "下列能使复选框 Check1 被选中、单选按扭 Option1 未被选中的语句是( ) 。 (A) Check1.Value=0 和 Option1.Value =True (B) Check1.Value=False 和 Option1.Value =1 (C) Check1.Value=1 和 Option1.Value =False (D) Check1.Value=True 和 Option1.Value =0" C 269 "窗体上设置一个复选框和文本框,文本框内的文字随复选框选中与否,改变为加 下划线或取消下划线,正确的代码是( ) 。 (A) Private Sub Check1_Click() Text1.FontUnderline = True End Sub (B) Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True End If End Sub (C) Private Sub Check1_Click() Text1.FontUnderline = Check1.Value End Sub (D) Private Sub Check1_Click() If Check1.Value = True Then Text1.FontUnderline = True

35

End If End Sub" C 270 "如果要把复选框的外观设置为图形方式,应把( ) 。 (A) Alignment 属性设置为 0 (B) Alignment 属性设置为 1 (C) Style 属性设置为 0 (D) Style 属性设置为 1" D 271 "以下命令按钮的属性中,设置( )为 True,可在按下 Esc 键时执行该按钮的单 击事件过程。 (A) Enabled (B) Value (C) Default (D) Cancel" D 272 "要使一个命令按钮显示图片,正确的设置是把该命令按钮的( ) 。 (A) Style 属性值设置为 1 (B) Picture 属性中选择一个图片文件 (C) Style 属性值设置为 1,同时在 picture 属性中选择一个图片文件 (D) Style 属性值设置为 0" C 273 "为使鼠标指针指向按钮时显示提示内容,应设置命令按钮的( )属性。 (A) Caption (B) Default (C) ToolTipText (D) Tag" C 274 "在窗体上画一个名称为 Command1,编写下列事件过程: Private Sub Commandl_Click0 Move 300,200 End Sub 程序运行后,单击命令按钮,执行的操作为( ) 。 (A) 命令按钮移动到距窗体左边界 300、上边界 200 的位置 (B) 命令按钮移动到距窗体上边界 300、左边界 200 的位置 (C) 窗体向左移动 300、向上方移动 200 (D) 窗体移动到距屏幕左边界 300、上边界 200 的位置" D 275 "命令按钮能响应( )事件。 (A) DblClick (B) Change (C) KeyPress (D) Scroll" C 276 "以下关于控件属性的描述中,对命令按钮来说不正确的是( ) 。 (A) BackColor 用来设置背景色 (B) ForeColor 用来设置前景色 (C) Font 用来设置字体 (D) Caption 用来设置标题" B 277 "命令按钮不能响应( )事件。 (A) Change

36

(B) (C) (D) 278 (A) (B) (C) (D) 279 (A) (B) (C) (D) 280 (A) (B) (C) (D) 281 (A) (B) (C) (D) 282 (A) (B) (C) (D) 283 (A) (B) (C) (D) 284 (A) (B) (C) (D) 285 (A) (B) (C) (D) 286

DragDrop KeyPress MouseMove" A "若要设置图形方式的命令按钮,除了设置 Picture 属性以外,首先必须设置( ) 。 Enabled 属性 Visible 属性 Caption 属性 Style 属性" D "当命令按钮的 Visible 属性被设为 False 时,该控件( ) 。 不可见,不能响应事件 变为灰色,但能响应事件 变为灰色,不能响应事件 可见并且能响应事件" A "命令按钮的属性不包含( ) 。 ToolTipText Picture Alignment MousePointer" C "使命令按钮显示“命令按钮”的代码语句是( ) 。 Command1.Picture = ""命令按扭 Command1.Caption = ""命令按钮"" Command1.ToolTipText = ""命令按扭 Command1.FontName = ""命令按扭" B "程序运行时,哪种办法不能触发命令按钮的 Click 事件( ) 。 单击命令按钮 在命令按钮的 Cancel 属性设置为 True 的条件下,按 Enter 键 操作命令按钮的快捷键 用 Tab 键将焦点转移到按钮上,然后按回车键" B "通过对命令按钮的( )属性设置以决定按下 Esc 键是否有效。 Visible Style Cancel Default" C "命令按钮要设成图形方式,必须( ) 。 先设置 Enabled 属性为 True,后设置 Picture 属性 先设置 Picture 属性,后设置 Enabled 属性为 True 先设置 Style 属性为 0,后设置 Picture 属性 先设置 Style 属性为 1,后设置 Picture 属性" D "要使指针指向命令按钮时显示提示内容,应设置其( )属性, 。 Font ToolTipText Caption Appearance" B "窗体上有命令按钮 Command1 和其它若干个控件,为使程序运行时焦点首先在

37

Command1 上,必须设置 Command1 的( ) 。 (A) Index 为 0 (B) Index 为 1 (C) TabIndex 为 0 (D) TabIndex 为 1" C 287 "执行语句 Command1 Move 500,1000 的结果是( ) 。 (A) 命令按钮向上移动 500、向左移动 1000 (B) 命令按钮向左移动 500、向上移动 1000 (C) 命令按钮移动到距屏幕左边界 500、上边界 1000 的位置 (D) 命令按钮移动到距窗体左边界 500、上边界 1000 的位置" D 288 "命令按钮能够响应( )事件。 (A) Click (B) DblClick (C) Change (D) Scroll" A 289 "命令按钮的标题由它的( )属性设置。 (A) Text (B) Caption (C) Name (D) Tag" B 290 "若要使某命令按钮获得焦点,可使用它的( )方法实现。 (A) Refresh (B) SetFocus (C) GotFocus (D) Value" B 291 "命令按钮具有以下( )属性。 (A) AutoStyle (B) Picture (C) BackStyle (D) BorderStyle" B 292 "为命令按钮标题中某字符设置下划线,可在该字符前加上( )符号来实现。 (A) \< (B) & (C) _ (D) \>" B 293 "命令按钮能够响应( )事件。 (A) Change (B) DblClick (C) KeyPress (D) Scroll" C 294 "命令按钮显示出图片外观,应对该按钮( ) 。 (A) 设置 Style 属性为 1 (B) 设置 Picture 属性 (C) 设置 Style 属性为 1 并设置 Picture 属性

38

(D) 295 (A) (B) (C) (D) 296 (A) (B) (C) (D) 297 (A) (B) (C) (D) 298 择。 (A) (B) (C) (D) 299 (A) (B) (C) (D) 300 (A) (B) (C) (D) 301 (A) (B) (C) (D) 302 (A) (B) (C) (D) 303 (A)

设置 Enabled 属性为 True" C "当命令按钮的 Enabled 属性被设置为 False 时,该控件( ) 。 不可见,不能响应事件 变为灰色,不能响应事件 变为灰色,但能响应事件 可见并且能响应事件" B "命令按钮的属性不包含( ) 。 Caption Picture MultiLine ToolTipText" C "将命令按钮标题字体设置为楷体的语句是( ) 。 Command1.Caption = ""楷体"" Command1.Caption = ""楷体_GB2312"" Command1.FontName = ""楷体"" Command1.FontName = ""楷体_GB2312""" D "列表框默认只能选择一项,设置列表框的( )属性,可以使列表框允许多项选 List MultiSelect Enabled ListIndex" B "要把“VB 程序设计”添加到列表框 List1 中的最后一项,应使用( )语句。 List1.AddItem ""VB 程序设计"", List1.ListCount List1.AddItem ""VB 程序设计"", List1.ListCount-1 List1. AddItem list1.ListIndex,"" VB 程序设计"" List1.AddItem ""VB 程序设计"",list1.ListIndex" A "以下语句( )可将组合框 Combo1 的第 1 项置为当前项。 Combo1.ListIndex = 0 Combo1.ListCount = 1 Combo1.ListCount = 0 Combo1.ListIndex = 1" A "要将列表框 List1 中选定的某一项删除,可以使用( )语句。 List1.Clear List1.ListIndex ? List1.RemoveItem List1.Columns(List1.ListIndex ?) List1.RemoveItem List1.ListIndex List1.Clear List1.Columns(List1.ListIndex ?)" C "以下( )语句可将列表框 List1 的第 2 项的值设置为“VB6.0” 。 List1.ListIndex(2) = ""VB6.0"" List1.List(1) = ""VB6.0"" List1.List(2) = ""VB6.0"" List1.ListIndex(1) = ""VB6.0""" B "以下有关组合框 Style 属性的说法中,正确的是( ) 。 Style 为 1 时,文本框中可以用键盘输入列表框中没有的选项

39

(B) Style 为 2 时,文本框中可以用键盘输入列表框中没有的选项 (C) Style 为 1 时,组合框显示在屏幕上是文本编辑框和一个下拉的箭头 (D) Style 为 2 时,组合框列出所有的选项,没有下拉的箭头" A 304 "使用( )语句可将列表框 List1 的第 4 项的值设置为“VB6.0” 。 (A) List1.ListIndex(3) = ""VB6.0"" (B) List1.ListIndex(4) = ""VB6.0"" (C) List1.List(3) = ""VB6.0"" (D) ist1.List(4) = ""VB6.0""" C 305 "下面说法不正确的是( ) 。 (A) 滚动条的重要事件是 Change 和 Scroll (B) 框架的主要作用是将控件分组,以完成各自相对独立的功能 (C) 组合框是组合了文本框和列表框的特性而形成的一种控件 (D) 计时器控件可以通过对 Visible 属性的设置,在程序运行期间显示在窗体上" D 306 "要将列表框控件 List1 设置为允许只用鼠标进行多项选择, 应将其属性 MultiSelect 设置为( ) 。 (A) 0 (B) 1 (C) 2 (D) 3" B 307 "使用( )语句将""06 足球世界杯""添加到列表框 List1 的最后一项。 (A) List1.Text = ""06 足球世界杯"" (B) List1.AddItem ""06 足球世界杯"" (C) List1.List(0) = ""06 足球世界杯"" (D) List1.AddItem ""06 足球世界杯"",0" B 308 " 如 果 列 表 框 list1 中 只 有 一 个 项 目 被 选 中 , 则 语 句 Debug.print List1. List (List1.ListIndex)执行的结果是( ) 。 (A) 在立即窗口中输出被选定的项目的索引值 (B) 在立即窗口中输出 True (C) 在立即窗口中输出 False (D) 在立即窗口中输出被选定的项目的文本内容" D 309 "在窗体上画一个列表框和一个命令按钮,其名称分别为 List1 和 Command1,编写 如下事件过程: Private Sub Command1_Click() List1.List(List1.ListCount-1) = ""vb"" End Sub 程序运行后,单击命令按钮,其结果为( ) 。 (A) 把字符串“vb”添加到列表框中,但位置不能确定 (B) 把字符串“vb”添加到列表框的最后 (C) 把列表框中原有的最后一项改为“vb” (D) 把字符串“vb”插入到列表框的最前面" C 310 "设置列表框的 MultiSelect 为( ) ,通过单击就能选择列表框中多个项。 (A) 0 (B) 1 (C) 2

40

(D) True" B 311 "使用( )语句可将组合框 Combo1 的文本框中的内容添加在第 1 项前。 (A) Combo1.AddItem Combo1.ListIndex,0 (B) Combo1.AddItem Combo1.ListIndex,1 (C) Combo1.AddItem Combo1.Text,0 (D) Combo1.AddItem Combo1.Text,1" C 312 "使用下列( )语句可删除组合框 Combo1 中选定的项。 (A) Combo1.RemoveItem Combo1.ListIndex (B) Combo1.RemoveItem Combo1.List(Index) (C) Combo1.RemoveItem Combo1.List(ListIndex) (D) Combo1.RemoveItem Combo1.Text" A 313 "执行下列程序的结果是( ) 。 For i = 0 To 3 List1.List(i) = i + 10 Next i (A) 在列表框 List1 后分别添加 10、11、12、13 四项内容 (B) 在列表框 List1 的第 1-4 项顺序添加数值型 10、11、12、13 (C) 在列表框 List1 的第 1-4 项顺序添加字符型 10、11、12、13 (D) 程序运行出错" C 314 "要在组合框的文本框中禁止输入内容,应将 Style 属性应设置为( ) 。 (A) 0 (B) 1 (C) 2 (D) True" C 315 "各种不同类型的组合框中,用户不能输入数据的组合框是( ) 。 (A) 下拉式组合框 (B) 简单组合框 (C) 下拉式列表框 (D) 简单列表框" C 316 "下面说法正确的是( ) 。 (A) 组合框包含了列表框的所有属性 (B) 组合框中的文本框一定有文本编辑作用 (C) 组合框是包含文本框和列表框的控件数组 (D) 组合框是组合了文本框和列表框的功能而形成的一种控件" D 317 "若要获知列表框中项目的数量可以通过访问列表框的( )属性来实现。 (A) List (B) ListIndex (C) ListCount (D) Text" C 318 "使用( )语句不能将“上海世博会”添加到列表框 List1 的最后一项。 (A) List1.AddItem ""上海世博会"" (B) List1.AddItem ""上海世博会"",List1.ListCount (C) List1.Text = ""上海世博会"" (D) List1.List(List1.ListCount) = ""上海世博会""" C

41

319 "若要清除列表框中的所有项目,可以使用列表框的( )方法来实现。 (A) Add (B) Remove (C) Clear (D) AddItem" C 320 "使用( )语句可将列表框 List1 第 1 项的值设置为“VB 程序设计” 。 (A) List1.ListIndex(1) = ""VB 程序设计"" (B) List1.ListIndex(0) = ""VB 程序设计"" (C) List1.List(1) = ""VB 程序设计"" (D) List1.List(0) = ""VB 程序设计""" D 321 "下面说法不正确的是( ) 。 (A) 组合框是组合了文本框和列表框的特性而形成的一种控件 (B) 组合框具有文本框和列表框的所有属性 (C) 简单组合框中的文本框可以输入选项 (D) 简单组合框可以响应 DblClick 事件"B 322 "列表框控件的( )属性可以在属性窗口设置。 (A) List (B) ListCount (C) ListIndex (D) Text" A 323 "使用( )语句将“2010 亚运会""添加到组合框 Combo1 的最后一项。 (A) Combo1.Text = ""2010 亚运会"" (B) Combo1.AddItem ""2010 亚运会"" (C) Combo1.List(0) = ""2010 亚运会"" (D) Combo1.AddItem ""2010 亚运会"",0" B 324 "如果列表框 List1 中只有一项被选中,则 Debug.print List1.ListIndex 执行的结果是 ( ) 。 (A) 在立即窗口中输出选定项的索引值 (B) 在立即窗口中输出 True (C) 在立即窗口中输出 False (D) 在立即窗口中输出选定项的文本内容" A 325 "若定时器控件 Timer1 的 Interval 属性为 1000,Enabled 属性为 True,并且有以下 的事件过程,程序运行 1 秒后,计算机将发出( )次 Beep 响。 Private Sub Timer1_Timer() Beep End Sub (A) 1000 次 (B) 1 次 (C) 10 次 (D) 0 次" B 326 "以下有关计时器的叙述中,错误的是( ) 。 (A) 计时器的 Interval 属性值以毫秒为单位 (B) 将计时器的 Enabled 属性设置为 False,会停止计时器的操作 (C) 计时器以设定的时间间隔一定会触发 Timer 事件

42

(D) 程序运行时计时器不可见,所以其位置无关紧要" C 327 "设置( )属性可改变单击滚动条空白处的滚动步长。 (A) Max (B) Min (C) LargeChange (D) SmallChange" C 328 "要使计时器控件能正常运行 Timer 事件过程,应具备的两个条件是( ) 。 (A) Enabled 属性为 True 和 Interval 属性为 0 (B) Enabled 属性为 True 和 Interval 属性非 0 (C) Enabled 属性为 False 和 Interval 属性为 0 (D) Enabled 属性为 False 和 Interval 属性非 0" B 329 "拖动滚动条滑块当时可触发滚动条的( )事件。 (A) Change (B) Scroll (C) DragOver (D) ItemCheck" B 330 "使用滚动条控件的时候,以下说法错误的是( ) 。 (A) 使用 Min 和 Max 属性来定义滚动的范围 (B) 滚动条控件具有 Scroll 和 Change 事件 (C) Value 属性表示滑块所处位置代表的值 (D) Min 属性支持的最小值为 0" D 331 "单击滚动条的空白处可触发滚动条的( )事件。 (A) Change (B) Scroll (C) DragOver (D) ItemCheck" A 332 "使用滚动条控件的时候,下面说法不正确的是( ) 。 (A) 使用 Min 和 Max 属性来定义滚动的范围 (B) 滚动条控件具有 Scroll 和 Change 事件 (C) 由于文本框中可以设置滚动条,因此滚动条控件是文本框控件的一部分 (D) Max 属性支持的最大值为 32767" C 333 "单击滚动条空白处可以改变滚动条的当前值,每次改变值的增量由( )属性决 定。 (A) LargeChange (B) SmallChange (C) Max (D) Min" A 334 "为了使计时器控件 Timer1 每隔 5 秒触发一次 Timer 事件, Timer1 的 Interval 属 则 性应设置为( ) (A) 500 (B) 200 (C) 1000 (D) 5000" D 335 "当用户单击滚动条的箭头处时,滑块移动的增量值由( )属性决定。

43

(A) SmallChange (B) LargeChange (C) Min (D) Max" A 336 "滚动条的( )属性表示其滑块所处的最小位置。 (A) Max (B) Min (C) Value (D) SmallChange" B 337 "若定时器控件 Timer1 的 Interval 属性为 500,Enabled 属性为 True,运行以下程序 2 秒,窗体显示( ) 。 Dim i% Private Sub Timer1_Timer() i=i+1 Print String(i, ""*""); End Sub (A) * ** *** **** (B) * (C) ********** (D) ****" C 338 "计时器不工作的原因是( ) 。 (A) 计时器的 Interval 属性值肯定为 0 (B) 计时器的 Enabled 属性值肯定为 False (C) 计时器的 Interval 属性值大于 60000 (D) 计时器的 Interval 值为 0 或 Enabled 值为 False" D 339 "设置滚动条的( )属性,单击滚动箭头与滚动块间的区域时可改变滚动步长。 (A) Max (B) Min (C) LargeChange (D) SmallChange" C 340 "下列不能改变滚动条的 Value 值的操作是( ) 。 (A) 单击滚动条两端的箭头 (B) 单击滚动箭头与滚动块间的区域 (C) 拖放滚动块 (D) 按 <+>键<->键" D 341 "使用滚动条控件的时候,下面说法不正确的是( ) 。 (A) 滚动条的 Value 值属于[Min,Max]范围 (B) 当滚动条的 Value 值发生一次变化就触发一次 Change 事件 (C) 当拖动滚动块时只触发 Scroll 事件 (D) 拖动滚动块时可同时触发 Scroll 和 Change 事件" D 342 "以下关于框架的说法中,错误的是( ) 。

44

(A) 框架既是一个控件,又是一个容器 (B) 使用框架可以美化界面 (C) 使用框架可以将其它控件分组控制 (D) 显示在框架内的控件一定属于这个框架" D 343 "关于滚动条的事件,下面说法正确的是( ) 。 (A) 拖动滑块时既不触发 Scroll 事件,也不触发 Change 事件 (B) 拖动滑块时触发 Scroll 事件,释放滑块后触发 Change 事件 (C) 拖动滑块时触发 Change 事件,释放滑块后触发 Scroll 事件 (D) 拖动滑块时触发 Scroll 事件,同时触发 Change 事件" B 344 "关于滚动条的属性,下面说法错误的是( ) 。 (A) SmallChange 用于设置单击滚动条箭头时滚动条的步长值 (B) LargeChange 用于设置单击滚动条空白处滚动条的步长值 (C) Value 代表滚动条的当前值 (D) 滚动条的 Max 值没有限制" D 345 "将计时器 Interval 属性应设置为 500,Enabled 属性设置为 True,程序运行到 1.1 秒时, 计时器的 Timer 事件发生了( )次。 (A) 1 (B) 2 (C) 3 (D) 4" B 346 "窗体上有标签 Label1、命令按钮 Command1,计时器控件 Timer1,若要在标签中 动态显示时间,则语句 Label1.Caption=Time 必须放在( )事件过程中。 (A) Timer1_Timer (B) Command1_Click (C) Label1_Click (D) Timer1_Click" A 347 "单击滚动条的箭头处可触发滚动条的( )事件。 (A) Change (B) Scroll (C) DragOver (D) ItemCheck" A 348 "使用滚动条控件时,下面说法正确的是( ) 。 (A) 使用 Min 和 Max 属性来定义滚动的范围 (B) 滚动条控件具有 Click 和 DblClick 事件 (C) 由于文本框中可以设置滚动条,因此滚动条控件是文本框控件的一部分 (D) Min 属性支持的最小值为 0" A 349 "框架作为容器,具有控制其中控件的功能。以下说法不正确的是( ) 。 (A) 拖动框架,框架内控件随框架一起移动 (B) 设置框架的 Enabled 属性为 False,框架内控件随框架一起处于非活动状态 (C) 设置框架的 Visible 属性为 False,框架内控件随框架一起隐藏 (D) 删除框架,框架内控件依然存在" D 350 "为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件, 应将 Timer1 的 Interval 属性设置为( ) (A) 500

45

(B) 200 (C) 1000 (D) 5000" A 351 "已将计时器控件的 Enabled 属性设置为 True,仍然不能触发 Timer 事件的原因是 ( ) (A) 计时器控件的 Visible 属性设置为 False (B) 计时器控件的 Visible 属性设置为 True (C) 计时器控件的 Interval 属性值为 0 (D) 计时器控件的 Interval 属性值设置为 65535" C 352 "以下叙述中,错误的是( ) 。 (A) 键盘事件中包含有 KeyPress、KeyUp 和 KeyDown (B) 默认情况下,鼠标事件 MouseDown、MouseUp 和 MouseMove 相继发生 (C) KeyUp 和 KeyDown 所接收到的信息完全相同 (D) KeyPress 接收到的是用户通过键盘输入的字符的 ASCII 码" B 353 "对文本框 Text1 编写如下的事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String x = Chr(KeyAscii) KeyAscii = Asc(LCase(x)) Print String(4, Chr(KeyAscii)) End Sub 程序运行后, 将焦点位于文本框, 如果在键盘上输入字母 “b” 则窗体上显示的内容是 , ( ) 。 (A) B (B) b (C) 68 (D) bbbb" D 354 "在窗体上画一文本框 Text1,以下( )事件过程可以让文本框只能接受小写字母 的输入。 (A) Private Sub Text1_Change() If Asc(Text1.Text) > 64 And _ Asc(Text1.Text) < 91 Then MsgBox ""请输入小写字母"" KeyCode = 0 End If End Sub (B) Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 97 Or KeyAscii > 122 Then MsgBox ""请输入小写字母"" KeyAscii = 0 End If End Sub (C) Private Sub Text1_MouseDown _ (Button As Integer, Shift As Integer, _ X As Single, Y As Single)

46

If Asc(Text1.Text) < 65 Or _ Asc(Text1.Text) > 90 Then MsgBox ""请输入小写字母"" End If End Sub (D) Private Sub Text1_KeyDown _ (KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox ""请输入小写字母"" KeyCode = 0 End If End Sub" B 355 "以下叙述中,错误的是( ) 。 (A) 只有获得焦点的对象才能接受键盘事件 (B) KeyPress 事件中可以识别键盘上某个键的 ASCII 码 (C) 在 KeyDown 事件中,在键盘上输入 B 或 b 被视为按下相同的键 (D) 在 KeyUp 事件中,在主键盘上输入""1""和在小键盘上输入""1""被视为操作相同的键" D 356 "当用户按下并释放键盘上一个键后,以下被触发的键盘事件发生的顺序是( ) 。 (A) KeyPress、KeyUp、KeyDown (B) KeyDown、KeyUp、KeyPress (C) KeyDown、KeyPress、KeyUp (D) KeyPress、KeyDown、KeyUp" C 357 "为了让某控件不能通过 Tab 键得到焦点,应设置该控件的( )属性为 False。 (A) Default (B) TabStop (C) SetFocus (D) TabIndex" B 358 "若焦点位于文本框中,能够触发 KeyPress 事件的操作是( ) 。 (A) 单击文本框 (B) 双击文本框 (C) 通过键盘向文本框输入字符 (D) 鼠标在文本框中移动" C 359 "改变控件的( )属性值,可以改变控件获得焦点的顺序。 (A) Enabled (B) Index (C) TabStop (D) TabIndex" D 360 "要移动某个控件,应使用( )方法。 (A) Move (B) Refresh (C) SetFocus (D) GetFocus" A 361 "在 MouseDown 或 MouseUp 的事件过程中,能用来检查鼠标左键和 Shift 键是否

47

同时按下的表达式为( ) 。 (A) Button=1 And Shift=2 (B) Button=2 And Shift=1 (C) Button=1 And Shift=1 (D) Button=2 And Shift=2" C 362 "要取得所按键的按键码,应利用文本框的( )事件过程的 KeyCode 参数。 (A) Change (B) KeyDown (C) Click (D) KeyPress" B 363 "以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是( ) 。 (A) KeyAscii 参数是所按键的按键码 (B) KeyAscii 参数是所按键上字符的 ASCII 码 (C) KeyAscii 参数的数据类型为字符串 (D) KeyAscii 是所按键上标注的字符" B 364 "下列叙述中,错误的是( ) 。 (A) 当用户按下并释放一个键后,触发事件的顺序是 KeyDown、KeyPress、KeyUp (B) KeyPress 能接收所有键盘信息 (C) KeyUp 和 KeyDown 可以接收所有键盘信息 (D) KeyPress 接收到的是用户通过键盘输入的 ASCII 码字符" B 365 "运行以下程序后,在文本框上输入""abcd""字符串,变量 st 的内容是( ) 。 Dim st As String Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) st = Chr(KeyCode) + st End Sub (A) abcd (B) D (C) ABCD (D) DCBA" D 366 "以下程序的功能是( ) 。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox ""请重输入!"" KeyAscii = 0 End If End Sub (A) 文本框 Text1 只能接收大写字母的输入 (B) 文本框 Text1 只能接收小写字母的输入 (C) 文本框 Text1 只能接收大小写字母的输入 (D) 文本框 Text1 可接收从键盘输入的 ASCII 码字符" A 367 "下列叙述中,正确的是( ) 。 (A) 所有对象均能接受键盘事件 (B) KeyPress 事件中可以识别键盘上任意键码 (C) 在 KeyDown 事件中,可以识别 A 和 a 键码的输入

48

(D) 在 KeyUp 事件中,主键盘上""1""和小键盘上""1""键被视为不同的键" D 368 "设置控件的( )属性,按 Tab 键可以改变该控件获得焦点的顺序。 (A) Index (B) SetFocus (C) TabStop (D) TabIndex" D 369 "窗体上有文本框 Text1,编写如下事件过程,运行时,向文本框输入字符“a” ,输 出的数值是( ) 。 Private Sub Text1_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub (A) 65 (B) 97 (C) a (D) A" B 370 "窗体上有文本框 Text1,编写如下事件过程,运行时,向文本框输入字符“a” ,输 出的数值是( ) 。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode End Sub (A) 65 (B) 97 (C) a (D) A" A 371 "某个控件失去焦点,将发生( )事件。 (A) NoFocus (B) LastFocus (C) SetFocus (D) LostFocus" D 372 "在窗体的 MouseDown 或 MouseUp 的事件过程中, 能用来检查鼠标右键和 Ctrl 键 同时按下的表达式为( ) 。 (A) (Button = 1 And Shift = 2) = True (B) (Button = 2 And Shift = 1) = True (C) (Button = 1 And Shift = 1) = True (D) (Button = 2 And Shift = 2) = True" D 373 "在文本框的 KeyPress 事件过程中,( )参数代表输入字符的 ASCII 码。 (A) Button (B) Shift (C) KeyAscii (D) KeyCode" C 374 "若焦点位于文本框中,能够触发 KeyDown 事件的操作是( ) 。 (A) 单击文本框 (B) 双击文本框 (C) 敲击键盘上任一按键

49

(D) 按动鼠标右键" C 375 "设置某命令按钮的 ( ) 属性值为 False, 禁止用户通过 Tab 键使该按钮获得焦点。 (A) Enabled (B) Visible (C) TabStop (D) Default" C 376 "文本框获得焦点后,按下和释放键盘上的数字键,相对文本框, ) ( 。 (A) 既触发 KeyPress 事件,也触发 KeyUp 事件 (B) 既不触发 KeyPress 事件,也不触发 KeyUp 事件 (C) 触发 KeyPress 事件,不触发 KeyUp 事件 (D) 不触发 KeyPress 事件,触发 KeyUp 事件" A 377 "在 MouseDown 或 MouseUp 的事件过程中,能用来检查鼠标右键和 Shift 键是否 都按下的表达式为( ) 。 (A) Button=1 And Shift=2 (B) Button=2 And Shift=1 (C) Button=1 And Shift=1 (D) Button=2 And Shift=2" B 378 "要取得所按键的 ASCII 码,应利用文本框的( )事件过程的 KeyAscii 参数。 (A) Change (B) KeyDown (C) Click (D) KeyPress" D 379 "如下程序段的功能是:从键盘上输入若干学生的考试分数,负数作为结束输入的 标志,然后输出其中最高的分数和最低的分数? Private Sub Form_Click() Dim x As Single, mmax As Single, mmin As Single x = InputBox(""请输入学生的考试分数"") mmax = x mmin = x while 【1】 If 【2】Then mmax = x End If If x<mmin Then mmin = x End If x = InputBox(""请输入学生的考试分数"") Wend Print ""Max=""; mmax, ""Min=""; mmin End Sub 程序的空缺处【1】和【2】应分别填写( ) 。 (A) x >= 0 和 x > mmax (B) x >= 0 和 x < mmin (C) x < 0 和 x > mmax

50

(D) x < 0 和 x < mmin" A 380 "执行以下程序段后,窗体显示的内容为( ) 。 Private Sub Form_Click() a = 75 If a >=60 Then i=i+4 ElseIf a >=70 Then i=i+3 ElseIf a >=80 Then i=i+2 ElseIf a >=90 Then i=i+1 End If Print ""i="", i End Sub (A) i = 1 (B) i = 2 (C) i = 3 (D) i = 4" D 381 "以下程序段的执行结果是( ) 。 Dim a As Integer,b As Integer,c As Integer a = 14 : b = 9 : c = 5: a = a + b: c = c + b If a - c > b - c Then a = b + c If a - b > b - c Then b = a - c Print a, b, c (A) 23 14 9 (B) 14 9 14 (C) 23 9 14 (D) 14 9 5" C 382 "以下程序段是求两个数中的较小数(用 Min 表示) ,其中不正确的是( ) 。 (A) If a<b Then Min=a: Min=b (B) Min = IIf(a<b,a,b) (C) Min = b:If b>=a Then Min=a (D) If b>=a Then Min=a Else Min=b" A 383 "执行以下程序段后,x 的值是( ) 。 n = 6: x = 1: i = 1 Do x=x*i i=i+1 Loop While i < n (A) 6 (B) 21 (C) 1 (D) 120" D

51

384 "窗体上有一个文本框 Text1 和命令按钮 Command1,编写如下的事件过程: Private Sub Command1_Click() i = Text1.Text Select Case i Case 1: j = ""+"" Case 2: j = ""-"" Case 3: j = ""*"" Case Else: j = ""非法"" End Select Text1.Text = j End Sub 运行时,在 Text1 中输入 1 后单击命令按钮,Text1 中内容是( ) 。 (A) + (B) (C) * (D) 非法" A 385 "执行下列程序段后 x 的值是( ) 。 n = 5: x = 1: i = 1 Do x=x*i i=i+1 Loop While i < n (A) 10 (B) 15 (C) 24 (D) 120" C 386 "窗体上有一个文本框 Text1 和命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() i = Text1.Text Select Case i Case 1: j = ""+"" Case 2: j = ""-"" Case 3: j = ""*"" Case Else: j = ""非法"" End Select Text1.Text = j End Sub 运行时,在 Text1 中输入 3 后单击命令按钮,Text1 中内容是( ) 。 (A) + (B) (C) * (D) 非法" C 387 "以下条件语句错误的是( ) 。 (A) If X Then Y+1 = Y

52

(B) If X = 0 Then Y = 0 (C) If X > Y Then Print Y (D) If X > 0 Then Y = 1: Print Y" A 388 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 16 Then y = x If x ^ 2 < 16 Then y = 1 / x If x ^ 2 > 16 Then y =( x +2)^ 2 + 1 Print y End Sub 运行时,单击按钮,在输入框中输入 6 后回车,窗体上将显示( ) 。 (A) 6 (B) 0.16666 (C) 37 (D) 65" D 389 "下列程序段的执行结果是( ) 。 Dim x As Integer x = Int(Rnd*1+5) Select Case x Case 5 Print ""优秀"" Case 4 Print ""良好"" Case 3 Print ""通过"" Case Else Print ""不通过"" End ? Select (A) 优秀 (B) 良好 (C) 通过 (D) 不通过" A 390 "单击命令按钮,由文本框 Text1 获得 x 的值,根据以下条件计算 y 的值:当 x>0 时 y 的值为 x 的自然对数;当 X<=0 时 y 的值为 x 的绝对值。并将 y 的值显示在标签 Label1 中。以下能正确计算 y 值的程序是: ) ( 。 (A) X = Val(Text1.Text) Y = Abs(X) If X > 0 Then Y = Log(X) End If Label1.Caption = Y (B) X = Val(Text1.Text) If X > 0 Then Y = Log(X) If X <= 0 Then Y = Abs(X) Label1.Caption = Y

53

(C)

X = Val(Text1.Text) If X <= 0 Then Y = Log(X) Else Y = Abs(X) Label1.Caption = Y (D) X = Val(Text1.Text) If X >= 0 Then Y = Abs(X) Else Y = Log(X) Label1.Caption = Y" B 391 "如下程序段的功能是:从键盘上输入若干学生的考试分数,当输入负数时结束输 入,然后输出其中最高分、最低分和平均分。 Private Sub Form_Click() Dim x!, mmax!, mmin!,s!,n% x = val(InputBox(""请输入学生的考试分数"")) mmax = x: mmin = x:s=x:n=1 Do while x>=0 If 【1】Then mmax = x En ? f If x < mmin Then mmin = x End If x = val(InputBox(""请输入学生的考试分数"")) s=s+x n=【2】 Loop Print ""Max=""; mmax, ""Min=""; mmin, ""s="";s/n End Sub 程序的空缺处【1】和【2】应分别填写( ) 。 (A) x > mmin 和 n+i (B) x > mmax 和 n+1 (C) mmax >x 和 n+1 (D) x > mmax 和 n+I" B 392 "如下程序段的功能是:从键盘上输入一字符串后,在窗体上反向显示其内容,如输 入""abcd"",显示""dcba""。 Private Sub Command1_Click() Dim i%, n%, S$, C$ C = """" S = InputBox(""请输入字符串"") 【1】 For i = 1 To n C = 【2】 Next i

54

Print C End Sub 程序的空缺处【1】和【2】应分别填写( ) 。 (A) n = Len(S) 和 Mid(S, i, 1) + C (B) n = Len(S) 和 C + Mid(S, i, 1) (C) n = Left(S) 和 Mid(S, i, 1) + C (D) n = Len(S) 和 C + Mid(S, n, i)" A 393 "如下程序段的功能是:1~100 自然数在窗体上显示,且每行显示 5 个自然数。 Dim i%, n% For i = 1 To 100 【1】 n=n+1 If 【2】 Then Print Next i 程序的空缺处【1】和【2】应分别填写( ) 。 (A) Print i,和 n mod 4 = 0 (B) Print i 和 n \ 6 = n / 6 (C) Print i 和 n mod 5 = 0 (D) Print i,和 n \ 5 = n / 5" D 394 "下列程序段是判断输入的正整数 n 是否为素数。 Dim i%, n%, t% n = Val(InputBox(""n="")) For i = 2 To n \ 2 If n / i = n \ i Then t=1 【1】 End If Next i If 【2】Then Print ""不是素数"" Else Print ""是素数"" 程序的空缺处【1】和【2】应分别填写( ) 。 (A) Exit For 和 t = 0 (B) i = i + 1 和 t = 1 (C) i = i + 1 和 t = 0 (D) Exit For 和 t = 1" D 395 "如下程序段的功能是:利用公式 e=1+1/1!+1/2!+?+1/n!求自然对数的底 e 近似值。 要求累加到最后一项值小于 0.000001 为止。 Dim e#, t#, n% e = 0: t = 1: n = 1 Do While 1 / t【1】 0.000001 e=e+1/t t = 【2】 n=n+1 Loop Print ""自然对数的底 e 近似值为:"", e

55

程序的空缺处【1】和【2】应分别填写( ) 。 (A) > 和 t + n (B) < 和 t + n (C) > 和 t * n (D) < 和 t * n" C 396 "执行下列程序段后 x 的值是( ) 。 x=0 i=0 Do x=x+2 i=i+1 Loop While i < 10 (A) 18 (B) 20 (C) 22 (D) 24" B 397 "窗体上有文本框 Text1 和命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() i = Val(Text1.Text) Text1.Text = Choose(i, ""+"", ""-"", ""*"", ""/"") End Sub 运行时,在 Text1 中输入 3 后单击命令按钮,Text1 中内容是( ) 。 (A) + (B) (C) * (D) 3" C 398 "分析下列程序段: If X = 0 Then Y=0 End ? If 以下说法正确的是( ) 。 (A) “X = 0”是关系表达式, = 0”是赋值语句 “Y (B) “X = 0”是关系表达式, = 0”也是关系表达式 “Y (C) “X = 0”是赋值语句, = 0”是关系表达式 “Y (D) “X = 0”是赋值语句, = 0”也是赋值语句" A “Y 399 "执行下列事件过程后,y 的值为( ) 。 Private Sub Command1_Click() X=5 If X ^ 2 = 16 Then Y=X ElseIf X ^ 2 < 16 Then Y=1/X Else Y = (X + 2) ^ 2 + 1

56

End If End Sub (A) 5 (B) 1/5 (C) 50 (D) 0" C 400 "窗体上有命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() Dim m As Integer, a As Integer m = InputBox("""") Select Case m ^ 2 Case 1 a=1 Case 2 a=2 Case 3 a=3 Case 4 a=4 End Select Print a End Sub 事件过程运行时,在弹出的输入框中输入“2” ,按“确定”按钮后 a 的值为( ) 。 (A) 1 (B) 2 (C) 3 (D) 4" D 401 "执行下列程序段后,x 的值是( ) 。 n = 6: x = 1: i = 1 Do x=x*i i=i+1 Loop While i < n (A) 2 (B) 6 (C) 24 (D) 120" D 402 "窗体上有一个文本框 Text1 和命令按钮 Command1,编写如下事件过程: Private Sub Comman ? Click() i = Text1.Text Select Case i Case 1: j = ""+"" Case 2: j = ""-"" Case 3: j = ""*""

57

Case Else: j = ""非法"" End Select Text1.Text = j End Sub 运行时,在 Text1 中输入 5 后单击命令按钮,Text1 中内容是( ) 。 (A) + (B) (C) * (D) 非法" D 403 "以下条件语句错误的是( ) 。 (A) If X < 0 Then Y = Y+1 Else Y = Y-1 (B) If X < 0 Then Y = Y+1: Else Y = Y-1 (C) If X > 0 Then Y = Y-1 (D) If X = 0 Then Y = Y-1" B 404 "窗体上有一个命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() Dim x As Integer, y As Integer x = InputBox("""") If x ^ 2 = 16 Then y = x If x ^ 2 < 16 Then y = 1 / x If x ^ 2 > 16 Then y = (x + 1) ^ 2 + 1 Print y End Sub 运行时,单击按钮,在输入框中输入 5 后回车,窗体上将显示( ) 。 (A) 5 (B) 0.2 (C) 26 (D) 37" D 405 "下列程序段的执行结果是( ) 。 Dim x As Integer x=6 Select Case x Case 5 Print ""优秀"" Case 4 Print ""良好"" Case 3 Print ""通过"" Case Else Print ""不通过"" End ? Select (A) 优秀 (B) 良好 (C) 通过

58

(D) 不通过" D 406 "执行以下程序段后,窗体显示的内容为( ) 。 Private Sub Form_Click() s=2 For i = 1 To 2 For j = 0 To i s=s+s*j Print s; Spc(2); Next j Print Next i End Sub (A) 1 2 2 4 12 (B) 2 4 4 8 (C) 2 4 8 24 (D) 2 4 4 8 24" D 407 "以下程序段的执行结果是( ) 。 n=2 J=1 Do While J < 4 n=n*J Print n; J=J+1 Loop (A) 2 3 4 (B) 2 6 24 (C) 2 4 8 (D) 2 4 12" D 408 "运行以下程序段之后,n 的值是( ) 。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n=n+1 Next Next (A) 1 (B) 3 (C) 7 (D) 9" C 409 "如下程序段的功能是计算 1/2+1/4+1/6 +...+1/50,并显示结果。

59

Private Sub Command1_Click() Dim i As Integer Dim sum As Double i = 【1】 sum = 0 Do While (i <=50) sum = sum + 1 / 【2】 i=i+2 Loop Print sum End Sub 程序的空缺处【1】和【2】应分别填写( ) 。 (A) 0,sum (B) 1,i (C) 2,sum (D) 2,i" D 410 "运行以下程序,单击窗体后输出的结果是( ) 。 Private Sub Form_Click() s=1 For i = 1 To 2 For j = 1 To i s=s+s*j Print s; Spc(2); Next j Print Next i End Sub (A) 1 2 4 12 (B) 1 2 2 4 (C) 2 4 6 (D) 2 4 12" D 411 "执行以下程序段后输出的结果是( ) 。 For I = 1 To 3 x=4 For j = 1 To 4 x=x+6 Next j Next I Print x; (A) 16

60

(B) 22 (C) 24 (D) 28" 412 "运行下列程序,单击窗体后输出的结果是( ) 。 Private Sub Form_Click() s=1 For I = 1 To 2 For j = 0 To I s=s+j Print s; Spc(2); Next j Print Next I End Sub (A) 1 2 4 12 (B) 1 2 2 4 (C) 1 2 2 4 12 (D) 1 2 2 3 5" D 413 "执行下列程序段后输出的结果是( ) 。 For I = 1 To 4 x=4 For j = 1 To 3 x=x+1 Next j Next I Print x; (A) 72 (B) 22 (C) 4 (D) 7" D 414 "执行下列程序段后,共循环了( )次。 For i = 1 To 3 For j = 1 To i Print ""a"" Next j Next i (A) 2 (B) 3 (C) 4 (D) 6" D

61

415 "窗体上有命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x=0 Do While x < 10 x = (x +1) * (x +2) n=n+1 Loop End Sub 运行时,单击按钮¥和 x 的值分别是( ) 。 (A) 2 和 12 (B) 2 和 24 (C) 3 和 50 (D) 4 和 68" A 416 "下列循环语句能正常结束循环的是( ) 。 (A) i=5 Do i=i+1 Loop Until i > 0 (B) i=1 Do i=i+2 Loop Until i = 10 (C) i=1 Do i=i-1 Loop Until i > 0 (D) i=6 Do i=i-2 Loop Until i = 1" A 417 "假定有如下事件过程: Private Sub Form_Click() Dim x As Integer, n As Integer x=1 n=0 Do While x < 100 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后,单击窗体,输出结果是( ) 。 (A) 81 4 (B) 56 3

62

(C) 28 1 (D) 243 5" D 418 "执行下列程序的第 K 次外循环结束后(即对 i=k 时 For j=1 to k step 2??nxet j 循 环结束后)j 的值是( ) 。 Dim i%, j%, s! s=1 For i = 1 To 50 For j = 1 To i Step 2 s=s+j Next j, i Print s (A) K+1 (B) K+2 (C) 2*(k\2)+1 (D) 2*((k+1)\2)+1" D 419 "下列程序段的的功能是计算 s=1+(1+1/2)+??+(1+1/2+1/3+??1/n)的值。 Dim i%, j%, n% 【1】 s=0 n = Val(InputBox(""n="")) For i = 1 To n For j = 1 To i s = 【2】 Next j, i Print ""s="";s 程序的空缺处【1】和【2】应分别填写( ) 。 (A) Dim s% 和 s + 1 / j (B) Dim s! 和 s + 1 / j (C) Dim s% 和 s + (1/i+1/j) (D) Dim s! 和 s + (1/i+1/j)" B 420 "运行下列程序段,总共执行的循环次数是( ) 。 Dim m%, n% For m = 1 To 10 For n = 1 To m Step 2 Print n Next n Print m+n next m (A) 55 (B) 30 (C) 27 (D) 28" B 421 "如下程序段的功能是计算 s=1-1/2+1/3-?+(-1)^(n-1)/n 的值。 Dim i%, t%, n%

63

【1】 n = Val(InputBox(""n="")) t=1 For i = 1 To n s=s+t/i 【2】 Next i Print ""s="";s 程序的空缺处【1】和【2】应分别填写( ) 。 (A) Dim s%和 t = -t (B) Dim s!和 t = -t (C) Dim s!和 t = -1 (D) Dim s%和 t = -1" B 422 "如下程序的功能是在窗体同一行按紧凑格式输出 1!、2!、?、10!的值。 Dim i as Integer 【1】 s=1 For i = 1 To 10 s=s*i 【2】 Next i 程序的空缺处【1】和【2】应分别填写( ) 。 (A) Dim s As Integer 和 Print s; (B) Dim s As Integer 和 Print s, (C) Dim s As Long 和 Print s; (D) Dim s As Long 和 Print s" C 423 "运行下列程序段,循环次数是( ) 。 For j = 8 To 35 Step 3 Form1.Print j; Next j (A) 8 (B) 9 (C) 10 (D) 11" C 424 "执行下列程序段后输出的结果是( ) 。 For i = 1 To 4 x=5 For j = 1 To 2 x=x*j Next j Next i Print x; (A) 10 (B) 20

64

(C) 40 (D) 80" A 425 "执行下列程序段后,x 的值为( ) 。 x=0 For i = 1 To 5 For j = 1 To 6 x=x+1 Next j Next i (A) 29 (B) 30 (C) 31 (D) 32" B 426 "窗体上有命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x=2 Do While x < 20 x=x^2 Loop End Sub 运行时,单击按钮,x 的值是( ) 。 (A) 4 (B) 16 (C) 256 (D) 65536" C 427 "阅读下面的程序段: Private Sub Command1_Click() a=0 For i = 1 To 3 For j = 1 To i For k = j To 3 a=a+1 Next k Next j Next i End Sub 执行上面的三重循环后,a 的值为( ) 。 (A) 3 (B) 9 (C) 14 (D) 21" C 428 "运行下列程序,单击窗体后输出的结果是( ) 。 Private Sub Form_Click() s=0

65

For i = 1 To 2 For j = 1 To i s=s+j Print s; Next j Print Next i End Sub (A) 0 1 2 (B) 1 2 3 (C) 1 2 4 (D) 1 2 5" C 429 "执行下列程序段后输出的结果是( ) 。 For i = 1 To 3 x=5 For j = 1 To 5 x=x+1 Next j Next i Print x; (A) 10 (B) 30 (C) 11 (D) 44" A 430 "下列程序段共执行了( )次 Print ""a""。 For i = 1 To 3 For j = i To 4 Print ""a"" Next j Next i (A) 3 (B) 9 (C) 10 (D) 12" B 431 "窗体上有命令按钮 Command1,编写如下事件过程: Private Sub Command1_Click() x=0 n=0 Do Until x > 10 x = (x + 1) * (x + 2)

66

n=n+1 Loop End Sub 运行时,单击按钮,n 和 x 的值分别是( ) 。 (A) 2 和 12 (B) 2 和 24 (C) 3 和 50 (D) 4 和 68" A 432 "下列循环语句不能正常结束循环的是( ) 。 (A) i=5 Do i=i+1 Loop Until i > 0 (B) i=1 Do i=i+2 Loop Until i = 11 (C) i=1 Do i=i-1 Loop Until i > 0 (D) i=6 Do i=i-2 Loop Until i = -4" C 433 "若用二维数组存储以下数据, )数组声明语句能实现(不能浪费空间) ( 。 2.1 4.8 7.3 3.5 2.4 6.8 7.2 8.1 7.3 (A) Dim a(9) As Single (B) Dim a(3,3) As Single (C) Dim a(1 To 3,2 To 4) As Integer (D) Dim a(-3 To -1,-5 To -3) As Single" D 434 "如下数组声明语句中数组 a 包含的元素个数为( ) 。 Dim a(2, -1 To 1, 5) (A) 84 (B) 54 (C) 72 (D) 18" B 435 "以下关于控件数组的描述中,正确的是( ) 。 (A) 同一控件数组中的控件名称不同 (B) 同一控件数组中的控件所有属性值都相同

67

(C) 同一控件数组中的控件其 Index 属性值不同 (D) 同一控件数组中的控件类型可以不同" C 436 "以下定义数组或给数组元素赋值的语句中,正确的是( ) 。 (A) Dim a(10) As Integer a=Array(1,2,3,4,5,6) (B) Dim a As Variant a=Array(1,2,3,4,5,6) (C) Dim %A(10) a(1)=""ABCD"" (D) Dim a(3),b(3)As Integer a(0)=0:a(1)=1:a(2)=2: b=a" B 437 "能使一维动态数组 arr(6)元素个数加 1,但不保留数组中原有元素的语句是( ) 。 (A) ReDim arr(7) (B) ReDim Preserve arr(7) (C) Public arr(1 To 7) (D) Static arr(7)" A 438 "以下有关数组的说明中,正确的是( ) 。 (A) 在过程中可以用 Private 语句定义数组 (B) 无论是动态数组还是静态数组,数组一旦定义,其维数是不能重新定义的 (C) 用 ReDim 语句重新定义维数后,原有的数组元素内容将不予保留 (D) 用 ReDim 语句重新定义维数时,不得改变该数组的数据类型" C 439 "下列不能建立动态数组的语句是( ) 。 (A) ReDim 语句 (B) 使用 Array 函数 (C) 在通用声明区声明数组为可变类型 (D) 数组对数组赋值" C 440 "以下有关数组说明中,错误的是( ) 。 (A) 在通用声明区可用 Private 语句声明数组 (B) 根据数组大小是否可变,可将数组分为动态数组和静态数组 (C) 用 ReDim 语句重新建立数组后,原有的数组元素内容将不予保留 (D) 用 ReDim 语句重新建立数组时,不得改变原有数组的维数" D 441 "设一维数组 a 的下标从 1 开始,有如下过程 Fun: Private Sub Fun(a() As Integer) Dim T Dim J As Integer J = UBoun(a) \ 2 For i = 1 To J T = a(i) a(i) = a(UBound(a) - i + 1) a(UBound(a) - i + 1) = T Next i End Sub

68

下列对其功能的叙述正确的是( ) 。 (A) 该过程能对传入数组进行升序排序 (B) 该过程能对传入数组进行降序排序 (C) 该过程能对传入数组进行逆序存放 (D) 该过程能对传入数组逆序存放后又顺序存放" C 442 "下列程序运行的结果是( ) 。 Private Sub Command1_Click() Dim a(5) As Integer,b(5) As Integer n=3 For i=1 To 5 a( i )=i b( n )=2*i+n Next i Print a(n);b(n) End Sub (A) 3 11 (B) 11 3 (C) 9 3 (D) 3 13" D 443 "以下程序段执行的结果是( ) 。 Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j=j+1 Next i Print j End Sub (A) 5 (B) 7 (C) 9 (D) 11" C 444 "以下程序段中包含一个错误,出错的原因是( ) 。 Dim a( ) Redim a(4) As Integer For m = 4 To 0 Step -1 a(m) = a(m) + 1 Next m (A) 第四行,数组元素 a(m)下标越界 (B) 第四行,不能用循环变沥表示下标 (C) 第二行,不能改变数组的数据类型 (D) 第三行,循环语句格式不对" C 445 "在不浪费存储空间前提下存放如下方阵的数据,数组声明语句应为( ) 。

69

1.5 2.1 4.8 7.3 2.8 3.5 2.4 6.8 5.2 7.2 8.1 7.3 (A) Dim a(12) As Single (B) Dim a(3,4) As Single (C) Dim a(2,3) As Single (D) Dim a(1 To 3,1 To 4) As Integer" C 446 "在 VB 的“声明”段有语句 Option Base 1,那么用如下语句声明的数组 a 包含的元 素个数为( ) 。 Dim a(-1 To 2, 3, 4) (A) 36 (B) 48 (C) 60 (D) 80" B 447 "以下数组 A 在子过程或函数中定义为形式参数,正确的语句是( ) 。 (A) Private Sub sele(ByVal A( ) As integer) (B) Private Function sale(A() As Integer) As String (C) Private Sub sale(A() As Integer) As Integer (D) Private Static Sub sale(A() As Integer) As Integer" B 448 "以下定义数组或给数组元素赋值的语句中,错误的是( ) 。 (A) Dim a a=Array(1,2,3,4,5) (B) Dim a( ) a=Array(1,2,3,4,5) i = UBound(a) (C) Dim A%() a=Array(1,2,3,4,5) (D) Dim a As Variant a= Array(1, 2, 3, 4, 5) i = LBound(a)" C 449 "能使整型数组 a(6)元素个数加 1,但保留数组中原有元素的语句是( ) 。 (A) ReDim a(7) (B) ReDim Preserve a(7) (C) Static a(7) (D) ReDim Preserve A(7) As String" B 450 "以下不能声明静态数组的语句是( ) (A) Dim A(10) (B) Dim A(10) As Integer (C) Dim A(1 To 10) As Integer (D) Dim A"D 451 "若有数组声明语句 Dim t(1 To 10) As Variant,则 t 被定义为( ) 。 (A) 数值数组 (B) 可调数组 (C) 字符串数组

70

(D) 可变类型数组" D 452 "假定建立了一个名为 Command1 的命令按钮数组,则以下说法中错误的是( ) 。 (A) 数组中每个命令按钮的名称均为 Command1 (B) 数组中每个命令按钮的标题必须相同 (C) 数组中所有命令按钮可以使用同一个事件过程 (D) 用 Command1(下标)可以访问数组中每一个命令按钮" B 453 "下列程序运行的结果是( ) 。 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7) For i = LBound(a) To UBound(a) a(i) = a(i) * a(i) Next i Print a(i) End Sub (A) 49 (B) 36 (C) 0 (D) 下标越界" D 454 "以下程序段执行的结果是( ) 。 Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 4, 9, 16, 25, 36) For i = 1 To a(2) j=j+1 Next i Print j End Sub (A) 4 (B) 9 (C) 16 (D) 25" B 455 "用 Dim 语句声明某动态数组后,不能建立该数组的是( )语句。 (A) ReDim (B) 使用 Array 函数 (C) Dim (D) 数组对数组赋值" C 456 "以下有关数组说明中,正确的是( ) 。 (A) 可使用 Erase 语句重新初始化动态数组 (B) 可使用 Erase 语句重新初始化静态数组 (C) 可使用 Erase 语句改变动态数组的大小 (D) 可使用 Erase 语句改变静态数组的大小" B 457 "设整数型一维数组 a 的下标从 1 开始,有 10 个变量,对该数组的操作有如下事件

71

过程: Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then k = a(i) a(i) = a(j) a(j) = k En ? f next j Next i End Sub 关于该过程功能的叙述正确的是( ) 。 (A) 该过程能对数组 a 进行升序排序 (B) 该过程能对数组 a 进行降序排序 (C) 该过程能对数组 a 进行逆序存放 (D) 该过程能对数组 a 逆序存放后又顺序存放" 458 "下列程序运行的结果是( ) 。 Private Sub Command1_Click() Dim a(6) As Integer, b(6) As Integer n=5 For i = 1 To 6 a(i) = i b(i) = i ^ 2 - n Next i Print a(n); b(n) End Sub (A) 5 10 (B) 5 20 (C) 6 30 (D) 6 31" B 459 "以下程序执行的结果是( ) 。 Private Sub Command1_Click() Dim a Dim i As Integer, k As Integer a = Array(1, 4, 9, 16, 25, 36) For i = 1 To a(5) k=k+1 Next i Print k End Sub (A) 9 (B) 16

A

72

(C) 25 (D) 36" D 460 "运行以下程序,显示的结果为( ) 。 Public Sub F1(n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 34: y = 12 Call F1(x, y) Print x, y End Sub (A) 2 34 (B) 34 12 (C) 4 1 (D) 4 12" D 461 "运行以下的程序,显示的结果为( ) 。 Private Sub Command1_Click() Print p1(3, 9) End Sub Public Function p1!(x!, n%) If n = 0 Then p1 = 1 Else If n Mod 2 = 0 Then p1 = x * 5 Else p1 = 5 \ x End If End If End Function (A) 3 (B) 2 (C) 1 (D) 15" C 462 "阅读以下程序段: Sub Yu(x%, y%) x = 5 * x: y = x + y End ? Sub Private Sub Form_Click() Dim a%, b% a = 5: b = 10 Yu a, b

73

Print a, b End Sub 程序运行后,单击窗体,输出结果为( ) 。 (A) 5 10 (B) 25 35 (C) 25 15 (D) 25 25" D 463 "阅读以下程序: Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n=n+i m=m+i*2 Next Print m, n End Sub 运行时,两次单击窗体,输出结果为( ) 。 (A) 12 6 12 6 (B) 3 6 6 12 (C) 3 6 3 6 (D) 12 6 12 12" D 464 "窗体上有命令按钮 Command1,编写如下事件过程: Sub p(b() As Integer) For i = 1 To 4 b(i) = 2 ^ i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 1: a(2) = 3 a(3) = 5: a(4) = 7 p a() For i = 1 To 4 Print a(i); Spc(1); Next i End Sub 运行后,单击按钮,输出的结果为( ) 。 (A) 1 3 5 7 (B) 2 4 6 8

74

(C) 2 4 8 16 (D) 2 2 2 2" C 465 "阅读如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer x=5 y=7 Text1.Text = """" Call p1(x, y) Text1.Text = Str(x) + "" "" + Str(y) End Sub Sub p1(a As Integer, b As Integer) a=a+b b=a-b a=a-b End Sub 运行上面的程序,单击命令按钮 Command1,则在文本框中显示的内容是( ) (A) 7 5 (B) 5 7 (C) 12 2 (D) 2 3" A 466 "窗体上有命令按钮 Command1,编写如下事件过程: Sub p(b() As Integer) For i = 1 To 4 b(i) = b(i) + 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 1: a(2) = 3 a(3) = 5: a(4) = 7 p a() For i = 1 To 4 Print a(i); Spc(1); Next i End Sub 运行后,单击按钮,输出的结果为( ) 。 (A) 1 3 5 7 (B) 3 7 11 15 (C) 2 6 10 14 (D) 3 9 15 21" B 467 "阅读如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer

75

x=5 y=7 z=0 Text1.Text = """" Call p1(x, y, z) Text1.Text = Str(z) End Sub Sub p1(a As Integer, b As Integer, c As Integer) a=b+c b=a+c c=a+b End Sub 运行上面的程序,单击命令按钮 Command1,则在文本框中显示的内容是( ) 。 (A) 0 (B) 12 (C) 14 (D) 没有显示" C 468 "窗体上有一个命令按钮 Command1,编写如下事件过程: Function fun(x As Integer) Static y As Integer y=y+1 fun = x + y End Function Private Sub Command1_Click() Dim x As Integer For i = 1 To 2 x=x+1 Print fun(x); Next i End Sub 运行时,单击命令按钮,窗体将显示( ) 。 (A) 2 2 (B) 2 3 (C) 2 4 (D) 4 4" C 469 "有如下两个过程 S1 和 S2: Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub

76

下列关于 S1 和 S2 的说法,正确的是( ) 。 (A) 调用过程 S1 可以实现交换两个变量值,而 S2 不能 (B) 调用过程 S2 可以实现交换两个变量值,而 S1 不能 (C) 调用过程 S1 和 S2 都可以实现交换两个变量值 (D) 调用过程 S1 和 S2 都不能实现交换两个变量值" B 470 "运行下列程序,若输入 6,则输出的结果为( ) 。 Function fact(x As Integer) As Long Dim p As Long, i As Integer p=1 For i = 1 To x p=p*i Next i fact = p End Function Private Sub Command1_Click() Dim i As Integer, a As Long i = Val(InputBox(""请输入一个数"")) a = fact(i) Print a End Sub (A) 24 (B) 120 (C) 720 (D) 5040" C 471 "运行下列程序,单击命令按扭 3 次后,输出的结果为( ) 。 Sub ind(a As Integer) Dim x As Integer x=x+a Print x; End Sub Private Sub Command1_Click() ind 2 End Sub (A) 2 2 2 (B) 1 2 3 (C) 2 4 6 (D) 2 4 8" A 472 "运行下面的程序,x 和 y 的值为( ) 。 Public Sub F1(m%, ByVal n%) Dim K% If m > n Then K = m: m = n: n = K End Sub Private Sub Command1_Click() Dim x%, y%

77

x = 30: y = 20 Call F1(x, y) End Sub (A) 20,20 (B) 20,30 (C) 30,20 (D) 30,30" A 473 "运行下面的程序,C 和 x 的值分别为( ) 。 Public Function F1%(m%, ByVal n%) Dim r% If m < n Then r = m: m = n: n = r r = m Mod n Do While r > 0 n = m: n = r: r = m Mod n Loop F1 = n End Function Private Sub Command1_Click() Dim x%, y%, c% x = 48: y = 72 c = F1(x, y) End Sub (A) 24,48 (B) 24,24 (C) 12,24 (D) 24,72" D 474 "阅读下列程序: Private Sub Form_Click() Static m%,n% For i = 1 To 2 n=n+i m=m+n^2 Next End Sub 运行时,两次单击窗体,那么第二次单击窗体后 m, n 的值分别为( ) 。 (A) 10,3 (B) 62,6 (C) 52,6 (D) 62,3" B 475 "窗体上有命令按钮 Command1,编写如下事件过程: Sub p1(b() As Integer) Dim n% For i = UBound(b) To LBound(b) Step -1 Print b(i);

78

n=n+1 If n \ 3 = n / 3 Then Print Next i End Sub Private Sub Command1_Click() Dim a%(5) For i = 0 To 5 a(i) = (i + 1) ^ 2 Next i p1 a() End Sub 运行后,单击命令按钮,输出的结果为( ) 。 (A) 1 4 9 16 25 36 (B) 36 25 16 9 4 1 (C) 1 4 9 16 25 36 (D) 36 25 16 9 4 1" B 476 "阅读如下程序: Private Sub Command1_Click() Dim x, y%, z As Integer x=6 y=9 z=0 Text1.Text = """" Call p1(x, y, z) Text1.Text = z End Sub Sub p1(ByVal a$, ByVal b$, c%) c=a+b End Sub 运行上面的程序,单击命令按钮 Command1,则在文本框中显示的内容是( ) 。 (A) 0 (B) 15 (C) 69 (D) 程序出错" C 477 "关于过程的作用域,以下错误的描述是( ) 。 (A) 全局过程的作用域为整个工程 (B) 在某窗体上定义的全局过程,若被其它模块调用,必须在该过程名前加上窗体名称 (C) 在不同模块中定义的模块级过程可以同名 (D) 在不同模块中定义的全局过程不能同名" D 478 "定义通用过程 Sub f(x As Integer, y As Integer, z As Integer),再设 a、b、c 为整型变 量,则调用该过程使用的语句为( ) 。 (A) Call f

79

(B) Call f(a,b) (C) f(a,b,c) (D) f a,b,c" D 479 "下面过程定义语句合法的是( ) · (A) Sub f1(Byval n( ) As Integer ) (B) Sub f1(n( ) As Integer ) As Integer (C) Function f1(f1%) As Integer (D) Function f1(ByVal n As Integer)" D 480 "有如下两个过程 S1 和 S2: Sub S1 (ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t End ? Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 下列关于 S1 和 S2 的说法,正确的是( ) 。 (A) 调用过程 S1 可以实现交换两个变量值,而 S2 不能 (B) 调用过程 S2 可以实现交换两个变量值,而 S1 不能 (C) 调用过程 S1 和 S2 都可以实现交换两个变量值 (D) 调用过程 S1 和 S2 都不能实现交换两个变量值" B 481 "运行下列程序,单击窗体后输出的结果为( ) 。 Function F(x As Integer) Dim z As Integer z=z+1 x=x+z F=x+z End Function Private Sub Form_Click() Dim a As Integer a=2 Print F(a) End Sub (A) 2 (B) 3 (C) 4 (D) 5" C 482 "窗体上有命令按钮 Command1,编写如下事件过程: Sub p(b() As Integer) For i = 1 To 4 b(i) = b(i) ^ i Next i End Sub

80

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 1: a(2) = 2 a(3) = 3: a(4) = 4 p a() For i = 1 To 4 Print a(i); Next i End Sub 运行后,单击按钮,输出的结果为( ) 。 (A) 1 2 3 4 (B) 2 4 6 8 (C) 1 4 9 16 (D) 1 4 27 256" D 483 "阅读如下程序: Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x=1 y=2 z=3 Text1.Text = """" Call p1(x, y, z) Text1.Text = Str(z) End Sub Sub p1(a As Integer, b As Integer, ByVal c As Integer) a=b*c b=c*a c=a*b End Sub 运行上面的程序,单击命令按钮 Command1,则在文本框中显示的内容是( ) (A) 2 (B) 3 (C) 6 (D) 108" B 484 "窗体上有一个命令按钮 Command1,编写如下事件过程: Sub fun(x As Integer) Static y As Integer y=y+1 x=x+y End Sub Private Sub Command1_Click() Dim x As Integer x=0 For i = 1 To 2

81

x=x+1 Call fun(x) Print x; Next i End Sub 运行时,单击命令按钮,窗体将显示( ) 。 (A) 2 3 (B) 2 4 (C) 2 5 (D) 2 6" C 485 "有如下两个过程 S1 和 S2: Sub S1(ByRef x As Integer, ByVal y As Integer) Dim t As Integer t = x: x = y: y = t En ? ub Sub S2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 下列关于 S1 和 S2 的说法,正确的是( ) 。 (A) 调用过程 S1 可以实现交换两个变量值,而 S2 不能 (B) 调用过程 S2 可以实现交换两个变量值,而 S1 不能 (C) 调用过程 S1 和 S2 都可以实现交换两个变量证 (D) 调用过程 S1 和 S2 都不能实现交换两个变量值" B 486 "运行下列程序,输出的结果为( ) 。 Function fact(x As Integer) As Long Dim i As Integer fact = 1 For i = 1 To x fact = fact * i Next i End ? Function Private Sub Command1_Click() Dim i As Integer For i = 1 To 2 Print fact(i); Next i End Sub (A) 1 1 (B) 1 2 (C) 2 3 (D) 2 4" B 487 "以下关于菜单叙述,错误的是( ) 。 (A) 菜单的属性不可以在“属性窗口”中设置

82

(B) “菜单编辑器”中设计的菜单是控件 (C) 菜单项是一个控件,但它不在“工具箱”中 (D) 菜单项是一个控件,它具有外观和行为的属性" A 488 "以下关于多重窗体的叙述中,错误的是( ) 。 (A) 在多重窗体程序中,可以用关键字 Me 代表程序代码所在的窗体 (B) 没有启动窗体,程序不能执行 (C) 如果启动对象是 Sub Main 子过程,则程序启动时先运行该过程 (D) 可以通过设置来决定某个窗体先启动" B 489 "在菜单编辑器中定义了一个名称为 Edt 的菜单项,若需在运行时,使得该菜单项 不能响应鼠标事件,可使用的语句是( ) 。 (A) Edt.Enabled=True (B) Edt.Enabled=False (C) Edt.Visible=True (D) Edt.Visible=False" B 490 "以下叙述中,错误的是( ) 。 (A) 通用对话框的大小是可以调节的,并且有“最大化”按钮 (B) 调用通用对话框控件的 ShowColor 方法,可以打开颜色对话框 (C) 在同一个程序中,用不同的方法打开的通用对话框具有不同的作用 (D) 使用通用对话框控件的 ShowOpen 方法打开对话框后, 可以通过 FileName 属性获得通 用对话框中指定文件的路径" A 491 "以下关于多文档界面(MDI)的叙述中,错误的是( ) 。 (A) MDI 子窗口包含在一个大小可调的 MDI 父窗口内 (B) MDI 应用程序允许同时显示多个文档,每个文档显示在它自己的窗口中 (C) 当最小化子窗体时,它的图标显示在任务栏中 (D) MDI 窗体和子窗体都可以有各自的菜单,当子窗体加载时其菜单覆盖 MDI 窗体的菜 单" C 492 "设有菜单项 T1,如果设置 T1 的 Checked 属性为 True,以下说法正确的是( ) 。 (A) 该菜单项获得焦点 (B) 该菜单项前出现一个“√” (C) 该菜单项不可用 (D) 该菜单项无法设置快捷方式" B 493 "下列关于多文档界面(MDI)的叙述错误的是( ) 。 (A) MDI 子窗口只能在 MDI 父窗口内设计和运行 (B) MDI 应用程序允许同时显示多个文档,每个文档显示在它自己的窗口中 (C) MDI 窗体的 ActiveForm 属性可以返回具有焦点或者最后被激活的子窗体 (D) MDI 窗体的 ActiveControl 属性可以返回具有焦点或者最后被激活的控件" A 494 "设有菜单项 T1,如果设置 T1 的 Checked 属性为 False,下列说法正确的是( ) 。 (A) 该菜单项不可见 (B) 该菜单项不可用 (C) 该菜单项前没有符号“√” (D) 该菜单项无法设置快捷方式" C 495 "窗体上有一个通用对话框 ComDlg1,语句 ComDlg1.Action = 3 表示( ) 。 (A) 显示“打开”对话框 (B) 显示“字体”对话框

83

(C) 显示“颜色”对话框 (D) 显示“另存为”对话框( ) 。" C 496 "如果将菜单项的标题设为“打开(&K)” ,下列说法正确的是( ) 。 (A) 该菜单项可用 Ctrl+K 方式操作 (B) 该菜单项可用 Alt+K 方式操作 (C) 该菜单项只能用 Ctrl+K 方式操作 (D) 该菜单项只能用 Alt+K 方式操作" B 497 "以下叙述中错误的是( ) 。 (A) 下拉式菜单和弹出式菜单都用菜单编辑器建立 (B) 如果把一个菜单项的 Enabled 属性设置为 False,则该菜单项处于非激活状态 (C) 所有菜单项都能接收 Click 事件 (D) 在多窗体程序中,每个窗体都可以建立自己的菜单系统" C 498 "在用菜单编辑器设计菜单时必须设置( )属性。 (A) 标题 (B) 名称 (C) 快捷键 (D) 复选" B 499 "下列关于菜单叙述,错误的是( ) 。 (A) 要把非顶级某菜单项设为分隔线,只要将该菜单项的标题设为""-"",名称可省略 (B) 将下拉式菜单的顶级菜单项的 Visible 属性设为 True,也可继续设置其为弹出式菜单 (C) 菜单项的事件只有一个 Click 事件 (D) 菜单项是一个控件,它具有外观和行为的属性" A 500 "在菜单编辑器中定义了一个标题为 YU,名称为 Edt 的弹出式菜单,要使在窗体的 空白处右击弹出 Edt 菜单,使用的程序是( ) 。 (A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu YU End Sub (B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu YU End Sub (C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu Edt End Sub (D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Edt End Sub" D 501 "下列关于多文档界面(MDI)的叙述错误的是( ) 。 (A) MDI 子窗口被包含在一个大小可调的 MDI 父窗口内 (B) MDI 应用程序允许同时显示多个文档,每个文档显示在它自己的窗口中 (C) MDI 窗体中最多只能有一个是活动窗口

84

MDI 应用程序中只有两种类型的窗体,即父窗体和子窗体" D "设有菜单项 T1,要使该菜单项前出现一个“√” ,应设置 T1 的( )属性为 True。 Visible Enable Checked Default" C "下列叙述中,正确的是( ) 。 运行时,通用对话框控件是可见的 不能用通用对话框控件的方法打开“打印机”对话框 在同一个程序中,用不同的方法打开的通用对话框具有不同的作用 调用通用对话框控件的 ShowOpen 方法,可以直接打开在该通用对话框中指定的文件" C 504 "下列关于多文档界面(MDI)的叙述正确的是( ) 。 (A) MDI 子窗体的设计受到 MDI 父窗体的约束 (B) MDI 应用程序允许同时显示多个文档,每个文档显示在它自己的窗口中 (C) MDI 应用程序只有两种类型的窗体,即父窗体和子窗体 (D) MDI 父窗体和子窗体都可以有各自的菜单,这些菜单互相不覆盖" B 505 "在菜单编辑器中定义了一个名称为 Edt 的菜单项,若需在程序运行时隐藏该菜单 项,可使用的语句是( ) 。 (A) Edt.Enable = True (B) Edt.Enabled = False (C) Edt.Visible = True (D) Edt.Visible = False" D 506 "窗体上有一个通用对话框 ComDlg1,语句 ComDlg1.Action = 2 表示( ) 。 (A) 显示“打开”对话框 (B) 显示“字体”对话框 (C) 显示“颜色”对话框 (D) 显示“另存为”对话框" D 507 "显示弹出式菜单要用( )方法实现。 (A) Popup (B) PopupMenu (C) ShowMenu (D) DrawMenu" B 508 "以下叙述中错误的是( ) 。 (A) 建立弹出式菜单不需要菜单编辑器 (B) 如果把一个菜单项的 Enabled 属性设置为 False,则该菜单项处于非激活状态 (C) 分隔线菜单项不能响应 Click 事件 (D) 在多窗体程序中,每个窗体都可以建立自己的菜单" A 509 "下列关于多文档界面(MDI)的叙述中错误的是( ) 。 (A) 工程中必须有 MDI 窗体才能建立 MDI 子窗体 (B) 将窗体变为 MDI 子窗体必须设置其 MDIChild 属性为 True (C) MDI 子窗体只能在 MDI 窗体内设计 (D) MDI 窗体及其子窗体可以建立各自的菜单" C 510 "设有菜单项 T1,如果设置 T1 的 Visible 属性为 False,下列说法正确的是( ) 。 (D) 502 (A) (B) (C) (D) 503 (A) (B) (C) (D)

85

(A) 该菜单项不可见也不可用 (B) 该菜单项不可见但可用 (C) 该菜单项不能设置热键 (D) 该菜单项不能设置快捷键" A 511 "窗体上有一个通用对话框 ComDlg1,语句 ComDlg1.Action = 5 表示( ) 。 (A) 显示“打开”对话框 (B) 显示“字体”对话框 (C) 显示“颜色”对话框 (D) 显示“打印”对话框" D 512 "通用对话框控件的( )属性表示用户在“打开”或“另存为”对话框中选择或 指定的文件名及路径。 (A) Filter (B) FilterIndex (C) FileName (D) DialogTitle" C 513 "以下叙述中错误的是( ) 。 (A) 下拉式菜单和弹出式菜单都要用到菜单编辑器进行设计 (B) 在代码中使用窗体的 PopupMenu 方法可以使菜单成为弹出式菜单 (C) 将某下拉式菜单设计成弹出式菜单之前不一定将该菜单设置为隐藏 (D) 使用菜单编辑器可以完成菜单的全部属性设置" D 514 "要打开在 C 盘根目录下一个名为 StuData.dat 的顺序文件用于追加写入,应使用语 句( ) 。 (A) Open ""C:\StuData.dat"" For Input As #2 (B) Open ""C:\StuData.dat"" For Output As #2 (C) Open ""C:\StuData.dat"" For Append As #2 (D) Open ""StuData.dat"" For Output Access Write As #2" C 515 "指定二进制方式读写文件,应在 Open 语句中使用( )模式。 (A) Binary (B) Input (C) Output (D) Random" A 516 "以下关于文件的叙述中,错误的是( ) 。 (A) 随机文件每条记录的长度可以不同 (B) 任何文件都可以用二进制模式访问 (C) 按数据的编码方式,文件可以分 ASCII 文件和二进制文件 (D) 按文件的组织方式可将文件分为顺序文件、随机文件" A 517 "使用驱动器列表框的( )属性可以返回或设置磁盘驱动器的名称。 (A) ChDrive (B) Name (C) Drive (D) ListIndex" C 518 "文件列表框中用于设置或返回当前路径的属性是( ) 。 (A) File (B) FilePath

86

(C) Path (D) FileName" C 519 "以下关于顺序文件的叙述中,正确的是( ) 。 (A) 所有记录的长度必须相同 (B) 可以随机读取文件中的记录 (C) 记录的逻辑顺序与存储顺序可以不同 (D) 文件中每一行字符串为一条记录" C 520 "文件列表框中用于设置或返回所选文件名称的属性是( ) 。 (A) File (B) FilePath (C) Path (D) FileName" D 521 "下列关于顺序文件的叙述正确的是( ) 。 (A) 所有记录的长度不必相同 (B) 可以随机读取文件中的记录 (C) 不可使用文本编辑软件编辑 (D) 文件中记录按关键字顺序存放" A 522 "设有语句 Open ""Datafile.txt"" For Output As #1,以下叙述错误的是( ) 。 (A) 该语句以文件号 1 打开文件 (B) 该语句可以在当前目录下创建一个名为 Datafile.txt 的文件 (C) 执行该语句后可以向文件 Datafile.txt 中写入信息 (D) 如果当前目录下文件 Datafile.txt 不存在,系统显示出错信息" D 523 "对随机文件进行读操作的语句是( ) 。 (A) Input #文件号,输出列表 (B) Put #文件号,变量名 (C) Read #文件号,变量名 (D) Get #文件号,变量名" D 524 "下列关于随机文件的描述,错误的是( ) 。 (A) 每条记录的长度不一定相同 (B) 可以通过编程对文件中的某条记录进行修改 (C) 随机文件中的每条记录有一个记录号 (D) 随机文件的组织结构比顺序文件复杂" A 525 "执行语句 Open ""Data.dat"" For Random As #1 Len=50"", 对文件 Data.dat 中的数据 能够执行的操作是( ) 。 (A) 只能写,不能读 (B) 只能读,不能写 (C) 不能写,不能读 (D) 既能读,也能写" D 526 "D 盘根目录有一个名为 StuD.dat 的顺序文件,如要把数据追加到 StuD.dat 末尾, 应先使用( )语句打开它。 (A) Open D:\StuD.dat For Append As #1 (B) Open ""D:\StuD.dat"" For Append As #1 (C) Open ""D:\StuD.dat"" For Append As #513 (D) Open ""D:\StuD.dat"" For Output As #1" B

87

527 "D 盘根目录有一个记录长度为 50 的随机文件 StuD.dat,下列正确打开 StuD.dat 的语 句是( ) 。 (A) Open ""D:\StuD.dat"" For Appen ? s #1 Len=50 (B) Open ""D:\StuD.dat"" For Output As #1 Len=50 (C) Open ""D:\StuD.dat"" For Input As #1 Len=50 (D) Open ""D:\StuD.dat"" For Random As #1 Len=50" D 528 "下列关于文件叙述错误的是( ) 。 (A) 随机文件每条记录的长度必须相同 (B) 随机文件可以随机读/写文件中的记录 (C) 可以通过编程修改顺序文件中的某条记录 (D) 顺序文件可以使用文本编辑软件编辑" C 529 "改变驱动器列表框的( )属性可以激活 Change 事件。 (A) ChDrive (B) Drive (C) List (D) Index" B 530 "文件列表框中用于设置所选文件路径的属性是( ) 。 (A) File (B) FilePath (C) Path (D) FileName" C 531 "设置文件列表框的( )属性为“c:\” ,可以使其显示“c:\”下的所有文件 。 (A) File (B) Path (C) Pattern (D) FilePath" B 532 "以( )模式打开顺序文件,可以在写文件时保留文件中原有的内容。 (A) Random (B) Binary (C) Output (D) Append"D 533 "设有语句 Open App.path & ""\Datafile.txt"" For Input As #2,以下叙述错误的是 ( ) 。 (A) 该语句以文件号 2 打开文件 (B) 该语句可以在当前目录下创建一个名为 Datafile.txt 的文件 (C) 执行该语句后可以从文件 Datafile.txt 中读取数据 (D) 如果当前目录下文件 Datafile.txt 不存在,系统显示出错信息" B 534 "对二进制文件进行写操作的语句是( ) 。 (A) Print #文件号,,变量名 (B) Put #文件号,,变量名 (C) Write #文件号,,变量名 (D) Get #文件号,,变量名"B 535 "下列关于随机文件的描述,正确的是( ) 。 (A) 每条记录的长度不一定相同

88

(B) 可以通过编程对文件中的某条记录进行修改 (C) 随机文件中的记录不一定有记录号 (D) 随机文件的组织结构比顺序文件简单" B 536 "如果目录""C:\VB\""存在,下述( )语句可以使文件列表框 File1 显示该目录下 的所有文件。 (A) File1.File = ""C:\VB\"" (B) File1.FilePath = ""C:\VB\"" (C) File1.Path = ""C:\VB\"" (D) File1.FileName = ""C:\VB\""" C 537 "二进制文件的读写最小单元为( ) 。 (A) 记录 (B) 字段 (C) 字符 (D) 字节" D 538 "语句 Open ""c:\Datafile.dat"" For Output As #513 有一个错误,该错误是( ) 。 (A) 要求打开的文件不存在 (B) 文件的打开模式不正确 (C) 指定的文件号超过应有范围 (D) 文件类型不对" C 539 "读写随机文件,应在 Open 语句中使用( )模式。 (A) Binary (B) Input (C) Output (D) Random" D 540 "下列关于顺序文件的描述,错误的是( ) 。 (A) 顺序文件一般用顺序方式进行读写 (B) 顺序文件不能用二进制方式进行读写 (C) 顺序文件可以用字符型变量进行读写 (D) 顺序文件可以用数字型变量进行读写" B

89


相关文章:
VB期末复习资料
VB期末复习资料_工学_高等教育_教育专区。“Visual Basic 编程与应用”期末复习资料 第一章 Visual Basic 6.0 程序设计概述 重点掌握的内容: 对象与事件驱动 对象...
VB复习题及参考答案
VB复习题及参考答案_IT认证_资格考试/认证_教育专区。复习题及参考答案 一、选择题 (1) 使“Microsoft”在当前窗口上输出的语句是( B )。 A)Picture.print ...
Vb复习资料
Vb复习资料_工学_高等教育_教育专区。Vb 复习提纲 Vb 的三种工作模式:设计模式;运行模式;中断模式。 运行模式中不能编辑代码, 不能编辑界面; 中断模式中可以编辑...
VB复习题
VB复习题_理化生_高中教育_教育专区。VB基础复习题,填空题,Visual Basic学习考试资料1.模块声明段中有 Option Base ()语句,则在该模块中 Dim a(6,3to5)声明...
VB期末考试复习题
VB期末考试复习题_电脑基础知识_IT/计算机_专业资料。VB期末考试复习题 VB 期末考试复习题一一、 填空题 1. 如果要指明 mystring 为固定 15 个字长的全局变量,...
VB复习题
VB复习题_理学_高等教育_教育专区。1. 对于窗体,下面( )属性在程序运行时其...要使 Form1 窗体的标题栏显示”欢迎使用 VB”,以下( )语句正确。 (A) Form...
vb复习题
6页 免费 VB复习题4 9页 1财富值 VB总复习题 66页 5财富值如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...
VB综合复习题
VB综合复习题_IT认证_资格考试/认证_教育专区。VB综合复习题 综合复习题一、选择题 1. 以下叙述中,错误的是___。 A. VB 是事件驱动型可视化编程工具 B. VB...
VB复习题
VB复习题_工学_高等教育_教育专区。复习题 1 一、选择题(每题 2 分,共 30 分) 1.以下四个 VB 的变量名中,合法的是___A___。 A. Sum B. R$e C...
VB总复习试题
试题一 一、填空题(15%,每空 1 分) 1.建立热键的方法是在菜单标题的某个字符前加一个 动加上下划线,表示该字符是一个热键。 2.在 VB 中,重定义坐标系的...
更多相关标签: