| informa |
| Option Explicit Dim x, y, odp, pkt, li, Lt As Integer Dim ocena As Single Private Sub TextBox6_Change() End Sub Private Sub userform_initialize() Randomize x = Round(10 * Rnd()) y = Round(10 * Rnd()) UserForm1.TextBox1.Text = x UserForm1.TextBox2.Text = y UserForm1.TextBox3.Text = " " li = 0 pkt = 0 UserForm1.TextBox4.Text = pkt UserForm1.TextBox5.Text = li Lt = Val(UserForm1.TextBox6.Text) End Sub Private Sub CommandButton1_Click() odp = Val(UserForm1.TextBox3.Text) If odp = x * y Then pkt = pkt + 2 ElseIf UserForm1.TextBox3.Text = " " Then pkt = pkt Else pkt = pkt - 1 End If UserForm1.TextBox3.Text = " " UserForm1.TextBox4.Text = pkt li = li + 1 UserForm1.TextBox5.Text = 2 * li x = Round(Rnd() * 10) y = Round(Rnd() * 10) UserForm1.TextBox1.Text = x UserForm1.TextBox2.Text = y End Sub Private Sub CommandButton2_Click() End Sub Private Sub Label4_Click() End Sub |