الكاتب : Unknown في الأحد، 13 أبريل 2014
الأحد، 13 أبريل 2014
ترتيب العناصر (Sort)
ترتيب مصفوفة تصاعديا، وتحتوي على 3 عناصر (خلايا):
Private Sub Command1_Click()
Dim x(2) As Integer
Print ""
For i = 0 To 2
x(i) = Rnd * 10
Print x(i),
Next i
Max = x(0)
For h = 0 To 3
For t = 1 To 2
If x(t - 1) > x(t) Then
w = x(t - 1)
x(t - 1) = x(t)
x(t) = w
End If
Next t
Next h
Print ""
For j = 0 To 2
Print x(j),
Next j
الاشتراك في:
التعليقات
(
Atom
)
