Page 101 - 4788

Prompt$ = " ввести найбільшу температуру"
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.

99