Public Class Form1

    Dim n As Integer, rand As Integer, num As Integer

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Label3.Text = rand

        If TextBox1.Text = "" Then

            Label1.Text = 0

            TextBox1.Text = 0

        End If

        If TextBox1.Text > rand Then

            Label1.Text = "у меня меньше"

        End If

        If TextBox1.Text < rand Then

            Label1.Text = "у меня більше"

        End If

        If TextBox1.Text = rand Then

            Label1.Text = "Угадав!!!"

            Label3.Text = rand

            rand = (49) * Rnd() * +1

            rand = (rand) * Rnd() * +1

            Label3.Show()

        End If

        Label4.Text = n

        num = 1

        n = num + Label4.Text

        If Label4.Text = 10 Then

            MessageBox.Show("В тебе лишилося ще 5 спроб")

        End If

        If Label4.Text > 15 Then

            MessageBox.Show("Ти програв")

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        rand = (49) * Rnd() * +1

        Label1.Text = "Я загадав число від 1 до 50.вгадаeш?"

        Label3.Text = rand

        Label3.Hide()

        Label4.Text = n

        num = 1

        n = num + Label4.Text

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox2.Text = "" Then

            TextBox2.Text = 0

        End If

        rand = (TextBox2.Text) * Rnd()

        Label1.Text = "Я загадав число від 1 до".ToString + TextBox2.Text + ".вгадаeш?"

        Label3.Text = rand

        Label3.Hide()

    End Sub

End Class