赞 tiangang498 春芽
共回答了23个问题采纳率：91.3% 举报
Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值；"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值；"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s
1年前 追问
5
VBڴһťCommand1 ȫ£ Option Explicit Private Sub Command1_Click() Dim i As Integer Dim s As Integer Dim T As Integer Dim n As Integer n = Val(InputBox("nֵ")) s = 0 T = 0 For i = 1 To n T = T + i s = s + T Next i Print s End Sub
你能帮帮他们吗