انا كتبت الكود كالاتى هل اجابتى صح
Dim M, area As Single
Const Pi As Single =22 / 7
M = Me.textBox1.text
If M < 0 then
MsgBox(“غير مسموح ”)
Else
Area = Pi * M^2
MsgBox ( " area of Circle = " & area )
end if

تغير الشرط m >= 0

انا كتبت الكود كالاتى هل اجابتى صح
dim m, area as single
const pi as single =22 / 7
m = me.textbox1.text
if m < 0 then
msgbox(“غير مسموح ”)
else
area = pi * m^2
msgbox ( " area of circle = " & area )
end if
اجابة صحيحة ممالا شك فيه
بس المطلوب انك تفكر ذي ما واضع الامتحان مابيفكر
وتسير غصب عنك في طريقه
لا حرية في التعبير