循环控制：掌握Do⋯While与Do⋯Until

背景简介

在编程中，循环控制是实现重复动作的关键。Visual Basic提供了一套灵活的循环语句，包括Do⋯While、Do⋯Until和For⋯Next，以适应不同的编程需求。本文将基于《Access 2021/Microsoft 365 Programming by Example》书籍中的内容，带领读者深入了解这些循环语句的实际应用和重要性。

Do⋯While与Do⋯Until循环

Do⋯While和Do⋯Until是两种控制循环执行的语句，它们允许在满足条件时重复执行一系列代码块。两者的区别在于，Do⋯While会在条件为真时继续循环，而Do⋯Until则在条件为假时继续循环。

实践案例

在Access中，我们可以通过Do⋯While循环持续显示输入框，直到用户输入正确的密码。例如，AskForPassword过程会不断提示用户输入报告密码，直到输入“DADA”为止。为了避免无限循环，代码中添加了Exit Do语句，允许用户通过输入空密码退出循环。

Dim pWord As String
pWord = ""
Do While pWord <> "DADA"
    pWord = InputBox("What is the report password?")
    If pWord = "" Then Exit Do
Loop

Do⋯While的另一种方法

Do⋯While循环还可以在底部测试条件，这使得循环内的语句至少会被执行一次。这种方法适用于至少需要执行一次操作的场景。

Dim secretCode As String
Do
    secretCode = InputBox("Enter your secret code:")
Loop While secretCode <> "sp1045"

For⋯Next循环

与Do循环不同，For⋯Next循环特别适用于知道循环次数的情况。它通过指定起始值、结束值和步进增量来控制循环的执行次数。

实践案例

在Access中，我们可以使用For⋯Next循环来遍历表单上的文本框并显示它们的名称。例如，以下代码展示了如何通过For⋯Next循环检查每个控件是否为文本框，并显示名称。

Dim i As Integer
For i = 0 To Me.Controls.Count - 1
    If TypeOf Me.Controls(i) Is TextBox Then
        MsgBox Me.Controls(i).Name
    End If
Next i

总结与启发

循环控制语句是编程中实现自动化和重复任务的基础。通过本章的学习，我们可以了解到Do⋯While、Do⋯Until和For⋯Next循环在实际应用中的区别与联系。掌握这些语句，不仅可以帮助我们编写出结构清晰、逻辑严谨的代码，还能有效地提高程序的效率和用户体验。在编程实践中，合理运用循环控制语句，可以解决很多重复性高的问题，使程序更加智能和人性化。

在阅读本章节内容后，我深受启发，意识到在编程中，循环控制不仅仅是一种语法结构，更是一种解决问题的思维方式。正确地使用循环，可以极大提高代码的可读性和可维护性。同时，避免无限循环的设计也是保证程序健壮性的关键一环。我期待将这些知识应用到更多的编程实践中，不断探索循环控制的更多可能性。