بالعلم ترتقى الامم
بالعلم ترتقى الامم
الثالث الاعدادى
ما ناتج تنغيذ الكود التالى
Dim A As Integer = 5
Dim B As Integer = 6
MsgBox( A & 'Ï' & B & '=' & ' ' & A * B)
* ما قيمة المتغير R بعد تنفيذ الكود التالى :-
Dim r As Single = 2.5
Do While r > 3
r = r + 2.5
Loop
MsgBox(r)
*بعد تنفيذ الكود التالى ما القيمة المعروضة فى صندوق النص ( Textbox1 )
Dim n As Integer
For n = 2 To 10 Step 2
txt_display.Text = txt_display.Text & n
Next
( ا ) اكتب كود البرمجة اللازم لكل عبارة مما ياتى:-
1-الاعلان عن الثابت pi ويخصص له قيمة 3.14
2-افراغ صندوق النص textbox1 ) ) من محتواة
3-ايقاف اداة Timer1 عن العمل
( ب ) اقرا الاكواد الاتية ثم استخراج المطلوب:
Function Sum(ByVal First As Single,ByVal Second As Single)As Single
Dim total As Single
total = First + Second
Return total
End Function
اسم الإجراء : .................
القيمة الراجعة : ..................
) أمام العبارة الصحيحة ، وعلامة ( 
) أمام العبارة الخطأ