' Nikki Gough

Imports System.Console

Module SelectionMethods


Sub Main()

Dim iNumber As Integer
WriteLine ("Enter an intege between 1 and 10: ")
iNumber = ReadLine()
Dim MyRandom As Integer
If iNumber = 1 Then
WriteLine("You entered 1")
ElseIf iNumber = 2 Then
WriteLine("You entered 2")
ElseIf iNumber = 3 Then
WriteLine("You entered 3")
ElseIF iNumber = 4 Then
WriteLine("You entered 4")
ElseIf iNumber = 5 Then
WriteLine("You entered 5")
ElseIf iNumber = 6 Then
WriteLine("You entered 6")
ElseIf iNumber = 7 Then
WriteLine("You entered 7")
ElseIf iNumber = 8 Then
WriteLine("You entered 8")
ElseIf iNumber = 9 Then
WriteLine("You entered 9")
ElseIf iNumber = 10 Then
WriteLine("You entered 10")
Else
WriteLine("You didn't enter any number between 1-10")
End If

MyRandom =CInt(Int((6 * RND()) +1))

WriteLine()
WriteLine("Press enter to continue")
ReadLine()

End Sub


End Module


i have the following above but need help as i need the user to guess a random number between 1 and 6 generated by the computer, then hint to the user if its to high or to low. or correct.

regrads


neo