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