数组问题 新手请教高手

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:47:25
有3个数组（ 11 11 11 11 11 11 11）
（ 22 22 22 22 22 22 22）
（ 33 33 33 33 33 33 33)
用VB如何实现对应相加结果为：
（ 66 66 66 66 66 66 66）每个数占3个字节，相加结果也要每个数战3个字节。
每个数3个字节，不够用空格代替

Private Sub Command1_Click()
Dim a1, a2, a3, i
Dim adds(), Result
a1 = Array(11, 11, 11, 11, 11, 11, 11)
a2 = Array(22, 22, 22, 22, 22, 22, 22)
a3 = Array(33, 33, 33, 33, 33, 33, 33)
ReDim adds(UBound(a1))
For i = 0 To UBound(adds)
adds(i) = a1(i) + a2(i) + a3(i)
Result = Result & Right(" " & adds(i), 3)
Next
MsgBox "数组相加结果为：" & vbNewLine & Result
End Sub

每个数三个字节？不是吧……

Private Sub Command1_Click()
Dim a, b, c
Dim d(0 To 6)
dim s
Dim i, j, l
a = Array(11, 11, 11, 11, 11, 11, 11)
b = Array(22, 22, 22, 22, 22, 22, 22)
c = Array(33, 33, 33, 33, 33, 33, 33)
For i = LBound(a) To UBound(a)
d(i) = a(i) + b(i) + c(i)
s=s & d(i) & " "
Next
s=trim(s)
print s
End Sub