1、编写程序，计算1-n的所有正整数累积和。以下程序运用了For... ...Next结构。
Sub Routine1()
n = InputBox("请输入n的值：")
Dim j, i As Integer
For i = 1 To n
j = j + i
Next
MsgBox "1-" & n & "累加求和的结果是： " & j
End Sub
2、利用For... ...Next循环打印乘法口诀。
输入以下代码：
Private Sub chengfakoujue()
Dim n, i, j As Integer
Dim s, t As String
For n = 1 To 9
t = ""
For i = 1 To n
j = n * i
s = n & "*" & i & "=" & j
t = t & " " & s
Next i
Debug.Print t
Next n
End Sub
3、运行程序，显示结果如下：
