Page 87 - 4450

For і% = 1 To 7
Title$ = "День" & і%
Temperatures(i%) = InputBox(Prompt$, Title$)
Next i%
End Sub
Для другої кнопки:
Private Sub Command2_Click()
Print "Найбільше значення температури за тиждень"
For і% = 1 To 7
Print "день"; і%, Temperatures(і%)
total! = total! + Temperatures(i%)
Next i%
Print
Print "середнє значення температури"; total! / 7
End Sub

Рисунок 13.1 – Інтерфейс програми

Запустити програму. Клацнути на кнопці Введення.
Введіть у вікно InputBox сім значень температур. Клацнути
на кнопці “Вихід”. Для третьої кнопки в процедурі ввести
END.

Приклад: Скласти програму сортування масиву

85