Imports System

Public Module Module1

    Public Sub Main()

        dim num(9) as decimal 

        dim negcount as integer 

        dim count as integer

        dim hcount as integer 

        dim total as decimal 

        dim mean as decimal 

        dim min as decimal = 0

        dim max as decimal = 0

        for i = 0 to 9

        console.WriteLine("Enter a number. Enter -1 if you don't want to enter a value for that space:")

        num(i) = console.readline()

    next

    for i = 0 to 9

    if num(i) <> -1 

    console.writeline(num(i))

        count += 1

        total = total + num(i)

    end if

    if num(i) < 0 and num(i) <> -1

            negcount += 1   

    end if

next

​

for i= 0 to 9

if num(i) = 100

    hcount = hcount + 1

end if

next

​

for i = 0 to 9 

​

if num(i) <> -1 and num(i) < min

min = num(i)

end if

if num(i) <> -1 and num(i) >  max

max = num(i)

end if

​

​

next

​

console.writeline("The number of times a negative number was entered is : {0}" , negcount)

console.WriteLine("The sum of the numbers is: {0}" , total)

mean = total/count

console.writeline("The mean of the values is: {0}", mean)

console.WriteLine("The minimum value was: {0}" , min )

console.WriteLine("The maximum value was: {0}" , max )

console.writeline("The amount of times 100 was entered is : {0}" , hcount)

​

​

    End Sub

End Module