Чтение строк из текстового файла - VB

Формулировка задачи:

Помогите с кодом! Имеется текстовый файл, в к-ом построчно идут вопрос, 4 варианта ответов, следующий вопрос, 4 варианты ответов и т.д. Вопросов n- кол-во. Необходимо на форму вывести любые 15 вопросов с ответами из n данных в текст. файле. И при каждом входе эти 15 вопросов были разные. Как же это реализовать? подскажите

Решение задачи: «Чтение строк из текстового файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    On Error GoTo ErrorHandler
    n = InputBox("Введите n")
    ReDim mas(n, 4)
    Open App.Path + "\" + "out.txt" For Input As #1
    For i = 0 To n - 1
        For j = 0 To 4
            Input #1, t
            mas(i, j) = t
        Next j
    Next i
    Close #1
 
    Dim cnt(14)
    j = 0
    Do
        k = Fix(Rnd() * n)
        If Not cnt(k) = 1 Then
            cnt(k) = 1
            For m = 0 To 4
                Print (mas(k, m))
            Next
            j = j + 1
        End If
    Loop While j < 15 'кол-во вопросов для вывода
    Exit Sub
ErrorHandler:
    MsgBox Error, vbExclamation + vbOKOnly
End Sub

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

12 голосов , оценка 3.75 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы