ارایه ها

[mona rahimi]

برنامه اي كه يك آرايه　　100　　عضوي را گرفته و سپس آن را به شيوه حبابي مرتب مي كند.
vb6

 

[the_king]

برنامه اي كه يك آرايه　　100　　عضوي را گرفته و سپس آن را به شيوه حبابي مرتب مي كند.
vb6

گرفتن یک آرایه 100 عضوی از صفحه کلید که منطقی نیست، با اعداد تصادفی پر بشه بهتره.

Option Explicit

Private Sub Form_Load()
    Dim a(1 To 100) As Integer, t As Integer
    Dim i As Integer, j As Integer
[COLOR="Gray"]    For i = 1 To 100
        a(i) = Int(Rnd * 200)
    Next
[/COLOR]    For i = 1 To 99
        For j = i + 1 To 100
            If a(i) > a(j) Then
                t = a(i)
                a(i) = a(j)
                a(j) = t
            End If
        Next
    Next
[COLOR="Blue"]    Dim s As String
    For i = 1 To 100
        s = s & " " & CStr(a(i))
    Next
    MsgBox s[/COLOR]
End Sub

موارد اختیاری :
بخش خاکستری پر کردن آرایه با اعداد تصادفی بین 0 الی 199
بخش آبی نمایش آرایه مرتب شده.