Đá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
  [Help] Kết quả tính toán theo dòng record tương ứng tvn_hut 5 280 02-06-18, 03:24 PM
Bài mới nhất: tvn_hut
  [Help] So sánh giá trị record trên cùng 1 trường trong 1 bảng để có kết quả tính toán đúng tvn_hut 5 180 29-05-18, 10:39 PM
Bài mới nhất: ongke0711
  [Hỏi] Có nên chuyển toàn bộ query vào vba mrsiro 4 208 26-04-18, 11:19 PM
Bài mới nhất: ongke0711
Lightbulb [Thủ Thuật] [Yêu cầu Hàm] Ý tưởng & Nơi yêu cầu thủ thuật maidinhdan 24 5,593 23-04-18, 01:37 PM
Bài mới nhất: phungminhluan
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 5 1,184 12-12-16, 04:25 PM
Bài mới nhất: ongke0711

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line