Private Sub Command1_Click()

x = InputBox("Ââåäèòå öèôðîé ìåñÿö âàøåãî ðîæäåíèÿ", "Íîìåð ìåñÿöà")

y = InputBox("Ââåäèòå ÷èñëî âàøåãî äíÿ ðîæäåíèÿ", "×èñëî ðîæäåíèÿ")

If x = 1 Then

Select Case y

Case 1 To 20

Form1.Label1.Visible = True

Label1.Caption = "Êîçåðîã"

Form1.Image1.Visible = True

Form1.Label3.Visible = True

Case 21 To 31

Form1.Label1.Visible = True

Label1.Caption = "Âîäîëåé"

Form1.Image2.Visible = True

Form1.Label4.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 2 Then

Select Case y

Case 1 To 20

Form1.Label1.Visible = True

Label1.Caption = "Âîäîëåé"

Form1.Image2.Visible = True

Form1.Label4.Visible = True

Case 21 To 31

Form1.Label1.Visible = True

Label1.Caption = "Ðûáû"

Form1.Image3.Visible = True

Form1.Label5.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 3 Then

Select Case y

Case 1 To 20

Form1.Label1.Visible = True

Label1.Caption = "Ðûáû"

Form1.Image3.Visible = True

Form1.Label5.Visible = True

Case 21 To 31

Form1.Label1.Visible = True

Label1.Caption = "Îâåí"

Form1.Image4.Visible = True

Form1.Label6.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 4 Then

Select Case y

Case 1 To 20

Form1.Label1.Visible = True

Label1.Caption = "Îâåí"

Form1.Image4.Visible = True

Form1.Label6.Visible = True

Case 21 To 31

Form1.Label1.Visible = True

Label1.Caption = "Òåëåö"

Form1.Image5.Visible = True

Form1.Label7.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 5 Then

Select Case y

Case 1 To 20

Form1.Label1.Visible = True

Label1.Caption = "Òåëåö"

Form1.Image5.Visible = True

Form1.Label7.Visible = True

Case 21 To 31

Form1.Label1.Visible = True

Label1.Caption = "Áëèçíåöû"

Form1.Image6.Visible = True

Form1.Label8.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 6 Then

Select Case y

Case 1 To 21

Form1.Label1.Visible = True

Label1.Caption = "Áëèçíåöû"

Form1.Image6.Visible = True

Form1.Label8.Visible = True

Case 22 To 31

Form1.Label1.Visible = True

Label1.Caption = "Ðàê"

Form1.Image7.Visible = True

Form1.Label9.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 7 Then

Select Case y

Case 1 To 22

Form1.Label1.Visible = True

Label1.Caption = "Ðàê"

Form1.Image7.Visible = True

Form1.Label9.Visible = True

Case 23 To 31

Form1.Label1.Visible = True

Label1.Caption = "Ëåâ"

Form1.Image8.Visible = True

Form1.Label10.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 8 Then

Select Case y

Case 1 To 23

Form1.Label1.Visible = True

Label1.Caption = "Ëåâ"

Form1.Image8.Visible = True

Form1.Label10.Visible = True

Case 24 To 31

Form1.Label1.Visible = True

Label1.Caption = "Äåâà"

Form1.Image9.Visible = True

Form1.Label11.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 9 Then

Select Case y

Case 1 To 23

Form1.Label1.Visible = True

Label1.Caption = "Äåâà"

Form1.Image9.Visible = True

Form1.Label11.Visible = True

Case 24 To 31

Form1.Label1.Visible = True

Label1.Caption = "Âåñû"

Form1.Image10.Visible = True

Form1.Label12.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 10 Then

Select Case y

Case 1 To 23

Form1.Label1.Visible = True

Label1.Caption = "Âåñû"

Form1.Image10.Visible = True

Form1.Label12.Visible = True

Case 24 To 31

Form1.Label1.Visible = True

Label1.Caption = "Ñêîðïèîí"

Form1.Image11.Visible = True

Form1.Label13.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 11 Then

Select Case y

Case 1 To 22

Form1.Label1.Visible = True

Label1.Caption = "Ñêîðïèîí"

Form1.Image11.Visible = True

Form1.Label13.Visible = True

Case 23 To 31

Form1.Label1.Visible = True

Label1.Caption = "Ñòðåëåö"

Form1.Image12.Visible = True

Form1.Label14.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

If x = 12 Then

Select Case y

Case 1 To 21

Form1.Label1.Visible = True

Label1.Caption = "Ñòðåëåö"

Form1.Image12.Visible = True

Form1.Label14.Visible = True

Case 22 To 31

Form1.Label1.Visible = True

Label1.Caption = "Êîçåðîã"

Form1.Image1.Visible = True

Form1.Label3.Visible = True

Case Is >= 31

Label1.Caption = "À íåëüçÿ óêàçàòü äàòó ïîòî÷íåå?"

End Select

End If

End Sub

 

Private Sub Command2_Click()

Form1.Image1.Visible = False

Form1.Image2.Visible = False

Form1.Image3.Visible = False

Form1.Image4.Visible = False

Form1.Image5.Visible = False

Form1.Image6.Visible = False

Form1.Image7.Visible = False

Form1.Image8.Visible = False

Form1.Image9.Visible = False

Form1.Image10.Visible = False

Form1.Image11.Visible = False

Form1.Image12.Visible = False

Form1.Label1.Visible = False

Form1.Label3.Visible = False

Form1.Label4.Visible = False

Form1.Label5.Visible = False

Form1.Label6.Visible = False

Form1.Label7.Visible = False

Form1.Label8.Visible = False

Form1.Label9.Visible = False

Form1.Label10.Visible = False

Form1.Label11.Visible = False

Form1.Label12.Visible = False

Form1.Label13.Visible = False

Form1.Label14.Visible = False

End Sub

 

Private Sub Command3_Click()

End

End Sub