 |
 
v.5.2011.12.30 
|
Хитрый стрелок экранов, Добавить функцию? Без проблем! ;-) |
|
Visual Basic 5.0/6.0 - ФинансыВсе примеры / Числа, математика, финансы / ФинансыКонвертор
Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:21 | просмотров: 2018 (1+) | комментариев: 0 | рейтинг:
Программа позволяет делать пересчет рубли в доллары.
 x1
КодOption Explicit Private Sub Command1_Click() Dim k As Double ' курс Dim usd As Double ' цена в долларах Dim r As Double ' цена в рублях 'ввод исходных данных usd = Val(Text1.Text) k = Val(Text2.Text) 'пересчет r = usd * k 'вывод данных Label4.Caption = Str(usd) + "$ = " + Str(r) + "руб." End Sub Private Sub Command2_Click() End End Sub
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации  .Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
|
|
![[at]](/Content/Themes/Native5x/Images/a.gif){kind=small}
kbyte.ru