SIMPLE AND COMPOUND INTEREST USING VISUAL BASIC

PROGRAM
Dim si, ci As Integer
Private Sub Command1_Click()
si = (Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text) / 100)
MsgBox "Simple interest is=" & si
End Sub
Private Sub Command2_Click()
ci = (Val(Text1.Text) * ((1 + Val(Text2.Text) / 100)) ^ Val(Text3.Text) - Val(Text1.Text))
MsgBox "compound interest is=" & ci
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command4_Click()
End

End Sub

0 Comment "SIMPLE AND COMPOUND INTEREST USING VISUAL BASIC"

Post a Comment

:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.

Loading...
இணைந்திருங்கள் 24 நேரமும்!! Like us on Facebook!)