Monday 10 October 2011

Script 3: Write a script to calculate the Simple Interest.

Dim Principal, Time, Rate, SimpleInterest

Principal = CDbl (InputBox ("Please enter the Principal"))
Time = CDbl (InputBox ("Please enter the Time"))
Rate = CDbl (InputBox ("Please enter the Rate"))

SimpleInterest = (Principal * Time * Rate)/100

MsgBox SimpleInterest

No comments:

Post a Comment