Public Class Form1 Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim broj As Single Dim točan_broj As Single točan_broj = Rnd(10) broj = TextBox1.Text Do Until broj = točan_broj If broj < točan_broj Then Label2.Text = "Moj broj je veći od tvoga!" If broj > točan_broj Then Label2.Text = "Moj broj je manji od tvoga!" If broj = točan_broj Then Label1.Text = "Točno, točan broj je " & točan_broj TextBox2.Text = točan_broj Točno.Show() Else Label2.Text = "Krivo Bre!!" End If Loop End Sub End Class
When I run it and type the first number (my guess) the app freezes up, without any obvious reason. What am I doing wrong here?


Sign In
Create Account

Back to top









