Определить животное, соответствующее введенному пользователем году - VB
Формулировка задачи:
По китайскому гороскопу каждому году соответствует животное : обезьяна, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца
Определить животное, соответствующее введенному пользователем году.
Примечание: номер года по китайскому гороскопу можно получить, если определить остаток от деления значения года на 12. Остаток "0"- годVB обезьяны.
Решить нужно на VB. прошу помогите, по гроб жизни должен буду
Решение задачи: «Определить животное, соответствующее введенному пользователем году»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim y As Integer
- y = CInt(InputBox("Ââåäèòå ãîä")) Mod 12
- Dim s As String
- Select Case (y)
- Case 0
- s = "îáåçüÿГ*Г*"
- Case 1
- s = "ГЇГҐГІГіГµ"
- Case 2
- s = "ñîáГ*ГЄГ*"
- Case 3
- s = "ГЄГ*ГЎГ*Г*"
- Case 4
- s = "êðûñГ*"
- Case 5
- s = "áûê"
- Case 6
- s = "ГІГЁГЈГ°"
- Case 7
- s = "êðîëèê"
- Case 8
- s = "äðГ*ГЄГ®Г*"
- Case 9
- s = "çìåÿ"
- Case 10
- s = "ëîøГ*äü"
- Case 11
- s = "îâöГ*"
- End Select
- MsgBox s
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д