Выполнить проект, который определяет, является ли человек пенсионером - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д