Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабораторная работа с файлами и строками в Visual Basic

.doc
Скачиваний:
64
Добавлен:
02.05.2014
Размер:
58.88 Кб
Скачать

Министерство образования и науки Российской Федерации

Уфимский Государственный Авиационный Технический Университет

Кафедра Информатики

Отчет по лабораторной работе

6

Среда Visual Basic

Работа с файлами и строками

Вариант №3

Выполнил:

Студент группы ЭСиС-11?

Приняла: Хамзина Е.А.

Уфа 2005

ВОПРОСЫ к Лабораторной работе №6 :

  1. Какие основные операции операции с файлами есть в Visual Basic?

  2. Как открыть или создать файл?

  3. Как закрыть файл?

  4. Как закрыть все открытые файлы?

  5. Как прочитать данные из файла?

  6. Как записать данные в файл?

  7. Как задать имя файла, находящегося в некоторой папке  на жестком диске?

  8. Как добавить данные в файл?

  9. Как определить метку конца файла?

  10. Что должно присутствовать в текстовом файле, чтобы запятые не

воспринимались как признак перехода на новую строку?

  1. Какой объект можно использовать для вывода текста, прочитанного из

текстового файла?

  1. Какой символ является разделителем при вводе числовых данных из файла?

  2. Какой объект используется для визуального выбора диска?

  3. Какой объект используется для визуального выбора папки?

  4. Какой объект используется для визуального выбора файла?

3.

Дан текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

Dim a As String

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

a = Text2

k = 0

Open File1.Path + "\" + File1.FileName For Input As #1

Do While Not (EOF(1))

Input #1, StrTemp

Picture1.Print StrTemp

For i = 1 To Len(StrTemp) - Len(a)

If Mid(StrTemp, i, Len(a)) = a Then

k = k + 1

End If

Next i

Loop

Picture2.Print k

Close #1

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive 'выбираем диск

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path 'выбираем папку

End Sub