Escolha Multipla

eu estou a fazer um programa de escolha multipla mas só tem uma pergunta, como é k faxo para dixer :
se acertar uma pregunta tenho 1 ponto e se acertar 2 perguntas tenho 2 pontos

este é o meu codigo

Boas!
Não conheço a linguagem mas penso que tb n seja importante.
O q deves fazer é teres uma variável que guarda os pontos acumulados e cada vez que existe uma resposta certa essa variável é actualizada (por ex. var++, no caso de cada resposta valer 1 ponto). Depois é só imprimires a variável.

Crias uma variável global e depois incrementas na resposta certa:

Public total As Integer

E na resposta certa

If (RadioButton3.Checked) Then
MsgBox("RESPOSTA CERTA")
total = total + 1
End If

Pelo que percebi tu queres colocar uma só pergunta que pode tem várias respostas possíveis, 2 das quais correctas, será isso???

Se sim, tens de usar check boxes e não radio buttons.

Se não, não consigo perceber a tua pergunta.

bikefire disse:

eu estou a fazer um programa de escolha multipla mas só tem uma pergunta, como é k faxo para dixer :
se acertar uma pregunta tenho 1 ponto e se acertar 2 perguntas tenho 2 pontos

este é o meu codigo

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (RadioButton1.Checked) Then
            MsgBox("RESPOSTA ERRADA")
        End If
        If (RadioButton2.Checked) Then
            MsgBox("RESPOSTA ERRADA")
        End If
        If (RadioButton3.Checked) Then
            MsgBox("RESPOSTA CERTA")
        End If
    End Sub

Clicar para expandir...

tens um aqui no fórum com um programa parecido com o teu devias de dar sempre uma olhadelazita por todos os post que são da tua linguagem

pões no access 5 colunas
1º pergunta
2º opçao A
3º opçao B
4º opção C
5º Respostas certa

pões a pergunta a aparecer em cima numa text box e as três alienas a aparecer com uma text box com três check box atrás
depois testa a ver s a resposta esta certa:
deveras de ligar com a base de dados (não sabes como?)
certa=0
for i = 1 to (o numero de perguntas que queres) then
if check1.causevalidation = true then
if text2.text(será a opção A) = text5.text(é a resposta certa, põem este com a visabilaty = false) then
certa =certas +1
end if
else
if check2.causevalidation = true then
if text3.text(será a opção b) = text5.text(é a resposta certa, põem este com a visabilaty = false) then
certa =certas +1
else
if check3.causevalidation = true then
if text4.text(será a opção c) = text5.text(é a resposta certa, põem este com a visabilaty = false) then
certa =certas +1
end if
next
certas =str(certas) (serve para converter de numérico para string caso não saibas)
msgbox('você acertou em ' certas' perguntas')

penso que sera isso...