Here is a very simple program that I wrote using VB to compute the area of the rectangle. The code is very short and easy to understand. What does the program will do is to ask the user to give length and breath of the rectangle and the our program will solve for it’s area.
Private Sub Command1_Click()
Sum = Val(Form1.Text1.Text) * Val(Form1.Text2.Text)
Label4.Caption = "The are of the rectagle is " & Sum & "."
End Sub
Private Sub Command2_Click()
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Label4.Caption = ""
Form1.Text1.SetFocus
End Sub