Como fazer um Random de 4 Números

[iXaDe 0]

Boa Tarde,

 

Estou com uma pequena dúvida, pois estou conseguindo fazer um Random, porém ele não está funcionando corretamente :/

Tenho um Public ( Aleatorio ) e uma Function ( Próxima ), respectivamente, para dar Randomize nas alternativas e para trocar de questão.

 

    Public Sub Aleatorio()
        Randomize()
        R = Rnd() * 3
        If R = 0 Then
            rbResposta1.Text = "A) " & Resp1
            rbResposta2.Text = "B) " & Resp2
            rbResposta3.Text = "C) " & Resp3
            rbResposta4.Text = "D) " & Resp4
            RespCorreta = "A"
        ElseIf R = 1 Then
            rbResposta1.Text = "A) " & Resp3
            rbResposta2.Text = "B) " & Resp1
            rbResposta3.Text = "C) " & Resp4
            rbResposta4.Text = "D) " & Resp2
            RespCorreta = "B"
        ElseIf R = 2 Then
            rbResposta1.Text = "A) " & Resp4
            rbResposta2.Text = "B) " & Resp2
            rbResposta3.Text = "C) " & Resp1
            rbResposta4.Text = "D) " & Resp3
            RespCorreta = "C"
        ElseIf R = 3 Then
            rbResposta1.Text = "A) " & Resp2
            rbResposta2.Text = "B) " & Resp4
            rbResposta3.Text = "C) " & Resp3
            rbResposta4.Text = "D) " & Resp1
            RespCorreta = "D"
        ElseIf R = 4 Then
            rbResposta1.Text = "A) " & Resp2
            rbResposta2.Text = "B) " & Resp3
            rbResposta3.Text = "C) " & Resp4
            rbResposta4.Text = "D) " & Resp1
            RespCorreta = "D"
        End If
    End Sub

    Function Proxima()
        If Questao = 1 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 2 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 3 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 4 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 5 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 6 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 7 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 8 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 9 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 10 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 11 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 12 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 13 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 14 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        ElseIf Questao = 15 Then
            Resp1 = "RESPOSTA CORRETA"
            Resp2 = "D"
            Resp3 = "A"
            Resp4 = "X"
            Enunciado = "LOL WTF BBQ"
        End If
        bProxima.Enabled = False
        rtbQuestao.Text = Enunciado
        labelQuestao.Text = "Questão " & Questao
    End Function

 

Porém ele não retorna corretamente a String "RespCorreta", na hora de responder e clicar na alternativa com "RESPOSTA CORRETA" ele não executa a função corretamente e o usuário não vai conseguir acertar a questão.

 

Grato,

iXaDe.

[KhaosDoctor 242]

O que ele mostra no final?

[iXaDe 0]

O que ele mostra no final?

Na verdade ele não consegue fazer o Random corretamente, ele simplesmente troca as variáveis de Resp1 até Resp4 porém o RespCorreta não muda(as vezes) ...

 

EDIT

Eu acabei de testar de novo,e até a pergunta 3 foi correto, quando eu coloquei novamente em RESPOSTA CORRETA ta 4 ele não funcionou

[KhaosDoctor 242]

Faça o seguinte, coloque breakpoints em todos os ifs e veja os resultados de cada variável.