Дипломная работа: Решение задач с помощью современых компьютерных технологий

End Sub

Private Sub CommandButton2_Click()

Userform1.hide

End Sub

Private Sub CommandButton3_Click()

Open "c:\file.txt" For Output As #1

Print #1, "Первое предложение ->"; TextBox1.Text

Print #1, "Второе предложение ->"; TextBox2.Text

Print #1, "Результат ->"; TextBox3.Text

Close #1

MsgBox "Файл создан, данные успешно записаны", vbInformation, "Запись"

End Sub

Private Sub CommandButton4_Click()

Open "c:\base.txt" For Input As #2

Do While Not EOF(2)

Input #2, предложение1, предложение2

TextBox1.Text = предложение1

TextBox2.Text = предложение2

Loop

Close #2

MsgBox "Данные успешно введены", vbInformation, "Ввод данных"

End Sub

ПРИЛОЖЕНИЕ Б

Экранные формы

Рисунок 1.1 – В начале работы приложения 1

Рисунок 1.2 - Окно открытия файла с исходными данными и результат работы приложения 1

Рисунок 2.1 – В начале работы приложения 2