（中职）Access2010数据库案例教程第7章 VBA编程基础习题+答案.doc

《（中职）Access2010数据库案例教程第7章 VBA编程基础习题+答案.doc》由会员分享，可在线阅读，更多相关《（中职）Access2010数据库案例教程第7章 VBA编程基础习题+答案.doc（27页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、（中职）Access2010数据库案例教程第7章 VBA编程基础习题+答案第7章 VBA编程基础一、 选择题1、 能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的（ ）。A：方法和事件 B：事件和方法C：事件和属性 D：过程和方法2、 下列数据类型中，不属于VBA的是（ ）。A：长整型 B： 布尔型 C： 变体型 D：指针型3、 VBA程序的多条语句可以写在一行中，其分隔符必须使用符号（ ）。A： B： C：； D：，4、 在调试VBA程序时，能自动被检查出来的错误是（ ）。A：语法错误 B：逻辑错误C：运行错误 D：语法错误和逻辑错误5、 如果X是一个正的实数，保留两位小数、将千

2、分位四舍五入的表达式是（ ）。A：0.01*Int(x+0.05) B：0.01*Int(100*(X+0.005) C：0.01*Int(x+0.005) D：0.01*Int(100*(X+0.05)6、 用于获得字符串Str从第2个字符开始的3个字符的函数是（ ）。A：Mid(Str,2,3) B：Middle(Str,2,3)C：Right(Str,2,3) D：Left(Str,2,3)7、 用于获得字符串S最左边4个字符的函数是（ ）。A：Left(S，4) B： Left(S，1，4) C：Leftstr(S，4) D：Leftstr(S，0，4)8、 有如下语句s=Int（10

3、0*Rnd）执行完毕后，s的值是（ ）。A：0，99的随机整数 B：0，100的随机整数C：1，99的随机整数 D：1，100的随机整数9、 VBA表达式3*33/3的输出结果是（ ）。A：0 B：1 C：3 D：910、 下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是（ ）。A：x Mod 2=1 Or y Mod 2=1 B：x Mod 2=0 Or y Mod 2=0C：x Mod 2=1 And y Mod 2=1 D：x Mod 2=0 And y Mod 2=011、 在使用Dim语句定义数组时，在缺省情况下数组下标的下限为（ ）。A：1 B：0 C：任意数 D：系统自定义

4、12、 下列数组声明语句中，正确的是（ ）。A：Dim A3,4 As Integer B：Dim A(3,4) As Integer C：Dim A3;4 As Integer D：Dim A(3;4) As Integer13、 在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为（ ）。A：20 B：24 C：25 D：3614、 窗体Caption属性的作用是（ ）。A：确定窗体的标题 B：确定窗体的名称C：确定窗体的边界类型 D：确定窗体的字体15、 Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示

5、为灰色状态）。需要设置的属性是（ ）。A：Default B：Cancel C：Enabled D：Visible16、 假定窗体的名称为fmTest，则把窗体的标题设置为Access Test的语句是（ ）。A：Me = Access Test B：Me.Caption = Access Test C：Me.Text = Access Test D:Me.Name = Access Test17、 在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1，编写如下两个事件过程：Private Sub Command1_Click()a = Text1.Value + T

6、ext2.ValueMsgBox aEnd SubPrivate Sub Form_Load()Text1.Value = Text2.Value = End Sub程序运行时，在文本框Text1中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为：（ ）。A：165 B：7887 C：8778 D：空18、 在窗体中添加了一个文本框和一个命令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是（ ）。A：Private Sub bComma

7、nd_Click( )Caption=”计算机等级考试”End SubB：Private Sub tText_Click( )bCommand.Caption=”计算机等级考试”End SubC：Private Sub bCommand_ Change( )Caption=”计算机等级考试”End SubD：Private Sub tText _ Change( )bCommand.Caption=”计算机等级考试”End Sub19、 在窗体中有一个文本框Text1，编写事件代码如下：Private Sub Form_Click( )x=val(Inputbox(“输入x的值”)Y=1If

8、x0 Then Y=2Text1.Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（ ）。A： 1 B： 2 C： 3 D：420、 下列Case语句中错误的是（ ）。A：Case 0 to 10 B：Case Is10 C：Case Is10 And Is1021、 在VBA中，错误的循环结构是（ ）。A) Do While 条件式 B) Do Until 条件式 循环体 循环体Loop LoopC) Do Until D) Do 循环体 循环体Loop条件式 Loop While条件式22、 某个窗体已编写以下事件过程。打开窗体运行后，单击

9、窗体，消息框的输出结果为（ ）。Private Sub Form_Click()Dim k As Integer, n As Integer, m As Integern = 10: m = 1: k = 1Do While k = nm = m * 2k = k + 1LoopMsgBox mEnd SubA：20 B：40 C：1024 D：204823、 由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行（ ）。A：0次 B：1次 C：4次 D：5次24、 在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：Private Sub

10、 test_Click()y=0 For i=0 To Me!x y=y+2*i+1 Next i MsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 （ ）。A：9 B：16 C：15 D：2025、 下面VBA程序段运行时，内层循环的循环次数是（ ）。For m=0 to 7 step 3For n=m-1 to m+1Next nNext mA：9 B：6 C：3 D：526、 设有如下过程：x = 1 Do x = x + 2 Loop Until _运行程序，要求循环体执行3次后结束循环，空白处应填的语句是（ ）。A：x=7 B：x=7 D：

11、x727、 在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private Sub Command1_Click() Dim i,j,x For i = 1 To 20 step 2 x = 0For j = i To 20 step 3 x = x + 1 Next j Next i Text1.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。A：1 B：7 C：17 D：40028、 在过程定义中有语句： Private Sub GetData(ByVal data AS Integer)其中，“ByVal”的

12、含义是（ ）。A：传值调用 B：传址调用C：形式参数 D：实际参数29、 要想在过程Froc调用后返回形参x和y的变化结果，下列定义语句中正确的是（ ）。A：Sub Proc(x as Integer,y as Integer)B：Sub Proc(ByVal x as Integer,y as Integer)C：Sub Proc(x as Integer,ByVal y as Integer)D：Sub Proc(ByVal x as Integer,ByVal y as Integer)30、 如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩（百分制）组成。Type Stu

13、dno As Integername As Stringscore（1 to 3） As SingleEnd Type若对某个学生的各个数据项进行赋值，下列程序段中正确的是（ ）。A：Dim S As StudStud.no=1001 Stud.name=舒宜 Stud.score=78,88,96B：Dim S As StudS.no=1001S.name=舒宜S.score=78,88, 96C：Dim S As StudStud.no=1001Stud.name=舒宜Stud.score（1）=78Stud.score（2）=88Stud.score（3）=96D：Dim S As St

14、udS.no=1001S.name=舒宜S.score（1）=78S.score（2）=88S.score（3）=96二、 判断题 1、 （ ）在代码调试时，使用Debug.Print语句显示指定变量结果的窗口是立即窗口。2、 （ ）类模块是包含类的定义的模块，包含其属性和方法的定义。3、 （ ）VBA包含长整型、布尔型、变体型和指针型等数据类型。4、 （ ）Access数据库中的字节（Byte）数值类型在数据库中占1字节。5、 （ ）函数Mid（“学生信息管理系统”，3,2）的结果是信息。6、 （ ）在VBA中要判断一个字段的值是否为Nulll，应该使用的函数是isNull（）。7、 （ ）

15、过程的定义不可以嵌套，但过程的调用可以嵌套。8、 （ ）将一个数转换成相应字符串的函数是String。9、 （ ）由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行1次。10、 （ ）如果在被调用的过程中改变了形参变量的值；但又不能影响实参变量本身，这种参数传递方式成为按值传递。三、 填空题 1、 Access的窗体或报表事件可以有两种方法来响应：宏对象和 。2、 模块包含了一个声明区域和一个或多个子过程（以 开头）或函数过程（以 开头）。3、 表达式3*33/3的结果为 ；表达式3*3/33的结果为 。4、 若窗体名称为Forml，则将该窗体标题设置为“Acces

16、s窗体”的语句是 。5、 说明变量最长用的方法，是使用 结构。6、 在VBA中要判断一个字段的值是否为Null，应该使用的函数是 。7、 VBA中变量作用域分为3个层次，这2个层次是 、 和 。8、 在模块的说明区域中，用 关键字说明的变量是模块范围的变量；而用 或 关键字说明的变量是属于全局范围的变量。9、 要在程序或函数的实例间保留局部变量的值，可以用 关键字代替Dim。10、 On Error Resume Next 语句的含义是 。四、 简答题 1、请描绘出一个循环的执行流程图。 For循环变量=初值To终值Step步长 循环体 Next循环变量2、请写出InputBox(提示信息，标

17、题，默认值，左边距，上边距)语句个组成部分的含义。五、 案例题 考生文件夹下存在一个数据库文件samp3.mdb，里面已经设计好表对象tUser，同时还设计出窗体对象fEdit和fUser。请在此基础上按照以下要求补充fEdit窗体的设计： （1）将窗体中名称为lRemark的标签控件上的文字颜色改为棕色（棕色代码为128）、字体粗细改为加粗。 （2）将窗体边框改为对话框边框样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；将窗体标题设置为修改用户口令。 （3）将窗体中名称为tPass和tEnter文本框中的内容以密码方式显示。 （4）按如下控件顺序设置Tab键次序：CmdEd

18、ittUser_1tRemark_1tPasstEnterCmdSavecmdquit窗体右侧列表（标题是修改系统用户）。 （5）按照以下窗体功能，补充事件代码设计。窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有修改、保存和退出三个命令按钮，名称分别为CmdEdit、CmdSave和cmdquit。当单击修改按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时保存按钮变为可用；在口令和确认口令文本框中输入口令信息后，单击保存按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将保存命令按钮变为不可用，

19、再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为请重新输入口令！，提示框中只有一个确定按钮。单击窗体上的退出按钮，关闭当前窗体。 注意：不允许修改窗体对象fEdit和fUser中未涉及的控件、属性和任何VBA代码；不允许修改表对象tUser。只允许在*Add*与*Add*之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。第1章*习题解析与答案一、 选择题1、 能被“对象所识别的动作”和“对象可执行的活动”分别称为对象的（ B ）。A：方法和事件 B：事件和方法C：事件和属性 D：过程和方法解析：

20、事件是Access窗体或报表及其上的控件等对象可以“辨识”的动作：方法描述了对象的行为。关键字：动作、活动、事件、属性、过程2、 下列数据类型中，不属于VBA的是（ D ）。A：长整型 B： 布尔型 C： 变体型 D：指针型解析：VBA基本数据类型的类型名称、类型标识和符号数据类型类型标识符号字节Byte整型Integer%长整型Long&单精度Single!双精度Double#货币Currency字符串String$布尔Boolean日期Date变体Variant关键字：数据、VBA、类型、符号3、 VBA程序的多条语句可以写在一行中，其分隔符必须使用符号（ A ）。A： B： C：； D：

21、，解析：书写VBA语句时，若多句写在一行，则用:隔开，若一句写在多行则用_（下划线）作为续行符。关键字：程序、多条语句、分隔符、符号4、 在调试VBA程序时，能自动被检查出来的错误是（ A ）。A：语法错误 B：逻辑错误C：运行错误 D：语法错误和逻辑错误解析：只能检查出语法错误，但逻辑错误是不能检查的。例如，当输入了if和then，但如果没有end if，则会提示错误，但如果本应该是在i10时运行循环体，但如果用了do until i 10 Loop，则循环体不会按要求运行。关键字：调试、自动、检查、错误5、 如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是（ B ）。A：0.

22、01*Int(x+0.05) B：0.01*Int(100*(X+0.005) C：0.01*Int(x+0.005) D：0.01*Int(100*(X+0.05)解析：需要在千分位进行四舍五入操作，则最后结果肯定是精确到百分位的。而Int只能取整，无法取小数部分，因此，必须对转换对象进行一个先乘以一百，再除以一百的操作。而如果想在千分位进行四舍五入，又必须对于千分位上进行加5的操作。这样，千分位上为4和4以下的，百分位不变，而千分位上5及5以上的，百分位将被加1。关键字：实数、保留、小数、四舍五入6、 用于获得字符串Str从第2个字符开始的3个字符的函数是（ A ）。A：Mid(Str,2

23、,3) B：Middle(Str,2,3)C：Right(Str,2,3) D：Left(Str,2,3)解析：本题考察的是子串截取函数的用法，本题选A。 选项B：ACCESS数据库中没有提供标准的库函数Middle；选项C、D：Right和Left用法错误，这两个函数只有两个参数。关键字：获得、字符串、函数、子串截取函数7、 用于获得字符串S最左边4个字符的函数是（ A ）。A：Left(S，4) B：Left(S，1，4) C：Leftstr(S，4) D：Leftstr(S，0，4)解析：对字符串从左端取子串的函数是Left，L eft 函数的使用格式为Left(字符串，个数)，故选A。

24、选项B：函数引用错误； 选项C：ACCESS 系统中没有Leftstr 标准函数 选项D：ACCESS 系统中没有Leftstr 标准函数。关键字：获得、字符串、字符、函数8、 有如下语句s=Int（100*Rnd）执行完毕后，s的值是（ A ）。A：0，99的随机整数 B：0，100的随机整数C：1，99的随机整数 D：1，100的随机整数解析：int(m*rnd) (m为正整数)的取值范围为0,m-1关键字：语句、执行、随机整数9、 VBA表达式3*33/3的输出结果是（ D ）。A：0 B：1 C：3 D：9解析：VBA数学运算符的优先级如下：+ - Mod *、 / -（取负）关键字：

25、VBA表达式、输出结果10、 下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是（ C ）。A：x Mod 2=1 Or y Mod 2=1 B：x Mod 2=0 Or y Mod 2=0C：x Mod 2=1 And y Mod 2=1 D：x Mod 2=0 And y Mod 2=0解析：要使x和y都是奇数，则x和y除以2的余数都必须是1。关键字：逻辑、表达式、正确、奇数、条件11、 在使用Dim语句定义数组时，在缺省情况下数组下标的下限为（ B ）。A：1 B：0 C：任意数 D：系统自定义解析：不管建立一维数组还是二维数组，数组的下标下限总是0关键字：使用、定义、缺省、数组、下

26、标12、 下列数组声明语句中，正确的是（ B ）。A：Dim A3,4 As Integer B：Dim A(3,4) As Integer C：Dim A3;4 As Integer D：Dim A(3;4) As Integer解析：ACCESS 定义二维数组的格式为Dim 数组名(下标下限1 to 下标上限1，下标下限2 to 下标上限2) as 类型标识 “下标下限 to”可以省略，默认则以0 为下限。因此本题选B。 选项A：定义数组应该用小括号不是方括号，故A 错；选项C：定义数组应该用小括号不是方括号，并且下标之间用逗号不是分号，故C 错；选项D：定义数组下标之间用逗号不是分号，故

27、D 错。关键字：数组、声明、语句、下限、标识13、 在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为（ A ）。A：20 B：24 C：25 D：36解析：A(2 to 5, 5)第一个元素为A(2,0)，最后一个元素是A(5,5)，第一维上有25四种变化，而第二维上有15五种变化，因素元素数为45，为20个。关键字：模块、声明、局域、二维数组、元素14、 窗体Caption属性的作用是（ A ）。A：确定窗体的标题 B：确定窗体的名称C：确定窗体的边界类型 D：确定窗体的字体解析：对象常用属性：标题：Caption控件来源：

28、ControlSource是否可用：Enabled前景色 ：Forecolor图片:Picture控件值：Value记录源：RecordSource是否可见: Visible背景色：BackColor是否定:Locked上边距：top左边距：Left宽度：Width高度：Height字号：FontSize关键字：窗体、属性、标题、名称、字体15、 Access的控件对象可以设置某个属性来控制对象是否可用（不可用时显示为灰色状态）。需要设置的属性是（ C ）。A：Default B：Cancel C：Enabled D：Visible解析：窗体或控件常用属性：是否可用为enabled 是否可见为

29、visible。关键字：控件、对象、属性、控制16、 假定窗体的名称为fmTest，则把窗体的标题设置为Access Test的语句是（ B ）。A：Me = Access Test B：Me.Caption = Access Test C：Me.Text = Access Test D:Me.Name = Access Test解析：该题考察的是用代码动态设置对象属性，这需要ACCESS用户需要记住对象属性的的英文名称，以及对象属性的引用格式。对于窗体的属性引用格式为：格式1：Form.属性名；格式2：Me.属性名 标题属性的英文名称是Caption；因此，把窗体的标题设置为Access T

30、est的语句是： Me.Caption=Access Test或Form.Caption=Access Test,所以本题选B。关键字：窗体、名称、标题、设置、语句17、 在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1，编写如下两个事件过程：Private Sub Command1_Click()a = Text1.Value + Text2.ValueMsgBox aEnd SubPrivate Sub Form_Load()Text1.Value = Text2.Value = End Sub程序运行时，在文本框Text1中输入78，在文本框Text2中输入

31、87，单击命令按钮，消息框中输出的结果为：（ B ）。A：165 B：7887 C：8778 D：空解析：窗体打开运行先执行Form_Load 事件过程，将Text1 和Text2 清空。在文本框Text1 中输入78，在文本框Text2 中输入87 后，Text1 和Text2 分别为78 和87，单击命令按钮后执行Command1_Click，令a 的值为Text1.Value + Text2.Value，注意文本框的值为文本型不是数字型，所以a 的值不是165 而是8778，此处进行的不是加法运算而是连接运算。关键字：窗体、文本框、运行、按钮、结果18、 在窗体中添加了一个文本框和一个命

32、令按钮（名称分别为tText和bCommand），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是（ D ）。A：Private Sub bCommand_Click( )Caption=”计算机等级考试”End SubB：Private Sub tText_Click( )bCommand.Caption=”计算机等级考试”End SubC：Private Sub bCommand_ Change( )Caption=”计算机等级考试”End SubD：Private Sub tText _ Change(

33、 )bCommand.Caption=”计算机等级考试”End Sub解析：题目中有：在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。显然引发的事件应该是文本框的事件。关键字：窗体、添加、文本框、命令、按钮19、 在窗体中有一个文本框Text1，编写事件代码如下：Private Sub Form_Click( )x=val(Inputbox(“输入x的值”)Y=1If x0 Then Y=2Text1.Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（ B ）。A： 1 B： 2 C： 3 D：4解析：打开窗体运行后，在输入框

34、中输入整数12，x 的值为12；执行Y=1，Y 的值变为1；执行 If x0 Then Y=2；Y 的值变为2；执行Text1.Value=Y，文本框Text1 中输出的结果即为Y 的值2，故本题选B。关键字：窗体、文本框、代码20、 下列Case语句中错误的是（ C ）。A：Case 0 to 10 B：Case Is10 C：Case Is10 And Is10解析：select case 后的测试表达式能组合使用，但不能出项两个is。关键字：语句、错误、测试、使用21、 在VBA中，错误的循环结构是（ C ）。A) Do While 条件式 B) Do Until 条件式 循环体 循环体

35、Loop LoopC) Do Until D) Do 循环体 循环体Loop条件式 Loop While条件式解析：do 循环中，条件式总是跟在while 或until后面，不能直接跟在loop后面。关键字：VBA、循环结构、条件式、循环体22、 某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为（ C ）。Private Sub Form_Click()Dim k As Integer, n As Integer, m As Integern = 10: m = 1: k = 1Do While k = nm = m * 2k = k + 1LoopMsgBox mEn

36、d SubA：20 B：40 C：1024 D：2048解析：窗体打开运行后，单击窗体，计算机会运行窗体的单击事件过程Form_Click，从程序可以看出具体执行思路是:先定义三个变量k、n、m，然后给n赋值10，m赋值1，k赋值1；再执行一个循环，该循环 循环条件是k=n,循环体为m = m * 2和 k = k + 1两条语句，每执行一次循环体m值翻倍，k值加1直到k=n不成立，结束循环，n的值为10，k的初始值为1，因此该循环共需要执行10次，每次m值翻倍一次，共翻倍10次，即210 倍，m初始值为1，所以执行完毕后m值为1024。执行完循环后语句MsgBox m输出m的值为1024。关

37、键字：窗体、消息框、输出、语句23、 由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行（ A ）。A：0次 B：1次 C：4次 D：5次解析：对于步长为负数且循环变量的初值又比终值小的循环，会直接退出。关键字：决定、循环、结构、循环体24、 在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：Private Sub test_Click()y=0 For i=0 To Me!x y=y+2*i+1 Next i MsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 （ B ）。A：9 B：16

38、C：15 D：20解析：打开窗体后，通过文本框输入的值为3，则文本框的值就是3（即Me！x=3）单击命令按钮（test）计算机会去执行命令按钮的单击事件过程test_Click，具体执行步骤为第一步：执行y=0，y的值变为0；第二步：执行For循环对于For循环i的取值从0到3（Me!x=3）步长为1，故i先后可以取到0，1，2，3四个值i=0时 执行 y=y+2*i+1 y的值变为1i=1时 执行 y=y+2*i+1 y的值变为4i=2时 执行 y=y+2*i+1 y的值变为9i=3时 执行 y=y+2*i+1 y的值变为16第三步：执行MsgBox y，输出y的值为16关键字：窗体、文本框、输入值、代码25、 下面VBA程序段运行时，内层循环的循环次数是（ A ）。For m=0 to 7 step 3For n=m-1 to m+1Next nNext mA：9 B：6 C：3 D：5解析：嵌套循环执行时，最内层循环执行的次数是，由外及内各层循环执行次数的乘积，本题里外两层都执行3次，故共执行9次。关键字：程序、运行、内层循环、次数26、 设有如下过程：x = 1 Do x = x + 2 Loop Un