Question

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

Answer 1

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