# Statistics V2 VB.Net Exercise - Visual Basic Programming Course

### Code

``````Imports System
Public Class exercise78
Public Shared Sub Main()
Dim numbers As Single() = New Single(999) {}
Dim count As Integer = 0
Dim max As Single = 0.0F, min As Single = 0.0F, total As Single = 0.0F, searchNumber As Single = 0.0F
Dim found As Boolean
Dim [option] As Integer = 0

Do
Console.WriteLine("2. Show")
Console.WriteLine("3. Search")
Console.WriteLine("4. Statistics")
Console.WriteLine("5. Exit")

If [option] <> 5 Then

Select Case [option]
Case 1
Console.WriteLine("Enter a number: ")
max = numbers(count)
min = numbers(count)
total += numbers(count)
count += 1
If max < numbers(count) Then max = numbers(count)
If min > numbers(count) Then min = numbers(count)
Case 2

For i As Integer = 0 To count - 1
Console.WriteLine("{0} ", numbers(i))
Next

Case 3
Console.WriteLine("Enter a number for search: ")

For i As Integer = 0 To count - 1
If numbers(i) = searchNumber Then found = True
Next

If found Then
Console.WriteLine("Number {0} found a amount of {1} ", numbers(i))
Else
found = False
End If

Case 4
Console.WriteLine("Total data: {0}", count + 1)
Console.WriteLine("Sum: {0}", total)
Console.WriteLine("Average: {0}", total / (count + 1))
Console.WriteLine("Min number: {0}", min)
Console.WriteLine("Max number: {0}", max)
Case Else
Console.WriteLine("Error, option 1-5")
End Select
End If
Loop While [option] <> 5
End Sub
End Class``````