Algoritmo lineal en visual basic - Numeros aleatorios

Muy buen día amig@s, bienvenidos a mi blog, les presentare la continuación de los números aleatorios en este caso sera el algoritmo lineal.

Crean una ventana similar a esta:

 Donde tendrás que poner 6 textbox y 3 botones 

Ojo el text1 es el numero de periodos, semilla es la semilla, constanteM es constante(x), constanteA es constante(c) text3 es el cuadro de en medio y text4 el textbox te abajo (un poco revuelto en los nombres por eso la explicación a como se llaman los textbox en la ventana creada.

En el botón generar pondrán el siguiente código:

Public Class ventanaAL

    Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click

Crean 5 variables 1 de tipo integer, otra de tipo string o cadena y 3 de tipo double

        Dim n_periodo As Integer

        Dim semillita As String

        Dim multiplicar As Double

        Dim nuevo_multi As Double

        Dim divisor As Double

        n_periodo = text1.Text

        For i = 1 To n_periodo

            semillita = semilla.Text

            multiplicar = (constanteM.Text * semilla.Text + constanteA.Text) Mod 100

            text4.Text = multiplicar

            nuevo_multi = text4.Text

            semilla.Text = nuevo_multi

            divisor = text4.Text / 99

  text3.Text = text3.Text & vbCrLf & "Periodo  [" & i & "]  " & text4.Text & "  result: " & divisor

            If i = n_periodo Then

                Label1.Text = "Resultado:"

            End If

        Next i

    End Sub

Boton de limpiar 

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

        text1.Clear()

        semilla.Clear()

        constanteM.Clear()

        constanteA.Clear()

        text4.Clear()

        text3.Clear()

    End Sub

Boton de salir

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

        Form1.Show()

        Me.Hide()

    End Sub

End Class
Descarga el proyecto aquí:
http://kudoflow.com/2JKJ