Question

编程实现求Sum=1+（1+2）+（1+2+3）+（1+2+3+4）+ … … +(1+2+3+4+ … + n)(n是从键盘输入的正整数

VB的 很简单的 求帮忙

Answer 1

Sub test()
n = InputBox("输入一个整数")
su = 0
For i = 1 To n * 1
For j = 1 To i - 1
su = su + j
Next
su = su + i
Next
Print su
End Sub

追问

不对啊 我才学VB 确实不会

追答

在VBA中测试成功！

Sub test()
n = InputBox("输入一个整数")
su = 0
For i = 1 To n * 1
For j = 1 To i - 1
su = su + j
Next
su = su + i
Next
msgbox su
End Sub

Answer 2

建个FORM,在上面放三个控件:其中:一个BUTTON B_YES,二个TEXTBOX TIN和TSUM,TIN用来放输入的整数,TSUM用来显示结果.然后在B_YES的BUTTON_CLICK里写代码如下:
Dim i As Integer
Dim j As Integer
Dim sum As Integer
Dim n As Integer

n = Val(TIN.Text)
sum = 0
j = 0
For i = 1 To n
sum = i + sum
j = j + sum
Next i
TSUM.Text = j

已经在VB.net下测试通过,结果正确