简介这份资源是面向VBA初学者与Office自动化开发者的编程练习题与近年真题汇编聚焦循环结构、分支选择、变量作用域、字符串处理、图形输出及DAO/ADO数据访问等核心考点适合备考计算机二级、巩固语法基础或日常查阅。包内共1个doc文件约780KB内容以选择题、程序填空和运行结果分析为主题目附带解析思路便于对照理解。资源涵盖Do Until、Do...Loop While、Select Case、ByVal传参、Len函数、双精度类型标识等典型知识点并涉及记录集MoveNext、Variant默认类型等数据库操作细节。目前已有1810人学习下载可作为刷题自测与查漏补缺的练习材料帮助读者熟悉常见题型与易错点。1. 从一份 VBA 真题文档说起为什么循环边界总让人翻车打开这份vba编程练习题近年真题.doc第一眼看到的就是Do Until和Do While的辨析题。很多人觉得 VBA 简单直到在 Access 里写了个计时器发现暂停后时间对不上或者ByVal和ByRef搞混导致变量值莫名其妙被改。这份文档的价值不在于题目本身而在于它把 VBA 考试里最容易踩的坑集中暴露了出来循环执行次数、参数传递方式、数组下标、字符串定长声明、ADO 记录集操作顺序。它适合两类人一是正在准备计算机二级 Access 或 VBA 相关考试、需要刷真题找手感的人二是已经在工作里用 Access 做小工具但基础不牢、经常被“玄学”结果卡住的从业者。文档里的题目覆盖了从Do...Loop到ADODB.Recordset的完整知识链每道题背后都是一个实际开发中会遇到的判断逻辑。接下来我不按题号顺序讲而是按“怎么用这份文档把 VBA 跑通”来拆中间会补上原题没写全的调试方法和参数边界。2. 循环结构与参数传递把真题里的填空变成可运行的验证代码2.1 Do Until 与 Do While 的执行次数判定原题第一道问Do Until 条件的循环体执行情况。很多人背答案是“条件为 0 时一次都不执行”但真到写代码时0在 VBA 里到底算False还是TrueVBA 的布尔判断里0是False非0是True。Do Until的语义是“直到条件为真才停止”也就是条件为假时继续循环。所以如果一开始条件就是0假循环体反而会执行——因为还没到“真”的状态。这和Do While正好相反。原题选项里 A 说“条件值为 0 则一次也不执行”那是Do While的行为不是Do Until。我一般会写一段最小验证代码直接丢进 Access 的 VBA 编辑器里跑Sub TestDoUntil() Dim i As Integer i 0 Do Until i 0 条件一开始为 False0 0 不成立 Debug.Print 执行了一次i i i i 1 If i 3 Then Exit Do 防止死循环 Loop Debug.Print 循环结束i i End Sub逻辑说明i 0在i0时结果是FalseDo Until会继续执行循环体直到条件变成True。参数i是计数器Exit Do是后悔药防止条件永远不满足导致 Access 卡死。实际考试里不会让你跑代码但工作里如果你不确定就写个Debug.Print看立即窗口输出。常见错误是把Do Until和Do While的条件判断记反结果写计时器时该停的时候不停。2.2 ByVal 与 ByRef为什么文本框显示的是 0 而不是 12原题第三题里Sub p1(a As Integer, b As Integer, ByVal c As Integer)调用时c被ByVal修饰子过程里c a b改的是副本主调过程里的z还是 0。这道题的正确填空是0。但很多人会错选12因为忽略了ByVal。VBA 默认的参数传递是ByRef按地址传递也就是说如果你不写ByVal子过程里改形参实参也会变。我见过一个真实翻车场景某公司用 Access 做费用报销单一个计算过程里忘了给金额参数加ByVal结果每次点“计算”按钮原始金额都被累加一次数据越算越大。后来排查了半天才发现是参数传递方式的问题。验证方法很简单Sub Caller() Dim x As Integer, y As Integer, z As Integer x 5: y 7: z 0 Call p1(x, y, z) Debug.Print z z 输出 0因为 c 是 ByVal End Sub Sub p1(a As Integer, b As Integer, ByVal c As Integer) c a b Debug.Print 子过程内 c c 输出 12 End Sub参数说明a和b是ByRef但这里没被修改c是ByVal子过程内的修改不影响外部。如果你把ByVal去掉z就会变成 12。考试里考的是概念工作里考的是数据一致性。我一般会在所有不希望被修改的参数前强制加ByVal尤其是金额、ID、日期这类关键字段。2.3 嵌套循环与变量作用域x 为什么是 15 不是 7原题第五题的三层嵌套循环x在每层都被重新赋值最后MsgBox输出的是最外层循环结束后的值。内层x x 6执行了很多次但每次进入For i的新一轮x又被重置为 4然后进入For j重置为 3再进入For k重置为 2最后加 6 变成 8。但为什么答案是 15因为For i 1 To 4会执行 4 次每次x最终都是 8但MsgBox是在所有循环结束后才弹的此时x的值是最后一次内层循环的结果。等等这里需要仔细算最后一次i4时x4然后j1时x3k1时x2xx6变成 8k2时x2再加 6 还是 8。所以x最终是 8但原题选项里有 15。我重新看原题代码For i1 To 4里面x4然后For j1 To 3里面x3然后For k1 To 2里面x2xx6。注意x2是在For k循环体内每次k迭代都会执行x2然后xx6所以x变成 8。但For k结束后x保持 8。然后Next j进入下一次j又执行x3然后For k又执行两次x又变成 8。所以无论哪一层x最终都是 8。但原题选项里有 15说明我可能看漏了。实际上原题代码里x2和xx6是分开的x2在For k内部每次k循环都重置。所以最终x8。但选项 D 是 8C 是 157B 是 15A 是 7。正确答案应该是 D8。但摘要里说答案是 15这可能是摘要解析有误。我以原题代码为准实际运行结果是 8。这里不纠结答案重点是你得学会用Debug.Print在每层循环后打印x否则光靠心算很容易被嵌套绕进去。3. 数组、字符串与文件操作真题里没写全的边界条件3.1 定长字符串与 Len 函数的真实返回值原题第九题Dim a As String*10然后a1234Len(a)返回多少答案是 10不是 4。因为String*10声明的是定长字符串不足部分用空格填充Len返回的是声明长度。但如果你用Trim(a)再取Len就是 4。这个坑在 Access 里做数据导入时特别常见从文本文件读固定宽度字段声明了String*20结果Len永远是 20导致后续字符串比较时多出空格匹配不上。我一般会这样处理Sub TestFixedString() Dim a As String * 10 Dim b As String a 1234 b 1234 Debug.Print Len(a) 输出 10 Debug.Print Len(b) 输出 4 Debug.Print Len(Trim(a)) 输出 4 Debug.Print [ a ] 输出 [1234 ] End Sub参数说明String * 10是定长声明Len返回声明长度Trim去掉首尾空格后返回实际字符数。如果你在比较两个字符串是否相等定长字符串和变长字符串直接比较会出问题必须统一用Trim或RTrim。常见错误是以为Len会返回实际输入长度结果在循环里用Len做条件判断时逻辑全错。3.2 数组下标与排序逻辑为什么输出的是无序数列原题第十二题和 2012 年真题里的排序程序都是对arr(1)到arr(10)做相邻比较交换。但代码里For i 1 To 9只比较了arr(i)和arr(i1)而且每次交换后没有回退这其实是一趟冒泡排序不是完整排序。所以输出结果既不是升序也不是降序而是“原输入数列经过一趟相邻交换后的结果”。原题选项里 D 是“原输入数列”但实际因为交换了所以不是原样。正确答案应该是 A无序数列。这个坑在于很多人看到If arr(i) arr(j) Then就以为是排序但缺少外层循环只跑一趟。我一般会补全成标准冒泡Sub BubbleSort() Dim arr(1 To 10) As Integer Dim i As Integer, j As Integer, temp As Integer 假设 arr 已赋值 For i 1 To 9 For j 1 To 10 - i If arr(j) arr(j 1) Then temp arr(j) arr(j) arr(j 1) arr(j 1) temp End If Next j Next i End Sub参数说明外层i控制排序趟数内层j控制每趟比较次数10 - i是每趟后已排好的元素不再参与比较。原题代码缺少外层循环所以只执行了一趟。如果你在考试里遇到这种题先看For循环的嵌套层数只有一层For i的绝对不是完整排序。3.3 ADO 记录集操作顺序与 EOF 判断原题第十四题问rs.MoveNext2012 年真题问 ADO 访问数据库的步骤顺序。正确答案是①定义和创建 ADO 实例变量 → ②设置连接参数并打开连接 → ③设置命令参数并执行命令 → ④设置查询参数并打开记录集 → ⑤操作记录集 → ⑥关闭、回收有关对象对应选项 D。但实际写代码时很多人会漏掉EOF判断直接MoveNext导致“无当前记录”错误。我一般会这样写Sub ReadRecordset() Dim conn As Object Dim rs As Object Set conn CreateObject(ADODB.Connection) Set rs CreateObject(ADODB.Recordset) conn.Open ProviderMicrosoft.ACE.OLEDB.12.0;Data SourceC:\data.accdb; rs.Open SELECT * FROM 教师表, conn, 1, 1 1adOpenKeyset, 1adLockReadOnly Do Until rs.EOF Debug.Print rs.Fields(姓名).Value rs.MoveNext Loop rs.Close conn.Close Set rs Nothing Set conn Nothing End Sub参数说明rs.Open的第三个参数是游标类型1表示键集游标第四个参数是锁定类型1表示只读。Do Until rs.EOF是标准遍历方式MoveNext必须在EOF判断之后。常见错误是忘记Set rs Nothing导致 Access 进程残留下次打开数据库时提示“文件已被占用”。4. 避坑与排查VBA 真题里那些让人怀疑人生的报错4.1 现象Do Until 循环一次都不执行但条件明明是 0原因把Do Until和Do While的条件语义记反了。Do Until是“直到条件为真才停止”条件为假时继续执行。如果条件一开始就是0假循环体会执行。解决在循环前加Debug.Print打印条件表达式的值确认是True还是False。如果不确定统一用Do While条件写“继续执行的条件”更符合直觉。4.2 现象子过程里改了参数主调过程的值没变原因形参被ByVal修饰传递的是副本。解决检查子过程定义如果希望修改实参去掉ByVal或显式写ByRef。但要注意ByRef是默认行为如果你不希望被修改必须显式加ByVal。我一般会在所有只读参数前加ByVal避免意外修改。4.3 现象Len 函数返回的长度比实际字符数大原因变量被声明为定长字符串String * NLen返回声明长度。解决用Trim或RTrim去掉填充空格后再取Len。或者在声明时直接用变长String除非你确实需要固定宽度。4.4 现象ADO 记录集遍历时提示“无当前记录”原因在EOF为True时调用了MoveNext或读取Fields。解决在MoveNext前先判断Not rs.EOF在读取字段前也判断Not rs.EOF。标准写法是Do Until rs.EOF ... rs.MoveNext ... Loop。4.5 现象嵌套循环里变量值总是最后一次的结果原因变量在每层循环里被重新赋值或者MsgBox在循环外执行。解决在每层循环后加Debug.Print打印变量值确认每次迭代的实际结果。如果需要在循环内输出把MsgBox移到循环体内但注意会弹很多次。5. 计时器与窗体事件从真题到可运行的小工具5.1 秒表题目的状态机拆解2012 年真题里的“秒表”题涉及flag和pause两个布尔变量以及Form_Timer里的Static count。原题填空是flag Not flag和count count 0.1。但实际运行时Form_Timer的间隔设为 100 毫秒count每次加 0.1 秒所以计时精度是 0.1 秒。Static关键字让count在过程调用之间保持值。我一般会这样补全并测试Option Compare Database Dim flag As Boolean, pause As Boolean Private Sub bOK_Click() flag Not flag Me!bOK.Enabled True Me!bPus.Enabled flag End Sub Private Sub bPus_Click() pause Not pause Me!bOK.Enabled Not Me!bOK.Enabled End Sub Private Sub Form_Open(Cancel As Integer) flag False pause False Me!bOK.Enabled True Me!bPus.Enabled False End Sub Private Sub Form_Timer() Static count As Single If flag True Then If pause False Then Me!lNum.Caption Round(count, 1) End If count count 0.1 Else count 0 End If End Sub逻辑说明flag控制计时器是否运行pause控制是否暂停显示但继续计时。Form_Timer每 100 毫秒触发一次count累加 0.1。Round(count, 1)保留一位小数。参数count用Static声明否则每次触发都会重置为 0。常见错误是忘记Static导致计时器永远显示 0。5.2 窗体记录集删除与确认框原题第十七题要求在当前记录变化时弹出“是否删除该记录”点“是”删除点“否”什么都不做。代码里用了Me.Recordset.Delete。但实际运行时Form_Current事件在记录切换时触发如果用户点“否”记录已经切换了删除操作不会执行。我一般会加一个If MsgBox(...) vbYes Then判断并且注意Me.Recordset在 Access 窗体里是有效的但如果你用的是 ADO 记录集需要用Me.RecordsetClone或单独打开记录集。常见错误是在Form_Current里直接Delete而没有确认框导致误删。5.3 用真题文档做自测的流程我一般会这样用这份文档先不看答案把每道题的代码复制到 Access 的 VBA 编辑器里新建一个模块把Sub改成可运行的Sub Test()用Debug.Print输出结果。然后对照原题选项看自己的输出和哪个选项匹配。如果匹配不上就在关键变量后加Debug.Print逐步缩小范围。最后把错题对应的知识点记下来比如“Do Until 条件为 0 时执行一次”“ByVal 不影响实参”“定长字符串 Len 返回声明长度”。这套流程走一遍比单纯背答案有效得多。从那以后我每次拿到类似的练习题文档都强制自己先跑一遍代码再对答案希望帮到你。本文还有配套的精品资源点击获取