Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / Лабораторная работа 11

Тема: Разработка Windows – приложений.

Задание: Создание приложения – «Использование текстовых файлов данных для создания списков (List.AddItem)»

Решение:

Эскиз:

Программный код:

' Создание текстового файла на floppy диске

Private Sub Command1_Click()

Dim Фамилия As String, Имя As String, Год As Integer, Длина As Integer

Open "d:тест1.txt" For Output As #1

Длина = Val(InputBox("Ввод данных", , "введите длину списков"))

For i = 1 To Длина

Фамилия = InputBox("Ввод данных", , "введите фамилию")

Имя = InputBox("Ввод данных", , "введите имя")

Год = Val(InputBox("Ввод данных", , "введите дату"))

Write #1, Фамилия, Имя, Год

Next i

Close #1

End Sub

'Считывание данных с текстового файла, расположенного на floppy диске _

и занесение их в окна ListBox.

Private Sub Command2_Click()

Open "d:\тест1.txt" For Input As #1

Do Until EOF(1)

Input #1, Фамилия$, Имя$, Год%

List1.AddItem Фамилия

List2.AddItem Имя

List3.AddItem Год

Loop

Close #1

End Sub

Private Sub Command3_Click()

End

End Sub

'Удаление данных из окон ListBox.

Private Sub Command4_Click()

List1.Clear

List2.Clear

List3.Clear

End Sub

Private Sub Command5_Click()

Open "d:\тест1.txt" For Input As #1

Do Until EOF(1)

Input #1, Фамилия$, Имя$, Год%

If Год >= 1987 And Год <= 1990 Then List4.AddItem Фамилия: List5.AddItem Год

Loop

Close #1

End Sub

Работа притложения