Imports System
Public Module Module1
Private Sub questionOne()
' -------------------------------------------------------------------
'-------------------------------------------------------------------
' ===> Write a line below to allow VB to Initialise a random-number generator
randomise()
' Global variables
' ===> Create an integer variable named roll and set it to 0
dim roll as integer = 0
' ===> Create a constant named SIDES and set it to 6
const SIDES as integer = 6
' Main program
' ===> Assign the result of this library call to the variable roll = ((SIDES * Rnd()) + 1)
roll = ((SIDES * Rnd()) + 1)
' ===> Display the message "Your roll is" and the variable roll
console.writeline("your roll is " & roll)
Console.WriteLine ("Goodbye")
Console.ReadLine()
End Sub
End Module
