Помогите сделать ТЕСТ....

[posemon]

Помогите сделать ТЕСТ программу

[posemon]

по языку PASCAL
Ну например 12 вопросов. И 4 варианта ответа к каждому вопросу....
Слышал можно массив забить....но не знаю как Подскажите. Заранее благодарен!!!!

[posemon]

по языку PASCAL
Ну например 12 вопросов. И 4 варианта ответа к каждому вопросу....
Слышал можно массив забить....но не знаю как Подскажите. Заранее благодарен!!!!

[CORBA]

Ничего сложного делаешь свой тип и на основе него массив:

Код: Выделить всё


Private Type MyTest
    Quetion As String
    Answer1 As String
    Answer2 As String
    Answer3 As String
    '......
End Type
Private Sub Form_Load()
Dim masQ(12) As MyTest
        masQ(1).Quetion = "×òî òàêîå Pascal?"
        masQ(1).Answer1 = "ßÏ"
        masQ(1).Answer2 = "Ôàìèëèÿ"
        masQ(1).Answer3 = "Ïðîñòî ñëîâî"
        '.........
        'masQ(x).......= и т.д.

' а так обращаешься
Text1.Text=masQ(1).Quetion
End Sub


[CORBA]

Криво строки в кавычках на форуме отображаются. В " " находятся просто вопросы на русском.

[posemon]

спасибо! ну а если вопросы были каждый раз разные(например 3,2,6,7....12, а не 1,2,3,4,5....12)

[Twister]

Нужно найти целое, случайное число (пусть будет r) в пределах от 1 до Ubound(masQ) (верхней границы массива):r=int(rnd(1)*Ubound(masQ))+1. И вывести вопрос под номером r. При этом нужно где-то (угадай где? ) запоминать уже заданные вопросы, чтоб не задавать их по второму разу. Да, и еще, не забудь в процедуру Form_Load поставить Randomize Timer...

[posemon]

а где?
и куда лучше вводить ответ в текстовое поле или option?

[posemon]

в том же массиве и хранится.
но нужно сделать еще и так: после каждого вопроса и ответа идет второй, третий....

[Twister]

Чувак, все в твоих руках - куда хочешь туда и выводи вопрос, хоть крупным шрифтом на рабстол!...
Для хранения списка уже заданных вопросов заведи отдельный массив: или динамический, или размером с кол-во вопросов...

[posemon]

Дайте пожалуйста код....
Куда запоминать, как выводить...
Блин я не везжаю...

[posemon]

ну подскажите

[keks-n]

Я так понимаю, что тебе, прежде чем задавать вопрос здесь, надо было почитать 2-3 учебника по VB и ознакомится с базовыми техниками програмирования.
Короче - УЧИ МАТЧАСТЬ!

[posemon]

жаль мне не помогли.....

[Денис Победря]

Готовые проекты здесь на халяву не пишут =)

В особенности таким как ты.

[GAGArin]

жаль мне не помогли...

Этот и этот посты - ответ на вопрос.

[posemon]

все понял. но столкнулся с проблемой...
после нажания на кнопку сразу идет перенос с 1 по 12 вопрос!
как поочередно обрабатывать каждый вопрос(if...then...else). Весь код в одной кнопке.