Определить животное, соответствующее введенному пользователем году - VB

Узнай цену своей работы

Формулировка задачи:

По китайскому гороскопу каждому году соответствует животное : обезьяна, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца Определить животное, соответствующее введенному пользователем году. Примечание: номер года по китайскому гороскопу можно получить, если определить остаток от деления значения года на 12. Остаток "0"- годVB обезьяны. Решить нужно на VB. прошу помогите, по гроб жизни должен буду

Решение задачи: «Определить животное, соответствующее введенному пользователем году»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2.     Dim y As Integer
  3.     y = CInt(InputBox("Ââåäèòå ãîä")) Mod 12
  4.     Dim s As String
  5.     Select Case (y)
  6.     Case 0
  7.         s = "îáåçüÿГ*Г*"
  8.     Case 1
  9.         s = "ГЇГҐГІГіГµ"
  10.     Case 2
  11.         s = "ñîáГ*ГЄГ*"
  12.     Case 3
  13.         s = "ГЄГ*ГЎГ*Г*"
  14.     Case 4
  15.         s = "êðûñГ*"
  16.     Case 5
  17.         s = "áûê"
  18.     Case 6
  19.         s = "ГІГЁГЈГ°"
  20.     Case 7
  21.         s = "êðîëèê"
  22.     Case 8
  23.         s = "äðГ*ГЄГ®Г*"
  24.     Case 9
  25.         s = "çìåÿ"
  26.     Case 10
  27.         s = "ëîøГ*äü"
  28.     Case 11
  29.         s = "îâöГ*"
  30.     End Select
  31.     MsgBox s
  32. End Sub

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


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

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

6   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы