تجميع امتحانات الحاسب 2013 للترم الثاني

[amen.soft]

انا كتبت الكود كالاتى هل اجابتى صح
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