كود مساحة المستطيل
Private Sub Command1_Click()
Dim a, b As Single
a = text1.Text
b = text2.Text
text3.Text = a * b
End Sub
التحويل من الكيلومتر إلى المتر
Private Sub Command1_Click ( )
Dim r As Single
r = Text1.Text
Text2.Text =1000 * r
End Sub
مساحة المربع .
Private Sub Command1_Click()
Dim a As Single
a = text1.Text
text2.Text = a ^2
End Sub