《VBA模块习题》由会员分享，可在线阅读，更多相关《VBA模块习题（60页珍藏版）》请在金锄头文库上搜索。
1、Ch8模块习题 目录 基本概念模块面向对象程序设计编程基础数据类型常量 变量 运算符与表达式 函数数组流程控制顺序结构分支结构循环结构过程数据库编程 基本概念 模块 模块 标准模块 类模块 宏 VBA代码容器 实现复杂数据库应用 声明 过程 在下列关于宏和模块的叙述中 正确的是 A模块是能够被程序调用的函数B通过定义宏可以选择或更新数据C宏或模块都不能是窗体或报表上的事件代码D宏可以是独立的数据库对象 可以提供独立的操作动作能被 对象所识别的动作 和 对象可执行的活动 分别称为对象的 A方法和事件B事件和方法C事件和属性D过程和方法 基本概念 面向对象程序设计 对象 属性 静态特征 方法 动态
2、特征 事件 静态赋值 属性窗口 动态赋值 代码 对象可执行的活动 对象所识别的动作 窗体上添加有3个命令按钮 分别命名为command1 command2 command3 编写command1的单击事件过程 完成的功能为 当单击command1时 按钮command2可用 按钮command3不可见 以下正确的是 APrivateSubcommand1 Click command2 Visible Truecommand3 Visible FalseEndSubCPrivateSubcommand1 Click command2 Enabled Truecommand3 Visible Fa
3、lseEndSub BPrivateSubcommand1 Click command2 Enabled Truecommand3 Enabled FalseEndSubDPrivateSubcommand1 Click command2 Visible Truecommand3 Enabled FalseEndSub 假定窗体的名称为frmTest 则把窗体的标题设置为 AccessTest 的语句是 AMe AccessTest BMe Caption AccessTest CMe text AccessTest DMe Name AccessTest Access的控件对象可以设置某个属
4、性来控制对象是否可用 不可用时显示为灰色状态 需要设置的属性是 ADefaultBCancelCEnabledDVisible 在窗体中有一个标签Label0 标题为 测试进行中 有一个命令按钮Command1 事件代码如下 PrivateSubCommand Click Label0 Caption 标签 EndSubPrivateSubForm Load Form Caption 举例 Command1 Caption 移动 EndSub打开窗体后单击命令按钮 屏幕显示 发生在控件接受焦点之前的事件是 AEnterBExitCGotFocusDLostFocus 窗体打开时事件发生的顺序
5、Open Load Resize窗体关闭时事件发生的顺序 DeActive Unload Close 编程基础 数据类型 数据类型 基本 自定义 Byte String Integer Long Single Double Date Currency Object Variant Boolean Type类型名元素名as类型 EndType Dim变量名as类型名变量名 元素名 值或With类型名 元素名 值 EndWith 在VBA中 如果没有显示声明或用符号来定义变量的数据类型 变量的默认数据类型为 ABooleanBIntCStringDVariant下列数据类型中 不属于VBA的是 A
6、长整型B布尔型C变体型D指针型 如下程序定义了学生成绩的记录类型 由学号 姓名和3门课程成绩 百分制 组成 TypeStudnoAsIntegernameAsStringscore 1to3 AsSingleEndType若对某个学生的各个数据项进行赋值 下列程序段中正确的是 ADimSAsStudBDimSAsstudStud no 1001S no 1001Stud name 舒逸 S name 舒逸 Stud score 78 88 96S score 78 88 96CDimSAsStudDDimSAsstudStud no 1001S no 1001Stud name 舒逸 S na
7、me 舒逸 Stud score 1 78S score 1 78Stud score 2 88S score 2 88Stud score 3 96S score 3 96 编程基础 常量 常量 数值常量 符号常量 字符常量 日期常量 系统常量 固有常量 True 1False0Null 编程基础 变量 变量 局部变量 全局变量 模块变量 PrivateSubVa1 过程结束变量丢弃Dimaasinteger 过程所在模块内保留变量值StaticbasintegerEndSub 模块内所有过程可用 在模块顶部声明部分DimaasintegerPrivatebasstring 所有有模块可用
8、在模块顶部声明部分Publicbasstring 编程基础 运算符与表达式 编程基础 函数P47 算数函数 Fix N 返回整数部分 若N为负数 大于等于参数值的第一个负数Sqr N 求N的平方根Rnd N 产生 0 1 的随机数 类型转换函数 Str N 数字转化成字符串 并在前面加一个空格来表示正负Val N 字符串转化成数字 字符串函数 Mid N1 N2 N3 Right N Left N Len N 求字符串N的长度Space N 返回N个空格字符 数据表函数 Dlookup N1 N2 N3 输入输出函数 InputBox N1 N2 N3 N4 N5 MsgBox N1 N2 N
9、3 在窗体中添加一个命令按钮command1 然后编写如下代码 PrivateSubcommand1 Click a 0 b 5 c 6MsgBoxa b cEndSub窗体打开后运行 如果单击命令按钮 则消息框的输出结果为 A11Ba 11C0DFalse 表达式Fix 3 25 和Fix 3 25 的结果分别是 A 3 3B 4 3C 3 4D 4 4能够实现从指定记录集中检索字段值的函数是 ADCountBDlookupCDMaxDDSun以下程序段运行后 消息框的输出结果是 a sqr 3 b sqr 2 c a bMsgBoxc 2A 1B1C2D出错 用于获得字符串Str从第2个字
10、符开始的3个字符的函数是 AMid Str 2 3 BMiddle Str 2 3 CRight Str 2 3 DLeft Str 2 3 在语句s Int 100 Rnd 执行完毕后 s的值是 A 0 99 的随机整数B 0 100 的随机整数C 1 99 的随机整数D 1 100 的随机整数InputBox函数的返回值类型是 A数值B字符串C变体D数值或字符串 视输入的数据而定 在窗体中有一个标签Lb1和一个命令按钮command1 代码如下 DimaasString 10PrivateSubcommand1 Click a 1234 b len a Me Lb1 Caption bEn
11、dSub打开窗体后单击命令按钮 窗体中显示的内容是 A4B5C10D40 运行下列程序段 M 2 17N len str m space 5 则N的值是 A5B8C9D10 执行语句MsgBox AAAA vbOKCancel vbQuestion BBBB 之后 弹出的信息框外观样式是 ABCD 下列逻辑表达式中 能正确表示条件 x和y都是奇数 的是 AxMod2 1OryMod2 1BxMod2 0OryMod2 0CxMod2 1AndyMod2 1DxMod2 0AndyMod2 0 以下关于VBA运算符优先级比较 正确的是 A算数运算符 逻辑运算符 比较运算符B逻辑运算符 比较运算符
12、 算数运算符C算数运算符 比较运算符 逻辑运算符D以上均是错误的VBA表达式3 3 3 3的输出结果是 A0B1C3D9以下可以得到 2 5 10 结果的VBA表达式为 A 2 5 2 5B 2 5 2 5C2 5 2 5D2 5 2 5 在Access中 如果变量定义在模块的过程内部 当程序代码执行时才可见 则这种变量的作用域为 A程序范围B全局范围C模块范围D局部范围 编程基础 数组 数组 一维数组 二维数组 Dim数组名 下标 to上标 As类型 数组名 标号 值 Dim数组名 下标1 to上标n1 下标2 to上标n2 As类型NM共有N M个元素 数组名 标号1 标号2 值 下标默认
13、值为0 用于获得字符串Str从第2个字符开始的3个字符的函数是定义了二维数组A 2to5 5 该数组的元素个数为 A20B24C25D36下列数组声明语句中 正确的是 ADimA 3 4 AsIntegerBDimA 3 4 AsIntegerCDimA 3 4 AsIntegerDDimA 3 4 AsInteger语句DimNewArray 10 AsInteger的含义是 A定义了一个整型变量且初值为10B定义了10个整数构成的数组C定义了11个整数构成的数组D将数组的第10个元素设置为整型 流程控制 顺序结构 分支结构 循环结构 VBA程序的多条语句可以写在一行中 其分隔符必须使用符号
14、 A B C D 在Access中 如果要处理具有复杂条件或循环结构的操作 则应该使用的对象是 A窗体B模块C宏D报表 流程控制 分支结构 If条件1Then语句块1ElseIf条件2Then语句块2 Else语句块N EndIf SelectCase表达式Case值1语句块1Case值2语句块2 CaseElse语句块nEndSelect IIF 条件 语句块1 语句块2 Switch 条件1 语句1 条件2 语句2 Choose 表达式 值1 值2 条件1 语句1 语句1 语句N 条件2 Yes No Yes No 在窗体上添加一个命令按钮command1 代码如下 PrivateSubc
15、ommand1 Click A 75IfA 60ThenI 1IfA 70ThenI 2IfA 80ThenI 3IfA 90ThenI 4MsgBoxIEndSub打开窗体后单击命令按钮 消息框的输出结果是 A1B2C3D4 PrivateSubcommand1 Click A 75IfA 60ThenI 1ElseIfA 70ThenI 2ElseIfA 80ThenI 3ElseIfA 90ThenI 4EndIfMsgBoxIEndSubI 1 在窗体上添加一个文本框Text1 代码如下 PrivateSubForm Click x Val InputBox 请输入x的值 y 1ifx
16、0theny 2text1 value yEndSub打开窗体后在输入框中输入12 text1的输出结果是 A1B2C3D4下列Case语句中错误的是 ACase0To10BCaseIs 10CCaseIs 10AndIs10 流程控制 循环结构1 For循环变量 初值to终值 Step步长 循环体Next 循环条件 语句 循环体 No Yes DoWhile循环条件循环体Loop DoUntil循环条件循环体Loop 循环条件 语句 循环体 No Yes While循环条件循环体Wend 流程控制 循环结构 循环条件 语句 循环体 No Yes Do循环体LoopWhile循环条件 Do循环体LoopUntil循环条件 循环条件 语句 循环体 Yes No 不论条件是否为真 至少执行一次循环体 在窗体上添加一个命令按钮command1 代码如下 PrivateSubcommand1 Click fori 1to4x 4forj 1to3x 3fork 1to2x x 6nextknextjnextIMsgBoxxEndSub打开窗体后单击命令按钮 消息框的输出结果是 A7B15C15
