ACCESS数据库VBA循环和分支结构练习题
第六章VBA循环和分支结果练习
1.执行下面程序,写出S的值_________ n的值___________ S=0
For n=1 to 15
If int(n/3)=n/3 then
S=s+n
Endif
Next
Debug.print s,n
2.程序运行结束后，s的值是____ ，j的值是_______。
s=0
p=1
j=1
do while j<=10
if j mod 3=0 then
p=p*j
else
s=s+p
endif
j=j+1
loop
debug.print j,s
3.假定有以下程序段
n=0
for i=1 to 3
for j= -4 to -1
n=n+1
next j
next i
运行完毕后，n的值是（）
A）0 B）3 C）4 D）12
4.打开窗体运行后，单击窗体，则消息框的输出内容是（）Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1, 3
a = a + 1
Case 2, 4
a = a + 2
End Select
Next i
MsgBox a
End Sub
5.在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是
A．7
B．15
C．157
D．538
6.设有如下代码：
x=1
do
x=x+2
loop until ______________
运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。
7.窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。
以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。
如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。
按照功能要求，将程序补充完整。
Private Sub cmdTest_Click()
Answer= _________________（“隐藏按钮”，vbOKCancel）
If Answer=vbOK Then
cmdDisplay.Visible= ______________________
Else
Docmd.Close
End If
End Sub
8.在窗体上画一个命令按钮（名称为command1）和一个文本框（名称为text1），然后编写如下事件过程：
Private sub command1_click()
Me.text1.setfocus
X=val(text1.text) ‘text属性表示文本框获得焦点后的值，等同于value属性
Select case x
Case 1,3
Y=x*x
Case is>=10,is<=-10
Y=x
Case -10 to 10
Y= -x
End select
End sub
在文本框输入3，然后单击命令按钮，变量y的值变为______。
9.VBA中定义符号常量可以用关键字
A)Const B)Dim C)Public D)Static
10.定义了二维数组A(2 to 5，5)，则该数组的元素个数为
A)25 B)36 C)20 D)24
11.已知程序段：
s=0
For i=1 To 10 step 2
s=s+1
i=i*2
Next i
当循环结束后，变量i的值为a，变量s的值为b。
A)10 B)11 C)22 D)16
A)3 B)4 C)5 D)6
12.在VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是
A)快速监视窗口B)监视窗口C)立即窗口D)本地窗口
13.阅读程序，MSGBOX一共弹出了几次消息（）
Sub test()
For i = 1 To 10 Step -2
MsgBox i
Next
End Sub
A)0 B)1 C)2 D)报错
14.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 1 To 10
i = i + 2
MsgBox i
Next
End Sub
A)0 B)2 C)4 D)报错
15.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 1 To 10
If i = 2 Then Exit For
MsgBox i
Next
End Sub
A)0 B)1 C)2 D)3
16.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
For i = 5 To 1
MsgBox i
Next
End Sub
A)0 B)2 C)4 D)报错
17.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
i = 2
Do
MsgBox i
Loop While i < 3
End Sub
A)1 B)2 C)无限次D)报错
18.阅读程序，MSGBOX一共弹出了几次消息（）Sub Click()
i = 4
Do
MsgBox i
Loop While i < 3
End Sub
A)1 B)2 C)无限次D)报错。
vba循环练习题
vba循环练习题在本文中，将为您展示一些VBA循环练习题。
VBA（Visual Basic for Applications）是一种用于创建宏的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word和PowerPoint等。
通过编写VBA代码，可以自动执行重复的任务，提高工作效率。
以下是一些常见的VBA循环练习题，供您练习和学习。
练习一：使用For循环输出1到10之间的偶数在Excel中新建一个模块，输入以下VBA代码：```Sub PrintEvenNumbers()Dim i As IntegerFor i = 1 To 10If i Mod 2 = 0 ThenDebug.Print iEnd IfNext iEnd Sub```运行此代码（按F5键），你将看到输出窗口中显示了2、4、6、8和10这五个偶数。
这段代码通过For循环遍历1到10的所有数字，使用If语句判断是否为偶数，如果是偶数则输出。
练习二：使用Do While循环计算1到100之间所有奇数的和在Excel中新建一个模块，输入以下VBA代码：```Sub CalculateOddSum()Dim i As IntegerDim sum As Integeri = 1sum = 0Do While i <= 100If i Mod 2 <> 0 Thensum = sum + iEnd Ifi = i + 1LoopMsgBox "1到100之间所有奇数的和为：" & sumEnd Sub```运行此代码（按F5键），将会弹出一个消息框显示1到100之间所有奇数的和为 2500。
这段代码使用了Do While循环，从1开始遍历到100的所有数字，如果是奇数则累加到sum变量中。
练习三：使用For Each循环遍历Excel工作表中的所有单元格在Excel中新建一个模块，输入以下VBA代码：```Sub IterateCells()Dim ws As WorksheetDim cell As RangeSet ws = ThisWorkbook.ActiveSheet '假设要遍历的是当前活动工作表For Each cell In edRange'在这里编写对单元格的操作，例如：'cell.Value = cell.Value * 2Next cellEnd Sub```运行此代码（按F5键），将会遍历当前活动工作表的所有单元格。
Access2010VBA基础测试题
2016级1班半期考试题（110分）姓名：总分：一、选择题（每题3分，共48分）1.VBA提供了多种数据类型，用于存放姓名通常采用哪种数据类型（）A:byte B:integer C: string D: single2.以下哪种可以定义变量（）A:sub…… end sub B:dim…… as……C:if…… end if D: do……loop3.变量名最长不能超过( )个字符A:128 B:64 C:255 D: 2563.以下可以存放小数的数据类型是（）A:单字节B:整型C：长整型D: 双精度4.按照先后顺序，一条一条依次执行语句，是什么结构（）A:顺序B：分支C:选择D:循环5.打开立即窗口的快捷键是（）A:ctrl+G B:alt+G C:shift+ＧD: ctrl+shift+G6. Access2010中，关于VBA，以下说法错误的有( )A．VBA中，逻辑运算符的优先级比关系运算符的优先级要低B．VBA中，允许多条程序语句行合写在一行上C．VBA中，循环结构的语句有For…Next循环和Do…Loop循环两种D．表达式102=98+4的计算结果为数值类型7.定义长整形，可用以下哪种类型申明符定义（）A:@ B:% C:& D: ！8.vba规定，文本型使用（）符号作为定界符A:引号B:#号C:分好D:逗号9.以下运算符那个的优先级最高（）A:算数运算符B:关系运算符C:逻辑运算符D: 字符串运算符10.以下“=”符号，表示赋值的是（）A: 37=60 B:”a”=”b”C:c=”您好！中国” D: #2015-01-01#=#2015-01-01#11.如果条件为真执行语句组，条件为假什么都不执行是什么结构（）A:分支B:单分支C:多分支D: 循环12.通过键盘输入为变量赋值通常采用（）函数A:msgbox( ) B:debug.print C:inputbox（）D:val( ) 13.以下表达式7 mod 5 的值是（）A:35 B:12 C:2 D:114．VBA的逻辑值进行算术运算时，True值被当作( )A)0 B)-1 C)1 D)任意值15. 下列逻辑表达式中，能正确表示条件“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=016. 有以下程序sub aa()dim a as singlea=inputbox(“a=”)If a>=60 ThenResult=＂及格＂Else If a >70 ThenResult=＂通过＂Else If a >85 ThenResult=＂合格＂End Sub运行程序时输入的值为85，result的结果为( )。
计算机vba试题及答案
计算机vba试题及答案一、选择题（每题2分，共20分）1. 在VBA中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. VBA中，用于结束一个循环结构的关键字是？A. NextB. LoopC. ExitD. Continue答案：A3. 在VBA中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A4. VBA中，以下哪个对象代表当前工作表？A. ThisWorkbookB. ActiveSheetC. WorksheetsD. ActiveDocument答案：B5. 在VBA中，以下哪个属性用于获取或设置单元格的值？A. ValueB. NameC. FormulaD. Address答案：A6. VBA中，以下哪个函数用于计算数组中元素的数量？A. CountB. SumC. UBoundD. LBound答案：C7. 在VBA中，以下哪个事件用于在工作表被激活时触发？A. Worksheet_SelectionChangeB. Worksheet_ActivateC. Worksheet_BeforeDoubleClickD. Workbook_Open答案：B8. VBA中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. PropertyD. Const答案：B9. 在VBA中，以下哪个方法用于将一个工作簿保存为Excel 97-2003工作簿格式？A. SaveAsB. SaveC. ExportD. Close答案：A10. VBA中，以下哪个属性用于获取或设置单元格的宽度？A. WidthB. HeightC. ColumnWidthD. RowHeight答案：C二、填空题（每题2分，共20分）1. 在VBA中，使用________关键字可以定义一个变量。
vba编程练习题+近年真题
VBA编程练习题1、假定有以下循环结构Do Until 条件循环体Loop则正确的叙述是A）如果“条件”值为0，则一次循环体也不执行B）如果“条件”值为0，则至少执行一次循环体C）如果“条件”值不为0，则至少执行一次循环体D）不论“条件”是否为“真”，至少要执行一次循环体2.设有以下窗体单击事件过程：Private Sub Form_Click( )a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是 5 。
3. 在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程：Private Sub Command1_Click( )Dim x As Integer, y As Integer, z As Integerx = 5 : y = 7 : z = 0Me!Text1= ""Call p1(x, y, z)Me!Text1 =zEnd SubSub p1(a As Integer, b As Integer, ByVal c As Integer)c = a + bEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是。
4.以下程序段运行结束后，变量x的值为x=2y=4Dox=x*yy=y+1Loop While y<6A）4 B）40 C）8 D）20 5.在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=2x=x+6Next kNext jNext iMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是A）7 B）15 C）157 D）8 6.设有如下代码：x=1dox=x+3loop until >=10 或>7运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。
国家二级ACCESS机试(VBA数据库编程)模拟试卷1(题后含答案及解析)
国家二级ACCESS机试（VBA数据库编程）模拟试卷1(题后含答案及解析)题型有：1. 选择题选择题1．现有一个已经建好的窗体，窗体中有一命令按钮，单击此按钮，将打开“tEmployee”表，如果采用VBA代码完成，下面语句正确的是A．docmd．openform”tEmployee”B．docmd．openview”tEmployee”C．docmd．opentable”tEmployee”D．docmd．openreport”tEmployee”正确答案：C解析：本题考查VBA中如何打开对象的知识。
在vBA中，打开表的命令格式为：DoCmd．OpenTable表名。
另外还需知道打开查询使用DoCmd．OpenOHerv；打开窗体使用DoCmd．OpenForm；打开报表使用DoCmd．OpenReports；打开视图使用DoCmd．OpenView；关闭窗体和报表使用，DoCmd．Close等。
2．在VBA中，实现窗体打开操作的命令是A．DoCmd．OpenFormB．OpenFormC．Do．OpenFormD．DoOpcn．Form正确答案：A解析：DoCmd．OpenForm为打开窗体命令。
3．在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是A．DoCmd．OpenForm”学生信息录入”B．OpenForm”学生信息录入”C．DoCmd．OpenWindow”学生信息录入”D．OpenWindow”学生信息录入”正确答案：A解析：本题考查VBA中如何打开对象的知识。
在VBA中，打开窗体的命令为：Docmd．OpenForm。
另外还需知道打开表使用命令Docmd．OpenTable：打开报表使用命令Docmd．0penReport；打开查询使用命令Docmd．OpenQuery；关闭窗体和报表使用命令Docmd．Close。
4．下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。
二级ACCESS数据库程序设计模拟试题及答案解析(12)
二级ACCESS数据库程序设计模拟试题及答案解析（12）(1/40)单项选择题第1题下列关于算法的描述中错误的是______。
A.算法强调动态的执行过程，不同于静态的计算公式B.算法必须能在有限个步骤之后终止C.算法设计必须考虑算法的复杂度D.算法的优劣取决于运行算法程序的环境下一题(2/40)单项选择题第2题设栈的顺序存储空间为S(0:49)，栈底指针bottom=49，栈顶指针top=30(指向栈顶元素)。
则栈中的元素个数为______。
A.30B.29C.20D.19上一题下一题(3/40)单项选择题第3题某二叉树的前序序列为ABCDEFG，中序序列为DCBAEFG，则该二又树的深度(根结点在第1层)为______。
A.2B.3C.4D.5上一题下一题(4/40)单项选择题第4题下列叙述中正确的是______。
A.存储空间连续的数据结构一定是线性结构B.存储空间不连续的数据结构一定是非线性结构C.没有根结点的非空数据结构一定是线性结构D.具有两个根结点的数据结构一定是非线性结构上一题下一题(5/40)单项选择题第5题下列叙述中正确的是______。
A.带链队列的存储空间可以不连续，但队头指针必须大于队尾指针B.带链队列的存储空间可以不连续，但队头指针必须小于队尾指针C.带链队列的存储空间可以不连续，且队头指针可以大于也可以小于队尾指针D.带链队列的存储空间一定是不连续的上一题下一题(6/40)单项选择题第6题下列各项中，不能作为软件需求分析工具的是______。
A.PAD图B.数据字典(DD)C.数据流程图(DFD图)D.判定树上一题下一题(7/40)单项选择题第7题在软件开发中，需求分析阶段产生的主要文档是______。
A.可行性分析报告B.软件需求规格说明书C.概要设计说明书D.集成测试计划上一题下一题(8/40)单项选择题第8题关系数据模型______。
A.只能表示实体间1:1联系B.只能表示实体间1:m联系C.可以表示实体间m:n联系D.能表示实体间1:n联系而不能表示实体间n:1联系上一题下一题(9/40)单项选择题第9题下面属于整数类的实例是______。
Access数据库应用与VBA编程模拟试题
_____________________________________________________________________一、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸的相应位置处。
答案错选或未选者，该题不得分。
每小题1分，共10分。
）1、数据库(DB)、数据库系统(DBS)和数据库管理系统(DBMS)之间的关系是（）。
A、DBMS包括DB和DBSB、DBS包括DB和DBMSC、DB包括DBS和DBMSD、三者之间是平等的关系2、表达式（a = a+1）是（）。
A、算术表达式B、关系表达式C、赋值表达式D、非法表达式3、数据库的基本特点是（）。
A、数据结构化，数据独立性高、冗余度大、共享性高，数据统一管理和控制B、数据结构化，数据独立性高、冗余度小、共享性高，数据统一管理和控制C、数据结构化，数据独立性低、冗余度小、共享性高，数据统一管理和控制D、数据非结构化，数据独立性低、冗余度大、共享性低，数据统一管理和控制4、常量“12.56”属于（）数据类型。
A 、日期型B、双精度型C、整型D、字符型5、用二维表结构来表示实体与实体之间联系的数据模型称为（）。
A、层次模型B、网状模型C、关系模型D、表格模型6、VBA中，变量声明所使用的关键字是（）。
A、PublicB、ConstC、DimD、Int7、在以下选项中，与“Where成绩Between 75 And 85”完全等价的是（）。
A、Where 成绩>75 And 成绩<85B、Where 成绩>=75 And 成绩<=85C、Where 成绩>75 Or 成绩<85D、Where 成绩>=75 Or 成绩<=858、VBA程序编写中，为提高程序的可读性，其采取的措施是（）。
A、缩格与对齐B、缩格C、注意全半角D、前面条件均可9、在基本关系运算中，从关系中取出满足条件的记录组成新的关系的操作称为（）。
Access数据库应用与VBA编程模拟试题
_____________________________________________________________________一、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸的相应位置处。
答案错选或未选者，该题不得分。
每小题1分，共10分。
）1、数据库(DB)、数据库系统(DBS)和数据库管理系统(DBMS)之间的关系是（）。
A、DBMS包括DB和DBSB、DBS包括DB和DBMSC、DB包括DBS和DBMSD、三者之间是平等的关系2、表达式（a = a+1）是（）。
A、算术表达式B、关系表达式C、赋值表达式D、非法表达式3、数据库的基本特点是（）。
A、数据结构化，数据独立性高、冗余度大、共享性高，数据统一管理和控制B、数据结构化，数据独立性高、冗余度小、共享性高，数据统一管理和控制C、数据结构化，数据独立性低、冗余度小、共享性高，数据统一管理和控制D、数据非结构化，数据独立性低、冗余度大、共享性低，数据统一管理和控制4、常量“12.56”属于（）数据类型。
A 、日期型B、双精度型C、整型D、字符型5、用二维表结构来表示实体与实体之间联系的数据模型称为（）。
A、层次模型B、网状模型C、关系模型D、表格模型6、VBA中，变量声明所使用的关键字是（）。
A、PublicB、ConstC、DimD、Int7、在以下选项中，与“Where成绩Between 75 And 85”完全等价的是（）。
A、Where 成绩>75 And 成绩<85B、Where 成绩>=75 And 成绩<=85C、Where 成绩>75 Or 成绩<85D、Where 成绩>=75 Or 成绩<=858、VBA程序编写中，为提高程序的可读性，其采取的措施是（）。
A、缩格与对齐B、缩格C、注意全半角D、前面条件均可9、在基本关系运算中，从关系中取出满足条件的记录组成新的关系的操作称为（）。
全国计算机二级《ACCESS》选择练习题及答案解析
全国计算机二级《ACCESS》选择练习题及答案解析全国计算机二级《ACCESS》选择练习题及答案解析1设有如下程序：该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A.1+1/2+2/3+3/4+4/5B.1+1/2+1/3+1/4+1/5C.1/2+2/3+3/4+4/5D.1/2+1/3+1/4+1/5参考答案：C参考解析：本题考查VBA中循环结构的知识。
这类问题需要分析出每一次循环所做的操作。
第一次循环时，i=t，n=0，x=0/1，所以累加上去的是0/1;第二次循环时，i=2，n=1，x=1/2，所以累加上去的是l，2;第三次循环时，i=3，n=2，x=2/3，所以累加上去的是2/3;循环5次后累加的应该是0/l+1/2+2/3十3/4+4/5。
2在以下关于报表数据源设置的叙述中，正确的是( )。
A.只能是表对象B.只能是查询对象C.可以是表对象或查询对象D.可以是任意对象参考答案：C参考解析：本题考查报表数据源的知识。
和窗体一样，报表的数据源既可以是表对象，也可以是查询对象。
5Access的报表要实现排序和分组统计操作，应通过设置( )属性来进行。
A.分类B.统计C.排序与分组D.计算参考答案：C参考解析：本题考查报表排序与分组的知识。
报表记录的排序是按照某字段值进行大小排序，分组是按照分组字段值相同的被分为一组来计算的，要实现这些操作需要设置排序与分组属性。
8在数据表视图中，不能( )。
A.修改字段的类型B.修改字段的名称C.删除一个字段D.删除一条记录参考答案：A参考解析：本题考查数据表基本操作的知识。
在ACCess的数据表视图中，可以修改字段的名称、删除字段和删除记录，但是不能够修改字段的类型。
字段的类型需要在设计视图中才能修改。
9树是结点的集合，它的根结点的数目是( )。
A.有且只有1个B.1个或多于1个C.0个或1个D.至少有2个参考答案：A参考解析：树具有明显的层次关系，即树是一种层次结构。
access vba练习题
access vba练习题一、题目描述你将接收到一个Access数据库，其中包含一个名为"Sales"的表格。
此表格包含以下字段：- 订单编号 (OrderID)：文本类型，主键- 客户名称 (CustomerName)：文本类型- 订单日期 (OrderDate)：日期/时间类型- 订单金额 (OrderAmount)：货币类型你的任务是编写一个Access VBA代码来完成以下练习题。
二、练习题一编写一个子过程，用于创建一个名为"Customers"的新表格。
该表格应具有以下字段：- 客户编号 (CustomerID)：自动编号，主键- 客户名称 (CustomerName)：文本类型- 联系人 (ContactPerson)：文本类型- 电话号码 (PhoneNumber)：文本类型- 地址 (Address)：文本类型请确保该子过程在每次运行时都会删除原有的"Customers"表格，并创建具有合适字段的新表格。
三、练习题二编写一个函数，用于计算指定客户下的订单总额。
函数的输入参数为客户名称，输出为订单总额。
四、练习题三编写一个子过程，用于向"Sales"表格中插入一条新的订单记录。
该子过程应具有以下参数：- 订单编号 (OrderID)：文本类型- 客户名称 (CustomerName)：文本类型- 订单日期 (OrderDate)：日期/时间类型- 订单金额 (OrderAmount)：货币类型请注意，如果指定的订单编号已存在于"Sales"表格中，则应更新现有记录而不是插入新记录。
五、练习题四编写一个子过程，用于删除"Sales"表格中指定订单编号的记录。
该子过程应具有一个输入参数，即订单编号。
请确保该子过程在删除记录之前要先确认该订单编号是否存在于"Sales"表格中。