Desafio procuro

[cartas de trunfo 0]

Malta eu sou do 12º ano só tenho um mês de aulas de AI(aplicações informaticas), logo não sei muito disto nem conheço as funcionalidade de tudo... o que eu gostava era que me proposessem desafios para eu fazer! e que me digam mais ao menos algumas dicas ou topicos para fazer!

Atenção :NÃO QUERO O CÓDIGO!!

o meu objetivo e aprender algumas das funcionalidades do vb e evoluir ! obvio para saberem o que fazem vou ao yt mas o resto da programação eu quero antes tentar sozinho! dps qq duvida exponho a vocês!

Neste momento acabei um desafio que me deram ( a minha mãe) que me pediu para fazer um teste com escolhas múltiplas. andei um mês porque haviam certas coisas que ainda não sabia tipo a diferença de radiobutons para checkboox e a maneira como programar. para além de vários erros que iam dando, nao por estar errado o código mas por dps a execução não ser 100% aquilo que eu queria! vou deixar ai o código. Se calhar é um código muito fraco por ser iniciante mas deiam dicas!

Public Class formulário
    Dim resultado, resultado1, resultado2, resultado3 As String
    Private Sub Bnfinal_Click(sender As System.Object, e As System.EventArgs) Handles Btnfinal.Click
        Dim a, b, c, d As Integer
        If ChckF1.Checked Then
            resultado = "Nice!!"
            a = 25
        Else
            resultado = "WHAT???"
            a = 0
        End If

        If ChckV2.Checked Then
            resultado1 = "Nice!!"
            b = 25
        Else
            resultado1 = "WHAT???"
            b = 0
        End If

        If ChckV3.Checked Then
            resultado2 = "Nice!!"
            c = 25
        Else
            resultado2 = "WHAT???"
            c = 0
        End If

        If ChckF4.Checked Then
            resultado3 = "Nice!!"
            d = 25
        Else
            resultado3 = "WHAT???"
            d = 0
        End If

        LblR1.Text = resultado
        LblR2.Text = resultado1
        LblR3.Text = resultado2
        LblR4.Text = resultado3

        Lblcassificacao.Text = a + b + c + d & "/100"
        If Lblcassificacao.Text = 100 & "/100" Then
            MsgBox("Tiveste 100!! PRBS")
        Else
            MsgBox("tiveste " & Lblcassificacao.Text & ". Para a Próxima corre melhor!")
        End If

    End Sub
    
    Private Sub BtnLimpar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpar.Click
        LblR1.Text = ""
        LblR2.Text = ""
        LblR3.Text = ""
        LblR4.Text = ""
        ChckF1.Checked = False
        ChckV1.Checked = False
        ChckF2.Checked = False
        ChckV2.Checked = False
        ChckF5.Checked = False
        ChckV3.Checked = False
        ChckF4.Checked = False
        ChckV4.Checked = False
        ChckF1.Enabled = True
        ChckV1.Enabled = True
        ChckF2.Enabled = True
        ChckV2.Enabled = True
        ChckF5.Enabled = True
        ChckV3.Enabled = True
        ChckF4.Enabled = True
        ChckV4.Enabled = True
        Lblcassificacao.Text = "0/100"
    End Sub

    Private Sub ChckF1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF1.CheckedChanged
        ChckF1.Enabled = False
        ChckV1.Enabled = False
    End Sub

    Private Sub ChckV1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV1.CheckedChanged
        ChckF1.Enabled = False
        ChckV1.Enabled = False
    End Sub

    Private Sub ChckF2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF2.CheckedChanged
        ChckF2.Enabled = False
        ChckV2.Enabled = False
    End Sub

    Private Sub ChckV2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV2.CheckedChanged
        ChckF2.Enabled = False
        ChckV2.Enabled = False
    End Sub

    Private Sub ChckF5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF5.CheckedChanged
        ChckF5.Enabled = False
        ChckV3.Enabled = False
    End Sub

    Private Sub ChckV3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV3.CheckedChanged
        ChckF5.Enabled = False
        ChckV3.Enabled = False
    End Sub

    Private Sub ChckF4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF4.CheckedChanged
        ChckF4.Enabled = False
        ChckV4.Enabled = False
    End Sub

    Private Sub ChckV4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV4.CheckedChanged
        ChckF4.Enabled = False
        ChckV4.Enabled = False
    End Sub

    
    Private Sub Btnlimpar4_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar4.Click
        ChckF4.Checked = False
        ChckV4.Checked = False
        ChckF4.Enabled = True
        ChckV4.Enabled = True

    End Sub

    Private Sub Btnlimpar3_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar3.Click
        ChckF5.Checked = False
        ChckV3.Checked = False
        ChckF5.Enabled = True
        ChckV3.Enabled = True

    End Sub

    Private Sub Btnlimpar2_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar2.Click
        ChckF2.Checked = False
        ChckV2.Checked = False
        ChckF2.Enabled = True
        ChckV2.Enabled = True

    End Sub

    Private Sub Btnlimpar1_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar1.Click
        ChckF1.Checked = False
        ChckV1.Checked = False
        ChckF1.Enabled = True
        ChckV1.Enabled = True

    End Sub

End Class

PS : não se esqueçam de mandar um desafio!

[JPTeixeira 0]

Também estou no 12º Ano e também tenho Aplicações Informáticas. A nossa professora dá-nos fichas frequentemente e, apesar de eu (e provavelmente tu também) achar os exercícios bastante fáceis, pode ser que te entretenhas. Aqui tens