Private Sub Пуск_Click()

Dim x!, y!, z!, p!

x = 1.5: y = -5

z = sqr(abs(x ^ 2 - y ^ 2)) / Tan(x)^2

p = ((y^2-x^2) ^ (1 / 3) + Log(Abs(x /y))) / Cos(z) ^ 2

Print "x="; x, "y="; y

Print

Print "z="; z, "p="; p

End Sub

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

LЗверніть увагу, що виведення початкових даних та результатів обчислень z і p оператором Print здійснюється безпосередньо на форму

LСтворіть на формі 2 текстові поля (Text1, Text2) для паралельного виведення вхыдних даних та результату

5.Зберегти проект Сохранить как (Save As Project).

Приклад 3. Процедура з використанням операторів опису, вводу, виводу та присвоювання.

Обчислити вираз:

Y=x²+sin(z)+tg²(z+x), де x=3.4; z=5.6 .

1. Відкрити нову форму VB

2. Тіло процедури (програми) записуємо між операторами

Private Sub Form_Load()

End Sub.

Private Sub Form1_Load()

Dim x!, y!, z!

x=Val(InputBox(“x=”))

z=Val(InputBox(“z=”))

y=x^2+sin(z)+tan(z+x)^2

Print x, y, z

End sub

Приклад 4.

Щоб розбити рядок на частини, коли він друкується у Вікні Повідомлення його потрібно представити у вигляді конкатенації рядків:

Рядок1$ & Chr(13) & Chr(10) & Рядок2$.

(13 і 10) — це коди особливих, невидимих символів, що використовуються при виведенні чи друку тексту, — символу переходу на новий рядок і символу повернення на ліву сторону сторінки). Ці символи називаються символом переносу і символом повернення каретки.

Приклад . Нехай у чотирьох текстових полях екранної форми потрібно ввести наприклад: «Апельсин», «Банан», «Виноград» і «Грейпфрут».

Напишіть програмний код у якому передбачте, що після натискання кнопки ПУСК,об'єднання цих рядків повинне бути поміщене в поле мітки екранної форми:

- в один рядок

- в декілька рядків

Мал 1. Запис у поле мітки конкатенації рядків з текстових полів (зліва) без переносу слів на новий рядок

 

Мал 2. Запис у поле мітки конкатенації рядків з текстових полів з переносом нових слів на новий рядок

У першому випадку задачу вирішує наступний код:

В другому випадку слова повинні розташовуватися

 

12

---

Дата добавления: 2015-11-28; просмотров: 705;

---