Не могу найти ошибку (массив) VB 6.0

Формулировка задачи:

Исходные данные: выполнение плана поставок каждым из К предприятий по каждому из М наименований продукции. Исходные данные определяются путем обращения к датчику случайных чисел. Задание: а Для любого предприятия определить суммарные поставки продукции. б. Для любой продукции определить предприятие с наибольшими поставками.

Dim A As Integer, M As Byte, N As Byte
Private Sub Form1()
Randomise
End Sub
 
Private Sub Command1_Click()
Dim I As Byte, J As Byte, ST As String
 
M = InputBox("m= ", "количество строк", 3)
N = InputBox("n= ", "количество столбцов", 4)
ReDim A(1 To M, 1 To N) As Integer
ST = "9_": For J = 1 To N: ST& J & "_": Next
ST = ST & Chr(13) & Chr(10)
For I = 1 To M
For J = 1 To N
A(I, J) = Int(Rnd * 100): If A(I, J) < 10 Then ST = ST& '_'
ST = ST & Str(A(I, J)) & "_"
Next J
ST = ST & Chr(13) & CHR10
Next I
Text1.Text = ST
 
End Sub

Private Sub Command2_Click()
Dim I As Byte, J As Byte, S As Integer
Dim k As Byte, ST As String
Dim max As Integer
max = -32000: ST = ST + "A:суммы по стр" + Chr(13) + Chr(10)
For I = 1 To M
S = 0
For J = 1 To N
S = S + A(I, J)
Next J
If S > max Then max = S: k = 1
ST = ST & "PR_" & I & "_" & S & "_" & Chr(13) & Chr(10)
Next I
Text2.Text = ST & "номер наиб.=" & k

End Sub

Решение задачи: «Не могу найти ошибку (массив) VB 6.0»

textual
                            Листинг программы 
                        

                            Dim A() As Integer, M As Byte, N As Byte
Private Sub Command1_Click()
Dim I As Byte, J As Byte, ST As String
M = InputBox("m= ", "ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ", 3)
N = InputBox("n= ", "ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў", 4)
ReDim A(1 To M, 1 To N) As Integer
ST = "9_": For J = 1 To N: ST = J & "_": Next
ST = ST & vbNewLine
For I = 1 To M
For J = 1 To N
A(I, J) = Int(Rnd * 100): If A(I, J) < 10 Then ST = ST & "_"
ST = ST & Str(A(I, J)) & "_"
Next J
ST = ST & vbNewLine
Next I
Text1.Text = ST
End Sub
Private Sub Command2_Click()
Dim I As Byte, J As Byte, S As Integer
Dim k As Byte, ST As String
Dim max As Integer
max = -32000: ST = ST + "A:Г±ГіГ¬Г¬Г» ГЇГ® Г±ГІГ°" + vbNewLine
For I = 1 To M
S = 0
For J = 1 To N
S = S + A(I, J)
Next J
If S > max Then max = S: k = 1
ST = ST & "PR_" & I & "_" & S & "_" & vbNewLine
Next I
Text2.Text = ST & "Г*Г®Г¬ГҐГ° Г*Г*ГЁГЎ.=" & k
 
 
End Sub
 
Private Sub Form_Load()
Randomize
 
End Sub
                        