Imports System
Module Program
Sub Main(args As String())
Dim inp As String = "-TEMP-"
While presenceCheck(inp) = 0
[Link]("Enter a string: ")
inp = [Link]()
End While
inp = "-TEMP-"
While lengthCheck(inp) = 0
[Link]("Enter a string which has more then 7 characters:
")
inp = [Link]()
End While
Dim diffInp
While typeCheck(diffInp) = 0
[Link]("Enter an integer: ")
diffInp = [Link]
End While
Dim numInp As Integer = 12093
While rangeCheck(numInp) = 0
[Link]("Enter a number between 0 and 10: ")
numInp = [Link]()
End While
inp = "-TEMP-"
While letterRangeCheck(inp) = 0
[Link]("Enter a letter between A and M: ")
inp = [Link]()
End While
End Sub
Function presenceCheck(inp)
If inp = "-TEMP-" Then
Return 0
ElseIf Len(inp) <> 0 Then
[Link]("Well done!")
Return 1
Else
[Link]("Try again. Enter something.")
Return 0
End If
End Function
Function lengthCheck(inp)
If inp = "-TEMP-" Then
Return 0
ElseIf Len(inp) > 7 Then
[Link]("Well done!")
Return 1
Else
[Link]("Try again. Enter something.")
Return 0
End If
End Function
Function typeCheck(diffInp)
If diffInp = Nothing Or diffInp Mod 1 <> 0 Then
Return 0
Else
Try
Dim newInp As Integer = diffInp / 2
[Link]("Well done")
Return 1
Catch ex As Exception
[Link]("Try again - input an integer")
Return 0
End Try
End If
End Function
Function rangeCheck(numInp)
If numInp = 12093 Then
Return 0
ElseIf numInp > -1 And numInp < 11 Then
[Link]("Well done!")
Return 1
Else
[Link]("Try again. Enter a number between 0 and 10
inclusive.")
Return 0
End If
End Function
Function letterRangeCheck(letterInp)
If letterInp = "-TEMP-" Then
Return 0
Else
Try
Dim letter As Char = [Link]()
Dim asciiletter = Asc(letter)
If asciiletter > 96 And asciiletter < 110 Then
[Link]("Well done!")
Return 1
Else
[Link]("Try to enter a letter between A and M")
Return 0
End If
Catch ex As Exception
[Link]("Enter a letter")
Return 0
End Try
End If
End Function
End Module
