Создание теста, неповторяющийся список вопросов - VB
Формулировка задачи:
Здравствуйте,не уверен была ли такая тема на форуме.
Стоит задача сделать опрос с типами вопросов (1 из многих,несколько из многих,на введение пропущенного слова,на сортировку) это все нужно реализовать на одной форме.Чтобы после ответа выводило правильность или неправильность ответа и переходило на следующий вопрос выбранный из списка из 15 вопросов РАНДОМНЫМ ОБРАЗОМ, ПРИЧЕМ ЧТОБЫ ЭТИ ВОПРОСЫ В ДАЛЬНЕЙШЕМ НЕ ПОВТОРЯЛИСЬ.Как это все реализовать?
Решение задачи: «Создание теста, неповторяющийся список вопросов»
textual
Листинг программы
Private Sub Комманда1_Click() Dim i, j Const m = 100 Const k = 15 Dim Vse_Vopros(1 To m) For i = 1 To 100: Vse_Vopros(i) = i: Next i ReDim Vopros(k) Randomize For i = 1 To k j = Int((UBound(Vse_Vopros) + 2 - i) * Rnd) Vopros(i) = Vse_Vopros(j) Vse_Vopros(j) = Vse_Vopros(UBound(Vse_Vopros) + 1 - i) Next i For i = 1 To k: Print Vopros(i): Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д