تجميع امتحانات الحاسب 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

[سيف سالم]

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

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

اجابة صحيحة
بس لن تأخذ الدرجة
لانك لم تحل كما اراد الممتحن

[رزق درديري]

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

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

صحيح إذا كانت صيغة السؤال ( أعد كتابة الكود ) ولم يلزمك في السؤال بترتيب وأكمل أما وقد ألزمك بأكمل البرنامج فقد ألزمك بالترتيب والتكملة في مكانها فليس منوط بالطالب تعديل صيغة السؤال والاجابة حسبما عدل ... وتقبل تحياتي