Valor da hora trabalhada: 22
Número de horas trabalhadas no mês: 60
Seu Salário Bruto: R$ 1.320,00
Desconto de INSS: R$ 105,60
Total de Sindicato: R$ 66,00
Desconto Imposto de Renda: R$ 145,20
Salário Líquido: R$ 1.003,20

----------------------------------------------------------------------
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())
    ' vamos ler o valor do hora trabalhada
    Console.Write("Valor da hora trabalhada: ")
    Dim valor_hora As Double = Double.Parse(Console.ReadLine())

    ' vamos ler o número de horas trabalhadas no mês
    Console.Write("Número de horas trabalhadas no mês: ")
    Dim horas_trabalhadas As Integer = Int32.Parse(Console.ReadLine())

    ' vamos calcular o salário bruto
    Dim salario_bruto As Double = valor_hora * horas_trabalhadas

    ' vamos calcular o desconto do INSS
    Dim desconto_inss As Double = (8.0 / 100.0) * salario_bruto

    ' vamos calcular o desconto do Sindicato
    Dim desconto_sindicato As Double = (5.0 / 100.0) * salario_bruto

    ' finalmente vamos calcular o desconto do IR
    Dim desconto_ir As Double = (11.0 / 100.0) * salario_bruto

    ' para finalizar, o salário líquido
    Dim salario_liquido As Double = salario_bruto - (desconto_inss +
      desconto_sindicato + desconto_ir)

    ' mostramos o resultado
    Console.WriteLine("Seu Salário Bruto: " & String.Format("{0:c}", salario_bruto))
    Console.WriteLine("Desconto de INSS: " & String.Format("{0:c}", desconto_inss))
    Console.WriteLine("Total de Sindicato: " & String.Format("{0:c}", desconto_sindicato))
    Console.WriteLine("Desconto Imposto de Renda: " & String.Format("{0:c}", desconto_ir))
    Console.WriteLine("Salário Líquido: " & String.Format("{0:c}", salario_liquido))

    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)
----------------------------------------------------------------------

Dim numero As Integer = 0

Do Until numero > 10
  Console.WriteLine(numero)
  numero += 1
Loop

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

Dim numero As Integer = 10

Do Until numero < 0
  Console.WriteLine(numero)
  numero -= 1
Loop

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

Dim pode As Boolean = True
Dim valor As Integer = 1

Do Until pode = False
  Console.WriteLine(valor)
  valor += 1

  If valor > 20 Then
    pode = False
  End If
Loop

' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

----------------------------------------------------------------------
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())
    ' declara, constrói e inicializa um vetor de 10 inteiros
    Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

    ' vamos ler um valor inteiro
    Console.Write("Informe um valor: ")
    Dim pesquisa As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar quantas vezes o valor informado está
    ' contido no vetor
    Dim repeticoes As Integer = 0
    For i As Integer = 0 To valores.Length - 1
      If valores(i) = pesquisa Then
        ' encontrou? vamos contar esta ocorrência
        repeticoes = repeticoes + 1
      End If
    Next

    ' vamos mostrar o resultado
    Console.WriteLine("O valor foi encontrado: " &
      repeticoes & " vezes")

    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 palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If String.Compare(palavra1, palavra2) = 0 Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

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