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

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto de VB.NET"

    ' vamos mostrar a frase original
    Console.WriteLine("A frase original é: " & frase)

    ' vamos inverter a string
    frase = StrReverse(frase)

    ' mostramos a frase invertida
    Console.WriteLine("A frase invertida é: " & frase)

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

// função recursiva que recebe um valor e um vetor e retorna quantas
// vezes o valor é encontrado no vetor
public static int QuantRepeticoes(int indice, int valor, int[] vetor) {
  // sua implementação aqui 
}

Informe o 1 valor: 2
Informe o 2 valor: 7
Informe o 3 valor: 4
Informe o 4 valor: 7
Informe o 5 valor: 1

Informe o valor a ser pesquisado no vetor: 7
O valor informado se repete 2 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())
    ' vamos declarar um vetor de 10 inteiros
    Dim valores(4) As Integer

    ' vamos pedir ao usuário que informe os valores do vetor
    For i As Integer = 0 To valores.Length - 1
      Console.Write("Informe o " & (i + 1) & " valor: ")
      ' efetua a leitura do valor informado para a posição atual do vetor
      valores(i) = Int32.Parse(Console.ReadLine())
    Next

    ' agora vamos pedir para informar o valor a ser pesquisado
    Console.Write(vbCrLf & "Informe o valor a ser pesquisado no vetor: ")
    Dim valor As Integer = Int32.Parse(Console.ReadLine())

    ' e vamos ver a quantidade de repetições
    Dim repeticoes As Integer = QuantRepeticoes(0, valor, valores)
    Console.WriteLine("O valor informado se repete " & repeticoes & " vezes.")

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

  ' função recursiva que recebe um valor e um vetor e retorna quantas
  ' vezes o valor é encontrado no vetor
  Function QuantRepeticoes(indice As Integer, valor As Integer, 
    vetor() As Integer) As Integer
    If indice = vetor.Length - 1 Then ' caso base...hora de parar a recursividade
      If vetor(indice) = valor Then
        Return 1 ' mais um repetição foi encontrada
      End If
    Else ' dispara mais uma chamada recursiva
      If vetor(indice) = valor Then ' houve mais uma repetição
        Return 1 + QuantRepeticoes(indice + 1, valor, vetor)
      Else
        Return 0 + QuantRepeticoes(indice + 1, valor, vetor) ' não repetiu
      End If
    End If

    Return 0 ' só para deixar o compilador satisfeito...esta linha nunca é
    ' executada
  End Function

End Module

a = {5, 8, 2, 1}
b = {1, 4, 5, 3}
c = a & b
print(c)