Выполнить проект, который определяет, является ли человек пенсионером - VB
Формулировка задачи:
Задание 3
Выполнить проект, который определяет, является ли человек пенсионером. В России пенсия назначается, если человек мужчина и ему больше 60 лет, или этот человек женщина и ей больше 55 лет, или если стаж по выслуге лет у человека превысил 25 лет.
Решение задачи: «Выполнить проект, который определяет, является ли человек пенсионером»
textual
Листинг программы
Option Explicit
Option Compare Text
Dim Pols As String, М As String, Ж As String
Dim Pol As Boolean, Vozrast As Single, Stage As Single, Pens As Boolean
Private Sub Command1_Click()
Pols = InputBox("Пол", , "М")
If Pols = "М" Then Pol = True Else Pol = False
Vozrast = InputBox("Возраст", , 56)
Stage = InputBox("Стаж", , 24)
Pens = False
If Stage >= 25 Or Vozrast >= 60 Or Vozrast >= 55 And Pol = False Then Pens = True
If Pens Then MsgBox "Пенсионер", vbYes Else MsgBox "Не пенсионер", vbYes
End Sub