Question

vb中怎样编写“1+(1+2)+(1+2+3)+(1++2+3+4)+。。。。。。”程序

Answer 1

Private Sub Command1_Click()
Dim i, j, n, sum1, sum2 As Integer
n = InputBox("请输入n")
sum1 = 0
sum2 = 1
For i = 1 To n
For j = 1 To i
sum1 = sum1 + j
Next j
sum2 = sum2 + sum1
Next i
End Sub

sum2为结果

Answer 2

Private Sub command1_click()
n = InputBox("请输入正整数n的值")
y = 0
For i = 1 To n
s = 0
For j = 1 To i
s = s + j
Next j
y = y + s
Next i
Print y;
End Sub

Answer 3

Dim N&, i&, Total&
Private Sub Command1_Click()
N = InputBox("请输入n")
Call SumN(N)
Print Total
End Sub
Sub SumN(S&)
For i = 1 To S
Total = Total + i
Next
If S > 1 Then Call SumN(S - 1)
End Sub

Answer 4

楼上正解