End Sub. А 59 умножить на ноль равно 0

Dim k, a, b

Приклад 3.

Приклад 2.

А 59 умножить на ноль равно 0.

Приклад 1.

Print "2*2 всё ещё равно "; 2*2;","

Print " а 59 умножить на ноль равно "; 59 * 0;"."

В першому прикладі в результаті виконання пари операцій отримаємо на поверхні форми (див. рис. 4.14):

2*2 всё ещё равно 4,

Form1.Print "X=";2

В другому прикладі виводяться на поверхню форми Х=2 (оскільки роздільник крапка з комою (;), то виводяться один за одним, без пропусків).

Form1.Print К,А,В

В третьому прикладі виводяться на поверхню форми значення змінних К, А і В (оскільки роздільник кома (,), то виводяться зонами в 14 символів кожна).

Перевірте роботу даного методу, введіть текст вказаних операцій в процедуру обробки події Form_Load (завантаження форми). Створіть стандартний проект, в який додасться автоматично форма. Виведіть на екран вікно коду натисненням пунктів меню View – Code. Введіть наступний код процедури:

Private Sub Form_Load()

Form1.AutoRedraw = True

k = 7

a = "<"

b = 56.15

Print "2*2 всё ещё равно "; 2*2;","

Print " а 59 умножить на ноль равно "; 59 * 0;"."

Print "x="; 2

Print k, a, b

На початку процедури операція виклику методу AutoRedraw для форми, для автоматичного оновлення зображення поверхні форми перед виведенням тексту на неї. Метод дозволяє вибрати значення True або False, вибираємо True. Для поточної форми метод також можна використовувати, опустивши назву форми.

Результат роботи програми на етапі виведення інформації після завантаження форми зображений на рис. 4.14.

Рисунок 4.14 – Виведення інформації з використанням методу Print

Для очищення форми від результату виконаного на ній раніше друку може бути застосований метод Cls.

Наприклад, наступна операція очистить форму Form1:

Дата добавления: 2015-05-24