C0NN3CT0R
دوشنبه 09 آبان 1390, 19:23 عصر
با سلام به همه دوستان عزیزم.:قلب:
امیدوارم شاد و خرم باشید.:قلب:
بنده یک مشکلی دارم در کد الگوریتم حبابی.:لبخند:
توی یک برنامه مورد استفاده قرار گرفته که عداد تصادفی که تولید میشود را مرتب می کنه.:افسرده:
اما من نتونستم این کد رو درک کنم.:افسرده:
کسی می تونه به طور کامل در مورد این کد توضیحاتی بده ، و بگه هر قسمت از این کد ها چه وظایفی داره؟:ناراحت:
ممنون میشم.:خجالت::بوس:
Dim tmp As Integer
Dim i, j, x As Integer
For i = 9 To 0 Step -1
For j = 0 To 9
If j < 9 Then
If MyArray(j) > MyArray(j + 1) Then
tmp = MyArray(j + 1)
MyArray(j + 1) = tmp
End If
End If
Next j
Next i
For x = 0 To 9
List2.AddItem (MyArray(x))
Next x
امیدوارم شاد و خرم باشید.:قلب:
بنده یک مشکلی دارم در کد الگوریتم حبابی.:لبخند:
توی یک برنامه مورد استفاده قرار گرفته که عداد تصادفی که تولید میشود را مرتب می کنه.:افسرده:
اما من نتونستم این کد رو درک کنم.:افسرده:
کسی می تونه به طور کامل در مورد این کد توضیحاتی بده ، و بگه هر قسمت از این کد ها چه وظایفی داره؟:ناراحت:
ممنون میشم.:خجالت::بوس:
Dim tmp As Integer
Dim i, j, x As Integer
For i = 9 To 0 Step -1
For j = 0 To 9
If j < 9 Then
If MyArray(j) > MyArray(j + 1) Then
tmp = MyArray(j + 1)
MyArray(j + 1) = tmp
End If
End If
Next j
Next i
For x = 0 To 9
List2.AddItem (MyArray(x))
Next x