Tuesday, February 22, 2011

Write a Visual Basic program to Find the simple interest

WAP to Find the simple interest.
_______________________________
Private Sub Command1_Click()
Dim a
Dim b, c, d As Double

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a * b * c) / 100
Label6.Caption = d




End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label6.Caption = ""

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

______________________________
OUTPUT
______________________________




____________________________________
DOWNLOAD
____________________________________

Download its form

Download its Image



No comments:

Post a Comment

Sociable