Imports System
Public Module Module1
Public Sub Main()
dim num as random = new Random
dim rock as integer
dim paper as integer
dim scissors as integer
rock = 1
paper = 2
scissors = 3
'get random numbers between rock and paper and scissors.
'...the values rock - paper - scissors are possible
console.writeline("enter either rock, paper or scissors")
console.readline()
console.writeline(num.next(1 , 3))
End Sub
End Module