VB复习考试题及其答案
30101 标准控件不包括（D ）控件。
A 驱动器列表框
B 目录列表框
C 文件列表框
D 通用对话框
30102 当一个工程含
C 第一个添加的窗体
D 在"工程属性"对话框中指定的窗体有多个窗体时，它的启动窗体是（D ）。
A 正在编辑的窗体
B 最后一个添加的窗体
30103 VB应用程序在（A ）模式下不能编辑代码和设计界面。
A 运行
B 中断
C 设计
D 以上均不能
30104 下列叙述错误的是（B ）。
A VB应用程序没有明显的开始和结束语句
B VB控件的所有属性值均可在属性窗口中设置
C VB是事件驱动型可视化编程工具
D VB通过"工具"菜单的"选项"设置代码编辑窗口的字体大小
30105 标准模块文件的扩展名是（C ）。
A .cls
B .frm
C .bas
D .rec
30106 下列叙述中，错误的是（D ）。
A 打开一个工程文件，系统自动装入与该工程有关的文件
B 保存VB程序时，应分别保存窗体和工程文件
C 事件可以由用户触发，也可以由系统触发
D VB应用程序只能以解释方式执行
30107 在设计阶段，双击窗体上的某个控件，可以打开（A ）。
A 代码窗口
B 属性窗口
C 工具箱窗口
D 工程资源管理器窗口
30108 下列叙述中，错误的是（C ）。
A VB是可视化程序设计语言
B VB采用事件驱动编程机制
C VB是面向过程的程序设计语言
D VB应用程序可以以编译方式执行
30109 下列叙述中，正确的是（D ）。
A VB的事件由用户定义
B VB程序以顺序方式执行
C VB程序从Main()函数开始执行
D VB运行时，总是等待事件的发生
30110 在VB中可以通过（ C）方法向工具箱加入其它控件。
A 右击工具箱，执行弹出式菜单中的“添加选项卡”命令
B 执行“文件”菜单中的“添加工程”命令
C 执行“工程”菜单中的“部件”命令
D 执行“工程”菜单中的“添加窗体”命令
30111 在VB的工程资源管理器窗口中不可能存在的文件类型是（C ）。
A *.cls
B *.vbg
C *.gif
D *.bas
30112 以下那一种方法不能打开“代码窗口”（ A）。
A 按快捷键Alt+C
B 双击窗体或窗体上的控件
C 执行“视图”菜单中的“代码窗口”命令
D 单击“资源管理器”窗口的“查看代码”按钮
30113 下列叙述中，错误的是（B ）。
A VB程序代码不区分字母大小写
B VB程序代码中使用“//”表示注释一行
C VB程序代码中不能使用数字作为标识符的首字符
D VB程序代码以“回车换行”作为语句结束标志
30114 VB窗体文件的扩展名是（B ）。
A cls B frm C bas D res
30115 下列关于VB代码编辑时常用组合键的叙述错误的是（C ）。
A Ctrl＋C表示复制选定代码
B Ctrl＋X表示剪切选定代码
C Ctrl＋P表示粘贴代码 D Ctrl＋Y表示删除整行代码
30116 VB是一种面向对象的程序设计语言，构成对象的三要素是（ A ）。
A 属性、事件、方法 B 控件、属性、事件
C 窗体、控件、过程 D 窗体、控件、模块
30117 以下叙述中错误的是（ D ）。
A 一个工程可以含有多个标准模块文件
B 窗体文件包含该窗体及其控件的属性
C 以BAS为扩展名的文件是标准模块文件
D 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
30118 当程序在运行过程中因某种原因中断时，VB进入（C）模式。
A 设计
B 运行
C 中断
D 编程
30119 以下叙述错误的是（B）。
A 窗体对象的ControlBox属性可用于设置窗体上的控制菜单
B Visual Basic要设置某个对象的属性时，只能通过属性窗口设置
C 当一个工程含有多个窗体时，其中的启动窗体是在“工程属性”对话框中指定的
D 通用对话框是一种ActiveX控件
30120 有程序代码：Text1.Text="Visual Basic"，则：Text1、Text和"Visual Basic"分别代表（ C ）。
A 对象、值、属性
B 对象、方法、属性
C 对象、属性、值
D 属性、对象、值
30121 下列叙述正确的是（ D ）。
A Visual Basic的事件是由用户定义的
B Visual Basic的程序是由main()函数开始执行
C Visual Basic的程序是以顺序方式执行的
D 保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件
30201 下列为整型变量的是（ C）。
A x!
B x#
C x%
D x$
30202 设有语句组：
Dim S1 As String*5
S1 = "VB Test"
则S1的值为（B ）。
A VB Test
B VB Te
C VBTes
D BTest
30203 下列（ A）是合法的变量名。
A x_y
B x-y
C 2x
D and
30204 下列（A ）为单精度变量。
A x!
B x#
C x%
D x$
30205 由（C ）关键字声明的局部变量在整个程序运行时一直存在。
A Dim
B Public
C Static
D Private
30206 定义变量时如不指定类型，该变量为（C ）变量。
A Integer
B String
C Variant
D Single
30207 用户自定义数据类型的成员不能是（ A）。
A 数组
B 日期型
C 货币型
D 定长字符串
30208 下列（B ）是合法的变量名。
A x%y
B xy%
C 2x
D Or
30209 日期常量用（ C）作为界定符。
A "
B %
C #
D &
30210 下列哪一个是日期型常量（B ）。
A "06/08/04"
B #06/08/04#
C 06/08/04
D {06/08/04}
30211 下列为字符串变量的是（ D）。
A x!
B x#
C x%
D x$
30212 可以在窗体模块的声明段中进行（C ）的声明。
A 全局数组
B 全局常量
C 全局变量
D 全局自定义数据类型
30214 如要表示一个在100～300000之间变化的
整数，应使用（ ）型变量。 C
A Integer B String C Long D Byte
30215 在窗体中，用（ ）语句声明的变量A可以被其它窗体引用。 B
A Dim A As Integer B Public A As Integer
C Private A As Integer D Static A As Integer
30216 下列关于符号常量的叙述，正确的是（ C ）。
A 符号常量必须在第一次使用时被赋值
B 符号常量可以在任何时候被赋值
C 符号常量必须在定义时被赋值
D 符号常量与变量不同，没有数据类型之分
30217 用Dim x,y as boolean语句声明变量，下列正确的是（ C ）。
A x和y都是布尔型变量
B x是整形变量，y是布尔型变量
C x是变体型变量，y是布尔型变量
D x和y都是变体型变量
30218 以下能正确定义数据类型TelBook的代码是（ C ）。
A Type TelBook
Name As String*12
TeL As Integer
End Type TelBook
B Type TelBook
Name As String*12
TeL As Integer
Type End
C Type TelBook
Name String*12
TeL As Integer
End Type
D Type TelBook
Name String*8
TeL As Integer
End TelBook
30219 下列（ A ）是合法的变量名。
A a_1
B 4A
C a-b
D string
30220 不能被本模块的其它过程引用的是（A）。
A 局部变量
B 模块级变量
C 全局变量
D 以上都是
30222 下列对变量的定义中，不能定义X为变体变量的是（ A ）。
A Dim X as Double
B Dim X as Variant
C Dim X
D X=23
30223 对于窗体通用声明中的一条声明语句：Const Pi=3.14，下列说法错误的是（ A ）。
A 此语句定义了Pi为一个用符号表示的变量
B 符号常量Pi为单精度型
C 本语句和声明语句Private Const Pi=3.14是一样的
D 定义后的符号常量Pi可以直接被调用
30301 表达式4 + 6 \ 5 * 7 / 9 Mod 3的值是（B ）。
A 4
B 5
C 6
D 7
30302 下列逻辑表达式为True的是（C ）。
A "A"<"9"
B "A">"a"
C "a">"AT"
D "AT"<"AND"
30303 下列运算符中，优先级最高的是（B ）。
A Like
B Mod
C Not
D Eqv
30304 设a=6，b=5，c=-2；执行语句Print a > b > c后，窗体上显示的是（B ）。
A 1
B True
C False
D 出错信息
30305 下列表达式中，值最大的是（C ）。
A 2 \ 3
B 2 / 3
C 2 mod 3
D 3 mod 2
30306 下列运算符中，优先级最低的是（D ）。
A *
B ^
C /
D \
30307 表达式 2 = 3 < 1 的是（C ）。
A 0
B 1
C True
D False
30308 表示x大于0且小于10的VB表达式是（ B）。
A 0 < x < 10
B x > 0 And x < 10
C x > 0 Or x < 10
D x > 0 : x < 10
30309 判断整型变量x是奇数的表达式是（A）。
A x Mod 2 <> 0
B x Mod 2 != 0
C x Mod 2 ≠ 0
D x Mod 2 ＝ 0
30310 设a=6，b=-3,则以下表达式值为True的是（D ）。
A a<0 Or b>0
B a<0 And b>0
C a>0 And b>0
D a<0 Eqv b>0
30311 下列正确的赋值语句是（B ）。
A i = j = 0
B i = 0 : j = 0
C i = 0 , j = 0
D i = 0 ; j = 0
30312 下列赋值语句中，正确的是（C ）。
A i + j = 10
B 2i = j
C j = i + j
D i = j = 0
30313 能正确表达2的3次幂的表达式是（B ）。
A 2 * 3 B 2 ^ 3 C 2 ** 3 D 2 & 3
30314 表达式123 + 23 Mod 100 \ 7的值是（D ）。
A 6 B 126 C 20 D 132
30315 表达式12000 + "123" & 100的值是（A ）。
A "12123100" B 12223 C 24300 D "12223"
30316 下列逻辑表达式的值为False的是（ C ）。
A "A">"9" B "A"<"a"
C "AT">"AT " D "an ">"an"
30317 下列运算符中，优先级最低的是（ C ）。
A \ B /
C MOD D *
30318 判断整型变量x是5的倍数的表达式是（ B ）。
A x Mod 5 <> 0 B int(x/5)=x/5
C x/5≠int(x /5) D 5 Mod x = 0
30319 设a=8，b=6，c= -1；执行语句Print a>b>c后，窗体上显示的是（ C ）。
A 1 B True
C False D 出错信息
30320 下列表达式中，非法的是（ C ）。
A a
C a≠b>c D a=b+c
30321 下列正确的赋值语句是（ B ）。
A i + j = 10 B i = 0 : j = 0
C i = 0 , j = 0 D i = 0 ; j = 0
30323 表达式23 + 23 Mod 50 \ 7的值是（C）。
A 23 B 46
C 25 D 123
30324 设A = 10: B = 8: C = 6；则与执行语句B > A And B > C返回结果相同的语句是（ D ）。
A A > B Or B > C
B B > A Or B > C
C Not (B > A)
D A < B Or B= C
30401 返回值为数值的函数是（B ）。
A Mid
B Instr
C Left
D Rtrim
30402 表达式Len("幸运52")的值是（ B）。
A 0
B 4
C 6
D 8
30403 以下（ B）语句可表示[50,100]之间的随机数。
A Int(Rnd * 51) + 49
B Int(Rnd * 51 +50)
C Int(Rnd * 50) + 50
D Int(Rnd * 50 + 50)
30404 返回值为字符串的函数是（ A）。
A Str
B Val
C Len
D Asc
30405 当x=0时，函数IIf(x > 0, 1, IIf(x < 0, -1, 0))的返回值是（ A）。
A 0
B 1
C -1
D 出错
30406 表达式Fix(5.6) + Int(-5.6)的值是（B ）。
A 0
B -1
C 1
D 以上都不对
30407 如果Sgn(x)的值为-1，整型变量x的值是（ D）。
A 0
B 整数
C 正整数
D 负整数
30408 表达式InStr(2, "文本文件", "文")的值是（ C）。
A 0
B 1
C 3
D 5
30409 除去字符串左侧空格的函数是（ C）
A Left()
B Trim()
C Ltrim()
D
LeftTrim()
30410 设a="39级台阶"，使b="台阶"的语句是（ D）。
A Right(a,4)
B Instr(a,5,4)
C Left(a,5,4)
D mid(a,4,2)
30411 表达式InStr(3, "文件系统控件", "件")的值是（C ）。
A 2
B 3
C 6
D 11
30412 能判断一个表达式的值是否为数值类型的函数是（B ）。
A IsDate()
B IsNumeric()
C IsData()
D IsNumber()
30413 表达式Chr(Asc("B") + 1)的值是（A ）。
A "C" B C C 67 D "67"
30414 下列表达式的值为15的是（C ）。
A Int(14.6) B Fix(14.6) C Round(15.3) D Trunc(15.3)
30415 表达式UCase(Mid("basic!", 1, 1)) + Right("basic!", 5)的值是（ D ）。
A "asic" B "Asic!" C "basic!" D "Basic!"
30416 以下能判断是否到达文件尾的函数是（ D ）。
A LOF() B BOF()
C LOC() D EOF()
30417 表达式Len("神州6号")的值是（ B ）。
A 10 B 4
C 5 D 8
30418 除去字符串左右侧空格的函数是（ B ）。
A Rtrim() B Trim()
C Ltrim() D Mid()
30419 函数Choose(2,"＋","－","×","÷")返回值是（ B ）。
A ＋ B －
C × D ÷
30420 表达式 String(3,"ABC") 的结果为（A）。
A AAA B ABC C BBB D CCC
30421 执行以下程序段后，变量C$的值为（D）。
a$="Basic 程序设计教程"
b$="Visual "
c$=b$ & Ucase(Mid(a$,1,6)) & Right(a$,2)
A Visual Basic
B VISUAL BASIC 教程
C Visual Basic 程序
D Visual BASIC 教程
30422 返回值为非字符串的函数是（ C ）。
A Ucase
B Str
C Asc
D Chr
30501 VB表达式Format(Val("111a"), "##.##")的值是（C ）。
A 11.1a
B 11.10
C 111.
D 111.00
30502 下列语句不合法的是（D ）。
A x = 1 : y=2
B ? x ; y ;
C ? x , y ,
D x = 1; y = 2
30503 如果VB语句超过一行，可以使用空格加（D ）续行。
A -
B +
C ；
D _
30504 正确使用Cls方法的是（B ）。
A Text1.Cls
B Picture1.Cls
C List1.Cls
D Image1.Cls
30505 下列语句合法的是（C ）。
A x + y = 2
B x > 2 = y
C x = y > 2
D x = y++
30506 错误使用Print方法的是（D）。
A Picture1.Print
B Form1.Print
C Debug.Print
D Text1.Print
30507 Print方法分区输出时，用（B ）分隔多个表达式。
A 空格
B 逗号
C 冒号
D 分号
30508 Print "10+6="; 10+6的输出结果是（C ）。
A 16=10+6
B 10+6=10+6
C 10+6=16
D "10+6="10+6
30509 下列叙述错误的是（A ）。
A 不允许使用行号与标号
B 单条语句可分行书写
C 同一行上可以书写多条语句
D VB代码不区分字母的大小写
30510 VB表
达式Format(CInt("3.14"), "00.00")的值是（A ）。
A 03.00
B 03.14
C 3.14
D 3
30511 下列语句合法的是（ B）。
A 1 + 2 = 3
B x = y <> 0
C y > 0 = x
D x = 2y
30512 下列语句错误的是（B ）。
A Cls
B Image1.Cls
C Form1.Cls
D Picture1.Cls
30513 Print方法紧密输出时，用（D ）分隔多个表达式。
A 空格 B 逗号 C 冒号 D 分号
30514 下列关于VB编码规则的叙述，错误的是（D ）。
A 一条语句可以分多行书写
B 可以用“Rem”注释单行语句
C 注释可以放在语句之前
D 可以用“;”作为语句的结束符
30515 以下程序段中有（C ）处错误。
ReDim a As Integer
n + 3 = n
a = 0 ; b = 1
Print n + 3 = n
A 1 B 2 C 3 D 4
30516 要强制显式声明变量,可在窗体模块或标准模块的声明段中加入（ C ）语句。
A Option Base 0 B Option Base 1
C Option Explicit D Option Compare
30518 不能把2^5*3.14*8的结果输出到“立即”窗口的是（B）。
A 在代码窗口中使用Debug.Print 2^5*3.14*8语句
B 在“立即”窗口中直接使用 2^5*3.14*8语句
C 在“立即”窗口中使用 ? 2^5*3.14*8语句
D 在“立即”窗口中使用Print 2^5*3.14*8语句
30520 对于一个标签控件有如下程序，双击标签后运行的结果是：（ B ）。
Private Sub Label1_Click()
Print 2；
End Sub
Private Sub Label1_DblClick()
Print 4
End Sub
A 2，4
B 2 4
C 2 4
D 4
30521 下列语句中能清除运行时在窗体中显示的文本的是（ A ）。
A Form1.Cls
B Form1.Clean
C Form1.Release
D Form1.Clear
30601 执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回车,则下列叙述正确的是（ B）。
A x的值是数值3
B x的值是字符"3"
C 0是默认值
D 对话框标题是"求面积"
30602 执行x = MsgBox("数据类型不匹配",VbOKCancel,"出错提示!") ，然后单击消息框的“取消”按钮，x的值是（D ）。
A True
B False
C 1
D 2
30603 下列语句正确的是（ B）。
A MsgBox VbOkOnly, "Error"
B MsgBox "Error", VbOkOnly
C MsgBox ( VbOkOnly, "Error" )
D MsgBox ( "Error", VbOkOnly )
30604 执行Len(InputBox("请输入编号:"))，在输入框中输入"神州1号"后回车，结果为（A ）。
A 4
B 7
C 0
D 出错
30605 执行MsgBox "除数不能为0！", 48, "数据出错"，在弹出的消息框中显示的图标是（C ）。
A 停止图标
B 问号图标
C 感叹号图标
D 消息图标
30606 下列语句组：
a$="Today And Tomorrow"
b$=Right(a$,8):c$=Left(a$,5)
MsgBox a$, ,b$,c$
执行后消息框的标题是（B ）。
A Today
B Tomorrow
C Today And Tomorrow
D 1
30608 下列程
序运行时,消息框显示的内容是（A ）。
Private Sub Command1_Click()
MsgBox CStr(123 + 321)
End Sub
A 444
B 123321
C 123+321
D 显示出错信息
30609 窗体上有一个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
x = InputBox("x=")
y = InputBox("y=")
Print x + y
End Sub
运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（B ）。
A 444
B 123321
C 123+321
D 出错信息
30610 执行n = InputBox("n=", 0, "n!") ，在输入框中输入5后回车,则下列叙述中，正确的是（D ）。
A 0是默认值
B 输入框标题是"n="
C n等于数值5
D n的值为字符"5"
30611 执行x = MsgBox("数据类型不匹配", , "出错提示!") ，然后按回车，x的值是（B ）。
A 0
B 1
C True
D False
30613 下列关于InputBox函数的叙述，错误的是（ A ）。
A 可以省略任何参数
B 可以在屏幕指定位置显示输入框
C 可以指定默认值
D 返回值为String类型
30614 下列程序运行时,消息框显示的内容是（ C ）。
Private Sub Command1_Click()
MsgBox CStr("123 + 321")
End Sub
A 444 B 123321 C 123 + 321 D 显示出错信息
30615 执行语句a = MsgBox("你好", vbAbortRetryIgnore + vbDefaultButton2)，当出现消息框时，按回车，a的值为（B ）。
A vbAbort B vbRetry C vbIgnore D vbDefault
30616 对于InputBox函数，下列说法不正确的是（ A ）。
A InputBox函数输入的是数值型
B InputBox函数值必须赋予一个变量
C InputBox函数prompt参数不能缺省
D 每执行一次InputBox函数，只能输入一个值
30617 执行语句 a="software and hardware":b=Right(a,8):c=Mid(a,1,8):MsgBox a, ,b,c,1 后消息框的标题是（ C ）。
A 1 B software
C hardware D software and hardware
30619 窗体上有一命令按钮Command1，编写下列事件过程:
Private Sub Command1_Click()
MsgBox CStr("123" + 123)
End Sub
程序运行时，单击按钮，消息对话框显示的内容是（ A ）。
A 246 B 123123
C 123 + 123 D 显示出错信息
30620 在立即窗口中执行语句：a=InputBox("请输入姓名：","姓名","张三"),出现输入对话框后直接选择"确定"按纽后，a的值为（B）。
A 姓名 B 张三
C 请输入姓名： D 以上都不对
30622 MsgBox函数有返回值时的类型是（ A ）。
A 数值型
B 变体型
C 字符串型
D 逻辑型
30701 将窗体的（C ）属性设置为True，可使Form_Load事件中的Print方法显示结果。
A DrawStyle
B DrawMode
C AutoRedraw
D Enabled
30702 将窗体的BorderStyle属性设置
为（A ）可使窗口不显示标题栏。
A 0
B 1
C 2
D 5
30703 下列叙述中，正确的是（B ）。
A 窗体的Name属性可以为空
B 窗体的Name属性定义窗体的名称
C 可以在运行期间改变窗体的Name属性
D 窗体的Name属性的值显示在窗体标题栏中
30704 设置窗体的（A ）属性可改变窗体标题。
A Caption
B Name
C BackColor
D BorderStyle
30705 通过（A ）属性设置窗体图标。
A Icon
B Picture
C MouseIcon
D DownPicture
30706 一个工程含有多个窗体及标准模块，下列叙述错误的是（A ）。
A 如果工程含Sub Main过程，程序首先执行该过程
B 任何时刻最多只有一个窗体是活动窗体
C 标准模块不能设置为启动模块
D Hide方法只是隐藏而不从内存中清除窗体
30707 使用（C ）方法可隐藏窗体，但不从内存中释放。
A Show
B Load
C Hide
D UnLoad
30708 下列叙述中，错误的是（ C）。
A 窗体的Load事件在加载窗体时发生
B 窗体的Height、Width属性用于设置窗体的高和宽
C 执行Unload Form1语句后，窗体仍在内存中但不可见
D 当窗体的Enabled属性为False时，对窗体的操作都被禁止
30709 运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（ D）。
A MouseDown
B MouseUp
C Click
D Load
30710 要使窗体显示在屏幕的中央，应设置属性StartUpPosition为（ C）。
A 0
B 1
C 2
D 3
30711 运行时，单击窗体不能将窗体的背景色设置为红色的事件过程是（C ）。
A Private Sub Form_Click( )
Me.BackColor = vbRed
End Sub
B Private Sub Form_Click( )
Form1.BackColor = vbRed
End Sub
C Private Sub Form_Click( )
this.BackColor = vbRed
End Sub
D Private Sub Form_Click( )
BackColor = vbRed
End Sub
30712 可以在运行期间设置窗体的（C ）属性。
A BorderStyle
B ControlBox
C Icon
D MaxButton
30713 在属性窗口设置窗体的Moveable属性为False，使得窗体（B ）。
A 不可见 B 不可移动 C 不可放大 D 不可激活
30714 要为窗体设置一幅背景图片，应设置（ D ）属性。
A BackImage B Image C Icon D Picture
30715 能模态显示Form1窗口的语句是（C ）。
A Form1.Show B Form1.Load
C Form1.Show vbModal D Form1.Load vbModal
30716 如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（ A ）。
A Form1是最后的活动窗体 B Form2是最后的活动窗体
C 编译错误 D 运行出错
30717 能被一个对象所识别的外界动作称为（ A ）。
A 事件 B 方法
C 过程 D 属性
30718 若要
使用Print方法在窗体上打印红色的文字，应设置窗体的（ B ）属性。
A Font B ForeColor
C Appearance D FillColor
30720 下列叙述错误的是（B）。
A 当一个窗体变成活动窗体时，会触发Activate事件
B 一旦装载窗体，会自动触发Click事件
C 当单击一个窗体上的关闭按纽卸载该窗体时，会触发Unload事件
D 当一个窗体不再是活动窗体时，会触发Deactivate事件
30721 下列叙述错误的是（ B ）。
A 窗体本身也是一个对象，有自己的属性、事件和方法
B Appearance属性用于在窗体上设置要显示的图形
C 一旦装载窗体，就会自动产生Load事件
D 卸载窗体时触发Unload事件
30722 有关程序代码窗口说法错误的是：（ A ）。
A 在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两部分，每个窗口显示代码的一部分。
B 双击控件设计窗体可以打开程序代码窗口。
C 在程序代码窗口左下角有两个按钮，可以选择全模块查看或者是过程查看。
D 在默认情况下，窗体的事件是load
30801 下列叙述错误的是（ A）。
A 标签和文本框都有Caption属性
B 标签和文本框的主要区别在于能否编辑其内容
C 标签具有AutoSize属性，而文本框没有
D 文本框具有ScrollBar属性，而标签没有
30802 能清除文本框Text1中内容的语句是（B ）。
A Text = ""
B Text1.Text = ""
C Text1.clear
D Text1.Cls
30803 设置（ A）属性使标签Label1没有边框。
A Label1.BorderStyle = 0
B Label1.BorderStyle = 1
C Label1.BackStyle = True
D Label1.BackStyle = False
30804 下列叙述错误的是（B ）。
A 标签和文本框都有Move方法
B 标签和文本框都有Text属性
C 标签具有Caption属性，而文本框没有
D 文本框具有Locked属性，而标签没有
30805 下列控件属性赋值语句错误的是（D ）。
A Label1 = "欢迎"
B Text1.Text = "欢迎"
C Text1 = "欢迎"
D Text = "欢迎"
30806 设置标签Label1的（D ）属性使它不可见。
A Label1.Visible = 0
B Label1.Visible == 1
C Label1.Visible = True
D Label1.Visible = False
30807 设置标签的（ C）属性，可改变其文字对齐方式。
A Justify
B Font
C Alignment
D 以上都不是
30808 触发文本框Change事件的操作是（A ）。
A 改变文本框的内容
B 改变文本框的大小
C 文本框获得焦点
D 文本框失去焦点
30809 修改文本框的内容触发（B ）事件。
A Modify
B Change
C ChangeData
D AutoSize
30810 对窗体上的文本框Text1编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) > "Z" Or Chr(KeyAscii) < "A" Then
KeyAscii = 0
End If
End Sub
运行时，
文本框中能输入的字符是（B ）。
A 字母
B 大写字母
C 大写字母外的其它字符
D 不能输入字母
30811 文本框没有（ D）属性。
A Name
B Left
C Font
D Caption
30812 要使文本框能显示多行文本，需设置（B ）。
A AutoSize属性为True
B MultiLine属性为True
C SingleLine属性为False
D MaxLines属性大于1
30813 能使文本框Text1中文本不可编辑的语句是（D ）。
A Text1.Editable = False B Text1.Enabled = True
C Text1.TabStop = False D Text1.Locked = True
30814 设置文本框的（A ）属性，可限制文本框中能输入文本的最大长度。
A MaxLength B Width C MultiLine D MaxText
30815 窗体上有文本框Text1和命令按钮Command1，对Command1编写如下事件过程：
Private Sub Command1_Click()
Text1.Text = "12345"
Text1.SelStart = 1
Text1.SelLength = 3
MsgBox Text1.SelText
End Sub
运行时，单击命令按钮，出现的信息框显示（B ）。
A 12345 B 234 C 123 D "345"
30816 在窗体上有一个名称为Text1的文本框，要得到在其中输入字符的ASCII码，应使用它的（ A ）事件。
A KeyPress B KeyUp
C KeyDown D Change
30817 由系统触发的事件有（ C ）。
A MouseMove,MouseUp,MouseDown
B Hscrollbox,Click,DblClick
C Initialze,Load,Timer
D KeyPress,KeyUp,KeyDown
30818 要用文本框控件Text1实现一个密码输入框，可以通过（ A ）设置，使得无论用户输入什么字符文本框只显示“*”。
A Text1.PasswordChar = "*" B Text1.Font = "*"
C Text1.Text = "*" D Text1.Appearance = "*"
30819 要对文本框Text1中的文本加删除线，可以通过（ B ）来实现。
A Text1.Font.FontStrikethru = True B Text1.FontStrikethru = True
C Text1.Font = vbStrikethru D Text1.Style = vbStrikethru
30820 下列语句中，除（ ）以外，都能使文本框Text1不可编辑（ C ）。
A Text1.Locked = True B Text1.Visible = False
C Text1.ReadOnly = True D Text1.Enabled = False
30821 下列叙述正确的是（B）。
A 当文本框的内容发生变化时，必将触发LostFocus事件
B 设置文本框的MaxLength属性，可限制文本框中能输入文本的最大长度
C AutoSize属性为True时，能使文本框Text1自动改变大小以适应其文本内容的多少
D 文本框不具有Left属性
30823 关于文本框的属性Multiline，下列说法错误的是（ D ）。
A Multiline=True时，设置scroLLbars属性为0时，一个长的字符串在文本框中会自动换行
B Multiline=True时，设置scroLLbars属性为1时，文本框自动换行功能自动消失
C 要显示文本框的滚
动条，Multiline的属性一定要设为True
D Multiline=False时，设置scroLLbars属性为2时，文本框可输入或显示多行正文
30824 要使标签控件显示时不覆盖其背景内容，要对（ D ）属性进行设置。
A BackColor
B ForeColor
C BorderStyle
D BackStyle
30901 设置图像框的（C ）可使框内的图片按图像框大小自动调整。
A AutoSize属性为True
B AutoSize属性为False
C Stretch属性为True
D Stretch属性为False
30902 下列语句组：
ScaleWidth = 100 : ScaleHeight = 100
Circle(50, 40) ,10, , , ,2
绘制的是（B ）。
A 圆形
B 椭圆
C 扇形
D 弧线
30903 将当前目录下的图形文件Clock.jpg装入图片框Picture1的语句是（ D）。
A Picture = "Clock1.jpg"
B Picture = LoadPicture("Clock1.jpg")
C Picture1.Picture = "Clock1.jpg"
D Picture1.picture = LoadPicture("Clock1.jpg")
30904 设置Line控件的（A ）属性可使其呈现不同式样。
A BorderStyle
B Style
C FillStyle
D Shape
30905 下列叙述中，错误的是（B ）。
A Scale方法用来定义新坐标系
B 窗体缺省坐标原点在窗体的左下角
C ScaleLeft和ScaleTop属性可改变坐标系的原点位置。
D ScaleWidth和ScaleHeight属性可改变其对象高度和宽度的刻度单位
30906 下列叙述错误的是（D ）。
A Pset方法用于绘制点
B Circle方法用于画圆、椭圆、圆弧和扇形
C Line方法用于画直线或矩形
D Ponit方法用于绘制有颜色的点
30907 设置图片框的（ A）使其按图片尺寸自动调整大小。
A AutoSize属性为True
B AutoSize属性为False
C Stretch属性为True
D Stretch属性为False
30908 不属于VB作图方法的是（ C）。
A Pset
B Line
C Shape
D Circle
30909 VB的图形控件不包括（ B）。
A 直线
B 框架
C 图像框
D 图片框
30910 为了清除图片框内绘制的图形，应采用的正确方法是（B ）。
A 选择图片框，然后按Del键
B 执行语句Picture1.Cls
C 执行语句Picture1.Clear
D 执行语句Picture1.Picture=LoadPicture("")
30911 窗体中有标签、文本框和用图形方法绘制的图形，它们依次位于哪一图形层（ B）。
A 上层、中层和下层
B 中层、上层和下层
C 下层、中层和上层
D 上层、下层和中层
30912 设置Shape控件的（D ）属性可使其呈现不同形状。
A BorderStyle
B Style
C FillStyle
D Shape
30913 下列语句可使Shape1控件呈现为实心图形的是（D ）。
A shape1.BorderStyle = 0 B Shape1.BackStyle = 0
C Shape1.Shape = 3 D Shape1.FillStyle = 0
30914 将当前目录下的图像文件Clock.jpg装入图像框Image1的语句是（D ）。
A Image = "Clock1.jpg"
B Image = LoadPicture("Clock1.jpg")
C Image1.Picture = "Clock1.jpg"
D Image1.Picture = LoadPicture("Clock1.jpg")
30916 窗体上有一
命令按钮Command1，编写下列事件过程:
Private Sub Command1_Click()
a = 100: b = 150: c = 2000: d = 2000
Cls
Line (a, b)-(c, d), vbBlue, B
End Sub
运行时，单击按钮窗体上显示（ A ）。
A 一个未填充的矩形 B 一条直线
C 一个填满了颜色的矩形 D 无任何图形
30917 窗体上有一命令按钮Command1，编写下列事件过程:
Private Sub Command1_Click()
c = 2000: d = 2000
Cls
Circle Step(c, d), 1000, vbRed, 3.14, 2 * 3.14, 1
End Sub
运行时，单击按钮，窗体上显示（ C ）。
A 一个填充的圆 B 一个未填充的圆
C 一段圆弧 D 一个点
30918 执行指令"Form1.Line(1500,1000)-step(1000,500),B"后，Form1的CurrentX的值
为（D）。
A 1000 B 1500
C 500 D 2500
30919 Pset方法绘制的点的大小受其容器对象的（ A ）属性的影响。
A DrawWidth B Picture
C AutoRedraw D stretch
30920 设Picture1.ScaleLeft=-200,Picture1.ScaleTop=250,Picture1.ScaleWidth=500,Picture1.Height=-400。则Picture1右下角的坐标为（ A ）。 A (300,–150)
B (500,–450)
C (–200,250)
D (700,650)
30921 下列关于Shape控件说法错误的是（ B ）。
A FillStyle属性可以修改其填充方式
B FillColor属性可以改变其背景色
C BorderStyle属性可以改变其边框样式
D Move方法可以使其进行移动
31001 复选框的Value属性为0表示（A ）。
A 复选框未被选中
B 复选框被选中
C 复选框内有灰色的钩
D 操作出错
31002 单选按钮被选定时，其Value属性为（ C）。
A 1
B 0
C True
D False
31003 运行时，下列哪种方法不能选中单选按钮（ B）。
A 用鼠标单击单选按钮
B 在属性窗口中将单选按钮的Value属性设置为1
C 用Tab键将焦点转移到一组单选按钮后单击其中的单选按钮
D 采用单选按钮的访问键快捷方式
31004 下列（B ）语句使复选框Check1无效。
A Check1.Value = 1
B Check1.Value = 2
C Check1.Style = 1
D Check1.Style = 0
31005 下列（ D）语句使复选框Check1的标题显示在左边。
A Check1.Style = 0
B Check1.Alignment = 0
C Check1.Style = 1
D Check1.Alignment = 1
31006 下列（B ）语句设置单选按钮Option1为选中状态。
A Option1.Value = 0
B Option1.Value = True
C Option1.Value = 1
D Option1.Value = False
31007 复选框和单选按钮的（A ）属性可以反应其当前状态。
A Value
B Checked
C Caption
D Selected
31008 单选按钮不具有（ B）属性。
A Value
B Checked
C Caption
D Stytle
31009 要取得复选框的状态，应访问（A ）属性。
A Value
B Checked
C Visible
D Enabled
31010 在窗体运行时，复选框处于选中但不激活状态，
表示（B ）。
A Enabled为False且Value为0
B Enabled为False且Value为1
C Enabled为True且Value为0
D Enabled为True且Value为1
31011 下列（ B）方法可以将单选按钮设置为图形单选按钮。
A Option1.Style = 0
B Option1.Style = 1
C Option1.Picture = 0
D Option1.Picture = 1
31012 设置（ D）属性可以改变单选按钮或复选框的标题对齐方式。
A Value
B Align
C Sorted
D Alighment
31013 下列（ B ）方法可以将复选框设置为图形复选框。
A Check1.Style = 0 B Check1.Style = 1
C Check1.Picture = 0 D Check1.Picture = 1
31014 在实际应用中，经常将一组单选按钮置于一个框架（Frame）控件内，这主要是为了（D ）。
A 使用户界面美观
B 使该组单选按钮同步
C 使该组单选按钮处于禁止状态
D 使该组单选按钮互斥，即同一时刻只有一个单选按钮被选中
31015 访问单选按钮的（A ）属性可以获取其状态。
A Value B Checked C Visible D Enabled
31016 如果要把单选按钮的标题显示在它的左边，应把（ B ）。
A Alignment属性设置为0 B Alignment属性设置为1
C Style属性设置为 0 D Style属性设置为1
31017 窗体上有一个单选按钮Option1。如要求当窗体初始显示时Option1就处于选中状态，可以通过（ C ）实现。
A 在窗体的Load事件过程中加入语句：Option1.Value = False
B 在窗体的Show事件过程中加入语句：Option1.Value = False
C 在窗体的Load事件过程中加入语句：Option1.Value = True
D 在窗体的Show事件过程中加入语句：Option1.Value = True
31018 下列控件中，可以对单选按钮进行分组是（ A ）。
A 框架（Frame）控件 B 文本框（TextBox）控件
C 图像框（ImageBox）控件 D 标签（Label）控件
31019 下列（A）语句表示复选框Check1被选中。
A Check1.Value=1 B Check1.Checked=1
C Check1.Value=0 D Check1.Checked=0
31021 窗体上设置一个复选框，当选中或取消对应文本框内的字体改变成粗体或取消，正确的代码是（ C ）。
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()
Text1.FontBold = Check1.Value
End Sub
D Private Sub Check1_Click()
If check1.Value = True Then
Text1.FontBold = True
End If
End Sub
31101 属性窗口为命令按钮的Picture属性装入了图片，但却没有显示的原因是（B ）。
A 按钮的Enabled属性为False
B 按钮的Sytle属性为0
C 按钮的Default属性为False
D 按钮的DisabledPicture属性没有装入图片
31102 如果命令按钮
的Caption属性包含（ A），则按下Alt+C可激活该按钮。
A &C
B $C
C #C
D @C
31103 设置命令按钮的（A ）属性为True，可使按下Esc键时执行该按钮的单击事件过程。
A Cancel
B Enabled
C Value
D Default
31104 设置命令按钮的（B ）属性，可使指针指向该按钮时显示提示内容。
A Caption
B ToolTipText
C Font
D Tag
31105 下列（C ）方法不能触发命令按钮的Click 事件。
A 在程序运行时单击命令按钮
B 在代码中设命令按钮的Value属性为True
C 在设计时设命令按钮的Default属性为True，运行时按ESC键
D 使用Tab键把焦点移到按钮上，然后按空格键或回车键
31106 下列叙述中，错误的是（D ）。
A 单击命令按钮可触发MouseDown事件
B 单击命令按钮可触发MouseUp事件
C 命令按钮支持单击事件
D 命令按钮支持双击事件
31107 窗体上有命令按钮OK,它的单击事件过程为CmdOK_Click()，则该按钮的Name和Caption属性分别为（C ）。
A OK,Cmd
B Cmd,OK
C CmdOK,OK
D OK，CmdOK
31108 执行（B ）语句，可使窗口的按钮Command1上显示“确定”。
A Command1.Show = "确定"
B Command1.Caption = "确定"
C https://www.wendangku.net/doc/555923536.html, = "确定"
D Command1.Visible = "确定"
31109 命令按钮不能响应（ A）事件。
A DblClick
B DragDrop
C KeyPress
D MouseMove
31110 在窗体上新建一个命令按钮，其Index属性的默认值为（ C）。
A 0
B 1
C 无
D 任意值
31111 设置命令按钮的（ C）属性，可以使鼠标停在命令按钮上时显示提示信息。
A WhatsThisHelpID
B HelpText
C ToolTipText
D TipText
31112 应通过（D ）属性装入命令按钮处于非激活状态时显示的图片。
A Picture
B DragIcon
C DownPicture
D DisabledPicture
31113 下列语句（A ）可以使命令按钮Command1处于禁止状态。
A Command1.Enabled = False B Command1.Disabled = False
C Command1.Enabled = True D Command1.Disabled = True
31114 应通过（A ）属性装入命令按钮处于激活状态时显示的图片。
A Picture B EnabledPicture C DownPicture D DisabledPicture
31115 下列语句（D ）可以设置命令按钮Command1的标题字体为黑体。
A https://www.wendangku.net/doc/555923536.html, = "黑体"
B Command1.Font = "黑体"
C Command1.Font.FontName = "黑体"
D Command1.FontName = "黑体"
31116 若要设置图形方式的命令按钮，必须（ A ）。
A 先设置Style属性，后设置Picture属性
B 先设置Picture属性，后设置Style属性
C 先设置Visible属性，后设置Caption属性
D 先设置Enabled属性，后设置Picture属性
31117 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Move 500,500
End Sub
程序运行后，单击命令按纽，执行的
操作为（ C ）。
A 窗体向左、上方向各移动500
B 命令按纽向左、上方向各移动500
C 窗体移动到距屏幕左边界、上边界各500的位置
D 命令按纽移动到距窗体左边界、上边界各500的位置
31118 要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对（ D ）属性进行设置。
A Picture、DisabledPicture B Picture、DownPicture
C Style、Picture和DisabledPicture D Style、Picture和DownPicture
31119 当命令按钮控件Commandl的Enabled属性被设为False时，该控件（ C ）。
A 不可见，不能响应事件 B 变为灰色，但能响应事件
C 变为灰色，不能响应事件 D 可见并且能响应事件
31122 运行时，哪种方法不能触发按钮的Click事件（ B ）。
A 在程序运行时单击命令按钮
B 设计时设定命令按钮的Default属性为True,运行时按Esc键
C 采用命令按钮的访问快捷方式
D 用Tab键将焦点转移到按钮上，然后按回车键
31201 引用列表框List1最后一项数据应使用（B ）。
A List1.List（ListCount-1)
B List1.List（List1.ListCount-1)
C List1.List（ListCount)
D List1.List（List1.ListCount)
31202 下列（ C）控件结合了文本框和列表框的特性。
A 图片框
B 图像框
C 组合框
D 标签
31203 将列表框的MultiSelect属性设置为（ D）后，可用Shift或Ctrl键配合鼠标在列表框中进行多项选择。
A 无
B 0
C 1
D 2
31204 引用列表框List1被选中项数据应使用（D ）。
A List1.list
B List1.listCount
C List1.Index
D List1.Text
31205 使用（D ）语句将"北京奥运"添加到列表框List1的首项。
A List1.Text = "北京奥运"
B List1.AddItem "北京奥运"
C List1.List(0) = "北京奥运"
D List1.AddItem "北京奥运",0
31206 使用（D ）方法可以只删除列表框指定项目。
A Cls
B Clear
C Remove
D RemoveItem
31207 用（ D）方法可将项目添加到组合框中。
A List
B ListIndex
C Add
D AddItem
31208 能输出组合框Combo1中现有项目数的语句是（ C）。
A Print Combo1.ListIndex
B Print Combo1.Index
C Print Combo1.ListCount
D Print Combo1.Count
31209 使用（ C）语句可将组合框Combo1的第3项置为当前项。
A Combo1.ListIndex = 3
B Combo1.Index = 3
C Combo1.ListIndex = 2
D Combo1.Index = 2
31210 使用（B ）方法可以一次性删除列表框中全部项目。
A Cls
B Clear
C Remove
D RemoveItem
31211 要将字符串数组a中所有学生姓名按数组下标顺序追加到列表框List1中，可以使用的程序段为（C ）。
A List1.AddItem a
B For i = 0 To UBound(a) - 1
List1.AddItem a(i), 0
Next i
C For i = 0 To UBound(a)
List1.AddItem a(i)
Next i
D For i = 0 To UBoun
d(a) - 1
List1.List(i) = a(i)
Next i
31212 要删除列表框List1中选定的某一项，可以使用的程序段为（ A）。
A List1.RemoveItem (List1.ListIndex)
B List1.RemoveItem List1.Columns(List1.ListIndex)
C List1.Clear List1.ListIndex
D List1.Clear List1.Columns(List1.ListIndex)
31213 将列表框的MultiSelect属性设置为（C ）后，可以使用鼠标进行多项选择，但无法结合Shift或Ctrl键同时进行。
A 无 B 0 C 1 D 2
31214 使用（D ）语句可将列表框List1的第3项的值置为“Basic”。
A List1.ListIndex(3) = "Basic" B List1.ListIndex(2) = "Basic"
C List1.List(3) = "Basic" D List1.List(2) = "Basic"
31215 设置列表框的（A ）属性可以使每个列表项前面出现一个复选框。
A Style B Sorted C MultiSelect D ListCheck
31216 使用（ C ）语句可将组合框Combo1的第1项置为当前项。
A Combo1.ListIndex = 1 B Combo1.Index = 1
C Combo1.ListIndex = 0 D Combo1.Index = 0
31217 使用（ D ）语句可将列表框List1的第3项的值置为“VB6.0”。
A List1.ListIndex(3) = "VB6.0"
B List1.ListIndex(2) = "VB6.0"
C List1.List(3) = "VB6.0"
D List1.List(2) = "VB6.0"
31218 设有两个列表框控件List1和List2，下列代码段的功能是（ C ）。
For i = 0 To List1.ListCount - 1
List2.List(i) = List1.List(i)
Next i
A 将List1的所有列表项追加到List2中
B 将List1的所有列表项插入到List2的前部
C 用List1的所有列表项覆盖List2中对应位置的列表项
D 用List1取代List2
31219 假设列表框控件List1被设置为允许多重选择，那么可以返回所选列表项数目的属性是（ A ）。
A SelCount B ListCount
C DataCount D Count
31220 使用（ D ）语句将"06足球世界杯"添加到列表框List1的首项。
A List1.Text = "06足球世界杯" B List1.AddItem "06足球世界杯"
C List1.List(0) = "06足球世界杯" D List1.AddItem "06足球世界杯",0
31221 设组合框Combo1中有5个选项，下列能删除最后一项的语句是（D）。
A Combo1.RemoveItem Text B Combo1.RemoveItem Combo1.Listcount
C Combo1.RemoveItem 5 D Combo1.RemoveItem 4
31222 若列表框List1中有5个选项，下列（A）语句可以把选项"Visual Basic"添加到列表框的最后一项。
A List1.AddItem "Visual Basic" , List1.ListCount
B List1.AddItem "Visual Basic" , List1.ListCount-1
C List1.AddItem "Visual Basic" , 4
D List1.AddItem 4 , "Visual Basic"
31223 如果列表框(list1)中只有一个项目被选中，则语句Debug.print List1.Selected(List1.ListIndex)执行的结果是（ B ）。
A 在立即窗口中输出被选定的项目的索引值
B 在立即
窗口中输出True
C 在立即窗口中输出False
D 在立即窗口中输出被选定的项目的文本内容
31224 在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：
Private Sub Command1_Click()
List1.List(List1.ListCount) = "vb"
End Sub
程序运行后，单击命令按钮，其结果为（ B ）。
A 把字符串“vb”添加到列表框中，但位置不能确定
B 把字符串“vb”添加到列表框的最后
C 把列表框中原有的最后一项改为“vb”
D 把字符串“vb”插入到列表框的最前面
31301 计时器控件以一定时间间隔触发（D ）事件。
A Enabled
B Interval
C Timer1
D Timer
31302 将框架的（ A）属性设为False，可使框架内的所有对象在运行时均不可操作。
A Enabled
B Visible
C BorderSytle
D ClipControls
31303 拖动滚动条中的滑块将触发滚动条的（ B）事件。
A Slide
B Scroll
C DragOver
D DragDrop
31304 下列叙述错误的是（D ）。
A 计时器的Enabled属性为False，会暂停计时器的计时操作
B 运行时计时器不可见，所以其位置和大小无关紧要
C 触发计时器Timer事件的时间间隔可人为设定
D 计时器的Interval属性以秒为单位
31305 用（A ）分隔同一窗体中的多组单选按钮，使它们互不干扰。
A 框架
B 组合框
C 复选框
D 列表框
31306 单击滚动条两端的箭头可触发滚动条的（ A）事件。
A Change
B Scroll
C DragOver
D ItemCheck
31307 设置（ D）属性可改变单击滚动条两端箭头时的滚动步长。
A Max
B Min
C LargeChange
D SmallChange
31308 将框架的（B ）属性设为False，可使框架内的所有对象在运行时均不可见。
A Enabled
B Visible
C BorderSytle
D ClipControls
31309 计时器控件能正常工作应具备的两个条件是（ C）。
A Enabled属性为True和Interval属性为0
B Enabled属性为False和Interval属性为0
C Enabled属性为True和Interval属性非0
D Enabled属性为False和Interval属性非0
31310 下列叙述中,错误的是（D ）。
A Timer是计时器的唯一事件
B Timer事件的时间间隔可人为设定
C 计时器的Enabled属性为False，会暂停其计时操作
D 通过适当的设置，运行时计时器可以显示在窗体上
31311 计时器控件Timer1的Interval属性为2000，执行如下事件过程：
Private Sub Timer1_Timer()
Dim i%
static j%
For i = 1 To 6
j = j + 2
Next i
End Sub
运行后5秒时，j的值为（C）。
A 0
B 12
C 24
D 以上都不是
31312 下列叙述中，正确的是（C ）。
A 框架不响应任何事件
B Caption是框架的唯一属性
C Timer是计时器的唯一事件
D 计时器的Interval属性以秒为单位
31313 计时器
控件的（B ）属性可以控制Timer事件发生的时间间隔。
A Enabled B Interval C TimerSet D Timer
31314 下列关于框架及其内部放置的命令按钮的叙述，错误的是（D ）。
A 命令按钮跟随框架一起移动
B 如果框架被禁止，则命令按钮也被禁止
C 如果框架不可见，则命令按钮也不可见
D 单击框架时，框架和命令按钮的Click事件同时被激发
31315 设置（C ）属性可改变单击滚动条空白处时的滚动步长。
A Max B Min C LargeChange D SmallChange
31316 可以触发滚动条的Scroll事件的操作是（ C ）。
A 单击滚动条空白处 B 单击滚动条两端的箭头
C 拖动滚动条的滑块 D 单击滚动条的滑块
31317 下列程序片断中，可以使计时器控件Timer1每隔2秒触发一次的是（ D ）。
A Timer1.Interval = 200
B Timer1.Interval = 2000
C Timer1.Enabled = True: Timer1.Interval = 200
D Timer1.Enabled = True: Timer1.Interval = 2000
31318 假设时钟控件的Interval属性为500，Enabled属性为True，并且有下面的事件过程，程序运行10秒后变量x的值为（B）。
Dim x As Integer
Private Sub Timer1_Timer()
x = x + 10
End Sub
A 10000 B 200 C 5000 D 以上都不对
31320 当用户单击滚动条的空白处时，滑块移动的增量值由（ B ）属性决定。
A SmallChange
B LargeChange
C Min
D Max
31321 滚动条的（ C ）属性表示其滑块所处的位置。
A Max
B Min
C Value
D SmallChange
31401 使用（A ）方法将焦点移到某个控件上。
A SetFocus
B GotFocus
C Move
D Refresh
31402 文本框获得焦点时，能触发KeyPress事件的操作是（ C）。
A 选定文本框中内容
B 双击文本框
C 按下键盘上的某个键
D 单击文本框
31403 下列叙述中，错误的是（ A）。
A 所有的控件均支持Tab顺序
B 可以在设计阶段改变Tab顺序
C 可以在运行阶段改变Tab顺序
D 可以设置相应的属性使Tab顺序不起作用
31404 下列叙述中，正确的是（D ）。
A 不同控件的TabIndex属性可以相同
B 同一窗体中不同控件的TabIndex属性值可以任意设置
C 窗体、命令按钮、标签和文本框控件都有TabIndex属性
D 窗体上控件的TabIndex属性值必须小于该窗体的控件个数
31405 对文本框Text1编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim b As String
b = Chr(KeyAscii)
KeyAscii = Asc(UCase(b))
End Sub
运行时，下列叙述正确的是（C ）。
A Text1中无法输入字符
B Text1中内容为"b"
C Text1中输入的字符都变为大写
D Text1中输入的字符都被转换成ASCII码
31406 下列叙述错误的是（ D）。
A 在KeyDown事件中，键盘上输入的A或a被视作操作相同的按键
B 在KeyUp事件中，输入键盘上的"1"和右侧小键盘上的"1"视作操作不同的按键
C 只有获得焦点的对象才能够接受键盘事件
D KeyPress事件中可以识别键盘上某个键的按下与释放
31407 下列叙述错误的是（ A）。
A 如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B 文本框的Enabled属性为False时，其Tab顺序不起作用
C 文本框失去焦点时，触发LostFocus事件
D 可以用TabIndex属性改变Tab顺序
31408 设置控件的（ C）属性为False，使该控件不能通过Tab键得到焦点。
A GotFocus
B SetFocus
C TabStop
D TabIndex
31409 要使用自定义的鼠标指针，必须将MousePointer属性设置为（ D）。
A 0
B 15
C 3
D 99
31410 编写如下两个事件过程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
运行时，在不按住Shift键和没有锁定大写情况下，按"A"键，程序的输出是（A ）。
A A
a
B a
A
C A
A
D a
a
31411 运行时单击窗体，以下事件发生的次序是（B ）。
A MouseDown、Click、MouseUp
B MouseDown、MouseUp、Click
C Click、MouseDown、MouseUp
D 随机发生
31412 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single, Y As Single)
If Shift = 3 And Button = 2 Then
Print "Visual Basic"
End If
End Sub
运行时，为了在窗体上输出"Visual Basic"，应执行的操作为（D ）。
A 按下Shift键和鼠标左键
B 同时按下Shift、Alt键和鼠标左键
C 按下Alt键和鼠标右键
D 同时按下Shift、Ctrl键和鼠标右键
31413 当控件失去焦点时，触发的事件是（C ）。
A GotFocus B SetFocus C LostFocus D MoveFocus
31414 当文本框的TabStop属性设为False时，下列叙述正确的是（D ）。
A 该文本框无法获得焦点
B 无法在该文本框中输入文本
C 焦点将始终停留在该文本框上
D 该文本框无法通过使用Tab键获得焦点
31415 使用（D ）语句可使窗体的鼠标指针呈现“沙漏”型。
A Me.MousePointer = vbArrow
B Me.MousePointer = vbCustom
C Me.MousePointer = vbCross
D Me.MousePointer = vbHourglass
31416 在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是（ A ）。
A Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 Or KeyAscii > 90 Then
MsgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
B Private Sub Text1_Change( )
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then
MsgBox "请输入大
写字母"
KeyCode = 0
End If
End Sub
C Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
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
31418 窗体上有一个文本框控件Text1，编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
运行时，关于Text1说法正确的是（ A ）。
A 只能向Text1中输入数字字符（0～9）
B 只能向Text1中输入ASCII码在0～9之间的字符
C 只能向Text1中输入非数字字符
D Text1不接受任何输入
31419 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single, Y As Single)
If Shift = vbShiftMask + vbCtrlMask And Button = vbRightButton Then
Print "Visual Basic"
End If
End Sub
运行时，为了在窗体上输出"Visual Basic"，应执行的操作为（ D ）。
A 按下Shift键和鼠标左键 B 同时按下Shift、Alt键和鼠标左键
C 按下Alt键和鼠标右键 D 同时按下Shift、Ctrl键和鼠标右键
31420 在程序运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框),这可能是因
为（D）。
A 该控件的Enabled属性为True
B 该控件的Enabled属性为False
C 该控件的TabStop属性为True
D 该控件的TabStop属性为False
31421 对文本框Text1编写如下的事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As String
x = Chr(KeyAscii)
KeyAscii = Asc(UCase(x))
Print String(4, KeyAscii)
End Sub
程序运行后，将焦点位于文本框，如果在键盘上输入字母"a"，则窗体上显示的内容是（C）。
A A B B C AAAA D aaaa
3122 要判断在文本框中是否按了Enter键，应在文本框的（ D ）事件中判断。
A Change
B KeyDown
C Click
D KeyPress
31423 以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是（ A ）。
A KeyAscii参数是可以产生字符的按键的ASCII码
B KeyAscii参数的数据类型为字符串
C KeyAscii参数可以省略
D KeyAscii参数是所按键上标注的字符
31501 下列求两数中最小数的程序段不正确的是（ D）。
A If x < y Then Min = x Else Min = y
B Min = IIf(x < y，x，y)
C Min = x : If y < = x Then Min = y
D If y < = x Then Min = y : Min = x
31502 下列程序段的执行结果是（ B）。
x = 3 : y = 5 : z = 9
x = x + y
y = x - y
If x - y