Создание теста, неповторяющийся список вопросов - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы