IBM® SPSS® Amos™ 28

The following program reports the time needed to generate 100,000,000 random numbers.

Imports System
Imports System.Diagnostics
Imports Microsoft.VisualBasic
Module MainModule
    Sub Main()
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
        Dim Time0 As DateTime
        Time0 = Now
        Call arand.TimingTest(100000000)
        Debug.WriteLine("Elapsed time = " & Now.Subtract(Time0).ToString)
    End Sub
End Module