| informa |
| 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 UserForm1.TextBox3.TabIndex = 0 |