Dim S As DoubleDim n As LongDim i As LongS = 0n = CLng(InputBox("表输入一个大于1的正整数"))For i = 2 To n S = S + (n - 1) * nNextPrint S