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

[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

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