• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

End Sub

4. Спроектуйте форму FrmRez згідно з рис.8.6.

Рис. 8.6.Зовнішній вигляд форми (Frmrez)

5. Додайте такий код для елементів цієї форми:

Dim k As Single

Dim s As Single

Dim a As Single

Private Sub Cmd_Середнє_Click()

Open "dan.txt" For Input As #1

k = 0

s = 0

Do

Input #1, a

s = s + a

k = k + 1

Loop While Not EOF(1)

Close #1

Text1.Visible = True

Text1.Text = s \ k

End Sub

Private Sub Cmd_Продовження_Click()

frmIshDan.TxtExpluat.Text = ""

frmIshDan.TxtRezerv.Text = ""

frmIshDan.TxtRemont.Text = ""

frmIshDan.TxtAll.Text = ""

MsgBox "Виберіть місяць зі списку та натисніть Розрахунок "

FrmIshDan.Combo_month.SetFocus

Переглядів: 365