用vb语言编写一个function过程,计算银行定期存款到期本金、利息之和。

计算公式:本金+本金*年利率*存入年限
2025-04-14 03:19:05
推荐回答(2个)
回答1:

Option Explicit

Private Function Total(ByVal a As Single, ByVal b As Single, ByVal c As Integer) As Single

Total = a * (1 + b * c)

End Function

Private Sub Form_click()

Print Total(100, 0.02, 1)

End Sub

a 是本金,b 是年利率,c是存入年限。

回答完毕。

回答2:

函数定义过程:
private function Total(byval principal as float, byval interest as float, byval volume as integer) as float

return principal*(1+float*volume)

end function

调用的时候,就这么写:
dim result as float
result = total(100, 0.05, 6)