Elabore um programa VB.NET que efetue a leitura sucessiva de valores numéricos e apresente no final o somatório, a média e o total de valores lidos - Exercícios Resolvidos de VB.NET

Informe o valor (negativo para parar): 8
Informe o valor (negativo para parar): 3
Informe o valor (negativo para parar): 5
Informe o valor (negativo para parar): 1
Informe o valor (negativo para parar): -3

A soma dos números é: 17
O total de números lidos é: 4
A média dos números é: 4.25

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim numero, soma, total_numeros As Integer
    Dim media As Double

    soma = 0
    total_numeros = 0

    ' vamos efetuar a leitura dos números
    Do
      Console.Write("Informe o valor (negativo para parar): ")
      numero = Int32.Parse(Console.ReadLine())

      ' o número é positivo?
      If numero > -1 Then
        ' vamos somar mais este número
        soma = soma + numero
        ' vamos contar mais este número
        total_numeros = total_numeros + 1
      End If
    Loop While (numero > -1)

    ' vamos calcular a média dos números lidos
    If total_numeros > 0 Then
      media = soma / (total_numeros * 1.0)

      Console.WriteLine(vbCrLf & "A soma dos números é: " & soma)
      Console.WriteLine("O total de números lidos é: " & total_numeros)
      Console.WriteLine("A média dos números é: " & media)
    Else
      Console.WriteLine(vbCrLf & "Não foram informados números positivos.")
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module