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
|
|
|