Function perevod1(ByRef summa As Double) As Double
Dim kurs1 As Integer
kurs1 = InputBox("Курс рубля к доллару")
summa = summa / kurs1
perevod1 = summa
End Function
Function perevod2(ByRef summa As Double) As Double
Dim kurs2 As Double
kurs2 = InputBox("Курс рубля к доллару")
summa = summa * kurs2
perevod2 = summa
End Function
[COLOR="Red"] Function schit(ByRef summa As Double) As Double[/COLOR]
Dim srok, x As Double
x = InputBox("Процент")
srok = InputBox("Срок вклада")
For srok = 1 To srok
summa = summa + (summa / 100) * x
Next
schit = summa
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim summa As Double
summa = InputBox("Вклад в рублях")
MsgBox(perevod1(summa))
MsgBox(schit(perevod1(summa)))
MsgBox(perevod2(schit(perevod1(summa))))
End Sub
Функция, которая почти работает
Братюни! Представте, что у вас есть бабло! Жаль только деревянными( Однако вы идёте в банк, меняете их на зелёные, кладёте под проценты. Уходите. Потом приходите обратно и перед тем как обогатиццо, вновь меняете деньги по курсу на российские. И всё это с помощью функций. Вот, что я наваял:
Однако обнаруживаю, что вторая выводимая цифра слишком мала - чаще всего дробь меньшая 1 (напр. 0,25). Есть мнение, что соль в красной строке, но как поправить не знаю. Может вы уже знаете?
Код:
Однако обнаруживаю, что вторая выводимая цифра слишком мала - чаще всего дробь меньшая 1 (напр. 0,25). Есть мнение, что соль в красной строке, но как поправить не знаю. Может вы уже знаете?