• Home
 · 
• Math/Dates
 · 
• a function to return the largest number of ten numbers read.

a function to return the largest number of ten numbers read.

a function to return the largest number of ten numbers read.

Rate a function to return the largest number of ten numbers read.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function ReturnLargest(ByVal i As Integer, ByVal Number As Integer, ByVal MaxNumber As Integer)
MaxNumber = 0
For i = 1 To 10
Number = InputBox("Enter an integer between 1 and 32000", "Number")
Print Number
 If MaxNumber > i Then
    MaxNumber = MaxNumber
 Else
    MaxNumber = Number
 End If
Next i
Print vbNewLine
Print "The largest of these numbers is " & MaxNumber
End Function

Private Sub Command1_Click()
Dim Max, Count, Number, Largest As Integer
Max = ReturnLargest(Count, Number, Largest)
End Sub