End Sub

Next i

Print

Next j

Print A(i, j);

Randomize

S = 0

ReDim A(M, N)

Dim A()

Private Sub Command1_Click()

Занятие 33. Решение задач на двухмерные массивы

Next i

Print

Next j

Print A(i, j);

Rem Вывод двухмерногомассива

Next i

Next j

Print A(i, j);

Rem Вывод двухмерногомассива

Вывод двухмерного массива на экран

End Sub

Next i

Print

Next j

Print A(i, j);

Next i

Next j

Randomize

ReDim A(M, N)

Dim A()

Private Sub Command1_Click()

End Sub

Next i

Next j

Next i

ReDim A(M, N)

Dim A()

Private Sub Command1_Click()

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

For i = 1 To M

For j = 1 To N

A(i, j) = InputBox("A( " & i & "," & j & ")=") ‘амперсанты

Next j ‘выделяются пробелами

For i = 1 To M

For j = 1 To N

Print A(i, j) + " ";' обратите внимание на знаки препинания.

Print 'Перевод на новую строку

Элементы массива вводятся по строкам.

3. С помощью генератора случайных чисел.

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

For i = 1 To M

For j = 1 To N

A(i, j) = Int(Rnd * 100)

For i = 1 To M

For j = 1 To N

Двухмерный массив может выводиться на экран по-разному. Рассмотрим 2 варианта.

For i = 1 To M

For j = 1 To N

По этому фрагменту программы на экран выводится двухмерный массив в виде строки:

10 9 8 7 6 -1 –2 –3 –4 –5 0 1 2 3 4…

Для получения двухмерной таблицы в виде прямоугольника надо вставить команду Print между строками с командами Next.

For i = 1 To M

For j = 1 To N

По этому фрагменту программы на экран выводится двухмерный массив в виде:

10 9 8 7 6

-1 –2 –3 –4 –5

0 1 2 3 4

………………

Задача 1. Составьте программу вычисления суммы элементов двухмерного массива.

M = InputBox("Введите число строк массива")

N = InputBox("Введите число столбцов массива")

For i = 1 To M

For j = 1 To N

A(i, j) = Int(Rnd * 10)

S = S + A(i, j)

Print "S="; S

Задача 2. Составьте программу вычисления произведения ненулевых элементов двухмерного массива А.