Question

VB考试题型 求大神解答~

题目：(事件)单击命令按钮。' (响应)求s=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+n).' 要求用单循环求前30项和，编写代码功能如(图1)。' 将结果存入变量S中 Private Sub Command1_Click()Dim i%, sum%, t%Dim s As String'********** Program **********'*********** End **************Label1.Caption = "前" & i - 1 & "项的和= " & sums = Label1.CaptionYZJ (s)End Sub

Answer 1

Private Sub Command1_Click()

    Dim i%, sum%, t%

    Dim s As String

    sum = 0

    For i = 1 To 30

        sum = sum + i * (i + 1) / 2

    Next i

    s = "前30项的和=" & sum

    Label1.Caption = s

End Sub