Информатика 2011-2012 / Дополнительная информация / Пример оформ Лабор раб 1,2 сем / Задача №9

Лабораторная работа №10

Задание: Создать список.

Эскиз проекта

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

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

Private Sub Command1_Click()

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

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

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

For i = 1 To Длина

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

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

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

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

Next i

Close #1

End Sub

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

Private Sub Command2_Click()

Open "тест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 "тест1.txt" For Input As #1

Do Until EOF(1)

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

If Год >= 1985 And Год <= 1989 Then

List4.AddItem Фамилия

List5.AddItem Год

End If

Loop

Close #1

End Sub

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

Ввод исходных данных

Таким же образом вводим остальные данные.

Отображение данных в List Box

Выборка данных