Select Case k

Case 1

Label1.Caption = “Очень плохо”

Case 2

Label1.Caption = “Плохо”

Case 3

Label1.Caption = “Удовлетворительно”

Case 4

Label1.Caption = “Хорошо”

Case 5

Label1.Caption = “Отлично”

Case Else

Label1.Caption = “Такой оценки нет”

End Select

End Sub

69. Оператор цикла со счетчиком в Visual Basic: назначение, синтаксис, характеристика составляющих, принцип работы. Примеры.

Цикл – это многократно выполняемый участок программы. Они бывают трех видов:

1. Цикл со счетчиком For ... Next.

2. Цикл с предусловием Do While … Loop.

3. Цикл с постусловием Do … Loop While.

Оператор цикла со счетчиком

Оператор цикла со счетчиком выполняет последовательность операторов определенное число раз. Такую конструкцию называют циклом, а многократно выполняющиеся операторы – телом цикла.

Синтаксис оператора следующий:

For счетчик = нач.Значение То кон.Значение [Step шаг]

операторы

Next [счетчик]

где счетчик – параметр цикла – переменная, которая будет «считать» количество выполнений цикла.

Нач.Значение – начальное значение счетчика;

Кон.Значение – конечное значение счетчика;

шаг – величина, на которую изменяется счетчик; шаг изменения счетчика может быть как положительным, так и отрицательным; если шаг равен 1, то его можно не указывать;

операторы – оператор или несколько операторов, выполняющихся в цикле.

Пример: заданы натуральные числа от 1 до n. Вывести удвоенные произведения этих чисел.

Private Sub Command1_Click()

Dim n, i As Integer

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

For i = 1 To n Step 1

n = i * 2

Print n ‘На форму выводятся все значения n

Next i

End Sub

70. Операторы цикла с условием в Visual Basic: назначение, виды, синтаксис, характеристика составляющих и принцип работы. Примеры.

Синтаксис оператора цикла с предусловием следующий:

Do While условие

операторы

Loop

где условие – логическое выражение;

операторы – оператор или несколько операторов, выполняющихся в цикле и составляющих тело цикла.

Перед каждым проходом цикла проверяется условие. Пока это условие выполняется (т. е. значение равно True), то выполняется последовательность операторов (тело цикла), которые расположены между служебными словами Do While и Loop.

Пример: определить наименьшее количество последовательно расположенных четных целых чисел, начиная с 2, сумма которых превысит число R.

Private Sub Form_Load()

Dim a As Integer, S As Long

a = 0: S = 0: k = 0

Show

R = InputBox(«Введите число»)

Do While S < R

a=a+2 ‘Формирование четного числа

S=S+a ‘Накопление суммы четных чисел

k=k+1 ‘Подсчет искомого количества чисел

Loop

MsgBox Str(k), 3, "Результат" ‘Вывод результата в диалоговом окне

‘с кнопками Да, Нет и Отмена

End Sub

Оператор цикла с постусловием

Синтаксис оператора цикла с постусловием следующий:

Do

операторы

Loop While условие

где условие – логическое выражение;

операторы – оператор или несколько операторов, выполняющихся в цикле и составляющих тело цикла.

Операторы, составляющие тело цикла, будут выполняться до тех пор, пока условие истинно. При использовании этой формы оператора тело цикла выполняется хотя бы один раз, после чего осуществляется проверка заданного условия.

Пример: определить наименьшее количество последовательно расположенных четных целых чисел, начиная с 2, сумма которых превысит число R.

Private Sub Form_Load()

Dim a As Integer, S As Long

a = 0: S = 0: k = 0

R = InputBox(«Введите число»)

Do

a=a+2 ‘Формирование четного числа

S=S+a ‘Накопление суммы четных чисел

k=k+1 ‘Подсчет искомого количества чисел

Loop While S > R

MsgBox Str(k), 3, "Результат" ‘Вывод результата в диалоговом окне

‘с кнопками Да, Нет и Отмена. End Sub