Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 54 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

54
га, после чего управление передается на начало
цикла. Затем происходит сравнение счетчика с ко-
нечным значением, и цикл при необходимости по-
вторяется снова.
Пример 5. Рассмотрим пример применения цикла Fox-Next в про-
грамме Proc5. Функция InputBox программы выдает на экран запрос на
ввод числа, а затем, используя цикл For-Next и два условных оператора If-
Then-Else, вычисляет его факториал (факториал числа n равен произведе-
нию всех целых чисел от 1 до n; факториал 0, по определению, равен 1; n
должно быть больше либо
равно 0).
Sub Proc5_ForNextIfThenElse ( )
Dim NumberString As String
Dim Num As Integer
Dim Factorial As Double
Dim Count1 As Integer
NumberString = InputBox(“Ведите число:”,”Вычисление факториала”)
If IsNumeric (NumberString) Then
Num = Val (NumberString)
If Num >= 0 Then
Factorial = 1
For Count1 = 1 To Num
Factorial = Factorial*Count1
Next
MsgBox “Факториал числа” & Num &”равен” & Factorial
Else
MsgBox “Факториал отрицательного числа не существует”
End If
Else
MsgBox “Введено нечисловое значение. Повторите ввод.“
End If
End Sub
В этой программе в первом условии используется встроенная функ-
ция VB IsNumeric, которая возвращает True, если ее единственный аргу-
мент является числом, и False – в противном случае. Т.о., если введено
число, проверка оканчивается успешно, и управление передается следую-
щей инструкции. В программе задано обращение к еще одной функции
Visual Basic – Val, которая
преобразует переданную ей строку в число, а
затем присваивает его переменной Num. Использование этой функции
здесь необходимо, так как InputBox возвращает только строковые значе-
ния, а для расчета факториала нам необходимо число.
Далее указана следующая условная структура If-Then-Else, где про-
веряется, является ли переменная Num неотрицательной. Если и это усло-
вие выполнено, то в цикле For-Next вычисляется факториал, и его значе-
                                   54
                      га, после чего управление передается на начало
                      цикла. Затем происходит сравнение счетчика с ко-
                      нечным значением, и цикл при необходимости по-
                      вторяется снова.
      Пример 5. Рассмотрим пример применения цикла Fox-Next в про-
грамме Proc5. Функция InputBox программы выдает на экран запрос на
ввод числа, а затем, используя цикл For-Next и два условных оператора If-
Then-Else, вычисляет его факториал (факториал числа n равен произведе-
нию всех целых чисел от 1 до n; факториал 0, по определению, равен 1; n
должно быть больше либо равно 0).
Sub Proc5_ForNextIfThenElse ( )
    Dim NumberString As String
    Dim Num As Integer
    Dim Factorial As Double
    Dim Count1 As Integer
    NumberString = InputBox(“Ведите число:”,”Вычисление факториала”)
    If IsNumeric (NumberString) Then
          Num = Val (NumberString)
          If Num >= 0 Then
               Factorial = 1
               For Count1 = 1 To Num
                    Factorial = Factorial*Count1
               Next
               MsgBox “Факториал числа” & Num &”равен” & Factorial
          Else
               MsgBox “Факториал отрицательного числа не существует”
          End If
    Else
     MsgBox “Введено нечисловое значение. Повторите ввод.“
    End If
End Sub
      В этой программе в первом условии используется встроенная функ-
ция VB IsNumeric, которая возвращает True, если ее единственный аргу-
мент является числом, и False – в противном случае. Т.о., если введено
число, проверка оканчивается успешно, и управление передается следую-
щей инструкции. В программе задано обращение к еще одной функции
Visual Basic – Val, которая преобразует переданную ей строку в число, а
затем присваивает его переменной Num. Использование этой функции
здесь необходимо, так как InputBox возвращает только строковые значе-
ния, а для расчета факториала нам необходимо число.
      Далее указана следующая условная структура If-Then-Else, где про-
веряется, является ли переменная Num неотрицательной. Если и это усло-
вие выполнено, то в цикле For-Next вычисляется факториал, и его значе-

Страницы