VB 一维数组 相乘

把Print c挪一下位置就行了！就像下面这样：

Private Sub Form_Click()
Dim A As Variant
Dim B As Variant
Dim I As Integer
Dim c As Variant
c = Array()
A = Array(1, 3)
For I = 0 To 1
Print A(I)
Next

Dim J As Integer
B = Array(3, 4, 5)
For J = 0 To 2
Print B(J)
Next
For I = 0 To 1
For J = 0 To 2
c = 2 * A(I) * B(J)
Print c
Next J
Next I
End Sub

c = 2 * A(I) * B(J)

所以，跟循环没关系，只算了 循环最后一个数，即 2 * 3 * 5 ，=30

Private Sub Form_Click()
Dim A, B, c
Dim I As Integer
c = Array()
A = Array(1, 3)
For I = 0 To 1
Print A(I);
Next
Print
Dim J As Integer
B = Array(3, 4, 5)
For J = 0 To 2
Print B(J);
Next
Print
For I = 0 To 1
For J = 0 To 2
c = 2 * A(I) * B(J)
Print c;
Next J
Next I
End Sub

Print C放错位置了，应该放在c= 2 * A(I) * B(J)后