АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Private Sub Клиенты_Click()
  2. Private Sub Кнопка0_Click()
  3. Private Sub Кнопка0_Click()
  4. Private Sub Кнопка2_Click()
  5. Private Sub Кнопка4_Click()
  6. Private Sub Кнопка4_Click()
  7. Private Sub Кнопка8_Click()
  8. Наследование. Понятие наследования. Спецификаторы доступа к данным: private, public, protected.

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


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)