Ввод и вывод элементов массива

1. Вводи вывод элементов статического массива.

В этом примере осуществляется ввод и вывод массива a(20), состоящего из 21 элемента.

Sub prim1()

Dim a(20), str_a,i

For i = 0 To 20

a(i) = Int(Rnd * 100) + 1 ‘ввод элементов массива

str_a = str_a & a(i) & " " ‘преобразование числовых переменных в

‘строковые и сцепление их один за

Next i ‘другим

MsgBox str_a ‘ вывод элементов массива

End Sub

В этом примере осуществляется ввод и вывод массива a(3 to 10), состоящего из 8 элементов.

Sub prim2()

Dim a(3 To 10), str_a,i

For i = 3 To 10

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub

1. Вводи вывод элементов динамического массива.

В этом примере осуществляется ввод и вывод массива a().

Количество элементов массива n+1.

Sub prim3()

Dim a(), str_a, i, n

n = Val(InputBox("введите количество элементов массива n:")) ‘вводится количество элементов

ReDim a(n) ‘указывается количество элементов массива

For i = 0 To n

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub

В этом примере осуществляется ввод и вывод массива a(20).

Количество элементов массива 21.

Sub prim4()

Dim a(), str_a, i, x

ReDim a(20)

For i = 0 To 20

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub

В этом примере осуществляется ввод и вывод массива a(1 to 20).

Количество элементов массива 20.

Sub prim5()

Dim a(), str_a, i, x

ReDim a(1 To 20)

For i = 1 To 20

a(i) = Int(Rnd * 100) + 1

str_a = str_a & a(i) & " "

Next i

MsgBox str_a

End Sub