Программа-тест - VB
Формулировка задачи:
Доброго времени суток!
Кто может помочь с составлением программы для тестирования на VB? Вопросы есть, необходимо из 25 вопросов базы выбрать случайно 10 (естественно, не повторяясь), проверить их... Ну, и собственно, контроль- 11-25 верных- зачет, меньше 11- низачод=)...
Вообще хотелось бы иметь полную программу (за символическую плату, на пиво, так сказать), но сойдут и просто советы, как это сделать... В частности, как осуществить выбор вопросов. Заранее всем спасибо
Решение задачи: «Программа-тест»
textual
Листинг программы
- Module Module1
- Dim a(0 To 24) As Integer
- Dim b(0 To 9) As Integer
- Sub Main()
- For i = 0 To 24 Step 1
- a(i) = i
- Next
- Randomize()
- Dim l As Integer
- Dim c As Integer
- Dim v As Integer
- l = 25
- For i = 0 To 9 Step 1
- c = (Int(l * Rnd()))
- b(i) = a(c)
- v = a(l - 1)
- a(l - 1) = a(c)
- a(c) = v
- l = l - 1
- Next
- End Sub
- End Module
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
