11.3. Варианты реализации циклических алгоритмов

Задание 8. Написать программу расчета и вывода на экран в виде сообщения последовательности нечётных чисел от 1 до 27.

Решение. Для решения этой задачи более всего подходит цикл с заданным числом повторов (см. рис. 6.8):

For Сч= <начальное значение> to <конечное значение> step <шаг>

Next Сч

Применим его:

Sub НечетныеЧисла()

Dim НечЧисло As String 'переменная НечЧисло – строка символов

For k = 1 To 27 Step 2

НечЧисло = НечЧисло & k & " "

Next k

MsgBox "Вот эти нечётные числа:" & _

Chr(10) & НечЧисло

End Sub

В итоге на экран будет выведено сообщение вида:

Рис. 11.5. Результат работы программы " НечетныеЧисла "

Задание 9. Составить программу перевода сантиметров в дюймы (1 дюйм = 2, 51 см) как циклическую с дробным шагом для счетчика.

Решение. Для этой задачи тоже подходит цикл For, но только уже с дробным шагом 2,51 для каждого нового значения сантиметра.

Sub Дюймы_в_см()

Dim ЗначДюйм As Single

Dim Дюйм_см As String

Dim дюйм As Integer

дюйм = 0

For ЗначДюйм = 2.51 To 14 Step 2.51

дюйм = дюйм + 1

Дюйм_см = Дюйм_см & дюйм & " = " & ЗначДюйм & " см" _

& Chr(13)

Next ЗначДюйм

MsgBox "Таблица перевода дюймов в сантиметры:" & _

Chr(13) & ЗначДюйм

End Sub

Рис. 11.6. Текст (код) макроса пересчета сантиметров в дюймы

В итоге на экране – сообщение с таблицей перевода:

Рис. 11.7. Результат выполнения макроса (программы) "Дюймы"