1、编写程序，计算1-n的所有正整数累积和。以下程序运用了For... ...Ne垓矗梅吒xt结构。Sub Routine1()n = InputBox("请输入n的值：")Dim j, i As IntegerFor i = 1 To nj = j + iNextMsgBox "1-" & n & "累加求和的结果是： " & jEnd Sub
2、利用For... ...Next循环打印乘法口诀。输入以下代码：Private Sub chengfakoujue()Dim n, i, j As IntegerDim 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 nEnd Sub
3、运行程序，显示结果如下：
