Пример умножения 2-ух матриц:| Код | Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Cls
Print "Матрица 1:" & vbNewLine
Dim a() As Single
Dim ai As Integer, aj As Integer
ai = InputBox("", "Размерность: число строк 1-ой матрицы")
aj = InputBox("", "Размерность: число столбцов 1-ой матрицы")
MsgBox "Число строк = " & ai & " Число столбцов = " & aj
ReDim a(0 To ai - 1, 0 To aj - 1) As Single
For i = 0 To ai - 1
For j = 0 To aj - 1
a(i, j) = InputBox("", "Заполните матрицу")
Print " "; a(i, j);
Next j
Print
Next i
Print
' ----------------------------------------------------------------
' матрица 2:
Print "Матрица 2:" & vbNewLine
Dim b() As Single
Dim bi As Integer, bj As Integer
bi = InputBox("", "Размерность: число строк 2-ой матрицы")
bj = InputBox("", "Размерность: число столбцов 2-ой матрицы")
If aj = bi Then
MsgBox "Число строк = " & bi & " Число столбцов = " & bj
Else: MsgBox "Число строк 1-ой матрицы" & vbNewLine & _
"не равно числу столбцов 2-ой матрицы", vbCritical
Exit Sub
End If
ReDim b(0 To bi - 1, 0 To bj - 1) As Single
For i = 0 To bi - 1
For j = 0 To bj - 1
b(i, j) = InputBox("", "Заполните матрицу")
Print " "; b(i, j);
Next j
Print
Next i
Print
' результат умножения 2-ух матриц:
Dim s As Integer, k As Integer
Dim c() As Single
ReDim c(0 To ai - 1, 0 To aj - 1) As Single
Print "Умножение матриц:" & vbNewLine
For i = 0 To ai - 1
For j = 0 To bj - 1
For k = 0 To aj - 1
c(i, j) = c(i, j) + a(i, k) * b(k, j)
Next k
Print " "; c(i, j);
Next j
Print
Next i
End Sub |
Маринка, вместо INPUT используй. В меню VB6 Tools -> Options на вкладке Editor поставь флаг "Require Variable Declaration" - так будет обязательное объявление переменных, а то они в твоем коде типа Variant, из-за чего скорость работы будет низкая и расход памяти очень большой.
Маринка, тебе надо только глядя на мой пример, заменить для своего случая операторы.
P.S. И не надо пользоваться Goto, а то не понятно, что куда ведет. Для его замены лучше использовать процедуры Sub, If... elseif... end if, Select Case ... End Case. |
)
в честь 14 февраля 
Пасиб, Мариночка!)))))))