LOTUSSCRIPT 言語

例:Sub ステートメント
サブルーチンと関数を使って、住宅の購入費用を次のように計算します。
Dim price As Single, message As String

Function Payment (princpl As Single, _
ByVal intrst As Single, _
ByVal term As Integer) As Single
intrst!= intrst!/12
term% = term% * 12
' If any of the parameters is invalid, exit the function
' (Payment will return the value 0).
If princpl!<= 0 Or intrst!<= 0 Or term% < 1 Then
_Exit Function
' The standard formula for computing the amount of the
' periodic payment of a loan:
Payment = princpl!* intrst!/(1 - (intrst!+ 1) ^ (-term%))
End Function

Sub ComputeMortgageCosts (price As Single)
Dim totalCost As Single, downpmt As Single
Dim mortgage As Single, intrst As Single
Dim monthlypmt As Single, years As Integer
EnterInfo:
downpmt!= CSng(InputBox(_"How much is the down payment?"))
' The downpayment must be at least 10% of the price.
If downpmt!< (0.1 * price!)Then
MessageBox "Your down payment must be at least " _
& Format(price!* .1, "Currency")
GoTo EnterInfo:
End If
mortgage!= price!- downpmt!
intrst!= CSng(InputBox("What is the interest rate?"))
years% = CInt(InputBox("How many years?"))
' Call the Payment function to return the monthly payment.
monthlypmt!= Payment(mortgage!, intrst!, years%)
totalCost!= downpmt!+ (monthlypmt!* years% * 12)
If monthlypmt!> 0 Then ' Create a multiline message.
message$ = _
|Price | & Format(price!, "Currency") & |
Down Payment:| & Format(downpmt!, "Currency") & |
Mortgage:| & Format(downpmt!, "Currency") & |
Mortgage:| & Format(intrst!, "Percent") & |
Term:| & Str(years%) & | years
Monthly Payment:| & Format(monthlypmt!, "Currency") & |
Total Cost:| & Format(monthlypmt!* years% * 12, "Currency")
Else
message$ = "You did not enter valid input."
End If
End Sub

' Start here.
price!= CSng(InputBox("How much does the house cost?"))
' Call the Compute MortgageCosts sub.
ComputeMortgageCosts (price!)
' Display the message.
MessageBox message$

関連項目