Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

End Select





В начале конструкции расположены ключевые слова Select Case, указывающие, что расположенный рядом с ними параметр “сравниваемое значение” будет проверяться на несколько значений. Далее следуют группы команд, начинающиеся с ключевого слова Case. Если параметр “сравниваемое значение” равен значению, указанному в текущем операторе Case, то будут выполняться команды, расположенные между этим и следующим ключевым словом Case.

В качестве примера воспользуемся конструкцией Select Case для выбора удельного активного сопротивления и расчета полного активного сопротивления R в зависимости от заданной марки провода воздушной линии электропередачи:

 

Private Sub Marka()

m = InputBox(" Введите марку провода")

l = InputBox(" Введите длину линии")

Select Case m

Case " АС 70/11"

R = l * 0.428

Case " АС 95/16"

R = l * 0.306

Case " АС 120/19"

R = l * 0.249

Case " АС 150/24"

R = l * 0.198

Case " АС 185/29"

R = l * 0.162

Case Else

R = " Выбранная марка провода отсутствует в базе данных"

End Select

MsgBox R

End Sub

 

Select Case может выполнить не более одной из содержащихся в ней последовательностей конструкций. После того как одно из условий оказалось равно True, и была выполнена соответствующая последовательность конструкций, Select Case завершит свою работу. Остальные условия проверяться не будут.

 

Реализация циклических алгоритмов

 

Для реализации циклических алгоритмов используются три вида операторов цикла: For, While, DoLoop, форматы и примеры которых приведены ниже.

Оператор For имеет следующий формат записи:

 

For переменная = начальное значение To конечное значение

[операторы]

Next [переменная]

 

В качестве примера приведем программу, в которой оператор For используется для вычисления суммы s=12+22+…+n2:

 

Sub Sum ()

n = InputBox(" Введите количество слагаемых")

s = 0

For i = 1 To n

s = s + i ^ 2

Next

MsgBox s

End Sub

 

Оператор While имеет следующий формат записи:

 

While условие

[операторы]

Wend

 

Для сравнения принципа работы рассматриваемого оператора с оператором For приведем пример программы, выполняющей аналогичную задачу вычисления суммы

 

Sub Sum()

Dim i As Integer

n = InputBox(" Введите количество слагаемых")

s = 0

i = 0

While i < n + 1

s = s + i ^ 2

i = i + 1

Wend

 

Оператор Do... Loop имеет следующий две разновидности записи:

 

Do [{While / Until} условие]

[операторы]

[ Exit Do ]

[операторы]

Loop

или:

Do

[операторы]

[ Exit Do ]

[операторы]

Loop [{While / Until} условие]

 

Приведем пример предыдущей задачи с использованием данного оператора

 

Sub Sum()

Dim i As Integer

n = InputBox(" Введите количество слагаемых")

s = 0

i = 0

Do While i < n + 1

s = s + i ^ 2

i = i + 1

Loop

MsgBox s

End Sub

 

или

 

Sub Sum()

Dim i As Integer

n = InputBox(" Введите количество слагаемых")

s = 0

i = 0

Do

s = s + i ^ 2

i = i + 1

Loop Until i > n

MsgBox s

End Sub

 







Дата добавления: 2014-11-10; просмотров: 482. Нарушение авторских прав; Мы поможем в написании вашей работы!




Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...


Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Кран машиниста усл. № 394 – назначение и устройство Кран машиниста условный номер 394 предназначен для управления тормозами поезда...

Приложение Г: Особенности заполнение справки формы ву-45   После выполнения полного опробования тормозов, а так же после сокращенного, если предварительно на станции было произведено полное опробование тормозов состава от стационарной установки с автоматической регистрацией параметров или без...

Измерение следующих дефектов: ползун, выщербина, неравномерный прокат, равномерный прокат, кольцевая выработка, откол обода колеса, тонкий гребень, протёртость средней части оси Величину проката определяют с помощью вертикального движка 2 сухаря 3 шаблона 1 по кругу катания...

Закон Гука при растяжении и сжатии   Напряжения и деформации при растяжении и сжатии связаны между собой зависимостью, которая называется законом Гука, по имени установившего этот закон английского физика Роберта Гука в 1678 году...

Характерные черты официально-делового стиля Наиболее характерными чертами официально-делового стиля являются: • лаконичность...

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

Studopedia.info - Студопедия - 2014-2025 год . (0.009 сек.) русская версия | украинская версия