يابنات عندي سالو في السؤال الثاني فقرة ترتيب المصفوفه كيف يكون الكود
|
قالت المشرفة هذا هو نستخدمه :
قلب عناصر المصفوفه
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
استقبال عشرة أرقام ثم ترتيبها ترتيب تنازلي
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
اي سؤال انا حاضرة بس من جد الاختبار كان يطلع الروح خاصة السؤال الاول حق قاعدة البايانات بس إن شاء الله ننجح