Знаки Зодиака

Астрологи делят год на 12 периодов, каждому из которых ставят в соответствие один из знаков Зодиака. Это распределение следующее:

· 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 Козерог

Форма на этапе конструирования

Приводимая программа иллюстрирует использование операций сравнения и логических операций. После ввода даты рождения и щелчка по кнопке «Определить», программа выводит название знака Зодиака, соответствующего введённой дате.

Public Class Form1

Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click

Dim D, M As Byte

D = tb1.Text

M = tb2.Text

If (M = 1 And D >= 20) Or (M = 2 And D <= 18) Then Lb1.Text = "Водолей"

If (M = 2 And D >= 19) Or (M = 3 And D <= 20) Then Lb1.Text = "Рыбы"

If (M = 3 And D >= 21) Or (M = 4 And D <= 19) Then Lb1.Text = "Овен"

If (M = 4 And D >= 20) Or (M = 5 And D <= 20) Then Lb1.Text = "Телец"

If (M = 5 And D >= 21) Or (M = 6 And D <= 21) Then Lb1.Text = "Близнецы"

If (M = 6 And D >= 22) Or (M = 7 And D <= 22) Then Lb1.Text = "Рак"

If (M = 7 And D >= 23) Or (M = 8 And D <= 22) Then Lb1.Text = "Лев"

If (M = 8 And D >= 23) Or (M = 9 And D <= 22) Then Lb1.Text = "Дева"

If (M = 9 And D >= 23) Or (M = 10 And D <= 22) Then Lb1.Text = "Весы"

If (M = 10 And D >= 23) Or (M = 11 And D <= 22) Then Lb1.Text = "Скорпион"

If (M = 11 And D >= 23) Or (M = 12 And D <= 21) Then Lb1.Text = "Стрелец"

If (M = 12 And D >= 22) Or (M = 1 And D <= 19) Then Lb1.Text = "Козерог"

End Sub

End Class

Google Sites

Report abuse