用VB写设计程序代码，求：s=1+(1+2)+(1

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Single, n As Integer, m As Integer, l As Long
n = 100
m = 0
l=0
For i = 1 To n
m = 0
For j = 1 To i
m = m + j
Next

l = l + m
Next
Print l
End Sub本回答被网友采纳