End Sub. Пояснение. Для хранения списка значений аргумента X и функции Y использовано два элемента управления (объекта) ListBox (Список)

Пояснение. Для хранения списка значений аргумента X и функции Y использовано два элемента управления (объекта) ListBox (Список). Для того чтобы объект выполнил какую-либо операцию, необходимо применить метод, которым он обладает. Одним из наиболее часто используемых методов элемента управления элемента ListBox (Список) является метод AddItem, который добавляет в список новый элемент. Обратиться к методу объекта можно точно так же, как и к свойству объекта, с использованием точечной нотации.

Отметим использование функции Str(), которая позволяет производить преобразование десятичного числа в десятичное число в строковой форме. Аргументом функции является десятичное число, а значением – строка.

Запустите ваше приложение, выбрав команду RunØRun Sub/UserForm или нажав функциональную клавишу F5. В текстовые окна введите исходные данные Xn, Xk, Dx и нажмите командную кнопку «Пуск».

Результаты выполнения программного кода при значениях Xn = 0, Xk = 4 и Dx =0.5 представлены на рисунке 6.

Рис. 6. Диалоговое окно для решения задания А при значениях

Xn = 0, Xk = 4 и Dx =0.5

В VBA при программировании циклических процессов для отображения результатов при каждом выполнении цикла можно использовать объект Debug, т.е. Immediate – окно немедленного выполнения. Метод Print объекта Debug выводит значение параметров в окно Immediate. Это окно отображается на экране выбором команды ViewØImmediate Window, либо клавиатурным сочетанием Ctrl+G. Рассмотрим этот вариант программы. Окно немедленного выполнения Immediate применяется, в основном, при отладке программы.

Экранная форма и её элементы управления после переименования и изменения свойств представлена на рисунке 7.

Рис. 7. Форма и её элементы управления после переименования

и изменения свойств

Программный код при использовании метода Debug

Private Sub Cmd1_Click()

Dim x As Single

Dim y As Single

Dim strX As String

Dim strY As String

xn = Val(TxtXN.Value)

xk = Val(TxtXK.Value)

dx = Val(TxtDX.Value)

Debug.Print " X" & " | " & " Y"

For x = xn To xk Step dx

y = x ^ 2 + 1.5

strX = Str(x)

strY = Str(y)

Debug.Print strX & " | " & strY

Next X

Рис. 8. Диалоговое окно для решения задания А при значениях

Xn = 0, Xk = 4 и Dx =0.5

Результаты выполнения кода программы в окне немедленного выполнения Immediate представлены на рисунке 9.

Рис. 9. Результаты выполнения кода программы в окне немедленного выполнения Immediate

Поиск по сайту: