Question

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

VB中，我想给一个数组赋值并输出print。
比如：求1-50的和，先把1-50的每个数存入数组n（）中，然后再把数组的数求和，这个给数组赋值的过程怎么老提示下标越界啊，头都大了。 这个50是不固定数，是个文本框text1，输入的数字。
就是这样的，文本框中输入一个数字，然后就求 1到这个数字的和。
在线等

Answer 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

 

Answer 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

Answer 3

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

追问

在看看求和代码？求和功能不能用

追答

可以啊 ，我测试过了。求和可以正常用的！

追问

追答

看错你的意思了，1加到50是吧？我修改了！