Dim A(10)

Private Sub Command1_Click()

Способы задания двухмерного массива

Занятие 32. Двухмерные массивы

Занятие 31. Зачетное занятие

Занятие 30. Лабораторная работа №8. Одномерные массивы

End Sub

Next i

Print B(i);

Print

Next i

End If

Next j

M = 1 ‘счетчик количества различных элементов в массиве В

Next i

Print A(i);

Randomize

Private Sub Command1_Click()

End Sub

Next i

End If

R = I

P = S

Next j

S = 0 ‘счетчик кол-ва встреч при очередном просмотре массива

P = 1 ‘счетчик количества встреч элемента в массиве

Print

Next i

Print A(i);

Randomize

Print "Массив А"

For i = 1 To N 'задание элементов массива

A(i) = Int(Rnd * 10)

Z = A(1) ‘значение чаще всего встречающегося элемента

R = 1 ‘номер – “– “– “– “– “– “– “

For i = 1 To N

For j = 1 To N

If A(i) = A(j) Then S = S + 1

If S > P Then

Z = A(i)

Print "A("; R; ")="; A(R)

Задача 8. Составьте программу вывода на экран и подсчета числа различных элементов массива A(N).

N = InputBox("Введите количество элементов массива")

Dim A(), B() ‘Массив А – данный массив

ReDim A(N), B(N) ‘Массив В – массив различных элементов

Print "Массив А"

For i = 1 To N 'задание элементов массива

A(i) = Int(Rnd * 10)

B(1) = A(1) ‘записываем первый элемент в массив В

For i = 2 To N

Flag = 0

For j = 1 To M

If A(i) = B(j) Then Flag=1

If Flag = 0 Then

M = M + 1

B(M) = A(i)

Print "Число различных элементов в массиве A =";M

Print "Массив B"

For i = 1 To M

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

Dim A(4,5) – размерность массива. Первое число в скобках – число строк, второе – количество столбцов.

А (1,4) = 7 значение элемента, стоящего в 1 строке, 4 столбце.

Примеры объявления двухмерного массива:

Dim R$(30,50) – двухмерный массив слов размером 30 на 50 ячеек.

Dim N$(2,3) - двухмерный массив слов из 2 строк и 3 столбцов.

N$(1,2)="Лев"

Заполнить массив можно следующими способами:

1. с помощью оператора присваивания:

A(1, 1) = 10

A(1, 2) = 9

A(1, 3) = 8

A(1, 4) = 7

2. С помощью команды InputBox