Работа с динамическим массивом

Код модуля формы

Option Explicit

Dim i As Integer, Общая As Single

Private Sub Command1_Click()

Cls

Дни = InputBox("Сколько дней?", "Создается массив")

If Дни > 0 Then ReDim Температура(Дни - 1)

For i = 0 To Дни - 1

Температура(i) = InputBox("Введите температуру", "День" & i)

Next i

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Print "Это температуры нескольких дней "

Общая = 0

For i = 0 To Дни - 1

Print "День" & i, Температура(i)

Общая = (Общая) + Val(Температура(i))

If i = Дни - 1 Then Command2.Enabled = False

Next i

Print "Средняя температура"; Общая / Дни

End Sub

Private Sub Command3_Click()

End

End Sub

Код модуля класса

Option Explicit

Public Температура() As Variant

Public Дни As Integer

Пример 24

Работа со списком

Код модуля формы

Option Explicit

Private Sub Command1_Click()

Do

Call ДобавлениеСписок(Имя)

Loop Until Имя = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Код модуля класса

Option Explicit

Public b As Integer, i As Integer

Public Имя As String

Sub ДобавлениеСписок(a)

i = i + 1

a = InputBox("Введите имя для добавления в список", "Добавление имени")

If a <> "" Then

ФормаВвода.Список.AddItem a

b = b + 1

MsgBox "В список добавлено имен" & b,, "Добавлено"

Else

MsgBox "Имя не определено",, "Ошибка!"

End If

End Sub

Пример 25