Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thuật toán xếp hạng
#1
Các bạn tạo mới 1 form:
1. Tạo 1 listbox có tên là: List1 (kích chuột phải vào list1--->mục row source type--->value list)
2. Tạo 1 command button có tên là cmdxep_hang
3. Các bạn copy đoạn mã sau vào nút lệnh command button cmdxep_hang
Mã:
Private Sub Cmdxep_hang_Click()
    Dim a(9) As Integer
    Dim b(9) As Integer
    Dim i, j As Integer
    a(1) = 9
    a(2) = 8
    a(3) = 8
    a(4) = 7
    a(5) = 5
    a(6) = 4
    a(7) = 4
    a(8) = 3
    a(9) = 2
    For i = 1 To 9
        List1.AddItem a(i)
    Next i
    b(1) = 1
    For i = 2 To 9
        If a(i) = a(1) Then
            b(i) = 1
        Else
            If a(i) <> a(i - 1) Then
                b(i) = i
                j = i
            Else
                b(i) = j
            End If
        End If
    Next i
    For i = 1 To 9
        List1.AddItem b(i)
    Next i
End Sub
4. Chạy form và xem kết quả trên listbox.
Mình lấy vị dụ đã tạo được 1 mảng sắp xếp giảm dần. Thuật toán sắp xếp giảm dần chắc bạn nào cũng biết rồi. hì...

Nếu có bạn nào quan tâm đến thuật toán tạo các số ngẫu nhiên không trùng nhau thì hôm nào rảnh mình sẽ tạo hàm cho các bạn.
Chữ ký của Heiro7 Xin chào, mình là Heiro7, Tham gia http://thuthuataccess.com/forum từ ngày 07-06 -12.
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 58 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
  [Hỏi] Số Thứ Tự Theo Nhóm Hàng Hóa Trong Access pherotao 2 145 02-11-16, 03:05 PM
Bài mới nhất: pherotao
Lightbulb [Thủ Thuật] [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật maidinhdan 16 812 28-10-16, 11:18 AM
Bài mới nhất: ongke0711
  [Help] xin hỗ trợ bằng Thủ thuật VBA Trần Linh 3 239 13-07-16, 09:06 PM
Bài mới nhất: ongke0711
  [Help] Tính lãi suất vay ngân hàng dangh5 2 173 31-05-16, 12:25 AM
Bài mới nhất: dangh5

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ