Описание задачи
Date: 2015-10-07; view: 490.
Программа пересчета валюты
Примеры программ с использованием элементов управления
End Sub
End If
End If
Else
Else
End If
Else
Dim a, b, c, d, x1, x2 As Single
Private Sub Form_Load()
MsgBox "A*X^2 + B*X + C = 0"
a = InputBox("A = ")
b = InputBox("B = ")
c = InputBox("C = ")
If a = 0 Then
If b = 0 Then
MsgBox "Нет решений"
x1 = -c / b
MsgBox "X = " + Str(x1)
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox "Нет решений"
x1 = (-b + Sqr(d)) / 2
x2 = (-b - Sqr(d)) / 2
MsgBox "X1 = " + Str(x1) + " , X2 = " + Str(x2)
Рис. 4.3. Листинг программы решения квадратного уравнения
 |
Необходимо создать программу для пересчета заданной суммы (в рублях) в валюту (доллары) по текущему курсу. Программа должна позволять пользователю вводить исходные данные (такие как сумма в рублях и текущий курс) и просматривать полученный результат (см. рис.5.1).
Рис. 5.1. Окно программы пересчета валюты
| <== previous lecture | | | next lecture ==> |
| Встроенные окна диалога | | | Этапы создания и отладки программы |