EXCEL VBA中如何使用For... ...Next循环语句?

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、运行程序，显示结果如下：