Elseif Условие2 Then
СписокОператоров2
Elseif Условие3 Then
СписокОператоров3
……………………..
End if
В такой многоступенчатой схеме было применено ключевое слово Elseif, которое переводится как ИначеЕсли. Заметим, что вся эта многоступенчатая схема заканчивается только одним End if.
Составим блок-схему для нашей задачи:
è Откройте приложение MS Excel.
è Выполните команду РазрвботчикàРедактор Visual Basic или нажмите < Alt+F11 >.
è Добавьте форму (команда Insertà UserForm)
è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)
è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления ( ViewàToolBox ), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка).
è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 2.
Таблица 2.
| Элемент управления | Свойства | Значения |
| UserForm | Caption | Программирование ветвлений |
| Label1 | Caption | Вычисление вознаграждения брокера |
| Label2 | Caption | Сумма сделки |
| Label3 | Caption | Вознаграждение |
| TextBox1 | Name | txtSummaSdelki |
| TextBox2 | Name | txtNagrada |
| CommadButton1 | Name | cmdRun |
| Caption | Расчёт | |
| CommadButton2 | Name | cmdClear |
| Caption | Очистка |
è Примерный интерфейс программы может выглядеть так:
è Код программы:
Private Sub cmdRun_Click()
Dim S As Single
Dim P As Single
S=Val(txtSummaSdelki.Text)
If S<= 150000 Then
|
|
|
P=S*0.05
ElseIf S>= 500000 Then
P=S*0.03
Else
P=S*0.04
End If
txtNagrada.Text = Str(P)
End Sub
è Сделайте расчёты для трёх случаев.
è Удалите текстовое поле с именем «txtSummaSdelki» и в коде программы строку «S=Val(txtSummaSdelki.Text)»
è На место удалённого объекта вставьте метку и именем «lblSummaSdelki» (обратите внимание, впереди стоит латинская буква «L» малая, а не «1 (единица)»)
è На место удалённой строки в коде программы вставьте следующую запись:
S=InputBox(“Введите значение суммы сделки”)
lblSummaSdelki=Str(S)
В приведённой выше части кода программы использовалась функция InputBox. Данная функция предназначена для ввода данных в программу. Она имеет следующий синтаксис:
InputBox (Запрос [, Заголовок] [, По_умолчанию] [, Xpos] [ Ypos] [, Справка, Раздел])
è Сохраните файл под именем «Брокерское вознаграждение»
Оператор выбора
Дата добавления: 2015-12-17; просмотров: 19; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!