编写循环程序通常涉及以下几个步骤：
确定循环类型
无限循环：程序会一直执行，直到遇到退出条件。
计数循环：程序会按照指定的次数执行。
条件循环：程序会一直执行，直到条件不再满足。
选择合适的循环结构
For循环：适用于已知循环次数的情况。
While循环：适用于条件驱动的循环。
Do...While循环：先执行一次循环体，再判断条件。
编写循环体
包含需要重复执行的代码块。
设置循环条件
对于For循环，通常包括初始化、条件判断和更新表达式。
对于While和Do...While循环，条件在循环开始前进行评估。
处理循环控制语句
break：提前终止循环。
continue：跳过当前迭代，继续下一次循环。
else：在循环正常结束时执行。
考虑循环嵌套
循环可以相互嵌套，但要注意嵌套的顺序和逻辑。
下面是一个简单的For循环示例，用于计算1到100的自然数和：
```vb
Public Class Form1
Private Sub Form_Load（）
Dim sum As Long
sum = 0
For i As Long = 1 To 1000
sum = sum + i
Next
MsgBox "1到1000的自然数和为： " & sum
End Sub
End Class
```
这个示例中，`For`循环从1开始，到1000结束，每次迭代将`i`的值累加到`sum`变量中，并在循环结束后显示结果。
请根据具体需求选择合适的循环结构和编写相应的循环体。