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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim valor As Integer

    Console.Write("Informe um número inteiro: ")
    valor = Val(Console.ReadLine())

    If valor Mod 2 = 0 Then
      Console.WriteLine("O número é par")
    Else
      Console.WriteLine("O número é ímpar")
    End If

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim agora As DateTime = DateTime.Now
    Dim horas As Integer = 5 ' vamos adicionar 5 horas

    ' exibe a data e hora atual
    Console.WriteLine("Agora são: " _
      & agora.ToString("dd/MM/yyyy - hh:mm:ss"))

    ' adiciona as horas
    agora = agora.AddHours(horas)

    ' exibe a nova data e hora
    Console.WriteLine("Daqui " & horas & " horas será: " _
      & agora.ToString("dd/MM/yyyy - hh:mm:ss"))

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    Dim primo As Boolean = True ' Vamos assumir que o número é primo

    ' vamos solicitar um número inteiro positivo
    Console.Write("Informe um número inteiro positivo: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' o número é negativo?
    If numero < 0 Then
      Console.WriteLine("Número inválido.")
      ' é 0 ou 1?
    ElseIf ((numero = 0) Or (numero = 1)) Then
      Console.WriteLine("Número válido, mas não é primo.")

      ' passou até aqui. Vamos testar se o número é primo
    Else
      For i As Integer = 2 To (numero / 2) Step 1
        ' se passar no teste, não é primo
        If (numero Mod i = 0) Then
          primo = False ' recebe False
          Exit For
        End If
      Next


      If (primo) Then
        Console.WriteLine("O número informado é primo")
      Else
        Console.WriteLine("O número informado não é primo")
      End If
    End If

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

valor = 76.1234
print("O valor é: %0.2f" % valor)

function somar(array) {
  array[1]++;
  array = array + array;
}
  
valores = new Array(1, 3, 2, 5);
somar(valores);