# Answer to Question #3786 in Visual Basic for BoB

Question #3786

Design a program that asks the user to enter a series of 20 numbers. The program should store the numbers in an array and the display the following data:

• The lowest number in the array

• The highest number in the array

• The total of the numbers in the array

• The average of the numbers in the array

• The lowest number in the array

• The highest number in the array

• The total of the numbers in the array

• The average of the numbers in the array

Expert's answer

Module Module1

Private array(20) As Integer

Sub Main()

& Console.WriteLine("Enter 20 numbers:")

& For i As Integer = 0 To 19

array(i) = Console.ReadLine()

& Next

& Console.WriteLine("The lowest number in the array: " + Lowestnumberinthearray().ToString())

& Console.WriteLine("The highest number in the array: " + Highestnumberinthearray().ToString())

& Console.WriteLine("The total of the numbers in the array: " + Totalofthenumbers().ToString())

& Console.WriteLine("The average of the numbers in the array: " + Averageofthenumbers().ToString())

& Console.ReadLine()

End Sub

& #039;'' <summary>

& #039;'' Find the highest number in the array

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Highestnumberinthearray()

& Dim low As Integer = array(0)

& For i As Integer = 0 To 19

If low < array(i) Then

low = array(i)

End If

& Next

& Return low

End Function

& #039;'' <summary>

& #039;'' Find the lowest number in the array

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Lowestnumberinthearray()

& Dim low As Integer = array(0)

& For i As Integer = 0 To 19

If low > array(i) Then

low = array(i)

End If

& Next

& Return low

End Function

& #039;'' <summary>

& #039;'' Total

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Totalofthenumbers()

& Dim totalnumber As Integer = 0

& For i As Integer = 0 To 19

totalnumber += array(i)

& Next

& Return totalnumber

End Function

& #039;'' <summary>

& #039;'' Avarage

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Averageofthenumbers()

& Dim Averagenumber As Integer = 0

& For i As Integer = 0 To 19

Averagenumber += array(i)

& Next

& Return Averagenumber / 20

End Function

End Module

Private array(20) As Integer

Sub Main()

& Console.WriteLine("Enter 20 numbers:")

& For i As Integer = 0 To 19

array(i) = Console.ReadLine()

& Next

& Console.WriteLine("The lowest number in the array: " + Lowestnumberinthearray().ToString())

& Console.WriteLine("The highest number in the array: " + Highestnumberinthearray().ToString())

& Console.WriteLine("The total of the numbers in the array: " + Totalofthenumbers().ToString())

& Console.WriteLine("The average of the numbers in the array: " + Averageofthenumbers().ToString())

& Console.ReadLine()

End Sub

& #039;'' <summary>

& #039;'' Find the highest number in the array

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Highestnumberinthearray()

& Dim low As Integer = array(0)

& For i As Integer = 0 To 19

If low < array(i) Then

low = array(i)

End If

& Next

& Return low

End Function

& #039;'' <summary>

& #039;'' Find the lowest number in the array

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Lowestnumberinthearray()

& Dim low As Integer = array(0)

& For i As Integer = 0 To 19

If low > array(i) Then

low = array(i)

End If

& Next

& Return low

End Function

& #039;'' <summary>

& #039;'' Total

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Totalofthenumbers()

& Dim totalnumber As Integer = 0

& For i As Integer = 0 To 19

totalnumber += array(i)

& Next

& Return totalnumber

End Function

& #039;'' <summary>

& #039;'' Avarage

& #039;'' </summary>

& #039;'' <returns></returns>

& #039;'' <remarks></remarks>

Private Function Averageofthenumbers()

& Dim Averagenumber As Integer = 0

& For i As Integer = 0 To 19

Averagenumber += array(i)

& Next

& Return Averagenumber / 20

End Function

End Module

## Comments

## Leave a comment