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是存入年限。
回答完毕。
函数定义过程:
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)