Знаки зодиака по введенной дате - VB
Формулировка задачи:
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1).
Решение задачи: «Знаки зодиака по введенной дате»
textual
Листинг программы
Private Sub Command1_Click() Dim k As Integer, SLeft As String, SRight As String, d As Single, S As String 'на всякий случай убираем пробелы S = Replace(Text1.Text, " ", "") 'меняем в дате местами день и месяц k = InStr(S, ".") SLeft = Left(S, k - 1) SRight = Right(S, Len(S) - k) d = Val(SRight & "." & SLeft) If d >= 1.2 Then S = "Водолей" If d >= 2.19 Then S = "Рыбы" If d >= 3.21 Then S = "Овен" If d >= 4.2 Then S = "Телец" If d >= 5.21 Then S = "Близнецы" If d >= 6.22 Then S = "Рак" If d >= 7.23 Then S = "Лев" If d >= 8.23 Then S = "Дева" If d >= 9.23 Then S = "Весы" If d >= 10.23 Then S = "Скорпион" If d >= 11.23 Then S = "Стрелец" If d >= 12.22 Or d <= 1.19 Then S = "Козерог" Label1.Caption = S End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д