Переключатель (поля выбора или «радиокнопки») Переключатель (OptionButton) позволяет выбрать одну из возможных
опций, представленных в форме в виде списка. На рисунке показан фрагмент формы с двумя расположенными на ней переключателями (рис. 37).
Рис. 37. Фрагмент формы с переключателями
7.2.Задания
1.Даны два числа. Вычислить их сумму, разность, произведение и частное (рис. 38).
Рис. 38. Окно вывода результатов
2. Заданы три положительных числа a, b и с. Определить, являются ли они последовательно стоящими элементами арифметической прогрессии. Если являются, то определить разность прогрессии (рис. 39).
Рис. 39. Окно вывода результатов
64
3. Создайте проект и напишите программу вычисления корней квадратного уравнения a*x^2+b*x+c=0 (рис. 40). Предусмотрите условный переход и вывод результата решения уравнения для равных корней (x1=x2 при D=0). Для вывода результатов используйте форматный вывод. Создайте вариант проекта с использованием конструкции Select Case.
Рис. 40. Окно вывода результатов
7.3. Порядок выполнения работы
Задание 1.
Результат выполнения задания приведен на рис. 41.
Рис. 41. Окно вывода результатов
Код программы:
Private Sub Command1_Click()
If Option1.Value Then X = Val(Text1) + Val(Text2)
65
If Option2.Value Then X = Val(Text1) - Val(Text2)
If Option3.Value Then X = Val(Text1) * Val(Text2)
If Option4.Value Then X = Val(Text1) / Val(Text2)
If Check1.Value Then Picture1.Print Format(X, "#.000") Else Picture1.Print X
End Sub
Private Sub Command2_Click()
End
End Sub
|
|
|
Таблица 8 |
Объект |
|
Свойство |
Значение |
Form1 |
Caption |
|
Задание1 |
|
BackColour |
&H00C0FFC0& |
|
Command1 |
Caption |
|
Вычислить |
Command2 |
Caption |
BackColour |
Выход |
Frame1 |
Caption |
|
Ввод данных |
Frame2 |
Caption |
|
Выбор операции над |
Frame3 |
Caption |
|
числами |
Frame4 |
Caption |
BackColour |
Вывод результата |
|
|
|
Выбор округления |
Label1 |
Caption |
|
Введите число A |
Label2 |
Caption |
BackColour |
Введите число B |
Option1 |
Caption |
|
Сложение |
Option2 |
Caption |
|
Вычитание |
Option3 |
Caption |
|
Умножение |
Option4 |
Caption |
BackColour |
Деление |
Check1 |
Caption |
BackColour |
Округлять до тысячных |
Задание 2.
Результат выполнения задания приведен на рис. 42.
Рис. 42. Окно вывода результатов
66
Код программы:
Private Sub Command1_Click() A = Text1
B = Text2
C = Text4 d = B - A x = C - B
If d = x Then Picture2.Print "Числа A, B, C являются прогрессией. Разность прогрессии d равна"; d Else Picture2.Print "Числа A,B,C не являются последовательно стоящими элементами арифметической прогрессии"
End Sub
Private Sub Command2_Click() End
End Sub
|
|
Таблица 9 |
Объект |
Свойство |
Значение |
Form1 |
Caption |
Задание2 |
Label1 |
Caption |
Введите число A |
Label2 |
Caption |
Введите число B |
Label3 |
Caption |
Введите число C |
|
BackColour |
|
Command1 |
Caption |
Вычислить |
Command2 |
Caption |
Выход |
|
|
|
7.4.Контрольные вопросы
1.Какие операторы используются для организации условного перехода?
2.Какие логические отношения могут использоваться в операторах условного перехода?
3.Что такое логическое выражение?
4.Какие логические операции могут использоваться в логических выражениях?
5.В каких случаях используется Конструкция Select Case?
6.Для чего используется объект Ключ?
7.Для чего используется объект Переключатель?
67