ПРАКТИЧЕСКАЯ РАБОТА №3
Вывод данных на форму
Вывод результатов вычислений на форму при создании приложений. Оператор цикла. Преобразование данных строкового типа в
числовые.
Задание.
Составить программу для построения таблицы значений а и Ь, если а = х+4.3, Ь = ах + 1.23 при изменении х в диапазоне [0, 5] с
шагом h = 0,5. Результат вычислений вывести в виде таблицы.
- Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект
Project.
- Для создания приложения необходимо использовать следующие объекты управления:
Label1 - метка;
Command1 - командная кнопка;
Command1 - командная кнопка.
Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, так как других компонент нет.
Рис 4.5. Вывод данных на форму
-
В работе следует использовать следующие свойства Properties :
Label1 Caption ='Группа, Ф.И.О. студента'
Command1 Caption = 'Старт'
Command2 Caption = 'Финиш'
forml Caption ='Практическая работа №3'
-
Набрать программный код в соответствии с приведенным ниже текстом
Private Sub Commandl_Click()
Dim xO, xk, x, a, b, h As Single
Dim i, n As Integer
Rem Ввод данных в текстовое окно и преобразование их в числа xO, xk, h
xO = Val(InputBoxf"Ввести начальное значение х", "Пример 3"))
xk = Val(InputBox("Ввести конечное значение xk", "Пример 3"))
h = Val(InputBox("Ввести h - шаг изменения х", "Пример 3"))
х = хО
forml.Cls v - Очистка формы
Print: Print " "; " хО="; xO, "xk="; xk, "h ="; h
Print: Print " "; " a", " b", " x": Print
Rem - Выделение целой части числа
n = Int((xk - xO) / h)
Rem Определение количества данных, выводимых на форму
for i = 1 То n
а = х + 4.4: b = а * х + 1.23
Print " "; a, b, ^c
х = х + h
Next
End Sub
Private Sub Command2_Click()
End
End Sub
-
Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы следует нажать кнопку «Старт»,
на экране по очереди откроются окна с заголовком «Пример 2» (см. в программе оператор InputBox ).Пользователь должен
ввести в текстовом поле соответствующего окна значения:начальное значение хО, конечное значение xk, h - шаг изменения х
(см. условие задачи в начале).
-
Результат работы программы показан на рис. 4.5. Повторите все сначала, нажав кнопку «Старт»: измените данные и т. д.
-
Для завершения выполнения программы необходимо нажать кнопку на форме «Финиш» (или значок «закрыть» на форме) или выполнить
команду Run/End.
-
Сохранить файл программы и файл формы с соответствующими расширениями .bas и .frm.
-
Задание. Выполнить манипуляции с формой и компонентами на ней, изменяя свойства формы: WindowState, MaxButton,
MinButton, ControlBox, BorderStyle.