пользовательские формы

[Kression]

Нужно угадать что выдаст случайным образом программа «орѐл» или « решка» с помощью пользовательских форм.Создал датчик случайных чисел от 1 до 2,хотел присвоить им значения орел и решка,но вышло наоборот.Слова не воспринемает,а вот с числами работает хорошо,как правильно реализовать подобную вещь?Насколько я понимаю нужно писать не "орел=1", а "1=орел" можно как то сделать подобную запись?

Private Sub CommandButton1_Click()
Q = Val(TextBox1.Text)
орел = 1
решка = 2
W = Int(2 * Rnd + 1)
If W = Q Then
Label4.Caption = "Вы угадали!"
Else
Label4.Caption = "Вы не угадали!"
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me 'кнопка выхода
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = "" 'кнопка повтора
Label4.Caption = ""
Me.TextBox1.SetFocus
End Sub

[Казанский]

Заставлять юзера писать в текстбокс «орѐл» или «решка» - не лучшее решение.
Сделайте два OptionButton'а с соотв. подписями.

PS Попробовать

[kalbasiatka]

Ответ вообще тут не важен. Ведь угадать надо) Или пользователь будет смотреть какое значение приняло "W"?

[Kression]

kalbasiatka, огромнейшее пролетарское аригато!)

[IgorGO]

Kression,
а у Вас предусмотрен случай когда монета становится на ребро? (случай, который ставит под сомнение научность всей теории вероятности)

[Казанский]

... а случай, если в воздухе зависнет?