TO BE DONE IN VISUAL BASIC:

REQUIREMENTS:

1) DEBUG

2)IN the getNum function, ADD the visualbasic statement that creates a Random object and declares a variable rand.

3) ADD the visualbasic statement that generates a random number from 0-99

Module Module1

'main module

Sub Main()

'Local variables

'Declare Integer num1, num2

Dim num1, num2

'Friendly message to the user the purpose of the program

Console.WriteLine (This program prompts the user for two numbers then displays the greater number.)

'Get numbers

'Call getNum(num1)

getNum(num1)

'Call getNum(num2)

getNum(num2)

'display result

'Call showMaximum(num1, num2)

showMaximum(num1, num2)

End Sub

'The getNum module gets an integer

'Module getNum(Integer Ref inputAnswer)

Sub getNum(inputAnswer As Integer)

'Display Enter an integer:

Console.WriteLine (Enter an integer: )

'Input inputAnswer

inputAnswer = Console.ReadLine()

'End Module

End Sub

'The showMaximum module shows maximum integer

'Module showMaximum(Integer num1, num2)

Sub showMaximum(ByVal num1 as Integer, ByVal num2 as Integer)

'Display "Maximum number is: ", findMax(num1, num2)

Console.WriteLine (Maximum number is: , findMax(num1, num2))

'End Module

End Sub

'The findMax function returns maximum of 2 numbers

'Function Integer findMax(Integer num1, num2)

Function findMax(ByVal num1 As Integer, ByVal num2 As Integer)

If num1 > num2

Return num1

Else

Return num1

End If

'End Function

End Function

'End Module

End Module