EJERCIO CON RANDOM

Public Class Form1


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

        Dim numero As Single
        Dim suerte As Decimal
        numero = TextBox1.Text
        suerte = Int(Rnd() * 9) + 1
        TextBox2.Text = CStr(suerte)
        If (numero >= suerte) Then
            TextBox4.Text = "gano"
        Else
            TextBox4.Text = "perdio"
        End If


    End Sub