Imports System

Public Module Module1

    Public Sub Main()

        Code()

    End Sub

    Public Sub Code()

        Dim rng as new Random

        Dim w,x,y,z as integer

        x = (rng.Next(1, 100))

        y = (rng.Next(1, 100))

        z = (rng.Next(1, 100))

        w = (x * y) mod z

​

        console.writeline(w)

    End Sub

End Module