مشاهدة النسخة كاملة : نريد إجابات لهذه الأسئلة للتأكيد على الطلبة .... شكرا


messi100ASM
10-05-2014, 04:18 PM
تتبع الكود التالى ثم اوجد قيمة كل من X, Y , Z

Dim x, y, z As Integer

x = 20

If x <= 10 Then

x = 30

y = 80

Else

x = 12

y = 18

End If

Z = y * 2



تتبع الكود التالى ثم اوجد قيمة كل من N, C , K

Dim N, K, C As Integer

C = 10

For N = 1 To 8 Step 3

K = C + N

Next

If N > C Then

C = C - 5

End If




تتبع الكود التالى ثم اوجد قيمة كل من Sum , R

Dim R , Sum As Integer

For R = 10 To 5

Sum = Sum + R

Next

MsgBox (R)



تتبع الكود التالى ثم اوجد قيمة كل من A , B , C

Dim A , B , C As Integer

B = 20

C = B / 4

For A = 6 To 3 Step -3

B = B / 2

C = C * 2

Next




تتبع الكود التالى ثم اوجد قيمة كل من X, Sum , K

Dim Sum, X, K As Integer

For X = 0 To 4

Sum = Sum + X

Next

K = Sum / X



تتبع الكود التالى ثم اوجد قيمة كل من N, X

Dim X , N As Integer

X = 2.6

For N = 0 TO 7 Step 3

X = X * 2

Next




تتبع الكود التالى ثم حدد قيمة الخاصية Text لاداة Label1

Dim W as integer

For w = 6 To 10 Step 2

Label1 . text = w

Next



تتبع الكود التالى ثم حدد قيمة الخاصية Text لاداة Label1

Dim W as integer

For w = 6 To 10 Step 2

Label1 . text = label1 . text & w

Next