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是吧?我修改了!