Visual Basic for Applications. Практика. Нагина Е.К - 36 стр.

  4. Вычислить среднее арифметическое значений этих переменных и
     присвоить полученное значение переменной dblC.
  5. Значение переменной dblC вывести на форму в текстовое поле Text3,
     присвоив свойству текст текстового поля Text3 значение этой
     переменной в текстовом формате с помощью функции CStr.

     Задание 8. Написать процедуру с именем Proc8_IfThenElse, выпол-
няющую действия по следующему алгоритму:
  1. Создать процедуру функцию GetRandomNumber(), с помощью кото-
     рой осуществить генерацию случайных чисел в диапазоне от 1 до 9.
  2. Выполнить описание переменной intNum с помощью оператора Dim.
  3. Присвоить этой переменной случайное значение в диапазоне от 1 до
     9 с помощью функции GetRandomNumber.
  4. Если значение этой переменной будет равно 5, выдать сообщение с
     помощью функции MsgBox о выигрыше, в противном случае – со-
     общение о проигрыше.

     Задание 9. Написать процедуру с именем Proc9_IfThenElseIf, выпол-
няющую действия по следующему алгоритму:
  1. Оформить в виде процедуры функции с именем GetPassword ввод
     пароля, используя для этого окно ввода InputBox и функцию Lcase(),
     которая преобразует все буквы переданной в нее строки в строчные.
  2. После написания заголовка процедуры Proc32_IfThenElseIf выпол-
     нить описание переменных strPassword как текстовой и переменной
     Elem как объектной с помощью оператора Dim.
  3. Выполнить вызов функции GetPassword и присвоить переданное
     функцией значение переменной strPassword.
  4. С помощью управляющей структуры If-Then-ElseIf проверить вве-
     денное через окно ввода значение пароля. Если введенное значение
     пароля равно “P555”, то каждому элементу управления формы с
     именем Form1 с помощью управляющей структуры (For Each Elem In
     Form1….Next Elem) установить следующие атрибуты шрифта: имя
     шрифта – “Ms Sans Serif ”, размер шрифта – 14, начертание шрифта –
     курсив. Если значение пароля равно “P444”, то каждому элементу
     управления формы установить следующие атрибуты шрифта: имя
     шрифта – “MT Extra”, размер шрифта – 10, начертание шрифта – по-
     лужирное. Если значение пароля равно “P333”, то каждому элементу
     управления формы установить следующие атрибуты шрифта: имя
     шрифта – “Times New Roman”, размер шрифта – 18, начертание
     шрифта – не курсив.
  5. Если пароль введен неправильный, то выдать сообщение о повтор-
     ном вводе пароля с помощью функции MsgBox.

                                  36