Imports System
Public Module Module1
Public Sub Main()
dim Number as integer
dim count as integer
dim total as integer
dim average as integer
dim largest as integer
dim smallest as integer
Total = 0
Largest = 0
Average = 0
Smallest = 90
for i = 1 to [count]
count = count + 1
console.WriteLine(i)
next
while Number > largest
console.WriteLine("The Largest is "&Number)
end while
if largest < smallest
console.WriteLine("The smallest is "& Largest)
end if
Total = Total + Number
Console.WriteLine("The total is " & Total)
average = total/10
console.WriteLine("The average is " & Average)
End Sub
End Module