[سيف سالم]

المشاركة الأصلية كتبت بواسطة we$am

بسم الله الرحمن الرحيم
مرفق إجابة امتحان المنوفية في مادة الحاسب الآلي
للعام الدراسي 2015

integer 4 مش 8
الطريقة الاولى في الكود خطأ والصواب الشرط =<
ويوجد طريقة ثالثة
if me.textbox1.text <0 then
msgbox(الرسالة المطلوب
else
البرنامج
end if
طريقة رابعة

Dim R , area as single

Const pi as single = 22/7

R= me.textbox1.text
select case R
case is <0
msgboxالرسالة
case else

Area=pi*R^2

Msgbox ("area of circle = " & area )
end select
هناك طريقة خامسة

Dim R , area as single

Const pi as single = 22/7

R= me.textbox1.text
select case R
case is <0
msgboxالرسالة
case is >=0

Area=pi*R^2

Msgbox ("area of circle = " & area )
end select
وهناك سابعة و 8
بعكس الحالات السابقة
وهناك تاسعة و عشرة
if then elseif
وهناك ب do while