Sub of function not defined - VB
Формулировка задачи:
Help
Срочно нужна ваша помощь! В программе нету начало текста, помогите доделать прогу(вот скрины неполной проги, она ошибку выдает
вот сама задача
1. Дан двумерный массив размером n*m, заполненный случайными числами. Определить номера строк массива, содержащих только положительные элементы и найти среди них наибольший.
Решение задачи: «Sub of function not defined»
textual
Листинг программы
Private Sub Command1_Click() Max = a(1, 1) For i = 1 To 3 For j = 1 To 4 a(i, j) = Round(Rnd * 20) Picture1.Print a(i, j); Next Picture1.Print Next For j = 1 To 4 If a(1, j) > 0 Then s = s + 1 If a(2, j) > 0 Then s1 = s1 + 1 If a(3, j) > 0 Then s2 = s2 + 1 Next b(1) = s b(2) = s1 b(3) = s2 For i = 1 To 3 If b(i) = 4 Then nomer = i Next Picture2.Print nomer For j = 1 To 4 If a(nomer, j) > Max Then Max = a(nomer, j) Next Text1.Text = Max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д