곱 이차원 배열

Question

를 이차원 A (5,3) 및 B (3,5)
이 때문에이 배열 C는()는 (5,3)와 B = (3,5)
이 배열 A의 첫 번째 행 *이 배열 (B)의 열과 그 다음
번째 열이 배열 A *이 배열 (B)의 열과 그 다음

[EDIT]하여 주석의 코드 :

Dim arry1(5, 3) As Integer 
Dim arry2(3, 5) As Integer 
Dim i, j As Integer 
For i = 1 To 5 
    For j = 1 To 3 
    arry1(i, j) = Int(9 * Rnd + 1) 
    Next i, j 
For i = 1 To 3 
    For j = 1 To 5 
    arry2(i, j) = Int(9 * Rnd + 1) 
    Next i, j 

Answer 1

Dim a, b As Integer 
Dim arry1(5, 3) As Integer 
Dim arry2(3, 5) As Integer 
ReDim c(5, 5) As Integer 
Dim i, j, s As Integer 

Print "" 
Print Space(15); "the first arry" 
Print "" 
For i = 1 To 5 
    For j = 1 To 3 
    arry1(i, j) = Int(9 * Rnd + 1) 
    Print Space(3); arry1(i, j); 
    Next j 
Print "" 
Next i 
Print "" 
Print Space(15); " the second arry" 
Print "" 
For i = 1 To 3 
    For j = 1 To 5 
    arry2(i, j) = Int(9 * Rnd + 1) 
    Print Space(3); arry2(i, j); 
    Next j 
Print "" 
Next i 
Print "" 
Print Space(15); " the result" 
Print "" 
cmd1.Visible = False 

For a = 1 To 5 
    For b = 1 To 5 
     For j = 1 To 3 
     s = s + (arry1(b, j) * arry2(j, a)) 
     c(a, b) = s 
    Next j 
     s=0 
    Next b 
Next a 

For i = 1 To 5 
    For j = 1 To 5 
    Print Space(3); c(i, j); 
    Next j 
    Print "" 
Next i 

답변 해 주셔서 감사합니다. 문제가 해결 될 수 있습니다. 내 코드에서 전화를 걸면 ... 감사합니다.

Answer 2

축하합니다! 당신이 Dim a, b As Integer 다음 b는 정수가됩니다 사용할 때

• 하지만,이 변형 될 것입니다 : 그것은

  일부 의견 : 사용할 수 있습니다. Dim a As Integer, b As Integer을 사용하면 a와 b가 모두 정수가됩니다.

• 왜 ReDim c(5, 5) As Integer입니까? 당신은 내가 텍스트 상자 또는 레이블 컨트롤에 데이터를 표시 할 양식에 인쇄하는 대신
• Dim c(5, 5) As Integer을 사용할 수 있습니다