vb 循环语句给数组赋值问题

2025-02-24 12:02:07

推荐回答（3个）

回答1：

很容易啊，用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

回答2：

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

回答3：

写好了，下载下来试试吧！