IBM® SPSS® Amos™ 28

The following program displays three pairs of random numbers. The second pair is identical to the first pair.

Imports System.Diagnostics
Module MainModule
    Sub Main()
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
 
        arand.Initialize(5)
        Debug.WriteLine(arand.NextNormal() & arand.NextNormal())
 
        arand.Initialize(5)
        Debug.WriteLine(arand.NextNormal() & arand.NextNormal())
 
        arand.Initialize(6)
        Debug.WriteLine(arand.NextNormal() & arand.NextNormal())
 
    End Sub
End Module