|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Private Sub Кнопка8_Click(). Dim a(3, 3), at(3, 3), res(3, 3) As Single, i, j, k As Byte, s As String, sum As Single
Dim a(3, 3), at(3, 3), res(3, 3) As Single, i, j, k As Byte, s As String, sum As Single ‘ Заполнение двумерного массива случайными числами For i = 1 To 3 For j = 1 To 3 a(i, j) = Int(10 * Rnd(5)) ‘ Формирование строки для вывода массива s = s & Str(a(i, j)) & " " Next j s = s & Chr(13) & Chr(10) Next i Поле0.Value = s s = " " ‘ Получение транспонированной матрицы For i = 1 To 3 For j = 1 To 3 at(i, j) = a(j, i) s = s & Str(at(i, j)) & " " Next j s = s & Chr(13) & Chr(10) Next i Поле4.Value = s s = " " ‘ Умножение матрицы на матрицу For i = 1 To 3 For j = 1 To 3 sum = 0 For k = 1 To 3 sum = sum + a(i, k) * at(k, j) Next k res(i, j) = sum s = s & Str(res(i, j)) & " " Next j s = s & Chr(13) & Chr(10) Next i Поле6.Value = s End Sub Результат работы:
Пример Создать функцию, которая находит сумму всех элементов в двумерном массиве. Алгоритм 1.В окне базы данных нажать вкладку Модули/Создать и записать функцию: Public Function СУММА(A() As Integer) As Integer СУММА = 0 For i = 1 To UBound(A, 2) For j = 1 To UBound(A, 2) СУММА = СУММА + A(i, j) Next j Next i Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |