Ход работы. 8. Сохраните проект (выбрав File – Save frmТаблицаФункции.frm и Save ТаблицаФункции.vbp) в папке 8.5

End Sub

Next

Print Tab (2); "----------------------"

8. Сохраните проект (выбрав File – Save frmТаблицаФункции.frm и Save ТаблицаФункции.vbp) в папке 8.5.

9. Проверьте работоспособность проекта, запустив его на выполнение.

10. Создайте exe-файл программы с помощью команды File → Make Таблица_функции.exe.

11. Измените программу таким образом, чтобы диапазон изменения аргумента X задавался во время работы приложения путем ввод значений пользователя. Добавьте для этого на форме необходимые компоненты (Label и TextBox).

12. Сохраните проект в той же папке (на вопрос о перезаписи файла выберите ответ «Да»).

13. Проверьте работоспособность проекта, запустив его на выполнение.

14. Создайте exe-файл программы с помощью команды File → Make Таблица_функции.exe.

15. Выйдите из среды Visual Basic.

16. Запустите на выполнение файл Таблица_функции.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 6. Вычисление квадратного корня из числа, не превышающего 100.

Постановка задачи.

С клавиатуры вводятся целые положительные числа. Пока числа меньше 100, программа вычисляет квадратный корень из введенного числа. Как только число оказывается больше или равно 100, программа прекращает работу. Примерный вид работы программы – на Рис.8.9.

1. Создайте в папке Лабораторная_работа_№8 папку 8.6.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 1 командную кнопку CommandButton, 1 компонент Label. Примерный внешний вид приложения во время работы приведен на Рис.8.9.

5. Присвойте свойству Caption кнопки значение «Вычислить».

6. Присвойте свойству Caption формы значение «Квадратные корни», а свойству Name значение «FrmКорни».

7. Напишите обработчик события по кнопке «Вычислить», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

Dim z As Integer

Dim s As Single

Private Sub Command1_Click()

CurrentY = 1600 ' координата Y вывода результата (зависит от размеров и местопо-

'положения формы)

z = InputBox("Введите целое положительное число", "Запрос числа")

While z < 100

s = Sqr(z)

Print "Квадратный корень из числа "; z; " равен "; s

z = InputBox("Введите целое положительное число", "Запрос числа")

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