怎么用Vb计算1到N的和 只需要“计算”就够了

    Dim I As Integer, N As Integer

    Dim Sum As Integer

    N = Val(Text1.Text)

    For I = 1 To N Step 1

        Sum = Sum + I

    Next I

    Print Sum
再问： 那怎么让sum出现在“计算结果”的方框里？
再答： 你的计算结果应该是Text2吧？你只要把我代码最后一句    Print Sum改成    Text2.Text=Str(Sum)就可以了