اقتباس:
المشاركة الأصلية كتبت بواسطة hguhg
1)الخاصية ..............تقوم باعطاء قيمة لملصق الCheck box
لو سمحتوا ممكن حد يفهمنى السؤالين ده حلهم ازاى عشان انا بحاول افهمهم مش عارف
السؤال الاول:
sum=0
x=0
Do While X<5
Sum=sum +X
X=x+1
loop
Average=Sum/X
بعد تنفيذ التعليمات السابقة تكون:
1)قيمةXتساوى ...........(0-5-4)
2)قيمة averageتساوى ..................(2-2.5-3)
السؤال الثانى:
Dim I As Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=x*2
Next
MsgBox(x)
بعد تنفيذ الاوامر السابقة:
1)تكون القيم التى سيأخذها العدادIهى ................
2)يكون عد مرات تنفيذ الجمله X=X*2 هى................
3)تكون قيمة المتغير xالتى سيعرضها مربع الرسالة هى..............
ارجو الرد وجزاكم الله كل خير
|
البرنامج الأول
Dim x, sum, average As Single
sum = 0
x = 0
Do While X < 5
Sum = sum + X
X = x + 1
Loop
average = sum / x
Label1.Text = average
Label2.Text = x
قيمة X تساوى 5
قيمة average تساوى 2
لأن قيمة Sum ستكون بــ 10 وعند قسمة 10 على 5 يكون الناتج 2
البرنامج الثانى: Dim I As Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=x*2
Next
MsgBox(x
بعد تنفيذ الاوامر السابقة:
1)تكون القيم التى سيأخذها العداد I هى 1 و 4 و 7 و 10
2)يكون عد مرات تنفيذ الجمله X=X*2 هى 4 مرات
3)تكون قيمة المتغير x التى سيعرضها مربع الرسالة هى 40
x= 2*2.5 = 5
x= 2*5 = 10
x= 2*10 = 20
x= 2*20 = 40