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

        Задания для самостоятельной работы по созданию
       процедур с использованием управляющих структур

     Задание 1. Написать процедуру Sub с именем Fuctorial, вычисляю-
щую факториал целого положительного числа, по следующему алгоритму:
  1. Выполнить описание переменных, используемых в программе, таких
     как strNumber, intNum, intFuctorial, intCount с помощью оператора
     Dim.
  2. С помощью функции InputBox() ввести число для вычисления фак-
     ториала, присвоив его значение переменной strNumber.
  3. С помощью функции IsNumeric() проверить является ли введенное
     значение числом, если да, то, используя функцию Val(), преобразо-
     вать введенное текстовое значение в число и присвоить его значение
     переменной intNum.
  4. Если значение intNum> 0, то вычислить факториал с помощью
     управляющей структуры For-Next, присвоив полученное значение
     переменной intFuctorial с выводом результата на экран функцией
     MsgBox.
  5. При составлении программы выполнить проверки: если введено не-
     числовое значение или отрицательное число, то с помощью функции
     MsgBox() выдать соответствующие сообщения.

      Задание 2. Написать процедуру Sub с именем Proc2, вычисляющую
возведение значения целой переменной intBase в целочисленную положи-
тельную степень, значение которой содержит переменная intPower по сле-
дующему алгоритму:
   1. Выполнить описание переменных, используемых в программе, таких
      как strBase, strPower intBase, intPower, intResult, intCount с помощью
      оператора Dim.
   2. С помощью функций InputBox() ввести числа для вычисления степе-
      ни (числа для основания и показателя степени), присвоив введенные
      значения переменным strBase, strPower соответственно.
   3. С помощью функции IsNumeric() проверить являются ли введенные
      значения числовыми, если да, то, используя функцию Val(), преобра-
      зовать введенные текстовые значения в числовые, присвоив их зна-
      чения переменным intBase и intPower соответственно.
   4. С помощью управляющей структуры For-Next возвести в степень
      intPower число intBase. Результат вычисления выдать в окне сообще-
      ния с соответствующими пояснениями.
   5. При составлении программы выполнить проверки: если введено не-
      числовое значение или отрицательное число, то с помощью функции
      MsgBox() выдать соответствующие сообщения.

                                    33