لغات برمجة شعبة ناصر شطوان

[عاشقة المستحيل]

السلام عليكم و رخمة الله و بركاته

انا مرره مستعجله عندي مادتين بكرا

تكفوون ادعوولي
و ربي ما فتحتهم الحمد لله بس

شوفوا المرفقات
على السريع كتبتها
و ان شاء الله البنات الباقين ما يقصروون بالتفاصييل

و افتح الكتاب و اوراقك و كل شي
انا حطيت ملفاتي بيو اس بي و نسخت منها

بس خذو اوراق اضمن

و بالتوفيييق

^_^

[my hero]

المشاركة الأصلية كتبت بواسطة أحمد المبدع ياريت تقولوا لنا كيف كان الاختبار بالزبط والاجوبه كلها على الجهاز ولا في اجابات على الورقه وكيف كان التسليم وهل يمدينا نفتح الكتاب ؟

yup الاجوبه كلها على الجهاز ولاتضيع وقتك في فتح الكتاب ماحتستفيد منه اي شئ ...
طريقة التسليم :
تحط فولدر في سطح المكتب تكتب فيه اسمك الثلاثي وداخله 3 فولدرات الاول تحط فيه حل السؤال الاول والثاني حل السؤال الثاني والثالث حل السؤال الثلث والمشرف حيديك فلاشة ترسل فيها شغلك كله ....بس انتبه انو كل ما تشتغل في الفجوال على طول تحفظ لان بعض اجهزة البنات علقت وراح الشغل ...

[أميرة بين النساء]

نموذج الاختبار في المرفقات

[أميرة بين النساء]

هذا حل السؤال الثالث في الاختبار

[عاشقة المستحيل]

ههههههههههههههههههههههههههه

بنفس الوقت

شفتوا كييف نساعد ^_*

الي عرفت الاكواد الصحيحه
حق السوال الاول و التاني
ياريت تنزلها اشوفها بعدين

موفقين

[alraked]

السلام عليكم,,,مساء الخير

ربي يوفقكم انشاءلله و يوفقنا

اميرة بين النساء ياليت لو ترفعي ملف اجابة السؤال الثالث لاكن بصيغه ثانيه لأنو ما راضي يفتح معي حطيه في ملف

وورد الله يرضى عليك

ويا ليت تنزلوا اجابات اسئلة الإختبار حقكم

صراحه الوضع يخوووووووف والله يستر

تشاااااااو

[القرشي3770]

طيب الدكتور سمح لكم بفتح الكتاب

[القرشي3770]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim b() As String = {"ي", "ز", "ن", " ", "ع", "س", "ي", "ر", "ي"}
For i = 0 To 7
If b(i) = " " Then
b(i) = "$"
End If
TextBox1.Text = TextBox1.Text + b(i)
Next
End Sub

هذي اجابة السؤال الثالث

[القرشي3770]

يابنات عندي سالو في السؤال الثاني فقرة ترتيب المصفوفه كيف يكون الكود

[my hero]

المشاركة الأصلية كتبت بواسطة القرشي3770 يابنات عندي سالو في السؤال الثاني فقرة ترتيب المصفوفه كيف يكون الكود

قالت المشرفة هذا هو نستخدمه :

قلب عناصر المصفوفه

Dim i, lb, ub, y As Int16

lb = xx.GetLowerBound(0)

ub = xx.GetUpperBound(0)

i = lb

y = ub

Dim kk(ub) As Int16

Do While y >= lb

kk(i) = xx(y)

y = y - 1

i = i + 1

Loop

Do While lb <= ub

xx(lb) = kk(lb)

lb = lb + 1

Loop

ListBox1.Items.Clear()

Button1_Click(xx, e)

End Sub

وفي بنات استخدموا طريقة العد التنازلي او التصاعدي بس ماني متاكدة اي طريقة هي الصح ..

Dim x(10) As Integer

Dim i

For i = 1 To 10

x(i) = InputBox("enter a number(" & i & ") :")

Next

Dim j, k, m

For j = 1 To 10

For k = j + 1 To 10

If x(j) > x(k) Then

m = x(k)

x(k) = x(j)

x(j) = m

End If

Next k

Next j

For i = 1 To 10

MsgBox("(" & i & ")place:" & x(i))

Next

End Sub

استقبال عشرة أرقام ثم ترتيبها ترتيب تنازلي

Dim x(10) As Integer

Dim i

For i = 1 To 10

x(i) = InputBox("enter a number(" & i & ") :")

Next

Dim j, k, m

For j = 1 To 10

For k = j + 1 To 10

If x(j) < x(k) Then

m = x(k)

x(k) = x(j)

x(j) = m

End If

Next k

Next j

For i = 1 To 10

MsgBox("(" & i & ")place:" & x(i))

Next

End Sub

اي سؤال انا حاضرة بس من جد الاختبار كان يطلع الروح خاصة السؤال الاول حق قاعدة البايانات بس إن شاء الله ننجح