عرض مشاركة واحدة
قديم 02-08-2010, 05:42 PM   #10
متميزه
مراقبة عامة
 
الصورة الرمزية متميزه
افتراضي مشاركة: ساعدوني في حلو ل بعض الاسئلة

Ali " = x"
يعتبر هذا المتغير

( عددي / منطقي / حرفي )




single لايجوز ان يكون اسم لمتغير بسبب
( لانه يتجاوز 255 حرف ـ لانه لم يبدأ بحرف هجاء انجليزي ـ لانه اسم محجوز )




المتغير هو اسم يدل على موقع مخزن داخل ذاكرة الحاسب يتم فيه تخزين قيمة هذا المتغير ( صح / خطأ )


لتصميم واجهة عربية نغير خاصية ( RIGHT TO LEFT ) الى القيمة True ( صح ـ خطأ )


في اداة زر الخيار يمكن للمستخدم اختيار خيار واحد فقط ( صح ـ خطأ )


نستخدم اداة check box لعرض قائمة مكونه من عناصر يختار المستخدم احدهم ( صح ـ خطأ )



عرف ثابث اسم الدولة بقيمة KSa

Const State=KSa

لتحديد المدخلات الخاصة بحساب محيط المستطيل علما بان محيط المستطيل = الطول x العرض على 2

أ الطول والعرض ب / الطول x العرض
ج / محيط المستطيل د / الطول X العرض على 2



تكون نتيجة المقارنه TURE
3+ 6 = >2*5 3+6=>3*3

3+6=<3*2 3+6 = > 3*6



تعتبر اسم صالح لتسمية المتغيرات

AR 23DIM
S& NAME DIM23




اكتب الصيغة اللازمه اذا اردنا ان نخرج المعلومه التاليه ( هذا برنامج خاص بحساب الزكاة ) للمستخدم دون استخدام أدوات
البرنامج مستخدم بالكتاب

Dim m As Single,z As Single
m = Text1.Text
z = 0.025 * m
If m > 1000 Then
z & " الزكاة= " = Text2.Text
Else
"البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال " = Text2.Text
End If
End Sub

لكن بما انه طلب من دون استخدام ادوات


Dim m As Single,z As Single
("ادخل المبلغ لاحتساب الزكاة" )m = InputBox
z = 0.025 * m
If m > 1000 Then
(z & " الزكاة= " ) MsgBox
Else
("البرنامج يقوم بحساب الزكاة لأكثر من 1000 ريال ") MsgBox
End If
End Sub



جملة التكرار التي تصلح لطباعة الاعداد الزوجيه فقط هي

FOR M = 2 TO 10 STep 2

FOR M 1 TO 10 Step 2


FOR M 1 TO 10 Step3
التوقيع :
يارب لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضا

التعديل الأخير تم بواسطة متميزه ; 02-08-2010 الساعة 06:05 PM
  رد مع اقتباس