есть 3 проги мне надо чтобы расшифровали что значит каждая сточка чо она означает на понятном языке
вот пример одной
Option Explicit
Private Sub Command1_Click()
Dim x%(5, 6), a%(5), i%, j%, max%, nmax%
For j = 0 To 6
For i = 0 To 5
x(i, j) = Int(Rnd() * 200 - 100) 'заполняем массив
a(i) = x(i, j) 'в а заносим текущую строчку
fg1.TextMatrix(i + 1, j + 1) = x(i, j) 'выводим массив в таблицу
Next i
findMax a, max, nmax 'находим максимум в столбике массива
fg1.TextMatrix(7, j + 1) = max
fg1.TextMatrix(8, j + 1) = nmax
Next j
End Sub
Private Sub findMax(b%(), max%, nmax%)
Dim i%, lastNum%
lastNum = UBound(b) 'последний индекс массива
'задаем начальное значения
max = -101
For i = 0 To lastNum 'сравниваем со всеми
If b(i) > max Then
max = b(i)
nmax = i
End If
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Byte, s As String
'выводим условие
Label1.Caption = " A. Составить процедуру выбора максимального элемента и номера первого максимального элемента в массиве В(К)." & vbCrLf _
& " Б. Используя процедуру пункта А, " _
& "определить последний максимальный элемент и его номер в каждом столбце массива Х(5,6). " _
& "Массив заполнить случайными целыми числами в диапазоне (-100, 100)."
'инициализируем счетчик случайных чисел
Randomize
'в s формируем заголовки таблицы
s = " |"
For i = 0 To 5
s = s & i & " |" 'номера столбиков массива
Next i
fg1.FormatString = s & "6 "
fg1.Rows = 9
For i = 0 To 5
fg1.TextMatrix(i + 1, 0) = i 'номера строк массива
Next i
'названия резутатов в последних трех строках
fg1.TextMatrix(7, 0) = "max"
fg1.TextMatrix(8, 0) = "max №"
End Sub


Private Sub Form_Unload(Cancel As Integer)
End
End Sub

за расшифровки 3-х прог дам 300р)
http://vkontakte.ru/id14753436

KOLEN,
всё нужный человек найден!