[متميزه]

كود مساحة المستطيل

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