блок-схемы по готовым программным кодам

Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
Z = Str(Z1)
For i = 1 To 12
Z = Z + S * P / 100
Next i
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год"
End Sub

Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
Z = Str(Z1)
i = 1
Do While i <= 12
Z = Z + S * P / 100
i = i + 1
Loop
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год"
End Sub

Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
i = 1
Z = Str(Z1)
Do
Z = Z + S * P / 100
i = i + 1
Loop While i <= 12
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год "
End Sub

Private Sub Command1_Click()
Dim K1, L1, M1 As Single
K1 = Val(K.Text)
L1 = Val(L.Text)
M1 = Val(M.Text)
If K1 > L1 And K1 > M1 Then
MsgBox "K-max", , "Среди чисел K,L,M"
Else
If L1 > M1 Then
MsgBox "L-max", , "Среди чисел K,L,M"
Else
If M1 > L1 Then
MsgBox "M-max", , "Среди чисел K,L,M"
End If
End If
End If
End Sub