用vb编程实现s=1x2+2x3+3x4+……+(n-1)xn

2024年11月29日 21:44
有1个网友回答
网友(1):

Dim S As Double
Dim n As Long
Dim i As Long
S = 0
n = CLng(InputBox("表输入一个大于1的正整数"))
For i = 2 To n
S = S + (n - 1) * n
Next
Print S