[طالب المزيد]

المشاركة الأصلية كتبت بواسطة d7ome

عفواً ع التأخير ..

اللي سويته

Dim a , b , c as single
lable1.caption=c
text1.text=c
msgbox(c)

يعني قربت من الحل الصحيح

حمل من المرفقات الحل الصحيح

Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
MsgBox "مساحة المستطيل = " & c