下载文档原格式
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键），将会遍历当前活动工作表的所有单元格。
在VBA中操作Access数据库的方法和技巧VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言。
在许多办公环境中，Microsoft Access 是常用的数据库管理系统。
通过使用VBA，您可以利用Access数据库中的数据和功能来编写自定义的应用程序。
本文将介绍在VBA中操作Access数据库的一些方法和技巧，帮助您更有效地处理数据。
首先，让我们了解一些基本概念。
在操作Access数据库之前，您需要了解表、字段以及如何连接数据库。
在Access中，表是数据的集合，字段是表中的列。
通过连接数据库，您可以将VBA与Access数据库建立起联系。
以下是一些常用的方法和技巧来操作Access数据库。
1. 连接到Access数据库在VBA代码中，您可以使用ADODB（ActiveX Data Objects DataBase）对象连接到Access数据库。
首先，需要声明变量来表示数据库连接。
然后，使用`OpenDatabase`方法打开连接。
以下是连接到Access数据库的示例代码：```vbaDim db As DatabaseSet db = OpenDatabase("C:\Path\to\your\database.accdb")```2. 创建查询在VBA中，您可以使用SQL语句执行查询。
查询是用来检索、过滤和排序数据库中的数据。
以下是一个简单的查询示例：```vbaDim strSQL As StringstrSQL = "SELECT * FROM TableName WHERE FieldName='Value'"```在上面的示例中，`TableName`是要查询的表的名称，`FieldName`是要过滤的字段，`Value`是过滤条件的值。
3. 执行查询在连接并创建查询之后，您可以使用`Execute`方法执行查询语句。
二级ACCESS-65(总分：100.00，做题时间：90分钟)一、选择题(总题数：40，分数：100.00)1.用来测试当前读写位置是否达到文件末尾的函数是（分数：2.50）A.EOF √B.FileLenC.LenD.LOF解析：[解析] 在到达文件末尾之前，EOF函数一直返回False，到达文件末尾时，EOF返回True；FileLen 函数返回一个文件的长度，单位为字节；Len返回文本串的字符数；LOF函数返回某文件的字节数。
2.卞列表达式中，能够保留变量x整数部分并进行四舍五入的是（分数：2.50）A.Fix(x)B.Rnd(x)C.Round(x) √D.Int(x)解析：[解析] Fix(x)和Int(x)返回x的整数部分，对于小数部分完全舍弃。
Rnd(x)返回一个随机数，Round(x)保留x的整数部分并进行四舍五入。
3.VBA程序中，可以实现代码注释功能的是（分数：2.50）A.方括号([])B.冒号(:)C.双引号(")D.单引号(") √解析：[解析] 一个好的程序一般都有注释语句。
这对程序的维护有很大的好处。
在VBA程序中，注释可以通过以下两种方式实现：使用Rem语句，格式为：Rem 注释语句用单引号“’”，格式为：’注释语句4.在窗口中有一个标签Label0和一个命令按钮Command1，Command1的事件代码如下：Private Sub Command1_Click()Label0.Left=Label0.Left+100End Sub打开窗口，单击命令按钮，结果是（分数：2.50）A.标签向左加宽B.标签向右加宽C.标签向左移动D.标签向右移动√解析：[解析] Left表示的是控件的左边距，所以left+100表示控件向右移动。
5.假定有以下循环结构Do Until 条件循环体Loop则正确的叙述是（分数：2.50）A.如果“条件”值为0，则一次循环体也不执行B.如果“条件”值为0，则至少执行一次循环体√C.如果“条件”值不为0，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体解析：[解析] 本题考查VBA中Do Until…Loop循环的知识。
access综合练习题一、单项选择题1.在access数据库中，一个关系就是一个（）。
A. 二维表B. 记录C. 字段D. 数据库2.设有部门和员工两个实体，每个员工只能属于一个部门，一个部门可以有多个员工，则部门与员工实体之间的联系类型为（）。
A. 多对多B. 一对多C. 多对一D. 一对一3.关系R和关系S的交运算为（）。
A. 由关系R和关系S的所有元组合并所组成的集合、再删去重复的元组B. 由属于R而不属于S的所有元组组成的集合C. 由既属于R又属于S的元组组成的集合D. 由R和S的元组连接组成的集合4.将表A的记录复制到表B中，且不删除表B中的记录，可以使用的查询是（）。
A. 删除查询B. 生成表查询C. 追加查询D. 交叉表查询5.SQL的功能包括（）。
A. 查找、编辑、控制、操纵B. 数据定义、查询、操纵、控制C. 窗体、视图、查询、页D. 控制、查询、删除、增加6.在E-R图中，用来表示实体的图形是（）。
A. 矩阵B. 椭圆形C. 菱形D. 三角形7.要实现报表的分组统计，其操作区域是（）。
A. 报表页眉或报表页脚区域B. 页面页眉或页面页脚区域C. 主体区域D. 组页眉或组页脚区域8.以下不是报表数据来源的是（）。
A. 一个多表创建的查询B. 一个表C. 多个表D. 一个单表创建的查询9.使用宏组的目的是（）。
A. 设计出功能复杂的宏B. 设计出包含大量操作的宏C. 减少程序内存消耗D. 对多个宏进行组织和管理10.SQL的含义是（）。
A. 结构化查询语言B. 数据定义语言C. 数据库查询语言D. 数据库操纵与控制语言11.下列函数中能返回数值表达式的整数部份值的是（）。
A. Abs（数字表达式）B. Int（数值表达式）C. Srq（数值表达式）D. Sgn（数值表达式）12.设关系R和S的元组个数分别是10和30，关系T 是R与S的笛卡尔积，则T的元组个数为（）。
A. 40B. 100C. 300D. 90013.要从学生关系中查询学生的姓名和年龄所进行的查询操作属于（）。
VBA中操作Access数据库的常用方法VBA (Visual Basic for Applications) 是一种用于自动化各种应用程序的编程语言，它可以与Microsoft Office中的各种应用程序进行交互，包括Access数据库。
在本文中，我们将讨论在VBA中操作Access数据库时常用的方法，希望可以帮助您更好地利用这些方法来处理和管理数据库。
1. 连接到Access数据库连接到Access数据库是进行任何数据库操作的第一步。
我们可以使用ADO (ActiveX Data Objects) 对象来建立与数据库的连接。
下面是一个连接到Access数据库的例子：```vbaDim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"conn.Open```这段代码创建了一个ADODB.Connection对象，并设置其ConnectionString属性来指定数据库连接字符串，然后通过Open方法打开数据库连接。
2. 执行SQL查询执行SQL查询是从Access数据库中获取数据的常用方法。
可以使用ADODB.Recordset对象来执行查询并获取结果。
以下是一个例子：```vbaDim rs As New ADODB.RecordsetDim strSQL As StringstrSQL = "SELECT * FROM TableName"rs.Open strSQL, conn' 遍历结果Do Until rs.EOF' 处理每一行数据rs.MoveNextLooprs.Close```在这个例子中，我们创建了一个ADODB.Recordset对象，并使用Open方法执行了一个SELECT语句，并将返回的结果集存储在Recordset对象中。
1.2VBA语法（及Access的对象结构）VBA程序是VBA语言语句代码以及注释的集合。
一条语句是一个完整的命令，语句之间用换行符分割，大多数情况下，一条语句就是一行代码。
VBA语句是由规定的保留字（也称为关键字，在本书的范例中，关键字都以大写字母开头）与其他被赋予意义的单词组合而成，每条语句都具有明确意义，在VBA语句分为三种类型：声明语句。
定义变量、常数，或定义一段程序。
赋值语句。
为变量或常数指定一个值或表达式。
可执行语句。
它可以执行一个方法或是函数。
我们往往把实现特定功能的程序段用特定的方式单独封装起来，以便反复调用运行，或者提高程序可读性。
这种程序段的最小单元我们称之为过程，一个Access模块中可包含一个或者多个过程。
1.2.1 过程与函数先看一个简单的过程：Sub subPromptMessage()MsgBox "这是一个最简单的过程。
"End Sub这是一个Sub过程，把光标定位在过程的任意位置，按下F5即可运行。
这个过程的执行结果是弹出一个提示对话框，如图8-2所示。
也可以单击菜单【运行】，选择【运行子过程/用户窗体】Array或单击工具栏中【运行子过程／用户窗体】按钮回来立即运行光标位置所在的过程。
第一行的“Sub”语句与最后一行的“End Sub”语句标志过程的开始和结束。
“Sub”后紧跟的“subPromptMessage”是这个过程的名字。
过程名后面的一对小括号是必须的。
“Sub”所在行与“End Sub”行之间所有的行就是这个过程的语句。
如果要从一个过程返回结果值，就需要定义为一个Function过程，通常称为函数。
函数与Sub过程的定义形式稍有不同。
Function PI() As SinglePI = 3.14159End Function“Function”与“End Function”标志函数的开始和结束。
在代码的第一行，定义了函数的返回值PI的数据类型为Single。
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"表格中。
任务一思考与练习答案一、简答题1．简述Access 2010的启动方法。
启动Access 2010的方式与启动一般应用程序的方式相同，有四种启动方式：（1）常规启动：开始→程序→Microsoft Office→Microsoft Access 2010。
（2）桌面图标快速启动：如果桌面上有Access快速启动图标，则双击该图标启动。
（3）“开始”菜单选项快速启动：单击“开始”菜单中的快速启动图标启动Access 2010。
（4）通过已存文件快速启动：在我的电脑或资源管理器中双击已存在的Access数据库文件启动Access 2010。
2．简述Access 2010的退出方法。
退出Access 2010的方法有以下几种：（1）单击Access窗口标题栏右侧的“关闭”按钮。
（2）双击Access窗口标题栏左侧的控制菜单图标。
（3）单击“文件”选顶卡中的“退出”按钮。
（4）按快捷键Alt+F4。
3．什么是Access？Access具有哪些特点和功能？（1）AccessAccess 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office办公自动化系列应用软件之一。
（2）Access的特点：1）存储方式单一2）面向对象3）界面友好、易操作4）集成环境、处理多种数据信息5）支持ODBC（Open Data Base Connectivity，开放数据库互连）（3）Access的功能:1）组织、存放与管理数据2）查询数据3）设计窗体4）报表输出5）数据共享6）建立超链接7）建立数据库应用系统4．简述Access 2010工作界面的构成。
（1）标题栏（2）自定义快速访问工具栏（3）功能区（4）导航窗格（5）命令选项卡（6）对象工作区（7）状态栏任务二思考与练习答案一、填空题1．数据模型分为层次模型、网状模型和关系模型三种。
2．关系模型采用二维表的结构描述实体与实体之间的联系的数据模型。
第六章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)报错。
