Выполнить проект, который определяет, является ли человек пенсионером - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.583 из 5
Похожие ответы