Faça um programa que simula o lançamento de um dado. O valor sorteado deve ser impresso na tela. Dica: use a função Rnd do VBA.

Segue abaixo um exemplo de código em VBA que simula o lançamento de um dado e imprime o valor sorteado na tela: ``` Sub SimulaLancamentoDado() Dim valorSorteado As Integer Randomize valorSorteado = Int((6 * Rnd) + 1) MsgBox "O valor sorteado foi: " & valorSorteado End Sub ``` Explicação do código: - A função `Randomize` é usada para inicializar o gerador de números aleatórios do VBA. - A função `Rnd` é usada para gerar um número aleatório entre 0 e 1. - O valor gerado pela função `Rnd` é multiplicado por 6 e arredondado para baixo com a função `Int`, resultando em um número inteiro entre 0 e 5. - O número sorteado é incrementado em 1 para que fique entre 1 e 6, que são os valores possíveis de um dado. - O valor sorteado é armazenado na variável `valorSorteado`. - A função `MsgBox` é usada para exibir uma caixa de mensagem na tela com o valor sorteado.