希望各位VB编程高手帮帮忙

For...Next
在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：

For counter = start To end [Step increment]
statements

Next [counter]

参数 Counter、Start、end 和 increment 都是数值型的。

注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。

在执行 For 循环时，Visual Basic

设置 counter 等于 start。

测试 counter 是否大于 end。若是的话，则 Visual Basic 退出循环。
（若 increment 为负，则 Visual Basic 测试 counter 是否小于 end。）

执行语句。

counter 增加一，或者增加 increment（如果已指定的话）。

重复步骤 2 到步骤 4。
以下代码打印出所有有效的屏幕字体名：

Private Sub Form_Click ()
Dim I As Integer
For i = 0 To Screen.FontCount
Print Screen.Fonts (i)
Next
End Sub

Do...Loop
用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是