Программа-тест - 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
                        