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

[STANDING]

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 "Ответ на вопрос  - " & IIf(ОтветВерный, "правильный", "неверный"), IIf(ОтветВерный, 64, 48)
End Sub

обьясните мне пожалуйста каждое значениеim,as bolean и т.д

[erzo]

что означает IIf(ОтветВерный, 64, 48)? я что-то не понял, и что именно надо делать если много вопросов в проге?) Очень нужно) спасибо за ранее)

[erzo]

Сообщение от EducatedFool

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

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) подсчитываем количество правильных ответов

как перебирать в главном цикле все фреймы? подскажите пожалуйста!

[С.М.С]

Что вам то надо? тоже самое что ли? Сколько вариантов ответов? пример прикрутите.

[erzo]

нормально обращайся!!! я хотел узнать как сделать вот это:
1) перебираем в главном цикле все Frame
2) перебираем во внутреннем цикле все массивы OptionButton
3) подсчитываем количество правильных ответов

[С.М.С]

Извините если чем-то задел и в мыслях небыло.

1) перебираются если они есть в программе.
2)каждому OptionButton присвоен порядковый номер, там имелось ввиду выводить результат после прохождения всего теста, ни что не мешает вам сохранять результат каждого задания, т.е. отвечено на какой либо вопрос к примеру Вопрос_№_10 = tru или False.
3) считаются там же в цикле, т.е. когда пребираются варианты OptionButton = True или False счётчик суммируется при определение OptionButton = True.
Был бы пример было бы проще объяснить.

[erzo]

вот пример, я выложил!
мне надо делать подчет всех правильных ответов!
Был бы благодарен) за ранее спасибо!