Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
абораторная работа № 8
Тема: Работа с двумерными массивами.
Рис. 1 - Форма с выведенными результатами
Текст программы:
Option Explicit
Option Base 1
Dim A() As Single
Dim n As Single, m As Single, i As Single, j As Single
Private Sub Command1_Click()
Print "Исходный массив: "
n = Val(InputBox("Укажите число строк"))
m = Val(InputBox("Укажите число столбцов"))
ReDim A(n, m)
For i = 1 To n
For j = 1 To m
A(i, j) = Val(InputBox("Введите a (" & Str(i) & "," & Str(j) & ") элемент массива"))
Next j
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To n
For j = 1 To m
Print A(i, j);
Next j
Next i
End Sub
Private Sub Command3_Click()
Print "Умноженный массив: "
For i = 1 To n
For j = 1 To m
A(i, j) = A(i, j) * 3
Print A(i, j);
Next j
Next i
End Sub
Private Sub Command4_Click()
End
End Sub
Блок-схема:
Контрольные вопросы:
Дайте определение двумерного массива. Приведите пример его объявления.
До сих пор мы обсуждали только одномерные массивы, представляющие собой “одну строку” переменных. В Visual Basic вы можете создавать и многомерные массивы. Размерность массива будет соответствовать количеству индексов, определяющих местоположение каждого элемента массива. Как правило, программисты не используют массивы, размерность которых больше трех, а для проектов начального уровня обычно достаточно и двумерных массивов.
Можно представить двумерный массив как сетку клеток – ячеек. Положение каждой ячейки определяется парой чисел: Номером столбца и Номером строки.
Двумерный массив объявить можно следующим образом:
Dim/Public/Private/Static ИмяМассива(ИндексСтолбца, ИндексСтроки) As ТипДанных
В индексе можно использовать слово To, чтобы задать диапазон изменения индекса любой из размерностей массива. Например, чтобы объявить описанный выше массив, можно воспользоваться следующим оператором:
Dim iMassiv(2,3) As Integer
Массив jVar( ), состоящий из десяти столбцов и пяти строк, можно объявить следующим образом:
Private jVar(1 To 10, 1 To 5)
Тогда столбцы массива jVar( ) будут нумероваться с 1 до 10, а строки с 1 до 5.
Напишите фрагмент кода программы для вывода двумерного массива на форму.
For i = 1 To n
For j = 1 To m
Print A(i, j);
Next j
Next i
Стасюк М.Ю.