vb 两个数组相加,把值赋予第三个数组Private Sub Command1_Click()Dim i As IntegerDim a(),b(),c()a() = Array(2,8,7,6,4,28,70,25)b() = Array(79,27,32,41,57,66,78,80)For i = 0 To 7c(i) = a(i) + b(i)Next iPrint c(i);End Sub我的程序如上,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/29 01:05:45
![vb 两个数组相加,把值赋予第三个数组Private Sub Command1_Click()Dim i As IntegerDim a(),b(),c()a() = Array(2,8,7,6,4,28,70,25)b() = Array(79,27,32,41,57,66,78,80)For i = 0 To 7c(i) = a(i) + b(i)Next iPrint c(i);End Sub我的程序如上,](/uploads/image/z/11565383-23-3.jpg?t=vb+%E4%B8%A4%E4%B8%AA%E6%95%B0%E7%BB%84%E7%9B%B8%E5%8A%A0%2C%E6%8A%8A%E5%80%BC%E8%B5%8B%E4%BA%88%E7%AC%AC%E4%B8%89%E4%B8%AA%E6%95%B0%E7%BB%84Private+Sub+Command1_Click%28%29Dim+i+As+IntegerDim+a%28%29%2Cb%28%29%2Cc%28%29a%28%29+%3D+Array%282%2C8%2C7%2C6%2C4%2C28%2C70%2C25%29b%28%29+%3D+Array%2879%2C27%2C32%2C41%2C57%2C66%2C78%2C80%29For+i+%3D+0+To+7c%28i%29+%3D+a%28i%29+%2B+b%28i%29Next+iPrint+c%28i%29%3BEnd+Sub%E6%88%91%E7%9A%84%E7%A8%8B%E5%BA%8F%E5%A6%82%E4%B8%8A%2C)
vb 两个数组相加,把值赋予第三个数组Private Sub Command1_Click()Dim i As IntegerDim a(),b(),c()a() = Array(2,8,7,6,4,28,70,25)b() = Array(79,27,32,41,57,66,78,80)For i = 0 To 7c(i) = a(i) + b(i)Next iPrint c(i);End Sub我的程序如上,
vb 两个数组相加,把值赋予第三个数组
Private Sub Command1_Click()
Dim i As Integer
Dim a(),b(),c()
a() = Array(2,8,7,6,4,28,70,25)
b() = Array(79,27,32,41,57,66,78,80)
For i = 0 To 7
c(i) = a(i) + b(i)
Next i
Print c(i);
End Sub
我的程序如上,为什么总说“c(i) = a(i) + b(i)”越界呢?
Form1.AutoRedraw = True 请问这句话是什么作用?
vb 两个数组相加,把值赋予第三个数组Private Sub Command1_Click()Dim i As IntegerDim a(),b(),c()a() = Array(2,8,7,6,4,28,70,25)b() = Array(79,27,32,41,57,66,78,80)For i = 0 To 7c(i) = a(i) + b(i)Next iPrint c(i);End Sub我的程序如上,
我把你和程序修改了一下,你看看效果如何?
Private Sub Command1_Click()
Dim i As Integer
Form1.AutoRedraw = True
Dim a(),b(),c()
a() = Array(2,8,7,6,4,28,70,25)
b() = Array(79,27,32,41,57,66,78,80)
ReDim c(UBound(a()) + 1)
For i = 0 To 7
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
现在来回答问题吧:
(1)Dim a(),b(),c()这样的声明语句没有真正规定数组的大小和上下标,所以还不能直接使用;
(2)一般再使用redim语句对它再进行定义,才能使用使用.本例中a()和b()都使用array()函数进行了隐性定义,所以能够使用了;
(3)而c()没有经过任何定义,所以,不能够给它赋值.程序中出现了出错的提示;
(4)我修改的程序重点是加上了redim语句.还有一点其它的调整.
有什么不明白,请留言.
补充:那一句的作用是让数据在窗口上能显示出来.