学习vb循环语句之我见学习b循环语句之我见学习vb循环语句之我见学习vb循环语句之我见.doc

学习VB循环语句之我见 　　VB 的循环语句有 4 大类，共 8 个小类，要全部掌握这些语句，可不是简单的事。　　实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。　　下面用计算 1+2+3+...+100 来看看这 8 个循环小类的特点： Private Sub Command1_Click()?? Dim I As Long, S As Long?? 一、例子 ①：For...Next 循环?? For I = 1 To 100???? S = S + I?? Next?? MsgBox For...Next：1+2+3+...+100 = S 二、 Do...Loop 循环例子②： 在 Do 和 Loop 后面不使用任何关键字，在循环体内加入判断语句退出循环?? I = 0: S = 0?? Do????? I = I + 1????? If I 100 Then Exit Do????? S = S + I?? Loop?? MsgBox Do...Loop：1+2+3+...+100 = S 例子③：在 Do 后面使用 While 关键字I 小于 100 就进入循环?? I = 0: S = 0?? Do While I 100????? I = I + 1????? S = S + I?? Loop?? MsgBox Do While：1+2+3+...+100 = S 例子④：在 Loop 后面使用 While 关键字I 不是小于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次）?? I = 0: S = 0?? Do????? I = I + 1????? S = S + I?? Loop While I 100?? MsgBox Loop While：1+2+3+...+100 = S 例子⑤：在 Do 后面使用 Until 关键字I 大于 100 就退出循环，注意 S=S+I 和 I=I+1 的位置与使用 While 关键字时不同不同?? I = 0: S = 0?? Do Until I 100????? S = S + I????? I = I + 1?? Loop?? MsgBox Do Until：1+2+3+...+100 = S 例子⑥：在 Loop 后面使用 Until 关键字I 大于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次）?? I = 0: S = 0?? Do????? S = S + I????? I = I + 1?? Loop Until I 100?? MsgBox Loop Until：1+2+3+...+100 = S 三、While...Wend 循环例子⑦：I 小于 100 就执行循环，与例子③ Do While I 100 完全相同?? I = 0: S = 0?? While I 100???? I = I + 1???? S = S + I?? Wend?? MsgBox While...Wend：1+2+3+...+100 = S 四、例子⑧：Goto 语句?? I = 0: S = 0Mark1:?? I = I + 1?? S = S + I?? If I 100 Then GoTo Mark1?? ?? MsgBox GoTo 语句：1+2+3+...+100 = SEnd Sub 　　可以看出，例子② 在 Do 和 Loop 后面不使用任何关键字，在循环体内的适当地方加入判断语句退出循环。这种方式可以说是万能循环语句，其他任何循环语句都可以改写为这种形式。其优点是：结构简单，灵活。 　　例子① For...Next 循环，对于知道了循环起始和终止值的情况来说，使用起来更方便。 因此，我的结论是：学习 VB 循环语句，为了提高效率，做到事半功倍，只需学好 For...Next 和 Do...Loop（后面不使用任何关键字）就足够了。1. VB四舍五入的疑惑 在 VB 中，Cint 和 CLng 函数是四舍五入函数。但是，当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数。例如，1.5 和 2.5 都转换为 2，3.5 转换为 4 同样的，将一个小数赋值给 Integer 或 Long 类型变量，也会出现这种情况。 我的疑惑：不知道微软为什么会把VB做成这个样子？Int 是将小数部分切除，只保留整数部分因此，要想得到数学上的四舍五入，无论哪个函数都是不准确的。下面是我的四舍五入例子：Private Su