Algoritmo lineal2 en visual basic - Numeros aleatorios

Hola amig@s, aquí la continuación de los números aleatorios en esta oportunidad sera el algoritmo lineal 2, utilizando otra formula.

Deberemos crear una ventana parecida a esta:

Utilizaremos 7 textbox y 3 botones

 Ojo el numero de periodos es el text1, semilla es la semilla, k es textk, G es textg, constante(c) es constanteA, el cuadro de en medio es text3 y el texbox de abajo es text4

En el botón generar ponemos el siguiente código:
Public Class ventanaAL2

    Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizamos 1 variable de tipo integer y 6 variables de tipo double
        Dim n_periodo As Integer
        Dim multiplicar As Double
        Dim nuevo_multi As Double
        Dim a As Double
        Dim m As Double
        Dim m2 As Double
        Dim result As Double
        n_periodo = text1.Text
        For i = 1 To n_periodo
            a = 1 + 4 * textk.Text
            m = 2 ^ textg.Text
            m2 = m - 1

            multiplicar = (a * semilla.Text + constanteA.Text) Mod m
            text4.Text = multiplicar

            nuevo_multi = text4.Text
            semilla.Text = nuevo_multi
            result = semilla.Text / m2

            text3.Text = text3.Text & vbCrLf & "Periodo:  [" & i & "]  " & text4.Text & " result:" & result
            If i = n_periodo Then
                Label1.Text = "Resultado:"
            End If
        Next i
    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
Boton de limpiar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1.Clear()
        semilla.Clear()
        constanteA.Clear()
        text3.Clear()
        text4.Clear()
        textk.Clear()
        textg.Clear()

    End Sub
End Class

Descarga el proyecto aquí:
http://kudoflow.com/2JPC