VB中，我想给一个数组赋值并输出print。
比如：求1-50的和，先把1-50的每个数存入数组n（）中，然后再把数组的数求和，这个给数组赋值的过程怎么老提示下标越界啊，头都大了。 这个50是不固定数，是个文本框text1，输入的数字。
就是这样的，文本框中输入一个数字，然后就求 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
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-02-06
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
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
第2个回答 2015-02-06
写好了 ，下载下来试试吧！
在看看求和代码？求和功能不能用
追答可以啊 ，我测试过了。求和可以正常用的！
追问看错你的意思了，1加到50是吧？我修改了！
