求 S=1+(1+2)+(1+2+3)+ ...... +(1+2+3+ ...... +n) 的值。用 InputBox 函数输入 n 值。 Private Sub Form_Click() Dim n As Integer, s As Double, x As Double Dim i As Integer, j As Integer,a As Integer n = Val(InputBox ("请输入不大于100 的自然数n:","计算" If n > 100 Then MsgBox "输入的数值不大于100" End If s = 0 For i = 1 To n x = 0 a = 0 For j = 1 To i '小循环用于计算题目中括号内的值 x = x + 1 a = ________________ Next j s = ___________ Next i Print "当n=" & n & "时,结果为:" & s End Sub