很容易啊，用REDIM重定义下数组大小即可，例：
Private Sub Command1_Click()
Dim n() As Long
ReDim n(Val(Text1))
Dim lj As Long
For i = 0 To Val(Text1) - 1
n(i) = i + 1
lj = lj + n(i) '计算累加值
Next i
Print lj
End Sub
Private Sub Form_Load()
Text1 = 50
End Sub
Dim a() As Long, i As Integer, s As Long
ReDim a(1 To Val(Text1.Text))
For i = 1 To UBound(a)
a(i) = i
s = s + i
Next
Print s
如果只是要求和，那么不用数组也可以的：
Dim i As Integer, s As Long
For i = 1 To Val(Text1.Text)
s = s + i
Next
Print s
写好了 ，下载下来试试吧！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024