Question

VB编程代码在线等急急急。

VB编程代码在线等急急急。某程序员需要在VB软件中设计一个求累加和1+(1+2)+…+(1+2+…+n)=？的小程序，现已完成程序界面的设计，如图1所示。已知图中输入n值的文本框的名称为Text1，显示累加和的文本框的名称为Text2，“计算”按钮的名称为Command1。
试用VB语言编写“计算”按钮单击时的事件代码，实现如下功能：首先获取用户在文本框Text1中输入的n值，判断其是否处于1～20之间；如果不是，则显示如图2所示的消息框，并将Text1和Text2清空，让光标在Text1中闪烁；如果是，则计算1+(1+2)+…+(1+2+…+n)的值。最后将计算结果显示在文本框Text2中。

Answer 1

Dim sum as Integer
If 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
    Next
End If
Text2.Text=CStr(sum)