(Visual Basic 6)

[phantom4eg]

Ребят не получается никак сделать...
Ввести с клавиатуры матрицу размерностью 5х5,вычислить максимальную сумму строк,и поделить матрицу на нее...
не пойму,впадаю в ступор.. создаю цикл,высчитываю,прописываю в окошко(по нажатию кнопки) и вылетае ошибка(вижу что не совсем верно составлен цикл).. если можно обьясните,или ссылку хотябы дайте на похожее

Dim l As Integer
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim a(1 To 5, 1 To 5) As Double
Dim vis As Boolean
Dim и As Double

Private Sub com1_Click()
l = 1000
For i = 1 To 5
k = 4300
For j = 1 To 5
a(i, j) = InputBox("Введите элементы матрицы", "Введите элементы матрицы размерностью 5х5")
CurrentX = k
CurrentY = l
k = k + 500
Print a(i, j)
Next j
l = l + 500
Next i
End Sub

Private Sub Com2_Click()
For i = 1 To 5
j = 1
s = s + a(i, j)
End Sub

Private Sub com3_Click()
b = Val(max.Text)
l = 5300
For i = 1 To 5
k = 4300
For j = 1 To 5
a(i, j) = a(i, j) / b
CurrentX = k
CurrentY = l
k = k + 500
Print a(i, j)
Next j
l = l + 500
Next i
End Sub

[Sazary]

вычислить максимальную сумму строк,и поделить матрицу на нее...

Собственно, задание не понял.

не пойму,впадаю в ступор.. создаю цикл,высчитываю,прописываю в окошко(по нажатию кнопки) и вылетае ошибка(вижу что не совсем верно составлен цикл)..

А это потому, что вы не закрыли цикл

Private Sub Com2_Click()
For i = 1 To 5
j = 1
s = s + a(i, j)
next i
End Sub

[phantom4eg]

Допустил ошибку... вот задание : Найти наименьшее произведение элементов строки и поделить на него матрицу

[phantom4eg]

да и цикл неверно составлен

[Sazary]

Найти наименьшее произведение элементов строки и поделить на него матрицу

Ну вот так как-нибудь тогда:

Dim i As Integer
Dim j As Integer
Dim a(1 To 5, 1 To 5) As Double

Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 5
a(i, j) = InputBox("Введите элементы матрицы", "Введите элементы матрицы размерностью 5х5")
Print using; a(i, j);
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
Dim p, s As Double
For i = 1 To 5
 s = 1
 For j = 1 To 5
  s = s * a(i, j)
 Next j
If (s < p) Or (i = 1) Then
 p = s
 End If
Next i
Print
Print
For i = 1 To 5
 For j = 1 To 5
  a(i, j) = a(i, j) / p
  Print a(i, j);
 Next j
 Print
Next i
End Sub

[phantom4eg]

Спасибо,разобрался