Module Largest1 Sub Main() \'Program that prints the largest of 10numbers \'Allo

Question

Module Largest1

Sub Main()

'Program that prints the largest of 10numbers

'Allows program to perform input and output

Dim counter AsInteger

Dim number AsInteger

Dim largest AsInteger

'initialization phase

Console.WriteLine("counter = 0, number = 0,largest = 0") 'initialisecounter to zero

'processing phase

'prompt user for data

Console.Write("Enter 10numbers")

While (counter < 10)

number = Console.ReadLine() 'read number fromuser

End While

If largest = numberThen

largest = number

counter = counter + 1 'incrementcounter

End If

counter = ("Largest in the group is :") 'largest

End Sub 'determinelargestnumber

End Module ' largest1

Explanation / Answer

please rate - thanks I don't have a compiler to test it, but this should do it Module Largest1 Sub Main() 'Program that prints the largest of 10 numbers ' Allows program to perform input and output Dim counter As Integer Dim number As Integer Dim largest As Integer 'initialization phase Console.WriteLine("counter = 0, number = 0, largest = 0")'initialise counter to zero 'processing phase 'prompt user for data Console.Write("Enter 10 numbers") counter = 1 largest = Console.ReadLine() 'read 1st number from user While (counter

Related Questions

Navigate

• Browse (All)
• Browse M
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.