Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Case 2 ' среднее значение по столбцам

Call rab2(n)

Case 3 ' min по строкам

Call rab3(n)

Case 4 ' min по столбцам

Call rab4(n)

Case 5 ' max по строкам

Call rab5(n)

Case 6 ' max по столбцам

Call rab6(n)

End Select
End If
End Sub

Здесь мы, соответственно, объявляем глобальную процедуру вида обработки. В данном случае это подсчет средних, максимальных, и минимальных элементов матрицы по столбцам и строкам
Call - Вызывает процедуру или функцию. Оператор Call может быть опущен.
Далее…

Sub ButtonOK_Click()
If Sheet1.OptionButton1.Value = True Then
'Ввод матрицы с клавиатуры в файл
Met1: inp = InputBox "Введите размерность матрицы А", "Ввод размерности",
"testfile" - выводит окно с запросом на ввод значения. Параметры такие же, как и у функции MsgBox.

n = Val(inp)- Превращает строку в число

If (n > 0) And (n A(i, j) Then x = A(i, j)

End If

Next j

Sheet4.Cells(i + 4, 9) = x

Next i
End Sub
Sub rab4(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = "Min элементы по столбцам"[pic]

Sheet4.Range("G4") = "Столбец"

Sheet4.Range("I4") = "Min"

Рекомендуем скачать другие рефераты по теме: 5 баллов, чс реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата