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

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