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

追问

好像不能运行

追答

Private Sub Command1_Click()
Dim i, j, n, sum As Integer
n = InputBox("请输入n")
sum1 = 0
For i = 1 To n
For j = 1 To i
sum = sum + j
Next j
Next i
Print sum
End Sub
是这个，原来那个有点问题。

Answer 2

Private Sub Command1_Click()
Dim i, j, n As Integer, s As Single
s = 0
n = Val(InputBox("请输入一个正整数:"))
For i = 1 To n
For j = 1 To i
s = s + j
Next j, i
Print s

End Sub