Вывод данных на форму. Вывод табличных данных

Использование циклов даёт возможность повторного выполнения набора операторов. Некоторые циклы повторяют операторы, пока условие имеет значение False, другие – пока значение условия равно True.

Имеются циклы, которые повторяют набор операторов определённое число раз. Такие циклы называются циклами с параметром For…Next. Циклы For…Next используют в качестве счётчика параметр – переменную, значение которой увеличивается или уменьшается при каждом выполнении цикла. Синтаксис записи оператора цикла с параметром следующий:

 

For <параметр цикла> = <нач.знач.> to <кон.знач.> <[ step шаг]>

<тело цикла>

Next <параметр цикла>

 

Параметр цикла изменяется от начального значения до конечного на каждом шаге на величину шага. Если шаг не указан, то по умолчанию он равен 1. Тело цикла включает операторы, которые необходимо повторить. Если в цикле нет ни одного оператора, то это пустой цикл. Указание параметра после ключевого слова Next необязательно.

Например, следующий фрагмент программного кода выводит в цикле в окно сообщений значение параметра i.

Dim i As Integer

For i = 0 To 100 Step 5

MsgBox (i)

Next

 

Указания к выполнению лабораторной работы № 3

Расположить на форме командную кнопку с надписью «Заполнить таблицу», текстовое поле с указанием фамилии студента, выполнившего задание, метку. Щелчок по кнопке вызывает запрос исходных данных a, b, a затем в цикле вычисляется значение функции по одной из формул в зависимости от условия (использовать цикл с заданным числом повторений и оператор if).

По результатам вычислений должна быть получена таблица вида:

x	y
…	…

Далее необходимо:

Часть 1. Вывести полученную таблицу в метку.

Часть 2. Использовать элемент управления MSFlexGrid для вывода полученной таблицы (см. рисунок 17).

Рисунок 17 – Начальный вид формы для второй
части задания

Ниже приведен программный код и полученная таблица (рисунок 18) для части 2 задания.

Option Explicit

Dim x As Double

Dim a As Integer

Dim y As Single

Dim b As Integer

 

Private Sub Command1_Click()

Dim j As Integer

a = val(InputBox("Введите значение a"))

b = val(InputBox("Введите значение b"))

MSFlexGrid1.TextMatrix(0, 0) = "j"

MSFlexGrid1.TextMatrix(0, 1) = "x"

MSFlexGrid1.TextMatrix(0, 2) = "y"

j = 1

For x = 0.8 To 2 Step 0.1

If x < 1.3 Then

y = 5 * x ^ 2 - 7 / x ^ 2

ElseIf x = 1.3 Then

y = a * x ^ 3 + 7 * Sqr(x)

Else

y = Log(x + b * Sqr(x))

End If

 

MSFlexGrid1.TextMatrix(j, 0) = CStr(j)

MSFlexGrid1.TextMatrix(j, 1) = CStr(x)

MSFlexGrid1.TextMatrix(j, 2) = CStr(y)

j = j + 1

Next x

End Sub

 

Рисунок 18 – Результат работы программы второй части задания

Варианты заданий для самостоятельной работы

Вариант 1. Исходные данные: a, b.

 

Вариант 2. Исходные данные: a.

 

Вариант 3. Исходные данные: a, b, c.

 

Вариант 4. Исходные данные: a.

Вариант 5. Исходные данные: a, b.

Вариант 6. Исходные данные: a.

Вариант 7. Исходные данные: b.

 

Вариант 8. Исходные данные: b.

 

Вариант 9. Исходные данные: a.

 

Вариант 10. Исходные данные: t.

 

Вариант 11. Исходные данные: a, b.

Вариант 12. Исходные данные: a, b.

 

ЛАБОРАТОРНАЯ РАБОТА № 4

Использование цикла с неизвестным числом повторений

Циклы с неизвестным числом повторений выполняются в зависимости от условия. Если условие выхода из цикла проверяется в конце, то такой цикл называется с постусловием. Синтаксис оператора цикла с постусловием следующий:

Do

<тело цикла>

Loop Until <условие >

 

Условие проверяется после того, как операторы, входящие в цикл, будут выполнены хотя бы один раз. Цикл работает до тех пор, пока условие является ложным.

Аналогичным такому циклу является цикл вида:

 

Do

<тело цикла>

Loop While <условие >

 

Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл работает до тех пор, пока условие остаётся истинным.

В таких циклах проверка происходит в конце цикла, и величина счётчика увеличивается ещё на 1. Иногда это вызывает лишнее обновление счётчика. Можно передвинуть проверку условия на начало цикла. Такой цикл называется циклом с предусловием. Синтаксис записи оператора цикла с предусловием следующий:

 

Do Until <условие >

<тело цикла>

Loop

Цикл выполняется до тех пор, пока выражение условия ложно. Иначе выполняется переход к оператору, следующему после Loop. Если условие истинно, то цикл выполняться не будет.

Или

Do While <условие >

<тело цикла>

Loop

 

В данном случае цикл выполняется до тех пор, пока выражение условия истинно.

Разновидностью циклов с предусловием является цикла типа Wend. Если условие истинно, то выполняется тело цикла. Если условие ложно, то цикл ни разу не выполнится.

 

While <условие >

<тело цикла>

Wend