Лабораторна робота №9. Проектування додатків vb6, що містять вкладені циклічні алгоритмічні структури. Заняття 1.

Часто бывает так, что при повторениях изменяется не одна величина, а несколько. При каждом значении одной величины другая величина «пробегает» все свои значения. В этих случаях используют вложенные циклы.

Синтаксис For…Next: For Счетчик 1= Начало1 То Конец1 [Step Шаг1] For Счетчик2 = Начало2 То Конец2 [Step Шаг2] [тело цикла] [ E x i t F o r ] Next [Счетик2] Next [Счетик1]

Функция Format о преобразует числовые значения в текстовую строку и предоставляет возможность управлять внешним видом (появлением) строки. Например, можно задать число десятичных разрядов, ведущих или замыкающих нулей и денежные форматы.

Синтаксис функции Format Format (expression[, format [, firstdayofweek [, firstweekofyear ]]])

Параметр expression (переменная) задает преобразуемое число, а параметр format является строкой, составленной из символов, определяющих форматирование числа. Наиболее часто используемые символы перечислены в табл.

Символ	Описание
0	Цифровой символ-заполнитель; печатает замыкающий или ведущий нуль в текущей позиции
#	Цифровой символ-заполнитель; никогда не печатает замыкающих или ведущих нулей
.	Символ-заполнитель десятичной точки
/	Символ-заполнитель для разделителя тысяч
- + $ () space	Буквальный символ; символы отображаются точно так, как они набраны в форматной строке

ЗАВДАННЯ 9.1. Постановка задачи: НАПЕЧАТАТЬ ТАБЛИЦУ ПИФАГОРА (ТАБЛИЦУ УМНОЖЕНИЯ). Вид работающего приложения представлен на рис. 9.1.

Рис. 9.1

Порядок действий

1. Расположите на форме одну командную кнопку.

2. Установите значения свойства Name для формы и кнопки такие, которые используются ниже в программном коде.

3. Установите значения свойства Caption для формы и кнопки в соответствии с рис. 9.1.

4. Внимательно разберите программный код, представленный ниже.

• С какой целью используются вложенные циклы?

• Почему каждый оператор Print занимает именно это место в программе?

• Каково назначение точки с запятой в строке Print Format((i * j), "00 "); ?

• Зачем используется оператор Print без списка вывода?

• Каково назначение функции Format((i*j), "00");?

5. Наберите программный код:

Private Sub cmdPrint_Click()

Dim i, j As Integer

Print: Print:

Print " | 1 2 3 4 5 6 7 8 9"

Print "=============================================="

For i = 1 To 9 'Лічильник циклу — номер рядка

Print Spc(3); i; " |";

For j = 1 To 9 ' Лічильник циклу — номер стовбця

Print Format((i * j), "00 "); 'Друкується добуток номера рядка на номер стовбця

Next j

Print

Next i

End Sub

6. Запустите проект на выполнение. Результат представлен на рис. 9.1

7. Проанализируйте его.

8. Сохраните проект в папке ЛАБ9 с именами Лр9_Зад1_Фамилия.

ЗАВДАННЯ 9.2, 9.3. СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ЗНАЧЕННЯ ФУНКЦІЇ ЗГІДНО З ВАРІАНТОМ ІНДИВІДУАЛЬНОГО ЗАВДАННЯ.

П риклад виконання ЗАВДАННЯ 9.2:

СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ТА ВИВЕДЕННЯ ЗНАЧЕНЬ ФУНКЦІЇ де a[2;5], h_a=1.5 b[3; 9], h_b=2 c[0;1.2], h_c=0.3

Результат. Вивести на формі.

Обов'язкові умови. Розрахунки і виведення даних повинні виконуватися при натисканні відповідної кнопки.

Порядок виконання роботи

1. Створіть новий проект, на якому розташуйте форму, аналогічну відповідній проекту Лр9_Зад1_Прізвище.

2. Змініть назву кнопки CmdPrint на CmdРозрахунок.

3. Розробіть процедуру обробки події Click для CmdРозрахунок відповідно схемі рис. 9.2, аналогічно наведеній нижче.

Option Explicit

Private Sub CmdРозрахунок_Click()

Dim a As Single, b As Single, c As Single, y As Single

Print: Print: Print: Print

Print "a"; Spc(7); "b"; Spc(7); "c"; Spc(7); "y"

Print

For a = 2 To 6 Step 1.5

For b = 3 To 9 Step 2

For c = 0.1 To 1.3 Step 0.3

y = (a + b + c)

Print a; Spc(5); b; Spc(5); c; Spc(5); y

Next c

Print

Next b

Next a

End Sub

4. Виконайте розрахунки. Проаналізуйте результати.

5. Спробуйте збільшити розміри форми. Проаналізуйте результати.

6. Змініть значення діапазонів визначення змінних a,b,c, щоб на формі вистачило місця для усіх результатів.

7. Запропонуйте, як організувати виведення всіх обчислених значень, незалежно від іх кількості.

Рис. 9.3. Вид форми ЗАВДАННЯ 9.2 з результатами

8. Зберіжіть проект та форму в папці ЛАБ9 з новими іменами Лр9_Зад2_P_Прізвище й Лр9_Зад2_F_Прізвище відповідно.

Приклад виконання ЗАВДАННЯ 9.3. СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ТА ВИВЕДЕННЯ ЗНАЧЕНЬ ФУНКЦІЇ

1. Створіть новий проект, на якому розташуйте форму, яка буде містити 2 командні кнопки з іменами CmdВведення та CmdРозрахунок.

2. Розробіть процедуру обробки події Click для CmdВведення, що передбачає введення вихідних даних (m,a,b) за допомогою вікна InputBox.

3 Розробіть процедуру обробки події Click для CmdРозрахунок відповідно схемі рис. 9.2, аналогічно наведеній нижче.

4. Виконайте розрахунки. Проаналізуйте результати.

5. Зберіжіть проект та форму в папці ЛАБ9 з новими іменами Лр9_Зад3_P_Прізвище й Лр9_Зад3_F_Прізвище відповідно.