Visual basic - Logaritmo

Public Class FrmEspLog

    Dim base, logaritmo, numero As Integer

    Dim argomento As Single

    

    Private Sub FrmEspLog_Load(ByVal

 sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call GENERA_Numeri()

    End Sub

    Public Sub GENERA_Numeri()

        Call Pulisci()

        numero = Int(Rnd() * 3) + 1

        Select Case numero

            Case 1

                base = Int(Rnd() * 3) + 1

                logaritmo = Int(Rnd() * 7) - 3

                argomento = base ^ logaritmo

                Txtesponente.
Text = logaritmo

                TxtArgomento.Text = argomento

            Case 2

                base = Int(Rnd() * 3) + 1

                logaritmo = Int(Rnd() * 7) - 3

                argomento = base ^ logaritmo

                Txtbase.Text = base

                Txtesponente.Text = logaritmo

            Case 3

                base = Int(Rnd() * 3) + 1

                logaritmo = Int(Rnd() * 7) - 3

                argomento = base ^ logaritmo

                Txtbase.Text = base

                TxtArgomento.Text = argomento

        End Select

    End Sub



    Private Sub BtnRigenera_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRigenera.Click

        Call GENERA_Numeri()

    End Sub



    Public Sub Pulisci()

        lblesito.Text = ""

        lblesito.Visible = False

        Txtbase.Text = ""

        TxtArgomento.Text = ""

        Txtesponente.Text = ""

    End Sub



    Private Sub BtnVerifica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerifica.Click

        If TxtArgomento.Text = argomento And Txtbase.Text = base And Txtesponente.Text = logaritmo And _

        TxtArgomento.Text <> "" And Txtbase.Text <> "" And Txtesponente.Text <> "" Then

            lblesito.Visible = True

            lblesito.Text = "Complimenti!"

        Else

            lblesito.Visible = True

            lblesito.Text = "Attento, la soluzione giusta è log in base " & base & " di " & argomento & " = " & logaritmo

        End If



    End Sub

End Class