VB プログラミング

質問

' @summary g円を利率r%でt年間預けたときの利息を求める
' @param g 元金
' @param r 利率(%)
' @param t 期間
' @z 元利合計
' @pre g >= 0 And r >= 0.0 And t >= 0
' @post z >= g
Function risoku(g As Long, r As Double, t As Integer) As Long
End Function

このプログラムを完成させたいのですが完成した形を教えてください よろしくお願いします

回答No.1

noname#245936 · ベストアンサー

然るに。

んー、
' @z 元利合計
' @pre g >= 0 And r >= 0.0 And t >= 0
' @post z >= g
…ここの意味がよく判りません。

多分、こんな感じかと思いますが。
きっちりテストしてませんので、ばぐったらすいませんね。

Private Sub Command1_Click()
Debug.Print "利息は、" _
& CStr(Calc_Risoku(1000000, 20, 1)) & "円"
Debug.Print "利息は、" _
& CStr(Calc_Risoku(1000000, 20, 10)) & "円"
Debug.Print "利息は、" _
& CStr(Calc_Risoku(1000000, 10.5, 5)) & "円"
End Sub

Private Function Calc_Risoku _
(ByVal crrGankin As Currency _
, ByVal dblRate As Double _
, ByVal intYear As Integer) As Currency
Dim intI As Integer
Dim crrTotal As Currency

crrTotal = crrGankin
For intI = 1 To intYear
'注意：切り上げ切り捨ては考慮しません
'Rateは％入力です
crrTotal = crrTotal * CDbl((100 + dblRate) / 100)
Debug.Print CStr(intI) & " 年目の総額=" & CStr(crrTotal)
Next intI

Calc_Risoku = crrTotal - crrGankin
End Function