Чтение строк из текстового файла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д