Imports System
Public Module Module1
Public Sub Main()
dim n(9) as integer
dim i as integer
dim max as integer = 0
dim min as integer = 1000
dim maxt as integer = 0
console.WriteLine("Input some numbers")
for i = 0 to 9
n(i) = console.ReadLine()
next
if n(i) > max then
max = n(i)
end if
if n(i) < min then
min = n(i)
if n(i) < max then
do
if n(i) > maxt then
maxt = n(i)
loop
console.WriteLine("the maximum number is " & max)
console.WriteLine("the minimum value is " & min)
console.WriteLine("the second maximum number is " & maxt)
End Sub
End Module