Visual Basic程序设计（吉林医药学院）智慧树知到章节测试答案

第一章 章节测试
1、选择题:以下关于VB语言的说法中，正确的是（ ）。
选项：
A:VB是一种面向过程的语言
B:VB是一种面向对象的语言
C:VB是一种低级语言
D:VB是一种机器语言
我的答案： 【VB是一种面向对象的语言】

2、选择题:在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（ ）。
选项：
A:编写代码
B:新建一个工程
C:打开属性窗口
D:进入Visual Basic环境
我的答案： 【新建一个工程】
3、选择题:以下可以构成语句的是（ ）。
选项：
A:对象名.属性
B:对象名.方法名
C:对象名.事件名
D:对象名.函数名
我的答案： 【对象名.方法名】
4、选择题:（ ）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
选项：
A:文件
B:属性
C:方法
D:窗体
我的答案： 【方法】
5、选择题:下列不是Visual Basic 文件的是（ ）。
选项：
A:.frm文件
B:.bas
C:.cls文件
D:.txt
我的答案： 【*.txt】
6、选择题:下列不能打开工具箱窗口的操作是( )。
选项：
A:执行“视图”菜单中的“工具箱”命令
B:按Alt+F8键
C:单击工具栏上的“工具箱”按钮
D:按Alt+V，然后按Alt+X键
我的答案： 【按Alt+F8键】
7、选择题:下列可以打开立即窗口的操作是( )。
选项：
A:Ctrl+D
B:Ctrl+E
C:Ctrl+F
D:Ctrl+G
我的答案： 【Ctrl+G】
8、选择题:Visual Basic6.0集成环境的主窗口中不包括( )。
选项：
A:标题栏
B:菜单栏
C:状态栏
D:工具栏
我的答案： 【状态栏】
9、选择题: 在Visual Basic中，不能关闭的窗口是( )。
选项：
A:窗体设计器窗口
B:工程窗口
C:属性窗口
D:立即窗口
我的答案： 【工程窗口】
10、选择题: Visual Basic是一种面向对象的可视化程序设计语言，采取了( )的编程机制。
选项：
A:从窗体开始执行
B:按书写顺序执行
C:从主程序开始执行
D:事件驱动
我的答案： 【事件驱动】

第二章 章节测试
1、选择题:下列符号常量的声明中，（ ）是不合法的。
选项：
A:Const a As Single=1.1
B:Const a As Integer=“12”
C:Const a As Double=Sin（1）
D:Const a =“OK”
我的答案： 【Const a As Integer=“12”】
2、选择题:表达式“Turbo”+“c”>“Ture”+“Basic”的值是（ ）。
选项：
A:True
B:False
C:Null
D:出错信息
我的答案： 【False】
3、选择题:执行下列语句后，V的值是（ ）。A=“56789” V=Val（Mid（A，3，2））
选项：
A:89
B:78
C:67
D:0
我的答案： 【78】
4、选择题:表达式4+567/8 Mod 4的值是（ ）。
选项：
A:4
B:5
C:6
D:7
我的答案： 【5】
5、选择题:下列符号（ ）是Visual Basic中合法的变量名。
选项：
A:x23
B:8xy
C:END
D:X8[B]
我的答案： 【x23】
6、选择题:在一行内写多条语句时，每个语句之间用（ ）来分隔。
选项：
A:，
B:：
C:、
D:；
我的答案： 【：】
7、选择题:在VB中，用Single来表示的数据类型是（ ）。
选项：
A:长整型
B:字符型
C:逻辑型
D:单精度型
我的答案： 【单精度型】
8、选择题: 下列程序段的运行结果是（ ）。Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B
选项：
A:7
B:-7
C:75
D:8
我的答案： 【7】
9、选择题: 三种逻辑运算符号优先次序为（ ）。
选项：
A:AND、NOT、OR
B:NOT、OR、AND
C:NOT、AND、OR
D:OR、NOT、AND
我的答案： 【NOT、AND、OR】
10、选择题: 数学式3abc(d+e)改写为VB表达式为（ ）。
选项：
A:3abc(d+e)
B:3abc(d+e)
C:3abcd +3abce
D:3abc(d+e)
我的答案： 【3abc*(d+e)】

第三章 章节测试
1、选择题:结构化程序设计的三种基本结构不包括（ ）。
选项：
A:顺序结构
B:倒序结构
C:选择结构
D:循环结构
我的答案： 【倒序结构】[$]
2、选择题:下面四个语句中，能打印显示2030字样的是（ ）。
选项：
A:Print“2030”
B:Print 2030
C:Print Chr(20)+“”+Chr(30)
D:Print val(“20”)val(“30”)
我的答案： 【Print“20*30”】
3、选择题:关于MsgBox函数，以下说法不正确的是（ ）。
选项：
A:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B:“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和
C:MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关
D:“标题”参数可选，显示在对话框标题栏中的字符串表达式
我的答案： 【MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关】
4、选择题:语句If x=1 Then y=1,下列说法正确的是( )。
选项：
A:x=1和y=1均为赋值语句
B:x=1和y=1均为关系表达式
C:x=1为关系表达式,y=1为赋值语句
D:x=1为赋值语句, y=1为关系表达式
我的答案： 【x=1 为关系表达式， y=1 为赋值语句】
5、选择题:下面程序段执行结果为( )。 x = 5 : y = -6If not x > 0 Then x = y – 3 Else y = x + 3End IfPrint x – y; y – x
选项：
A:-3 3
B:5 -9
C:3 -3
D:-6 5
我的答案： 【-3 3】
6、选择题:编写如下事件过程: Private Sub Form_Click() score=Int(Rnd10)+80 Select Case score Case Is< 60 a$=”F” Case 60 To 69 a$=”D” Case 70 To 79 a$=”C” Case 80 To 89 a$=”B” Case Else a$=”A” End Select Print a$ End Sub 程序运行后,单击窗体,则窗体上显示的内容是( )。
选项：
A: A
B: B
C: C
D: D
我的答案： 【A a】
7、选择题:循环结构For I%= -1 to –17 Step –2 共执行( )次。
选项：
A: 5
B: 6
C: 8
D: 9
我的答案： 【9】
8、选择题:下列程序段的执行结果为( )。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b
选项：
A: 10 5
B: a b
C: 0 1
D: 10 30
我的答案： 【10 5】
9、选择题:有如下程序,运行后输出的结果是( )。j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n
选项：
A: 0 1
B: 182 3
C: 30 4
D: 3 3
我的答案： 【182 3】
10、选择题:下列的程序段执行后,x的值为( )。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i
选项：
A: 50
B: 55
C: 5
D: 105
我的答案： 【10】

第四章 章节测试
1、选择题:以下关于静态数组的描述正确的是（ ）。
选项：
A:静态数组的大小是固定的，可以有不同类型的数组元素
B:静态数组的大小是可变的，但所有数组元素的类型必须相同
C:静态数组的大小是固定的，所有数组元素的类型必须相同
D:静态数组的大小是可变的，可以有不同类型的数组元素
我的答案： 【静态数组的大小是固定的，可以有不同类型的数组元素】
2、选择题:执行下面程序段后，输出的结果为（ ）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s
选项：
A:20
B:25
C:30
D:35
我的答案： 【30】
3、选择题:下面程序：Private Sub Form_Click() Dim a(100) As Integer For i = 1 To 10 j = i i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（ ）。
选项：
A:25
B:36
C:49
D:81
我的答案： 【两个图形的中心坐标分别是(300, 600)和(900, 600)】
4、选择题:有如下语句：Option Base 1Private Sub Command1_Click() Dim A(2, -1 To 1) As Integer ……End Sub 以上语句所定义的数组A为（ ）维数组，共有（ ）个元素，第一维下标从（ ）到（ ），第二维下标从（ ）到（ ）。
选项：
A:1,2,6,2,-1,1
B:6,2,1,2,-1,1
C:2,6,1,2,-1,1
D:2,1,6,-1,1,2
我的答案： 【2,6,1,2,-1,1】
5、选择题:有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（ ）。
选项：
A: 0 0
B:-5 0
C:-5 6
D: 0 6
我的答案： 【-5 6】
6、选择题:下面关于控件数组与一般控件的叙述中正确的是（ ）。
选项：
A:控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件
B:控件数组的索引属性值Index值为0，而一般控件的Index值为空
C:控件数组的Index值为1，而一般控件的Index值为0
D:控件数组的建立通过Dim语句声明，而一般控件不需要声明
我的答案： 【控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件】
7、选择题:如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（ ）。
选项：
A:Dim
B:ReDim
C:Dim Preserve
D:ReDim Preserve
我的答案： 【ReDim Preserve】
8、选择题:下列程序的输出结果为（ ）。 Private Sub Command1_Click() Dim a ReDim a(6) For j=1 To 5 a(j)=jj Next j Print a(a(2)a(3)-a(4)2)+a(5) End Sub
选项：
A: 36
B: 25
C: 16
D: 41
我的答案： 【10 10】
9、选择题: 执行下面程序段后，输出的结果为（ ）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)
选项：
A: 22
B: 42
C: 32
D: 52
我的答案： 【10 和 11】
10、选择题:要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（ ）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9
选项：
A:Dim a(9) As Single
B:Dim a(3, 3) As Single
C:Dim a(-1 To 1, -5 To -3) As Single
D:Dim a(-3 to 1, -5 to 7) As Integer
我的答案： 【Dim a(-1 To 1, -5 To -3) As Single】

第五章 章节测试
1、选择题:假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。
选项：
A:5 4
B:1 1
C:1.25 4
D:1.5 2
我的答案： 【1.5 2】
2、选择题:假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim Str1 As String Dim Str2 As String Str1 = InputBox(“请输入一个字符串”) Str2 = Fun(Str1) Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（ ）。
选项：
A:Abcdefg
B:ABCDEFG
C:gfedcba
D:GFEDCBA
我的答案： 【第一空： 18】
3、选择题:有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 y + z + 2 xEnd Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。
选项：
A:17
B:18
C:19
D:20
我的答案： 【19】
4、选择题:有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y <> 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（ ）。Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 10 b = 2 x = Cys(a, b) Print xEnd Sub
选项：
A:0
B:25
C:5
D:100
我的答案： 【5】
5、选择题:以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a() As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxval = max End Function Private Sub Command1_Click() Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd() 100) Print x(i); Next i Print Print maxval(x())End Sub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。
选项：
A:语句“max = 1”应改为“max = a(1)”
B:语句“For i = 2 To 10”应改为“For i = 1 To 10”
C:If语句“max = i”应改为“max = a(i)”
D:语句“maxval = max ”应改为“maxval = a(max)”
我的答案： D
6、选择题: 在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a – b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后，单击命令按钮，输出结果是( )。
选项：
A: 10
B: 0
C: 11
D: 21
我的答案： B
7、选择题:下面程序的运行结果为（ ）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a; b; cEnd Sub
选项：
A: 4 6 6
B: 8 6 6
C: 4 6 10
D: 8 8 6
我的答案： 【8 6 6】
8、选择题:下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click() Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（ ）。
选项：
A: 2
B: 4
C: 6
D: 8
我的答案： 【8】
9、选择题:下列叙述中正确的是（ ）。
选项：
A:在窗体的Form_Load事件中定义的变量是全局变量
B:局部变量的作用域可以超出所定义的过程
C:在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D:在调用过程时，所有局部变量被系统初始化为0或空字符串
我的答案： 【二进制正数的反码、补码和原码一致】
10、选择题:若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在 （ ）中。
选项：
A:窗体模块
B:标准模块
C:类模块
D:工程
我的答案： 【标准模块】

第六章 章节测试
1、选择题:若要求显示一个指定窗体,所用的方法是( )。
选项：
A:Show
B:Open
C:Hide
D:Load
我的答案： 【Show】
2、选择题:确定一个窗体或控件大小的属性是( )。
选项：
A:Width和Height
B:Width和Top
C:Top和Right
D:Top和Left
我的答案： 【Width 和Height】
3、选择题:当一个工程含有多个窗体时,其中的启动窗体是( )。
选项：
A:启动 Visual Basic时建立的窗体
B:第一个添加的窗体
C:最后一个添加的窗体
D:在“工程属性”对话框中指定的窗体
我的答案： 【在“工程属性”对话框中指定的窗体】
4、选择题:每建立一个窗体,工程管理器窗口中就会增加一个( )。
选项：
A:工程文件
B:窗体文件
C:程序模块文件
D:类模块文件
我的答案： 【窗体文件】
5、选择题:当运行程序时,系统自动执行启动窗体的( )事件过程。
选项：
A:Load
B:Click
C:UnLoad
D:GotFocus
我的答案： 【Load】
6、选择题: 若要改变窗体中显示文本的颜色,应该使用的属性是( )。
选项：
A:Caption
B:BackColor
C:ForeColor
D:Font
我的答案： 【ForeColor】
7、选择题:在设计阶段,当双击窗体上的某个控件时,所打开的窗口是( )。
选项：
A:工程资源管理器窗口
B:工具箱窗口
C:代码窗口
D:属性窗口
我的答案： 【代码窗口】
8、选择题: 如果要改变窗体的标题,需要设置窗体对象的哪一属性( )。
选项：
A:Name
B:Caption
C:BackColor
D:BorderStyle
我的答案： 【Caption】
9、选择题: Cls方法可清除窗体或图片框中的信息是( )。
选项：
A:Picture属性设置的背景图案
B:在设计时放置的控件
C:程序设计时产生的图形和文字
D:以上方法都对
我的答案： 【程序设计时产生的图形和文字】
10、选择题:窗体的Enable属性的属性值是( )类型的数据。
选项：
A: 整型
B: 字符型
C: 逻辑型
D: 实型
我的答案： 【逻辑型】

第七章 章节测试
1、选择题:一般不用来触发事件的对象是( )。
选项：
A:标签
B:窗体
C:命令按钮
D:文本框
我的答案： 【标签】
2、选择题:如果将文本框的Locked属性设置为True,则以下说法( )是正确的。
选项：
A:此时在属性窗口不可以修改文本框的Text属性值
B:运行时用户不可以在界面上修改文本框中的内容
C:在程序代码中不可以修改文本框的内容,如：不可以使用语句Text1.Text=”aa”
D:以上均不正确
我的答案： 【运行时用户不可以在界面上修改文本框中的内容】
3、选择题:单击命令按钮Commandl必将调用的事件( )。
选项：
A:LostFocus
B:KeyPress
C:Dbclick
D:Click
我的答案： 【Click】
4、选择题:能够改变复选框中背景颜色的属性是( )。
选项：
A:Value
B:FontColor
C:BackColor
D:Font
我的答案： 【BackColor】
5、选择题:以下不属于同类的是( )。
选项：
A:Click
B:Name
C:Caption
D:Top
我的答案： 【Click】
6、选择题: 列表框中列表项的数目可通过( )属性的值获得。
选项：
A:Count
B:ListCount
C:SelCount
D:Index
我的答案： 【ListCount】
7、选择题:组合框控件是将( )组合成一个控件。
选项：
A:列表框控件和文本框控件
B:标签控件和列表框控件
C:标签控件和文本框控件
D:复选框控件和选项按钮控件
我的答案： 【列表框控件和文本框控件】
8、选择题: 要在图片框P1中打印字符串”How Are You”,应使用语句( )。
选项：
A:Picture1.Print=”How Are You”
B:P1.Picture=LoadPicture(“How Are You”)
C:P1.Print”How Are You”
D:Print”How Are You”
我的答案： 【P1.Print”How Are You”】
9、选择题: 在窗体上画一个名称为Timer1的计时器控件,要求每隔0.1秒发生一次计时器事件,则以下正确的属性设置语句是( )。
选项：
A:Timer1. Enabled =0.1
B:Timer1.Interval =0.1
C:Timer1. Enabled=100
D:Timer1.Interval=100
我的答案： 【Timer1.Interval=100】
10、选择题: 以下控件中不属于容器的是( )。
选项：
A:Form
B:PictureBox
C:Image
D:Frame
我的答案： 【Image】

第八章 章节测试
1、选择题:刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是（）。
选项：
A:单选按钮
B:图片框
C:通用对话框
D:文本框
我的答案： 【通用对话框】
2、选择题:将通用对话框类型,设置为字体对话框,可修改该控件的（）属性。
选项：
A:font
B:filename
C:filter
D:action
我的答案： 【action】
3、选择题:下列属性属于颜色对话框的是（）。
选项：
A:FileName
B:Min
C:FontSize
D:Color
我的答案： 【Color】
4、选择题:在窗体上建立通用对话框必须先将（）添加到工具箱中。
选项：
A:Data控件
B:Form控件
C:CommonDialog控件
D:VBComboBox控件
我的答案： 【CommonDialog控件】
5、选择题:将通用对话框CommandDialog1的类型设置成另存为对话框,可调用该控件的（）方法。
选项：
A:ShowOpen
B:ShowSave
C:ShowColor
D:ShowFont
我的答案： 【ShowSave】
6、选择题: 下列事件过程可以将打开对话框的标题改为”刑事案件卷宗”的是（）。
选项：
A: Private Sub Command1_Click()CommonDialogl.DialogTitle=”刑事案件卷宗” CommonDialogl.ShowOpen End sub
B: Private Sub Command1_Click()CommonDialogl.Filter =”刑事案件卷宗” CommonDialogl.ShowSave End sub
C: Private Sub Command1_Click()CommonDialogl.DialogTitle=”刑事案件卷宗” CommonDialogl.Show End sub
D: Private Sub Command1_Click()CommonDialogl.DialogTitle=”刑事案件卷宗” CommonDialogl.ShowColor End sub
我的答案： A
7、选择题: 窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。Private Sub Command1_Click() Commondialog1.ShowColor End Sub
选项：
A:打开文件对话框
B:打开颜色对话框
C:打开字体对话框
D:打开保存对话框
我的答案： 【打开颜色对话框】
8、选择题:在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：
选项：
A:CommonDialog1.ShowOpen
B:CommonDialog1.ShowSave
C:CommonDialog1.ShowColor
D:CommonDialog1.ShowFont
我的答案： 【CommonDialog1.ShowSave】
9、选择题: 在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Filter = “all files(.)|.|text files|.txt|bat files(.bat)|.bat”CommonDialog1.filterIndex = 2 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）：
选项：
A:All Files(.)
B:Text Files(.txt)
C:Bath Files(*.bat)
D:不确定
我的答案： 【CommonDialog1.ShowSave】
10、选择题: 以下叙述中错误的是（）。
选项：
A:在程序运行时，通用对话框控件是不可见的
B:在同一个程序中，用不同的方法，如 ShowOpen 或 ShowSave() 等打开的通用对话框具有不同的作用
C:调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D:调用通用对话框控件的ShowColor方法，可以打开颜色对话框
我的答案： 【可以给指针变量赋一个整数作为地址值】

第九章 章节测试
1、选择题:下列选项中不正确的是( )。
选项：
A:每个菜单项都是一个对象,所以也有属性和事件
B:菜单项的属性可以在属性窗口中设计
C:每个菜单项都只有一个Click事件
D:菜单编辑器中,标题可不输入,而名称必须输入
我的答案： 【ངྱ་།】
2、选择题:在用菜单编辑器设计菜单时,必须输入的项是( )。
选项：
A:快捷键
B:标题
C:索引
D:名称
我的答案： 【名称】
3、选择题:假定有一个菜单项,名称为MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为( )。
选项：
A:MenuItem.Enabled=False
B:MenuItem.Enabled=True
C:MenuItem.Visible=True
D:MenuItem.Visible=False
我的答案： 【MenuItem.Enabled=False】
4、选择题:一个菜单项是不是一个分隔条,由( )属性决定。
选项：
A:Name(名称)
B:Caption
C:Enabled
D:Visible
我的答案： 【Caption】
5、选择题:要使用菜单项MentOne在程序运行时失效,使用的语句是( )。
选项：
A:MentOne.Visble=True
B:MentOne.Visble=False
C:MentOne.Enabled=True
D:MentOne.Enabled=False
我的答案： 【MentOne.Enabled=False】
6、选择题: 菜单控件仅支持下面哪一事件（）。
选项：
A:Click
B:MouseDown
C:KeyPress
D:Load
我的答案： 【Click】
7、选择题: 用键盘的光标键选中某一菜单项,并按回车将触发菜单的（）的事件。
选项：
A:KeyPress
B:KeyDown
C:Click
D:KeyUp
我的答案： 【Click】
8、选择题: 设菜单中有一个菜单项为”Open”.若要为该菜单命令设置访问键,即按下ALT及字母O 时,能够执行Open命令,则在菜单编辑器中设置”Open”命令的方式是（）。
选项：
A:把Caption属性设置为&Open
B:把Caption属性设置为O&pen
C:把Name属性设置为&Open
D:把Name属性设置为O&pen
我的答案： 【把Caption属性设置为&Open】
9、选择题: 下列不能打开菜单编辑器的操作是（）。
选项：
A:按 Ctrl+E 健
B:单击工具栏中的“菜单编辑器”按钮
C:执行“工具”菜单中的“菜单编辑器”命令
D:按Shift+Alt+M键
我的答案： 【按Shift+Alt+M键】
10、选择题:建立弹出式菜单使用的命令是（）。
选项：
A:CreateMenu
B:PopupMenu
C:BuildMenu
D:PopupItem
我的答案： 【PopupMenu】

第十章 章节测试
1、选择题:使用 Circle (1000, 1000), 650 语句在窗体上绘制一个圆，则圆的线条颜色由窗体的( )属性决定。
选项：
A:BackColor
B:ForeColor
C:DrawWidth
D:Caption
我的答案： 【ForeColor】
2、选择题:执行指令”Line(1200,1200)-Step(1000,500),,B”后,CurrentX=( )。
选项：
A:2200
B:1200
C:1000
D:1700
我的答案： 【2200】
3、选择题:运行以下程序后,输出的图形是( )。For r=0 To 150 Circle(320,240),r For i=1 To l000 Next i Next r
选项：
A:一个半径逐渐变小的空心圆
B:一个固定的空心圆
C:一个半径逐渐变大的空心圆
D:一个固定的实心圆
我的答案： 【一个固定的实心圆】
5、选择题:以下的属性和方法中,可重定义坐标系的是( )。
选项：
A:Drawstyle属性
B:DmwWidth属性
C:Scale方法
D:ScaleMode属性
我的答案： 【Scale方法】
6、选择题: Line(100,100)-Step(400,400)将在窗体()画一直线。
选项：
A:(200,200)到(400,400)
B:(100,100)到(300,300)
C:(100,100)到(500,500)
D:(100,100)到(400,400)
我的答案： 【(100,100)到(500,500)】
7、选择题: vb 中的坐标圆点位于（）。
选项：
A:容器右上角
B:容器左上角
C:容器正中央
D:容器右下角
我的答案： 【容器左上角】
8、选择题: 可用来改变坐标度量单位的是（）。
选项：
A:Drawstyle属性
B:DrawWidth属性
C:Scale方法
D:ScaleMode属性
我的答案： 【ScaleMode属性】
9、选择题: 在VB的图形方法中,要绘制矩形,需要使用（）。
选项：
A:Pset方法
B:Line方法
C:Circle方法
D:Point方法
我的答案： 【Line方法】
10、选择题: 如果在图片框上使用绘图方法绘制一个实心圆,则图片框的（）属性决定了该圆填充的颜色。
选项：
A:BackColor
B:ForeColor
C:FillColor
D:DrawStyle
我的答案： 【FillColor】

第十一章 章节测试
1、选择题:当用户按键时，KeyPress、KeyDown、KeyUp事件的执行顺序为( )。
选项：
A:KeyPress事件、KeyDown事件、KeyUp事件
B:KeyDown事件、KeyPress事件、KeyUp事件
C:KeyDown事件、KeyUp事件、KeyPress事件
D:D．KeyDown事件、KeyUp事件与KeyPress事件
我的答案： 【KeyDown事件、KeyPress事件、KeyUp事件】
2、选择题:文本框Textl的KeyDown事件过程中参数KeyCode值表示( )。
选项：
A:是否按下了Alt键或Ctrl键
B:按下的是哪个数字键
C:所按的键盘键的键码
D:按下的是哪个鼠标键
我的答案： 【所按的键盘键的键码】
3、选择题:编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出( )。
选项：
A:A a
B:a A
C:A A
D:a a
我的答案： 【A a】
4、选择题:在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入“abcdefg”,单击命令按钮，则文本框显示为( )。
选项：
A:abcdefg
B:不显示任何信息
C:ABCDEFG
D:出错
我的答案： 【OpenForm】
5、选择题:在上题中，如果把窗体的KeyPreview设置为False，则文本框中显示的内容为( )。
选项：
A:abcdefg
B:不显示任何信息
C:ABCDEFG
D:出错
我的答案： 【不显示任何信息】
6、选择题: 下列关于MouseMove事件，描述正确的是()。
选项：
A:与鼠标的灵敏度有关
B:每秒激发一次
C:伴随鼠标的移动而连续不断的发生
D:当鼠标移动时被激活一次然后等待下次移动
我的答案： 【伴随鼠标的移动而连续不断的发生】
7、选择题: 当鼠标左键按下时，下列哪个事件被激发()。
选项：
A:KeyDown事件
B:KeyPress事件
C:MouseDown事件
D:MousePress事件
我的答案： 【MouseDown事件】
8、选择题: 在鼠标事件中，语句If Button=2 成立的条件是()。
选项：
A:按键盘数字键2
B:单击鼠标左键
C:单击鼠标右键
D:双击鼠标左键
我的答案： 【单击鼠标右键】
9、选择题:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = 6 And Button = 2 Then Print “BBBB”End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为()。
选项：
A:同时按下Shift和鼠标左键
B:同时按下Shift和鼠标右键
C:同时按下Ctrl、Alt和鼠标左键
D:同时按下Ctrl、Alt和鼠标右键
我的答案： 【同时按下 Ctrl、Alt和鼠标右键】
10、选择题: 编写如下事件过程：Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)If (Button And 3) = 3 Then Print “AAAA”End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为()。
选项：
A: 左
B: 右
C: 同时左，右
D: 按什么键都不显示
我的答案： 【A a】

第十二章 章节测试
1、选择题:按文件中数据的编码方式，文件分为( )。
选项：
A:顺序文件和随机文件
B:ASCII码文件和二进制文件
C:程序文件和数据文件
D:源程序文件和可执行文件
我的答案： 【ASCII码文件和二进制文件】
2、选择题:关于顺序文件的描述，下面正确的是( )。
选项：
A:每条记录的长度必须相同
B:可通过编程对文件中的某条记录方便地修改
C:数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
D:文件的组织结构复杂
我的答案： 【C】
3、选择题:文件号最大可取的值为( )。
选项：
A:255
B:511
C:512
D:256
我的答案： 【511】
5、选择题:下面哪个函数可得到文件的长度( )。
选项：
A:LOF
B:LOC
C:EOF
D:BOF
我的答案： 【LOF】
6、选择题: 对语句Open“c:Test.txt”For Output As #2,以下错误叙述是()。
选项：
A:若C盘根目录下存在Test.txt，则打开名为Test.txt的文件
B:若C盘根目录下不存在Test.txt，则建立一个名为Test.txt的文件
C:通过该语句打开文件后，可以对文件进行读操作
D:执行该语句后，就可以通过Print语句向文件Test.txt中写入信息
我的答案： 【通过该语句打开文件后，可以对文件进行读操作】
7、选择题: Print #1,STR$中的Print是()。
选项：
A:文件的写语句
B:在窗体上显示的方法
C:子程序名
D:文件的读语句
我的答案： 【文件的写语句】
8、选择题: 在随机文件操作中，定义记录类型的语句()。
选项：
A:Type…End Type
B:Dim
C:Private
D:Public
我的答案： 【Type…End Type】
9、选择题:在二进制文件操作中，读数据使用的语句()。
选项：
A:Input
B:Write
C:Put
D:Get
我的答案： 【Get】
10、选择题: 要获得当前驱动器，应使用驱动器列表框的属性为()。
选项：
A:Path
B:FilePath
C:Drive
D:Change
我的答案： 【Drive】