Контрольна робота № 3. Циклічні процеси

Постановка задачі. Розробити структурну блок-схему алгоритму і програму видачі заробітної плати двійками та п’ятірками за формулою S=2A+5B, де сума заробітної плати визначається за формулою S= 100*n (№ за списком студента в журналі викладача), А — кількість двійок, В — кількість п’ятірок.

Один з прикладів ескізної форми (рис. 4.).

Програмний код може бути таким, як приклад:

Private Sub Command1_Click()

Dim N As Integer

Dim S As Integer

Dim R As Integer

Dim A2 As Integer

Dim B5 As Integer

N = Val(Text1.Text)

S = 110 + N * 5

If N = 0 Then

MsgBox "ТРЕБА ЗАДАТИ НОМІР ВАРІАНТУ!"

End If

Text2.Text = S

A2 = Int(S / 2)

R = S - A2 * 2

If R = 0 Then

B5 = 0

ElseIf R <> 0 Then

A2 = A2 - 2

B5 = 2

End If

Text3.Text = A2

Text4.Text = B5

Print,,,,, "Кількість двійок = "; A2, "Кількість п'ятірок = "; B5

Do While A2 >= 5

A2 = A2 - 5

B5 = B5 + 2

Print,,,,, "Кількість двійок = "; A2, "Кількість п'ятірок = "; B5

Loop

MsgBox "Продолжим вычисления", vbOKCancel, "Результат"

End Sub

Результат розрахунку 2-го варіанту такий, як на рис. 9.5.

В програмі для засвоєння команди MsgBox необхідно в команді MsgBox "Продолжим вычисления", vbOKCancel, "Результат" змінити константу vbOKCancel на інші (наприклад, на: vbOKOnly, vbAbortRetryIggnore, vbYesNoCancel, vbYesNo, vbRetryCancel) та описати їх дії.

Дата добавления: 2014-12-24