Visual Basic程序设计中国大学mooc网课答案

每日一练习题 57hVE 2022-07-02 18:39:17 457次浏览 47928个评论

第1讲 Visual Basic程序设计概述

1.1 Visual Basic简介随堂测验

1、下列关于程序设计语言的叙述中,错误的是( )。
    A、目前计算机还无法理解和执行自然语言编写的程序
    B、程序设计语言是一种能被计算机准确理解和执行的语言
    C、程序设计语言没有高级和低级之分,只是不同国家使用不同的编程语言而已
    D、高级程序设计语言不依赖于具体的机器硬件

2、下列关于Visual Basic的叙述中,错误的是( )。
    A、Visual Basic是可视化程序设计语言
    B、Visual Basic采用事件驱动编程机制
    C、Visual Basic的应用程序是以顺序方式执行
    D、Visual Basic的应用程序可以以编译方式执行

1.2 Visual Basic集成开发环境随堂测验

1、Visual Basic的标题栏信息显示为“工程1-Microsoft Visual Basic[Break]”,表示当前的工作模式是( )。
    A、设计
    B、运行
    C、代码
    D、中断

2、下列关于Visual Basic 6.0集成开发环境的叙述中,正确的是( )。
    A、只有代码窗口和窗体窗口
    B、不能设置代码的自动语法检测
    C、可以编写程序代码
    D、不能设置对象的属性

1.3 设计一个简单的Visual Basic应用程序随堂测验

1、下列叙述中,错误的是( )。
    A、设置对象属性可以改变窗体和控件的外观
    B、保存程序就是将程序有关文件保存在磁盘上
    C、程序调试就是修正语法错误和逻辑错误的过程
    D、编写程序代码是在窗体设计器窗口中实现

2、在开发Visual Basic应用程序时,一个工程一般至少应含有( )。
    A、标准模块文件和类模块文件
    B、工程文件和窗体文件
    C、工程文件和类模块文件
    D、工程文件和标准模块文件

1.4 面向对象的基本概念随堂测验

1、下列关于类和对象的叙述中,错误的是( )。
    A、一个类只能有一个对象
    B、对象是类的具体实例
    C、类是对同一类对象的抽象
    D、类是一组具有共同特征的对象集合

2、下列关于“事件”的叙述中,错误的是( )。
    A、事件是系统预先为对象定义,能被对象识别的动作
    B、事件可以分为用户事件和系统事件
    C、Visual Basic为每个对象设置好各种事件,并定义好事件过程的过程名,但过程代码必须由用户自行编写
    D、Visual Basic中的所有对象的默认事件都是Click

1.5 窗体随堂测验

1、下列叙述中,正确的是( )。
    A、窗体的Name属性指定窗体的名称,用于标记一个窗体
    B、窗体的Name属性的值是显示在窗体标题栏中的文本
    C、可以在运行期间改变对象的Name属性的值
    D、对象的Name属性值可以为空

2、下列叙述中,正确的是( )。
    A、Move属性只能用于移动窗体,不能用于改变其大小
    B、Move属性不能用于移动窗体,但可改变其大小
    C、Move方法不能用于移动窗体,也不能用于改变其大小
    D、Move方法不仅能够用于移动窗体,也可用于改变其大小

第1讲 单元测试

1、下列程序设计语言中,属于低级语言的是( )。
    A、C语言
    B、汇编语言
    C、Visual Basic
    D、Java

2、Visual Basic采用了( )编程机制。
    A、面向过程
    B、面向对象
    C、事件驱动
    D、可视化

3、Visual Basic的启动有多种方法,下面不能启动Visual Basic的是( )。
    A、使用“开始”菜单中的“程序”命令
    B、使用“开始”菜单中的“运行”命令,在打开的对话框中输入Visual Basic启动文件的名称
    C、使用“我的电脑”窗口,在Visual Basic所在硬盘驱动器中找到相应的Visual Basic文件,然后运行该文件
    D、打开Visual Basic的“文件”菜单,再按Alt+Q组合键

4、在Visual Basic集成开发环境中创建Visual Basic应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是( )。
    A、窗体布局窗口
    B、立即窗口
    C、代码窗口
    D、监视窗口

5、下列不能打开属性窗口的操作是( )。
    A、选择“视图”→“属性窗口”命令
    B、按F4键
    C、按Ctrl+T组合键
    D、单击常用工具栏上的“属性窗口”按钮

6、通过( )窗口可以在设计时直观地调整窗体在屏幕上的位置。
    A、代码
    B、窗体布局
    C、窗体设计器
    D、属性

7、使用Visual Basic的工程资源管理器可管理多种类型的文件,下面叙述不正确的是( )。
    A、窗体文件的扩展名为.frm,每个窗体对应一个窗体文件
    B、标准模块是一个纯代码性质的文件,它不属于任何一个窗体
    C、用户通过类模块来定义自己的类,每个类都用一个文件来保存,其扩展名为.bas
    D、资源文件是一种纯文本文件,可以用简单的文字编辑器来编辑

8、新建一个标准EXE工程后,不在工具箱中出现的控件是( )。
    A、单选按钮
    B、图片框
    C、通用对话框
    D、文本框

9、一个应用程序的窗体中含有图片框控件(已装入图像),则该Visual Basic应用程序从文件上看,至少应该包括的文件有( )。
    A、窗体文件(.frm)、项目文件(.vbp/vbw)
    B、窗体文件(.frm)、项目文件(.vbp/vbw)和代码文件(.bas)
    C、窗体文件(.frm)、项目文件(.vbp/vbw)和模块文件(.bas)
    D、窗体文件(.frm)、项目文件(.vbp/vbw)和窗体的二进制文件(.frx)

10、下列叙述中错误的是( )。
    A、打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
    B、保存Visual Basic程序时,应分别保存窗体文件和工程文件
    C、Visual Basic应用程序只能以解释方式执行
    D、事件可以由用户引发,也可以由系统引发

11、下列叙述中错误的是( )。
    A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
    B、以.bas为扩展名的文件是标准模块文件
    C、窗体文件包含该窗体及其控件的属性
    D、一个工程中可以含有多个标准模块文件

12、在开发Visual Basic应用程序时,一个工程一般至少应含有( )。
    A、标准模块文件和类模块文件
    B、工程文件和窗体文件
    C、工程文件和类模块文件
    D、工程文件和标准模块文件

13、下列叙述中正确的是( )。
    A、对象具有属性、方法和事件
    B、对象的属性只能在属性窗口中设置
    C、对象的属性只能在代码中进行设置
    D、事件过程都要由用户单击对象来触发

14、Visual Basic是一种面向对象的程序设计语言,下面( )不是面向对象包含的三要素。
    A、变量
    B、事件
    C、属性
    D、方法

15、在面向对象方法中,类的实例称为( )。
    A、集合
    B、抽象
    C、对象
    D、模板

16、在Visual Basic中,对象的行为被称作( ),它是被事先编写好的相应的过程或函数,供用户直接调用。
    A、属性
    B、方法
    C、事件
    D、消息

17、设有语句“Command1.Caption ="确定"”,则Command1、Caption和"确定"分别代表( )。
    A、对象、属性、值
    B、对象、方法、值
    C、对象、值、属性
    D、属性、对象、值

18、设有语句“Form1.Print "欢迎使用Visual Basic 6.0!"”,则Form1、Print和"欢迎使用Visual Basic 6.0!"则分别代表( )。
    A、对象、属性、值
    B、对象、方法、参数
    C、对象、值、属性
    D、属性、对象、值

19、Visual Basic是一种面向对象的可视化程序设计语言,采取了( )的编程机制。
    A、从窗体开始执行
    B、按书写顺序执行
    C、从主程序开始执行
    D、事件驱动

20、下列关于Visual Basic编程的说法中不正确的是( )。
    A、属性是描述对象特征的数据
    B、事件是能被对象识别的动作
    C、方法指示对象的行为
    D、Visual Basic程序采用的运行机制是面向对象

21、下列关于事件的叙述中不正确的是( )。
    A、事件是系统预先为对象定义,能被对象识别的动作
    B、事件可以分为用户事件和系统事件
    C、Visual Basic为每个对象设置好各种事件,并定义好事件过程的过程名,但过程代码必须由用户自行编写
    D、Visual Basic中的所有对象的默认事件都是Click

22、在Visual Basic中最基本的对象是( ),它是应用程序的基石。
    A、标签
    B、窗体
    C、文本框
    D、命令按钮

23、窗体的Caption属性的作用是( )。
    A、确定窗体的名称
    B、确定窗体的标题
    C、确定窗体的边界类型
    D、确定窗体的字体

24、通过( )属性设置窗体的标题栏的图标。
    A、Icon
    B、Picture
    C、MouseIcon
    D、DownPicture

25、若要取消窗体的最大化功能,则可设置窗体的( )属性为False来实现。
    A、ControlBox
    B、MinButton
    C、MaxButton
    D、Enabled

26、下列窗体属性中,仅在程序运行时才有效果的是( )。
    A、Left
    B、Picture
    C、BorderStyle
    D、Caption

27、要使窗体Form1的标题栏显示“欢迎使用Visual Basic 6.0!”,以下( )语句是正确的。
    A、Form1.Caption ="欢迎使用Visual Basic 6.0! "
    B、Form1.Caption ='欢迎使用Visual Basic 6.0! '
    C、Form.Caption = "欢迎使用Visual Basic 6.0! "
    D、Form.Caption = '欢迎使用Visual Basic 6.0! '

28、下列不属于窗体事件的是( )。
    A、DblClick
    B、Click
    C、Load
    D、Move

29、程序运行时,不是由系统触发的事件是( )。
    A、Initialize
    B、Click
    C、Load
    D、Terminate

30、窗体不能调用的方法是( )。
    A、Print
    B、Move
    C、Cls
    D、Clear

31、Visual Basic的标题栏信息显示为“工程1-Microsoft Visual Basic[Break]”,表示当前的工作模式是( )。
    A、设计
    B、运行
    C、代码
    D、中断

32、1. 下列不属于创建Visual Basic应用程序的一般步骤的是( )。
    A、创建用户界面
    B、设置对象属性
    C、编写程序代码
    D、工程分类

33、下列关于“方法”的叙述中,错误的是( )。
    A、方法是对象的一部分
    B、方法是预先定义好的操作
    C、方法是对事件的响应
    D、方法用于完成某些特定功能

第2讲 Visual Basic程序设计基础

2.1 字符集、关键字和标识符随堂测验

1、下列字符不属于Visual Basic字符集的是( )。
    A、e
    B、{
    C、6
    D、*

2、下列( )是合法的Visual Basic标识符。
    A、Int_Sum
    B、Dim
    C、6days
    D、x#y

2.2 数据类型随堂测验

1、Integer类型可表示的最大整数是( )。
    A、255
    B、32767
    C、256
    D、32768

2、下列关于数据类型的叙述中,错误的是( )。
    A、Variant可以存储系统定义的所有类型的数据
    B、逻辑型数据只有两个值
    C、Long型数据用于存储实数
    D、标准数据类型是系统定义的

2.3 常量和变量随堂测验

1、下列( )不是合法的常量。
    A、True
    B、3.2e-3
    C、"edu"
    D、2018-06-01

2、下列关于Visual Basic 6.0变量的叙述中,正确的是( )。
    A、变量名中可以包含感叹号
    B、变量一定要先声明再使用
    C、变量名的第1个字符只能是字母
    D、变量名中可以包含下划线

2.4 运算符与表达式随堂测验

1、下列( )是算术运算符。
    A、Like
    B、Mod
    C、Not
    D、Eqv

2、表达式 5^2 Mod 6 + 15/30 And "20">"3" 的值是( )。
    A、25
    B、64
    C、1
    D、0

2.5 常用内部函数随堂测验

1、表达式Int(-1.5) + Sgn(-28) + Exp(0)的值为( )。
    A、-2
    B、-1
    C、1
    D、0

2、表达式Chr(Int(Rnd * 8 + 68))产生的英文字符所在的范围是( )。
    A、"D"~"K"
    B、"d"~"k"
    C、"C"~"J"
    D、"c"~"j"

第2讲 单元测试

1、在Visual Basic中,如果一个变量未做类型声明而直接使用,则该变量的数据类型是( )。
    A、字符串型
    B、数值型
    C、变体类型
    D、可以是任何类型

2、设有如下语句: Dim a, b As Integer c = "Visual Basic" d = #7/20/2005# 以下关于这段代码的叙述中,错误的是( )。
    A、a被定义为Integer类型变量
    B、b被定义为Integer类型变量
    C、c中的数据是字符串
    D、d中的数据是日期类型

3、下列关于变体数据类型的叙述中正确的是( )。
    A、变体是一种没有类型的数据
    B、给变体变量赋某一种类型数值后,就不能再赋给另一种类型数值
    C、一个变量没有定义就赋值,该变量即为变体类型
    D、变体的空值就表示该变体值为0

4、下面( )是不合法的整常数。
    A、100
    B、&O100
    C、&H100
    D、%100

5、下面( )是合法的字符常数。
    A、ABC$
    B、"ABC"
    C、'ABC'
    D、ABC

6、下面( )是不合法的单精度常数。
    A、100!
    B、100.0
    C、1E+2
    D、100.0D+2

7、下面( )是合法的单精度型变量。
    A、num!
    B、sum%
    C、xint$
    D、mm#

8、下列不可作为Visual Basic变量名的是( )。
    A、4*Delta
    B、Alpha
    C、ABC
    D、ABT1

9、以下合法的Visual Basic 标识符是( )。
    A、ForLoop
    B、Const
    C、6abc
    D、b#x

10、设有如下变量声明: Dim TestDate As Date 能为变量TestDate正确赋值的是( )。
    A、TestDate = #1/1/2012#
    B、TestDate=#"1/1/2012"#
    C、TestDate = Date("1/1/2012")
    D、TestDate = Format("m/d/yy", "1/1/2012")

11、在Visual Basic的基本数据类型中,变体类型(Variant)可以表示任何类型的变量,如果有定义“Dim a”,则以下变量赋值中正确的是( )。
    A、a="OK"
    B、a$=OK
    C、a=04/01/2011
    D、a$="OK"

12、如果变量a、b、c均为整型,下列程序段的输出结果为( )。 a = 2 b = 3 c = a * b Print a & "*" & b & "=" & c
    A、c=6
    B、a*b=c
    C、2*3=6
    D、a*b=6

13、设a = 2、b = 3、c = 4、d = 5,则表达式3 > 2 * b Or a = c And b <> c Or c > d的值是( )。
    A、1
    B、-1
    C、False
    D、True

14、下列逻辑表达式中,能正确表示条件“x,y都是奇数”的是( )。
    A、x Mod 2 = 1 Or y Mod 2 = 1
    B、x Mod 2 = 0 Or y Mod 2 = 0
    C、x Mod 2 = 1 And y Mod 2 = 1
    D、x Mod 2 = 0 And y Mod 2 = 0

15、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是( )。
    A、4
    B、5
    C、6
    D、7

16、设a=3、b=5,则以下表达式值为真的是( )。
    A、a>=b And b>10
    B、(a > b) Or (b > 0)
    C、(a < 0) Eqv (b > 0)
    D、(-3 + 5 > a) And (b > 0)

17、在直角坐标系中,x、y是坐标系中任意点的位置,用x与y表示在第一或第三象限的表达式,以下不正确的是( )。
    A、(x > 0 And y > 0) And (x < 0 And y < 0)
    B、(x > 0 And y > 0) Or (x < 0 And y < 0)
    C、x * y > 0
    D、x * y = Abs(x * y)

18、表达式Int(8 * Sqr(36 * (10 ^ (-2)) * 10 + 0.5)) / 10的值是( )。
    A、1
    B、16
    C、1.6
    D、0.16

19、表达式2 * 3 ^ 2 + 2 * 8 / 4 + 3 ^ 2的值为( )。
    A、64
    B、31
    C、49
    D、22

20、表达式2 + 3 * 4 ^ 5 + 1 / 2中最先进行的运算是( )。
    A、4^5
    B、3*4
    C、x+1
    D、1/2

21、表达式Int(-17.8) + Sgn(17.8)的值是( )。
    A、18
    B、-17
    C、-18
    D、-16

22、计算结果为0的表达式是( )。
    A、Int(2.4) + Int(–2.8)
    B、CInt(2.4) + CInt(–2.8)
    C、Fix(2.4) + Int(–2.8)
    D、Fix(2.4) + Fix(–2.8)

23、用于获得字符串s从第二个字符开始的3个字符的函数是( )。
    A、Mid$(s, 2, 3)
    B、Middle(s, 2, 3)
    C、Right$(s, 2, 3)
    D、Left$(s, 2, 3)

24、执行以下程序段后,变量c$的值为( )。 a$ = "Visual Basic" b$ = "Quick" c$ = b$ & UCase(Mid$(a$, 2, 3)) & Right$(a$, 2)
    A、Quick Visual
    B、Quick Basic
    C、Quickisuic
    D、QuickISUic

25、用于从字符串左边截取字符的函数是( )。
    A、Ltrim()
    B、Trim()
    C、Left()
    D、Instr()

26、表达式Val(".123E2CD")的值是( )。
    A、123
    B、0
    C、12.3
    D、123E2CD

27、表达式Str(Len("1234")) + Str(5.9)的值为( )。
    A、45.9
    B、4 5.9
    C、12345.9
    D、1234 5.9

28、表达式Len("幸运52")的值是( )。
    A、0
    B、4
    C、6
    D、8

29、可获得当前系统日期的函数是( )。
    A、Date()
    B、Time()
    C、IsDate()
    D、Year()

30、产生[5, 46]之间随机整数的Visual Basic表达式是( )。
    A、Int(Rnd(1) * 42) + 6
    B、Int(Rnd(1) * 42) + 5
    C、Int(Rnd(1)) + 41
    D、Int(Rnd(1) * 41) + 5

31、下列字符不属于Visual Basic字符集的是( )。
    A、e
    B、{
    C、6
    D、*

32、下列关于Visual Basic关键字的叙述中,错误的是( )。
    A、关键字是系统定义的
    B、每个关键字都有固定含义
    C、Private是Visual Basic的关键字
    D、关键字可以由用户定义

33、下列关于Visual Basic标识符的叙述中,错误的是( )。
    A、标识符只能由字母、数字、汉字和下划线组成
    B、标识符是系统定义的,不能由用户定义
    C、Visual Basic关键字不能作为标识符
    D、标识符只能以字母或汉字打头

34、下列( )是合法的Visual Basic标识符。
    A、Int_Sum
    B、Dim
    C、6days
    D、x#y

第3讲 顺序结构程序设计

3.1 顺序结构概述随堂测验

1、对于一个只包含顺序结构的程序来说,数据处理的一般流程为数据输入、数据加工处理及结果输出。

2、顺序结构程序中有些语句可以被多次执行。

3.2 赋值语句随堂测验

1、语句x=x+1的正确含义是( )。
    A、变量x的值与x+1的值相等
    B、将变量x的值存到x+1中去
    C、将变量x的值加1后赋给变量x
    D、变量x的值为1

2、如果将逻辑型常量值True赋值给一个整型变量,则整型变量的值为( )。
    A、0
    B、-1
    C、True
    D、False

3.3 输入语句随堂测验

1、对于InputBox函数,下列说法错误的是( )。
    A、InputBox函数值可以赋予一个变量,也可以不给任何变量赋值
    B、InputBox函数可以指定默认值
    C、InputBox函数可以省略“提示信息”参数
    D、InputBox函数返回的是字符串数据

2、设v是变体变量,执行语句v=InputBox("请输入圆半径","计算面积","3"),在弹出的对话框中输入10并按“确定”按钮后,v变量的内容为( )。
    A、字符串"3"
    B、数值型3
    C、数值型10
    D、字符串"10"

3.4 输出语句随堂测验

1、有如下语句 MsgBox "文件不存在", 48, "打开文件" 其中,"文件不存在"、48、"打开文件"分别是消息框的( )。
    A、对话框标题、对话框类型、提示信息
    B、提示信息、对话框类型、对话框标题
    C、提示信息、对话框标题、对话框类型
    D、对话框标题、提示信息、对话框类型

2、执行以下语句: Form1.Print "**"; Form1.Print "***" Form1.Print "****", Form1.Print "*****" 其输出结果中,第一行有( )个"*"。
    A、2
    B、3
    C、4
    D、5

3.5 命令按钮随堂测验

1、为使鼠标指针指向按钮时显示提示内容,应设置命令按钮的( )属性。
    A、Caption
    B、Default
    C、ToolTipText
    D、Tag

2、程序运行时,不能触发命令按钮的Click事件的是( )。
    A、单击命令按钮
    B、在命令按钮的Cancel属性设置为True的条件下,按Enter键
    C、操作命令按钮的快捷键
    D、用Tab键将焦点转移到按钮上,然后按回车键

3.6 标签随堂测验

1、下列属性不属于标签的是( )。
    A、Text
    B、Caption
    C、BackStyle
    D、AutoSize

2、下列关于标签叙述中,错误的是( )。
    A、标签AutoSize属性决定其大小是否自动适应内容的变化
    B、标签BackStyle属性值为 0 时标签呈现透明
    C、标签BorderStyle属性值为 1 时标签有边框
    D、标签Appearance属性值为 0 时标签有3D效果

3.7 文本框随堂测验

1、清除文本框Text1中的内容,可以使用( )。
    A、Text1.Cls
    B、Text1.Clear
    C、Text1.Caption=""
    D、Text1.Text=""

2、当焦点进入文本框Text1时,要自动选定文本框中第6到第8个位置上的3个字符,可通过以下( )代码实现。
    A、Text1.SelStart = 6 Text1.SelLength = 3
    B、Text1.SelStart = 5 Text1.SelLength = 3
    C、Text1.SelLength = 6 Text1.SelStart = 4
    D、Text1.SelLength = 8 Text1.SelStart = 6

第3讲 单元测试

1、如果变量a、b、c均为整型,下列程序段的输出结果为( )。 a = 2 b = 3 c = a * b Print a & "*" & b & "=" & c
    A、c=6
    B、a*b=c
    C、2*3=6
    D、a*b=6

2、语句“Print 5\5 * 5”的输出结果是( )。
    A、5
    B、25
    C、0
    D、1

3、以下语句的输出结果是( )。 Print Format$(1234.5, "00,000.00")
    A、1234.5
    B、01,234.50
    C、01,234.5
    D、1,234.50

4、当执行以下过程时,在窗体上将显示( )。 Private Sub Command1_Click() Print "VB" Print "Hello!"; Print "VB" End Sub
    A、VB Hello! VB
    B、VBHello!VB
    C、VB Hello! VB
    D、VB Hello! VB

5、在窗体中添加一个命令按钮Command1,两个文本框Text1和Text2,然后编写如下程序: Private Sub Command1_Click() a = Text1.Text b = Text2.Text C = LCase(a) D = UCase(b) Print C; D End Sub 程序运行后,在文本框Text1和Text2中分别输入AbC和Efg,显示结果是( )。
    A、abcEFG
    B、abcefg
    C、ABCefg
    D、ABCEFG

6、在窗体上添加一个命令按钮Command1和一个文本框Text1,并在命令按钮的Click事件过程中编写如下代码: Private Sub Command1_Click() A = 1.2 C = Len(Str$(A) + Space(10)) Text1.Text = C End Sub 程序运行后,单击命令按钮,在文本框中显示( )。
    A、3
    B、8
    C、14
    D、10

7、InputBox()函数返回值的类型为( )。
    A、数值
    B、字符串
    C、变体
    D、数值或字符串(视输入的数据而定)

8、设有语句: x = InputBox("输入数值", "0", "示例") 程序运行后,在键盘上输入10后按Enter键,下列描述中正确的是( )。
    A、变量x的值是"输入数值"
    B、在InputBox对话框标题栏中显示的是"示例"
    C、0是默认值
    D、变量x的值是字符串"10"

9、在窗体上添加一个命令按钮Command1和一个文本框Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox("Enter an Integer") b = InputBox("Enter an Integer") Text1.Text = b + a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是( )。
    A、108
    B、18
    C、810
    D、出错

10、执行语句“x=MsgBox("数据类型不匹配",1,"出错提示!")”,然后单击消息框中的“取消”按钮,x的值是( )。
    A、True
    B、False
    C、1
    D、2

11、下列语句中正确的是( )。
    A、MsgBox vbOKOnly, "Error"
    B、MsgBox "Error", vbOKOnly
    C、MsgBox(VbOkOnly,"Error")
    D、MsgBox ("Error",VbOkOnly)

12、执行语句“Msgbox "除数不为0",18,"数据出错"”,弹出的消息框中显示的图标是( )。
    A、停止图标
    B、问号图标
    C、感叹号图标
    D、消息图标

13、MsgBox函数返回值的类型为( )。
    A、整型数值
    B、字符串
    C、变体
    D、数值或字符串(视输入的数据而定)

14、下列程序运行过程中,信息框中显示的内容是( )。 Private Sub Command1_Click() MsgBox Str(123 + 123) End Sub
    A、123+123
    B、123
    C、246
    D、显示出错信息

15、命令按钮的Caption属性包含( ),则按Alt+C组合键可激活该按钮。
    A、&C
    B、$C
    C、#C
    D、@C

16、设置命令按钮的( )属性为True,可使按Enter键时,执行该按钮的单击事件过程。
    A、Cancel
    B、Enabled
    C、Value
    D、Default

17、设置命令按钮的( )属性,可使鼠标指针指向该按钮时,显示提示内容。
    A、Caption
    B、ToolTipText
    C、Font
    D、Tag

18、下列叙述中错误的是( )。
    A、单击命令按钮可触发MouseDown事件
    B、单击命令按钮可触发MouseUp事件
    C、命令按钮支持单击事件
    D、命令按钮支持双击事件

19、窗体上有命令按钮“OK”,它的单击事件过程为CmdOK_Click,则该命令按钮的Name和Caption属性分别为( )。
    A、OK、Cmd
    B、Cmd、OK
    C、CmdOK、OK
    D、OK、CmdOK

20、执行( )语句,可使命令按钮上显示“确定”。
    A、Command1.Show = "确定"
    B、Command1.Caption = "确定"
    C、Command1.Name = "确定"
    D、Command1.Visible = "确定"

21、命令按钮不能响应以下( )事件。
    A、DblClick
    B、DragDrop
    C、KeyPress
    D、MouseMove

22、设置标签Label1的( )属性可使它不可见。
    A、Label1.Visible=0
    B、Label1.Visible=1
    C、Label1.Visible=True
    D、Label1.Visible=False

23、设置标签的( )属性可改变其文字的对齐方式。
    A、Jusify
    B、Font
    C、Alignment
    D、以上都不是

24、下列叙述中错误的是( )。
    A、标签和文本框都有Caption属性
    B、标签和文本框的主要区别在于能否编辑其内容
    C、标签具有Autosize属性,而文本框没有
    D、文本框具有StrollBar属性,而标签没有

25、触发文本框Change事件的操作是( )。
    A、改变文本框的内容
    B、改变文本框的大小
    C、文本框获得焦点
    D、文本框失去焦点

26、在文本框的( )属性值设置为True后,设置ScrollBars属性后才可使文本框中出现滚动条。
    A、Text
    B、PasswordChar
    C、Enabled
    D、MultiLine

27、文本框没有( )属性。
    A、Enabled
    B、Visible
    C、BackColor
    D、Caption

28、要使命令按钮显示为图形样式,可设置该按钮的( )。
    A、Style属性值为0,Picture属性选择要显示的图片文件
    B、Style属性值为1,Picture属性选择要显示的图片文件
    C、Style属性值为1,DragIcon属性选择要显示的图片文件
    D、Style属性值为0,DragIcon属性选择要显示的图片文件

29、程序运行时,要使用户的鼠标暂停在命令按钮上出现提示信息,应设置命令按钮的( )属性。
    A、TabStop
    B、Style
    C、DragIcon
    D、ToolTipText

30、当焦点进入文本框Text1时,要自动选定文本框中第3到第8个位置上的6个字符,可通过( )代码实现。
    A、Text1.SelStart = 3 Text1.SelLength = 6
    B、Text1.SelStart = 2 Text1.SelLength = 6
    C、Text1.SelStart = 4 Text1.SelLength = 5
    D、Text1.SelStart = 1 Text1.SelLength = 6

第4讲 选择结构程序设计

4.1 选择结构概述随堂测验

1、下列关于选择结构的叙述错误的是( )。
    A、选择结构就是对给定条件进行判断,并根据判断结果选择执行不同的分支语句。
    B、选择结构中的所有语句都会被执行
    C、根据程序分支的数目,可以将选择结构分为单分支结构、双分支结构和多分支结构。
    D、在Visual Basic中,可以使用If语句和Select Case语句来实现选择结构

4.2 If语句随堂测验

1、执行下列事件过程,y的值为( )。 Private Sub Command1_Click() x = 3 If x > 10 Then y = x ^ 2 + 3 * x + 2 Else If x > 5 Then y = 3 * x + 2 Else y = 5 End If End If End Sub
    A、20
    B、11
    C、5
    D、3

2、If语句的条件表达式只能是关系表达式或逻辑表达式

4.3 Select Case语句随堂测验

1、有如下程序段: Private Sub Command1_Click() x = Val(InputBox("请输入整数x")) Select Case Sgn(x) + 2 Case 1 x = x + 1 Case 2 x = x + 2 Case 3 x = x + 3 End Select End Sub 运行时在弹出的输入框中输入“-5”后,按“确定”按钮,则x的值是( )。
    A、-5
    B、-4
    C、-3
    D、-2

2、下列程序段的执行结果是( )。 Dim x As Integer x = 76 Select Case x Case Is >= 60 Form1.Print "及格" Case Is > 75 Form1.Print "良好" Case Is >= 90 Form1.Print "优秀" Case Else Form1.Print "不及格" End Select
    A、优秀
    B、良好
    C、及格
    D、不及格

4.4 选择结构嵌套随堂测验

1、执行下列事件过程,y的值为( )。 Private Sub Command1_Click() x = 3 If x > 10 Then y = x ^ 2 + 3 * x + 2 Else If x > 5 Then y = 3 * x + 2 Else y = 5 End If End If End Sub
    A、20
    B、11
    C、5
    D、3

2、选择结构的嵌套可以出现交叉。

4.5 单选按钮、复选框和框架随堂测验

1、对于单选按钮和复选框,以下叙述错误的是( )。
    A、Value表示单选按钮的状态时其值为逻辑型
    B、Value表示复选框的状态时其值为整型
    C、Alignment设置为1可以将单选按钮的标题显示在它的左边
    D、两者的Value属性的缺省值都为Unchecked

2、关于框架(Frame)作用,以下说法错误的是( )。
    A、在某控件上画框架,就可将控件置于该框架内
    B、在框架内画控件,才能使控件置于该框架内
    C、框架内单选按钮不受框架外单选按钮的影响
    D、框架内单选按钮中只能被选中一个

第4讲 单元测试

1、在窗体中添加一个命令按钮Command1,并编写如下程序: Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时,单击命令按钮,在InputBox中输入3,然后单击“确定”按钮,程序的运行结果为( )。
    A、3
    B、0.33
    C、17
    D、0.25

2、当Visual Basic执行下面语句后,a的值为( )。 a = 1 If a > 0 Then a = a + 1 If a > 1 Then a = 0
    A、0
    B、1
    C、2
    D、3

3、下列程序的运行结果为( )。 Dim x% If x Then Print x + 1 Else Print x
    A、1
    B、0
    C、True
    D、显示错误信息

4、下列语句中正确的是( )。
    A、If x < 3 * y , x > y Then y = x3
    B、If x < 3 * y And x > y Then y = x *3
    C、If x < 3 * y : x > y Then y = x3
    D、If x < 3 * y And x > y Then y = x* * 3

5、下列程序执行后,变量x的值为( )。 Private Sub command1_click() Dim a, b, c, d As Single Dim x As Single a = 100: b = 20: c = 1000 If b > a Then d = a: a = b: b = d End If If b > c Then x = b ElseIf a > c Then x = c Else x = a End If End Sub
    A、100
    B、20
    C、1000
    D、0

6、下列程序的运行结果为( )。 a = 75 If a > 60 Then i = 1 ElseIf a > 70 Then i = 2 ElseIf a > 80 Then i = 3 ElseIf a > 90 Then i = 4 End If Print "i="; i
    A、i=1
    B、i=2
    C、i=3
    D、i=4

7、在窗体上添加一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = Val(InputBox("请输入分数:", "计算的等级", 60)) If a < 0 Or a > 100 Then Print "输入错误" ElseIf a < 60 Then Print "不合格" ElseIf a < 80 Then Print "合格" Else Print "优秀" End If End Sub 运行时,单击按钮,在输入对话框中直接按Enter键,显示的结果为( )。
    A、输入错误
    B、不合格
    C、合格
    D、优秀

8、以下Case语句中错误的是( )。
    A、Case 0 To 10
    B、Case Is > 10
    C、Case Is > 10 And Is < 50
    D、Case 3, 5, Is > 10

9、有如下程序: Private Sub Command1_Click() xcase = 1 t = InputBox("请输入一个数:") Select Case t Case Is > 0 y = xcase + 1 Case Is = 0 y = xcase + 2 Case Else y = xcase + 3 End Select Print xcase; y End Sub 程序运行时,在对话框中输入-1,则显示的结果为( )。
    A、1 4
    B、1 3
    C、1 2
    D、1 1

10、下列程序段的运行结果为( )。 Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select
    A、不及格
    B、良好
    C、及格
    D、优秀

11、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() x = InputBox("Input") Select Case x Case 1, 3 Print "分支 1" Case Is > 4 Print "分支 2" Case Else Print "Else 分支" End Select End Sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )。
    A、分支1
    B、分支2
    C、Else 分支
    D、程序出错

12、下列程序的输入值为5,运行结果为( )。 Private Sub Command1_Click() Dim a As Integer a = InputBox("请输入a的值") Select Case a Case 1 To 4 Print "D" Case 5 To 10 Print "C" Case 11 To 14 Print "B" Case Else Print "A" End Select End Sub
    A、A
    B、B
    C、C
    D、D

13、下列程序的运行结果为( )。 Private Sub Command1_Click() Score = Int(Rnd * 10) + 80 Select Case Score Case ls < 60 a$ = "E" 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

14、在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2,然后编写如下事件过程: Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是( )。
    A、10
    B、20
    C、30
    D、40

15、在窗体中添加一个命令按钮Command1,编写如下代码: Private Sub Command1_Click() x = 6 If x > 6 Then If x = 6 Then Print "a" Else Print "b" End If Else If x < 8 Then Print "c" Else If x = 6 Then Print "d" End If End If End If End Sub 运行后,单击命令按钮,则在窗体上显示的是( )。
    A、a
    B、b
    C、c
    D、d

16、单选按钮被选中时,其Value属性为( )。
    A、1
    B、0
    C、True
    D、False

17、单选按钮不具有的属性为( )。
    A、Name
    B、Checked
    C、Caption
    D、Style

18、下列( )语句使复选框Check1变成灰色。
    A、Check1.Value = 0
    B、Check1.Value =1
    C、Check1.Value = 2
    D、Check1.Style = 0

19、下列( )语句使复选框Check1的标题显示在左边。
    A、Check1.Style = 0
    B、Check1.Alignment = 0
    C、Check1.Style = 1
    D、Check1.Alignment = 1

20、修改( )属性可更改复选框上显示的文字。
    A、Text
    B、Name
    C、Index
    D、Caption

21、Style属性为( )时,单选按钮和复选框以图形方式显示。
    A、0
    B、1
    C、2
    D、3

22、下列没有Caption属性的控件是( )。
    A、文本框
    B、复选框
    C、框架
    D、单选按钮

23、在程序中可以通过复选框和单选按钮的( )属性值来判断它们的当前状态。
    A、Caption
    B、Value
    C、Checked
    D、Selected

24、下列关于选择控件的叙述中错误的是( )。
    A、复选框的Value属性为True时表示被选中
    B、单选按钮的Value属性为False时表示未被选中
    C、单选按钮和复选框都有Value属性,用于表示被选中的情况
    D、单选按钮和复选框都可以像命令按钮那样加入图案背景以增强视觉效果

25、如果将框架的( )属性设置为False,将屏蔽框架内的对象活动。
    A、Caption
    B、Name
    C、Visible
    D、Enabled

26、如果将框架的( )属性设置为False,则框架及框架内的对象运行时不可见。
    A、Caption
    B、Name
    C、Visible
    D、Enabled

27、要使两个单选按钮属于同一个框架,正确的操作是( )。
    A、先添加一个框架,再在框架中添加两个单选按钮
    B、先添加一个框架,然后用双击工具箱上单选按钮的方法添加两个单选按钮
    C、先添加两个单选按钮,再添加框架将单选按钮框起来
    D、其他三种方法都正确

28、下列程序段的执行结果是( )。 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、通过
    D、不通过

29、执行下列事件过程,y的值为( )。 Private Sub Command1_Click() x = 3 If x > 10 Then y = x ^ 2 + 3 * x + 2 Else If x > 5 Then y = 3 * x + 2 Else y = 5 End If End If End Sub
    A、20
    B、11
    C、5
    D、3

第5讲 循环结构程序设计

5.1 循环结构概述随堂测验

1、下列关于循环结构叙述错误的是( )。
    A、循环体是指被重复执行的一组语句
    B、循环结构一般可以分为计数循环和条件循环
    C、For循环语句一般用于循环次数事先可预知的情况
    D、While循环语句只能用于循环次数事先不可预知的情况

5.2 For循环语句随堂测验

1、关于下列For循环语句描述正确的是( )。 For i = 1 To 10 Step 0 Form1.Print i Next i
    A、循环无结束条件
    B、无限次循环
    C、循环体执行11次
    D、循环体执行1次

2、关于Exit For语句的使用说明正确的是( )。
    A、Exit For语句可以退出任何类型的循环
    B、一个循环只能有一个Exit For语句
    C、Exit For表示返回For语句去执行
    D、一个For循环中可以有多条Exit For语句

5.3 While循环语句随堂测验

1、在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() x = 0 While x < 50 x = (x + 2) * (x + 4) n = n + 1 Wend Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时,单击命令按钮,Text1和Text2分别显示( )。
    A、0和0
    B、1和8
    C、2和120
    D、3和15180

2、执行下列程序段后,s的值是( )。 s = 0: k% = 10 While k s = s + 10 k = k / 2 Wend
    A、10
    B、100
    C、50
    D、40

5.4 Do循环语句随堂测验

1、执行下列程序段后,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

2、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是( )。
    A、1 3.4 5.8
    B、1 3 5
    C、1 4 7
    D、无数据输出

5.5 循环结构嵌套随堂测验

1、在窗体上添加一个命令按钮Command1,编写如下事件过程,运行时单击按钮,显示结果为( )。 Private Sub Command1_Click() For i = 1 To 4 For j = 4 To 8 Sum = Sum + 1 Next j Next i Print Sum End Sub
    A、4
    B、8
    C、20
    D、32

2、在窗体上添加一个命令按钮Command1,编写如下事件过程,运行时单击按钮,显示结果为( )。 Private Sub Command1_Click() a = 0 For m = 1 To 3 a = a + 1 b = 0 For j = 1 To 3 a = a + 1 b = b + 2 Next j Next m Print a, b End Sub
    A、6 6
    B、6 18
    C、12 6
    D、12 18

5.6 计时器随堂测验

1、以下有关计时器的叙述中,错误的是( )。
    A、计时器的Interval属性值以毫秒为单位
    B、将计时器的Enabled属性设置为False,会停止计时器的操作
    C、计时器以设定的时间间隔一定会触发Timer事件
    D、程序运行时计时器不可见,所以其位置无关紧要

2、要使计时器控件能正常运行Timer事件过程,应具备的两个条件是( )。
    A、Enabled属性为True和Interval属性为0
    B、Enabled属性为True和Interval属性大于0
    C、Enabled属性为False和Interval属性为0
    D、Enabled属性为False和Interval属性大于0

5.7 滚动条随堂测验

1、拖动滚动条滑块可触发滚动条的( )事件。
    A、Change
    B、Scroll
    C、DragOver
    D、ItemCheck

2、使用滚动条控件的时候,以下说法错误的是( )。
    A、使用Min和Max属性来定义滚动的范围
    B、滚动条控件具有Scroll和Change事件
    C、Value属性表示滑块所处位置代表的值
    D、Min属性支持的最小值为0

第5讲 单元测试

1、运行下列程序,单击窗体后显示结果为( )。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub
    A、31 31 4 31
    B、31 31 32 32
    C、4 31 5 32
    D、32 32 5 32

2、如果整型变量a、b的值分别为3和1,则下列语句中循环体的执行次数是( )。 For i = a To b Print i Next i
    A、0
    B、1
    C、2
    D、3

3、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。
    A、15
    B、18
    C、21
    D、24

4、设有如下程序段: x = 2 For i = 1 To 10 Step 2 x = x + i Next 运行以上程序后,x的值是( )。
    A、36
    B、27
    C、38
    D、57

5、在窗体上添加一个文本框Text1和一个命令按钮Command1,然后编写如下事件 过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Text1.Text = Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。
    A、2
    B、3
    C、4
    D、5

6、下列程序段的执行结果为( )。 x = 6 For k = 1 To 10 Step -2 x = x + k Next k Print k; x
    A、-1 6
    B、-1 16
    C、1 6
    D、11 31

7、执行下列程序段后,x的值为( )。 Dim x As Integer, i As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \ 5 Next i
    A、16
    B、17
    C、18
    D、19

8、在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x) End Sub 运行时,单击命令按钮,Text1和Text2分别显示( )。
    A、0和0
    B、1和8
    C、2和120
    D、3和15180

9、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是( )。
    A、1 3.4 5.8
    B、1 3 5
    C、1 4 7
    D、无数据输出

10、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是( )。
    A、7 9
    B、34 0
    C、9 7
    D、死循环

11、下列程序段的执行结果为( )。 i = 4: a = 5 Do i = i + 1 a = a + 3 Loop Until i >= 9 Print i; a
    A、9 20
    B、10 20
    C、10 23
    D、9 23

12、下列代码的运行结果为( )。 Private Sub Command1_Click() x = 1: y = 4 Do Until y >= 4 x = x / y y = y + 1 Loop Print x End Sub
    A、1
    B、4
    C、8
    D、20

13、下列代码的运行结果为( )。 Private Sub Command1_Click() n = 1 Do Until n > 6 Print n; n = n + 2.4 Loop End Sub
    A、1 3.4 5.8
    B、1 3 5
    C、1 4 7
    D、没有数据输出

14、执行下列程序段后,x的值为( )。 x = 0 For i = 1 To 4 For j = 1 To i x = x + 1 Next j, i
    A、6
    B、9
    C、10
    D、16

15、执行下列程序段后,程序的运行结果为( )。 s = 1 For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s; Next i
    A、1 2
    B、2 1
    C、2 2 12
    D、1 2 12

16、执行下列程序段后,i和m的值为( )。 m = 0 For i = 1 To 3 For j = 1 To i m = m + j Next j, i
    A、3 6
    B、3 10
    C、4 6
    D、4 10

17、运行下列程序段,其中语句“n = n + 1”被执行的次数是( )。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next Next
    A、3
    B、6
    C、9
    D、18

18、在窗体上添加一个命令按钮Command1,编写如下事件过程,运行时单击命令按钮,如果在输入对话框中输入3,则在窗体上显示的内容是( )。 Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox("Input") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub
    A、6
    B、10
    C、14
    D、18

19、下列程序代码执行时,内循环执行的次数是( )。 Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i For k = j To 3 s = s + 1 Next k Next j Next i Print s End Sub
    A、3
    B、14
    C、9
    D、21

20、下列程序代码的运行结果为( )。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub
    A、60
    B、50
    C、30
    D、20

21、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。
    A、7
    B、15
    C、157
    D、538

22、在窗体上添加一个命令按钮Command1,并有如下代码,程序执行后,单击命令按钮,显示结果为( )。 Private Sub Command1_Click() k = 0 For j = 1 To 2 For i = 1 To 3 k = i + 1 Next i For i = 1 To 7 k = k + 1 Next i Next j Print k End Sub
    A、10
    B、6
    C、11
    D、16

23、为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是( )。
    A、Visible
    B、Timer
    C、Enabled
    D、Interval

24、在窗体上添加一个计时器控件Timer,要求每隔0.5s发生一次计时事件,则以下正确的属性设置语句是( )。
    A、Timer.Interval = 0.5
    B、Timer.Interval = 5
    C、Timer.Interval = 50
    D、Timer.Interval =500

25、计时器控件以一定时间间隔触发( )事件。
    A、Enabled
    B、Interval
    C、Click
    D、Timer

26、下列叙述错误的是( )。
    A、计时器的Enabled属性为False时,会暂停计时器的计时操作
    B、运行时计时器不可见,所以其位置和大小无关紧要
    C、触发计时器Timer事件的时间间隔可设定
    D、计时器的Interval属性以秒(s)为单位

27、拖动滚动条中的滑块将触发滚动条的( )事件。
    A、Slide
    B、Scroll
    C、DragOver
    D、DragDrop

28、单击滚动条两端的箭头按钮可触发滚动条的( )事件。
    A、Change
    B、Scroll
    C、DragOver
    D、DragDrop

29、设置( )属性可以改变单击滚动条两端的箭头按钮时的滚动步长。
    A、Max
    B、Min
    C、LargeChange
    D、SmallChange

30、表示滚动条控件取值范围最大值的属性是( )。
    A、Max
    B、LargeChange
    C、Value
    D、Min

31、关于下列For循环语句描述正确的是( )。 For i = 1 To 10 Step 0 Form1.Print i Next i
    A、循环无结束条件
    B、无限次循环
    C、循环体执行11次
    D、循环体执行1次

32、执行下列程序段后,t的值是( )。 Dim n As Integer, r As Integer, t As String n = 11 Do While n <> 0 r = n Mod 2 n = n \ 2 t = r & t Loop
    A、1001
    B、1100
    C、1011
    D、1010

第7讲 过程

7.2 函数过程随堂测验

1、Function过程需要由函数名返回一个值,如果不使用“As类型”选项来指定函数的类型,函数类型默认为( )类型。
    A、Integer
    B、Variant
    C、Long
    D、String

7.3 子过程随堂测验

1、子过程和函数过程最根本的区别是( )。
    A、两种过程参数传递方式不同
    B、两种过程分别用于实现不同的程序功能
    C、子过程不能返回值,而函数过程可以返回值
    D、函数过程可以没有形参,而子过程不能没有形参

7.4 参数传递随堂测验

1、在过程定义中,若形参采用值传递的方式,则应在形参前加的关键字是( )。
    A、Var
    B、ByRef
    C、ByVal
    D、Value

2、下列关于参数和参数传递,错误的说法是( )。
    A、形参没有具体的值,只代表了参数的个数、位置、类型。
    B、在参数传递中,按实参的位置次序与形参的位置次序对应传送,与参数名没有关系。
    C、参数传递的作用是主调过程和被调过程之间的数据交互。
    D、在参数传递时,实参名与形参名相同才能实现数据传递

7.5 过程的嵌套调用随堂测验

1、设有如下程序代码: Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5) End Function Private Function Fj(ByVal n As Integer) As Integer Fj = n + 3 End Function Private Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a) End Sub 程序时单击命令按钮,在窗体上输出的结果为( )。
    A、3
    B、24
    C、5
    D、15

7.6 过程的递归调用随堂测验

1、设有如下程序代码: Private Function Fib(ByVal n As Integer) As Integer If n <= 2 Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End If End Function Private Sub Command1_Click() Dim m As Integer m = 8 Form1.Print Fib(m) End Sub 程序时单击命令按钮,在窗体上输出的结果为( )。
    A、21
    B、8
    C、1
    D、5

7.7 过程与变量的作用域随堂测验

1、列关于过程的作用域的描述中,错误的是( )。
    A、全局过程的作用域为整个应用工程
    B、在某窗体上定义的全局过程,若被其它模块调用,必须在该过程名前加上窗体名称
    C、在不同模块中定义的模块级过程可以同名
    D、在不同模块中定义的全局过程不能同名

2、在窗体模块的通用声明中声明变量时,不能使用的关键字是( )。
    A、Dim
    B、Private
    C、Public
    D、Static

第7讲 单元测试

1、Sub过程和Function过程最根本的区别是( )。
    A、两种过程参数传递方式不同
    B、两种过程分别用于实现不同的程序功能
    C、Sub过程不能返回值,而Function过程可以返回值
    D、Function过程可以没有形参,而Sub过程不能没有形参

2、Function过程需要由函数名返回一个值,如果不使用“As类型”选项来指定函数的类型,函数类型默认为( )类型。
    A、Integer
    B、Variant
    C、Long
    D、String

3、在声明一个函数时不可能用到的关键字是( )。
    A、Exit
    B、As
    C、Sub
    D、End

4、在过程定义中用( )表示形参的传值。
    A、Var
    B、ByRef
    C、ByVal
    D、ByValue

5、以下关于函数过程的叙述中,正确的是( )。
    A、函数过程形参的类型与函数返回值的类型没有关系
    B、在函数过程中,通过函数名可以返回多个值
    C、在定义函数过程中使用的参数,称为实参
    D、如果不指明函数过程参数的类型,则该参数没有数据类型

6、要从子过程调用后返回两个结果,下列关于Sub过程语句定义正确的是( )。
    A、Sub f(ByVal n%, ByVal m%)
    B、Sub f(n%, ByVal m%)
    C、Sub f(ByVal n%, m%)
    D、Sub f(n%, m%)

7、在过程调用中,参数的传递可以分为( )和按地址传递两种方式。
    A、按值传递
    B、指名传递
    C、按参数传递
    D、按位置传递

8、下列子过程的定义语句中,正确的是( )。
    A、Sub mySub(ByRef n%) As Integer
    B、Sub mySub%(ByVal n As Integer)
    C、Dim mySub as Sub(n%)
    D、Sub mySub(ByVal n%)

9、定义通用过程:Sub f(x As String, y As String, z As String) ,再设a、b、c为字符型变量,则调用该过程的正确语句为( )。
    A、Call f
    B、Call f(a,b)
    C、f(a,b,c)
    D、f a, b, c

10、若已经编写一个Sort子过程,在该工程中有多个窗体,为了方便调用Sort子程序,应该将子过程放在( )中
    A、窗体模块
    B、类模块
    C、工程
    D、标准模块

11、下列程序运行的结果为( )。 Public Sub f(n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 12: y = 34 Call f(x, y) Print x, y End Sub
    A、2 34
    B、12 34
    C、2 3
    D、12 3

12、单击命令按钮时,下列程序代码的运行结果为( )。 Public Sub Procl(ByVal n As Integer, m As Integer) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 23 y = 65 Call Procl(x, y) Print x; y End Sub
    A、3 65
    B、23 6
    C、3 60
    D、0 65

13、单击窗体时,下列程序代码的运行结果为( )。 Private Sub Test(x As Integer) x = x * 2 + 1 If x < 6 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub Private Sub Form_Click() Test 2 End Sub
    A、5 11
    B、23 47
    C、10 22
    D、23 23

14、在窗体上添加一个命令按钮Command1,然后编写如下程序: Function Func(ByVal x As Integer, y As Integer) y = y * x If y > 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 4 c = Func(a, b) Print a; b; c End Sub 程序运行后,单击命令按钮,其显示结果为( )。
    A、3 4 12
    B、3 4 3
    C、3 12 3
    D、3 12 12

15、在窗体上添加一个命令按钮Command1,编写代码如下: Function f(x As Integer) x = x + 3 f = x End Function Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To 10 a(i) = 8 + i Next x = 2 Print a(f(x) + x) End Sub 程序运行后,单击命令按钮,显示结果为( )。
    A、12
    B、15
    C、17
    D、18

16、在Visual Basic应用程序中( )。
    A、过程的定义可以嵌套,但过程的调用不能嵌套
    B、过程的定义不可以嵌套,但过程的调用可以嵌套
    C、过程的定义和过程的调用均可以嵌套
    D、过程的定义和过程的调用均不能嵌套

17、设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
    A、10 5
    B、20 5
    C、20 40
    D、10 40

18、设有如下程序代码: Private Function Fib(ByVal n As Integer) As Integer If n <= 2 Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End If End Function Private Sub Command1_Click() Dim m As Integer m = 8 Form1.Print Fib(m) End Sub 程序时单击命令按钮,在窗体上输出的结果为( )
    A、21
    B、8
    C、1
    D、5

19、下列关于过程的作用域的描述中,错误的是( )。
    A、全局过程的作用域为整个应用工程
    B、在某窗体上定义的全局过程,若被其它模块调用,必须在该过程名前加上窗体名称
    C、在不同模块中定义的模块级过程可以同名
    D、在不同模块中定义的全局过程不能同名

20、设有如下程序代码: Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5) End Function Private Function Fj(ByVal n As Integer) As Integer Fj = n + 3 End Function Private Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a) End Sub 程序时单击命令按钮,在窗体上输出的结果为( )。
    A、3
    B、24
    C、5
    D、15

第6讲 数组

6.1 数组概述随堂测验

1、关于Visual Basic数组的叙述不正确的是( )。
    A、静态数组通常用于存储个数范围可以确定的数据
    B、动态数组常用于存储数据类型不断变化的数据
    C、数组可以分为一维数组、二维数组和多维数组
    D、根据数组元素数目是否可变,可将数组分为动态数组和静态数组

6.2 一维数组随堂测验

1、以下不能声明静态数组的语句是( )。
    A、Dim A(10)
    B、Dim A(10) As Integer
    C、Dim A(1 To 10) As Integer
    D、Dim A

2、若有数组声明语句:Dim t(1 To 5) As String,则t被定义为( )。
    A、数值数组
    B、逻辑数组
    C、字符串数组
    D、可变类型数组

6.3 二维数组随堂测验

1、有数组声明语句“Dim a(-2 To 2, 5)”,则数组包含元素个数为( )。
    A、120
    B、30
    C、60
    D、20

2、在通用声明中给出Option Base 1语句,有定义语句“Dim a(3, -2 To 1, 5)”,则数组a包括( )元素。
    A、120
    B、75
    C、60
    D、13

6.4 动态数组随堂测验

1、能使动态数组SA(5)元素个数加1,且保留原有数组中元素内容的语句是( )。
    A、ReDim SA(6)
    B、ReDim Preserve SA(6)
    C、Static SA(6)
    D、Array SA(6)

2、下面的( )语句可以正确地声明一个动态数组。
    A、Dim A() As Integer
    B、Private A(n) As Integer
    C、ReDim A() As Integer
    D、Dim A(0 To 5) As Integer

6.5 控件数组随堂测验

1、假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是( )。
    A、数组中每个命令按钮的名称均为Command1
    B、数组中每个命令按钮的所有属性值都相同
    C、数组中所有命令按钮可以使用同一个事件过程
    D、可用Index属性值区别数组中每一个命令按钮

2、以下关于控件数组的描述中,正确的是( )。
    A、同一控件数组中的控件名称不同
    B、同一控件数组中的控件所有属性值都相同
    C、同一控件数组中的控件其Index属性值不同
    D、同一控件数组中的控件类型可以不同

6.6 列表框和组合框随堂测验

1、引用列表框List1的最后一个数据项应使用( )。
    A、List1.List(List1.ListCount)
    B、List1.List(List1.ListCount-1)
    C、List1.List(ListCount)
    D、List1.List(ListCount-1)

2、下列说法错误的是( )。
    A、组合框的Style属性值为2,该组合框为下拉式列表框样式
    B、组合框的Style属性值为0,该组合框为简单组合框样式
    C、列表框的MultiSelect的属性为0,该列表框中不允许多项选择
    D、列表框的MultiSelect的属性为1,该列表框中允许多项选择

第6讲 单元测试

1、关于Visual Basic数组的叙述不正确的是( )。
    A、静态数组通常用于存储个数范围可以确定的数据
    B、动态数组常用于存储数据类型不断变化的数据
    C、在设计数组时,其数组元素类型可以是数值类型、字符串类型或用户定义的类型
    D、动态数组可以用Array(数据1,数据2,…,数据n)对其进行初始化

2、下列程序段中包括一个错误,出错的原因( )。 x = 4 Dim a(x) For m = 4 To 0 Step -1 a(m) = m + 1 Next m
    A、第四行,数组元素a(m)下标越界
    B、第四行,不能用循环变量m进行运算
    C、第二行,不能用变量定义数组的下标
    D、以上原因都不对

3、下列程序的运行结果为( )。 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next i End Sub
    A、123456
    B、6
    C、1 2 3 4 5 6
    D、0

4、以下程序的运行结果为( )。 Option Base 1 Private Sub command1_click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub
    A、33
    B、28
    C、35
    D、37

5、在窗体上添加一个命令按钮Command1,然后编写如下代码: Option Base 1 Private Sub Command1_click() Dim arr(4) As Integer Dim arr1(4) As Integer n = 3 For i = 1 To 4 arr(i) = i arr1(n) = 2 * n + i Next i Print arr1(n); arr(n) End Sub 程序的运行结果为( )。
    A、3 11
    B、11 3
    C、10 3
    D、3 13

6、在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim m(10) As Integer, n(10) As Integer i = 3 For t = 1 To 5 m(t) = t n(i) = 2 * i + t Next t Print n(i); m(i) End Sub 窗体运行后,单击命令按钮,显示结果为( )。
    A、3 11
    B、3 15
    C、11 3
    D、15 3

7、下列程序段的运行结果为( )。 Dim m(10) For i = 0 To 9 m(i) = 2 * i Next i Print m(m(3))
    A、12
    B、6
    C、0
    D、4

8、有数组声明语句“Dim a(-2 To 2, 5)”,则数组包含元素个数为( )。
    A、120
    B、30
    C、60
    D、20

9、在通用声明中给出Option Base 1语句,有定义语句“Dim a(3, -2 To 1, 5)”,则数组a包括( )元素。
    A、120
    B、75
    C、60
    D、13

10、在窗体上添加一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的内容是( )。
    A、1 2 3 2 4 6 3 6 9
    B、2 3 4 3 4 5 4 5 6
    C、1 4 7 2 5 8 3 6 9
    D、1 2 3 4 5 6 7 8 9

11、下列程序的运行结果为( )。 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = i * j Next j Next i For n = 1 To 2 For m = 1 To 3 Print a(m, n); " "; Next m Next n End Sub
    A、2 4 6 1 2 3
    B、1 2 3 2 4 6
    C、1 2 3 4 5 6
    D、6 5 4 3 2 1

12、在窗体上面添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后,单击命令按钮,在窗体上输出的内容是( )。
    A、6 6
    B、10 5
    C、7 21
    D、6 12

13、能使数组元素个数加1,但保留数组中原有元素的语句是( )。
    A、ReDim arr(7)
    B、ReDim Preserve arr(7)
    C、Public arr(1 To 7)
    D、Static arr(7)

14、阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后,单击窗体,显示的结果为( )。
    A、21
    B、13
    C、8
    D、25

15、设窗体上有一个列表框控件List1,且其中含有若干列表项,则以下能表示当前被选中的列表项内容的是( )。
    A、List1.List
    B、List1.ListIndex
    C、List1.Index
    D、List1.Text

16、执行了下面的程序后,列表框中的数据项有( )。 Private Sub Form_Click() For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub
    A、1,5,6
    B、2,4,6
    C、4,5,6
    D、1,3,5

17、如果列表框List1中没有选定的项目,则执行语句“List1.RemoveItem List1. ListIndex”的结果是( )。
    A、移去第一项
    B、移去最后一项
    C、移去最后加入列表中的一项
    D、其他都不对

18、列表框的MultiSelect属性设置为( )后,可用Shift键或Ctrl键配合鼠标在列表框中进行多项选择。
    A、无
    B、0
    C、1
    D、2

19、使用( )语句将“北京奥运”添加到列表框List1的首项。
    A、List1.Text= "北京奥运"
    B、List1.AddItem "北京奥运"
    C、List1.List(0)= "北京奥运"
    D、List1.AddItem "北京奥运",0

20、使用( )方法可以删除指定的项目。
    A、Cls
    B、Clear
    C、Remove
    D、RemoveItem

21、设组合框Combo1中有3个项目,则以下能删除最后一项的语句是( )。
    A、Combo1.RemoveItem Text
    B、Combo1.RemoveItem 2
    C、Combo1.RemoveItem
    D、Combo1.RemoveItem Combo1.ListCount

22、能输出组合框Combo1中现有项目数的语句是( )。
    A、Print Combo1.ListIndex
    B、Print Combo1.Index
    C、Print Combo1.Count
    D、Print Combo1.ListCout

23、使用( )语句将组合框Combo1的第三项设为当前项。
    A、Combo1.ListIndex=3
    B、Combo1.Index=3
    C、Combo1.ListIndex=2
    D、Combo1.Index=2

24、组合框Combo1中有三个项目,使用( )语句可以删除Combo1中选定的项目。
    A、Combo1.RemoveItem Combo1.ListIndex
    B、Combo1.RemoveItem Combo1.List(Index)
    C、Combo1.RemoveItem Combo1.List(ListIndex)
    D、Combo1.RemoveItem Combo1.Text

第9讲 文件

9.1 文件概述随堂测验

1、下列关于顺序文件的叙述正确的是( )。
    A、所有记录的长度不必相同
    B、可以随机读取文件中的记录
    C、不可使用文本编辑软件编辑
    D、文件中记录按关键字顺序存放

2、下列关于随机文件的描述,错误的是( )。
    A、每条记录的长度不一定相同
    B、可以通过编程对文件中的某条记录进行修改
    C、随机文件中的每条记录有一个记录号
    D、随机文件的组织结构比顺序文件复杂

9.2 顺序文件随堂测验

1、设有语句Open "file.txt" For Output As #2,以下叙述错误的是( )。
    A、该语句以文件号2打开当前目录下文件file.txt
    B、该语句打开当前目录下一个已存在的文件file.txt,进行读操作
    C、该语句可以在当前目录下创建一个名为file.txt的文件
    D、执行该语句后可以向当前目录下文件file.txt中写入信息

2、打开在D盘根目录下一个名为AA.txt的顺序文件进行追加写入,应使用( )语句。
    A、Open "D:\AA.txt" For Input As #1
    B、Open "D:\AA.txt" For Output As #1
    C、Open "D:\AA.txt" For Append As #1
    D、Open "AA.txt" For Output Write As #1

9.3 文件系统控件随堂测验

1、要在文件列表框File1中显示所有扩展名为“.jpg”和“.bmp”的文件,应使用语句( )。
    A、File1.Path = "*.jpg,*.bmp"
    B、File1.Path = "*.jpg;*.bmp"
    C、File1.Pattern = "*.jpg;*.bmp"
    D、File1.Pattern = "*.jpg,*.bmp"

2、使用目录列表框的( )属性可以返回或设置当前工作目录的完整路径。
    A、Work
    B、Drive
    C、WorkPath
    D、Path

期末在线考试

选择题试卷

1、窗体文件的扩展名是( )。
    A、frm
    B、vbp
    C、bas
    D、exe

2、下列可以作为合法变量名的是( )。
    A、a-b
    B、int_a
    C、10xy
    D、Integer

3、表达式 5 < 9 \ 2 ^ 3 Or 7 <> 4 的值是( )。
    A、1
    B、0
    C、False
    D、True

4、表达式Len(Str(-57.6)) 的值为( )。
    A、4
    B、5
    C、6
    D、7

5、下列关于Visual Basic编码规则的叙述中,错误的是( )。
    A、一条语句可以分为多行书写
    B、在同一行可以书写多条语句
    C、可以用Rem或'注释单行语句
    D、程序代码中变量名SUM和sum是不同的

6、执行语句 i=Inputbox ("请输入你的年龄:", "年龄输入", "20") ,程序运行,直接单击回车键,则i的值为( )。
    A、"20"
    B、"请输入你的年龄:"
    C、"年龄输入"
    D、20

7、以下关于窗体的叙述错误的是( )。
    A、Name属性不能在程序运行中改变
    B、ControlBox属性用于设置窗体是否有控制菜单
    C、ForeColor属性用于设置窗体上输出文字的字体颜色
    D、用Hide方法将从内存中清除该窗体

8、为了使标签大小随着标题的长度自动调整,需设置标签的( )。
    A、Autosize属性为True
    B、Stretch属性为True
    C、Autosize属性为False
    D、Stretch属性为False

9、以下叙述中,错误的是( )。
    A、PictureBox控件中的图片文件可以使用LoadPicture函数装入
    B、PictureBox控件中的图片文件可以使用LoadPicture函数卸载
    C、PictureBox控件支持图形方法绘图,而Image控件不支持
    D、PictureBox控件和Image控件均具有AutoSize属性

10、设置复选框标题文字对齐方式的属性是( )。
    A、Align
    B、Style
    C、Sorted
    D、Alignment

11、为了在按下ESC键时执行某个命令按钮的单击事件,需要把该命令按钮的( )属性设置为True。
    A、Value
    B、Default
    C、Enabled
    D、Cancel

12、列表框中的列表项的总数可以通过( )属性获得。
    A、Count
    B、ListCount
    C、ListIndex
    D、Index

13、以下关于框架的叙述正确的是( )。
    A、在框架中添加控件,可以通过鼠标双击的方法完成
    B、当框架的Enabled属性设置为False时,不影响其内部所有控件的使用
    C、当框架的Visible属性设置为False时,其内部所有控件也不可见
    D、框架不能响应任何事件

14、若要将焦点移动到控件上,可以调用该控件方法来实现的是( )。
    A、GotFocus
    B、LostFocus
    C、SetFocus
    D、GetFocus

15、下列程序段的执行结果是( )。 Dim x As Integer x = 4 Select Case x Case Is >= 3 Form1.Print "通过" Case 5 Form1.Print "优秀" Case 4 Form1.Print "良好" Case Else Form1.Print "不通过" End Select
    A、优秀
    B、良好
    C、通过
    D、不通过

16、执行下面程序段后,s的值为( )。 Dim i As Integer, j As Integer, s As Integer For i = 1 To 5 For j = 2 To i s = s + j Next j Next i
    A、70
    B、40
    C、30
    D、10

17、在窗体上添加一个命令按钮,名称为Command1,编写如下事件过程: Private Sub Command1_Click() Dim arr arr = Array("武汉", "温州", "吉林", "哈尔滨", "北京") Print arr(2) End Sub 运行时,单击命令按钮后输出的结果是( )。
    A、温州
    B、吉林
    C、哈尔滨
    D、北京

18、运行以下程序,单击窗体后输出的是( )。 Private Sub s(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 3 y = 4 z = 5 Call s(x, y, z) Form1.Print z End Sub
    A、7
    B、8
    C、9
    D、12

19、设有菜单项MnuFont,运行时若要按下Alt+F键就可以访问该菜单,可以通过下列设置来实现的是( )。
    A、在菜单编辑器属性区的“名称(Name)”属性中输入Alt+F
    B、在菜单编辑器属性区的“快捷键”属性中选择Alt+F
    C、在菜单编辑器属性区的“名称(Name)”属性中输入&F
    D、在菜单编辑器属性区的“标题(Caption)”属性中输入&F

20、下列关于文件的叙述中,正确的是( )。
    A、二进制文件的读操作应使用Put语句实现
    B、顺序文件的写操作应使用Put语句实现
    C、使用Open语句打开一个随机文件,必须指定文件的访问方式
    D、随机文件中每个记录的长度必须相同

程序题试卷

1、