Dim sum as IntegerIf Val(Text1.Text)<1 Or Val(Text1.Text)<20 Then MsgBox "请重新输入n值！"Else For i=1 To n For j=1 To i sum=sum+j Next NextEnd IfText2.Text=CStr(sum)
