End Sub. Private Sub Command2_Click()

End Sub

End Sub

End Sub

End Sub

' Вычитание

Private Sub Command2_Click()

Text3.Text = Val(Text1) - Val(Text2)

' Деление

Private Sub Command3_Click()

Text3.Text = Val(Text1) / Val(Text2)

' Умножение

Private Sub Command4_Click()

Text3.Text = Val(Text1) * Val(Text2)

' Возведение в степень

Private Sub Command5_Click()

Text3.Text = Val(Text1) ^ Val(Text2)

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.

Задание 3. Работа с файлами последовательного доступа

Обработку файлов последовательного доступа (текстовых файлов) осуществляют в три этапа:

1. открытие файла, запись его содержимого в переменную, закрытие файла;

2. редактирование переменной;

3. открытие файла, перезапись содержимого отредактированной переменной в файл, закрытие файла.

Создайте новый проект.

Рис. 34. Окно формы Работа с файлами последовательного доступа

Из палитры компонент выберите библиотеку Microsoft Common Dialog Control 6.0.

Разместите на форме объекты управления согласно рис. 34 и присвойте следующие значения их свойствам:

текстовое поле Text1 (ScrollBars – 2-Vertical, MultiLine – True);

три кнопки управления CommandButton1 - 3 (Открыть, Сохранить, Закрыть);

элемент управления окна открытия и закрытия файлов CommonDialog1 (после компиляции и в режиме интерпретатора он не виден).

Создайте программный код.

Дата добавления: 2014-12-27