Курсовая работа: Бросание игральной кости на VBA

stav = CDbl(TextBox2.Text)

Label18.Visible = False

If stav < 6 And stav > 0 Then

qtimer

Else

Label18.Visible = True

Label18.Caption = "Вынесделалиставку!!!"

End If

Label19.Caption = TextBox1.Text + " Вашвыигрыш = "

End Sub

Private Sub CommandButton2_Click()

PauseTime = 0

End Sub

Private Sub CommandButton3_Click()

Label1.Caption = "0"

Label2.Caption = "0"

Label3.Caption = "0"

Label4.Caption = "0"

Label5.Caption = "0"

Label6.Caption = "0"

Label15.Caption = "0"

Label19.Caption = ""

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Private Sub CommandButton4_Click()

UserForm1.Hide

End Sub

Модуль

Public PauseTime, Start, Finish, TotalTime

Заключение