前言
在学习学生系统中，关于添加信息的窗体有五个，分别是：添加用户、添加学籍信息、添加班级信息、添加课程信息、添加成绩信息。为了更好的梳理思路，我做了关于添加信息窗体的流程图。
代码片段
检验添加信息是否重复及添加记录代码，如：
While (mrc.EOF = False)
If (Trim(mrc.Fields(0)) = Trim(txtCourseno.Text)) Then
MsgBox "课程编号已经存在，请重新输入课程编号！", vbOKOnly + vbExclamation, "警告"
txtCourseno.Text = ""
txtCourseno.SetFocus
Exit Sub
Else
mrc.MoveNext
End If
Wend
mrc.AddNew
……
mrc.Update
……
mrc.close
End If 语法知识
while ……wend 语句：
语法：
while 条件
语句
wend组成：
while：循环开始。
条件：表达式值为真，继续循环。
语句：反复执行的语句。
wend：终止循环，对条件进行求值判断是否终止循环。
说明：
1.如果条件为真，语句会被执行到wend语句，如果条件仍为真，则重复过程。如果条件为假，则终止循环，并执行wend后面的代码。
2.while……wend语句能无限嵌套，每个wend都有一个while匹配。
Do while ……Loop语句：
Do while <条件>
<循环体>
Loop
说明：首先判断条件是否成立，若条件成立，则执行循环语句。遇到Loop语句后，再次判断条件是否成立，若成立，继续执行循环语句，如此不断重复，当条件不成立时，则终止Do语句的执行。
区别：do-while 和 while 循环非常相似，区别在于表达式的值是在每次循环结束时检查而不是开始时。和正规的 while 循环主要的区别是 do-while 的循环语句保证会执行一次（表达式的真值在每次循环结束后检查），然而在正规的 while 循环中就不一定了（表达式真值在循环开始时检查，如果一开始就为 FALSE 则整个循环立即终止）。
for……next语句：
语法：
For <循环变量>=<初值> To <终值> step <步长>
<循环体>
next <循环变量>说明：
步长值可以为正数或负数，代表循环变量每次增加的值。
结语
通过画流程图思路更清晰了，也找到了添加信息窗体的共同点，都是一个套路。我们要做的就是保持思路清晰，把套路搞懂。