Я создал тест на microsoft visual basic,и...

[STANDING]

Я создал тест на microsoft visual basic(простой,лиж-бы научиться делать ето):
Сколько букв в русском алфавите? 32 33 34 35 и рядом с цифрами не галочки а точка(возможен только один ответ)

А как сделать что-бы программа определила верен ответ или нет?вот я создаю кнопку button,и как сделать что-бы при нажатии на неё проверил верен ответ или нет(как мне сделать так что-б 33 ответ был верен и при нажатии на кнопку button программа написала что ответ верен?).СПАСИБО!!!

Я звиняюсь что у меня создана эта-же тема в разделе овд(Общие Вопросы по Делфи),просто не знаю как удалить...Очень прошу вас помочь мне разобраться с этим вопросом!

[counter]

вы должны сами знать какой ответ верен и кокому OptionButton'у (или как он называется в VB) он соответствует, а по нажатию кнопки просто проверяете какой вариант выбран

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then MsgBox("OK")
Else MsgBox("Bad")
End If
End Sub

[EducatedFool]

Одному из OptionButton (который с правильным ответом) вручную записывате в свойство Tag значение ok

Private Sub Command1_Click()
    Dim ОтветВерный As Boolean, ob As OptionButton
    For Each ob In Me.Option1
        If ob.Tag = "ok" And ob.Value Then ОтветВерный = True
    Next
    MsgBox "Ответ на вопрос 1 - " & IIf(ОтветВерный, "правильный", "неверный"), IIf(ОтветВерный, 64, 48)
End Sub

Private Sub Form_Initialize()
    Me.Option1.item(0).Value = True
End Sub

См. пример:

[STANDING]

Аааа! Спасибо сем, в том числе и магистеру йоде! Сенкс всем!!!!Удачи!=)))

[STANDING]

хмм...стоп,я разогнался слегка...вот щёлкаю на правильную галочгу и ввожу в теге ok.А вот что дальше?на кнопку button что делать надо?(ну после выбора варианта?)

[EducatedFool]

А вот что дальше?на кнопку button что делать надо?

А я разве не привёл пример кода??????

Private Sub Command1_Click()
    Dim ОтветВерный As Boolean, ob As OptionButton
    For Each ob In Me.Option1
        If ob.Tag = "ok" And ob.Value Then ОтветВерный = True
    Next
    MsgBox "Ответ на вопрос 1 - " & IIf(ОтветВерный, "правильный", "неверный"), IIf(ОтветВерный, 64, 48)
End Sub

Если вопросов много, то:
1) перебираем в главном цикле все Frame
2) перебираем во внутреннем цикле все массивы OptionButton
3) подсчитываем количество правильных ответов

[STANDING]

для EducatedFool:
Я извиняюсь что так туго,просто токо-токо вот решил попробовать создать программу...у меня по хаккингу кульно сё,,терь решил начать заниматься программингом...Хочу понять как делать калькуляторы с етим алгоритмом(тип чёт 2+2=4 и т.д)...Просто я не понял как код сохранить...двойным щелчком на кнопке проверить или как я там её задал,далее вставляю код и...ненаю как сохранить...

[EducatedFool]

и...ненаю как сохранить...

Когда я не знаю, как сохранить что-либо, я нажимаю Ctrl + S
Обычно помогает

Изучай пункты в меню Файл...

[STANDING]

для EducatedFool:
хмм...уже разобрался=)спасибо=)

[STANDING]

для EducatedFool:хмм...а у вас есть ася?если да то не могли-бы вы мне её дать?просто пара вопросов может возникнуть...Вы только не подумайте,меня учить не надо...просто может возникнуть токо пара вопросов,и просто влом создавать тут топики=)