Không biết trong này có anh chị nào là tác giả bài viết ai là triêu phu không cho em hỏi đôi chút về ý nghĩa đoạn lệnh này?
Em xin cảm ơn ạ

Private Function tranh_trung(ByVal number As Integer, ByVal first As Byte)
Dim i As Byte
Dim trung As Boolean
For i = first To question - 1 Step 1
If mang(i) = number Then
trung = True
Exit For
Else
trung = False
End If
Next
If trung = False Then
mang(question - 1) = number
Call get_question(number)
Else
Call get_id
End If
End Function

Tôi không phải tác giả ứng dụng này nhưng có xem qua code của nó.
Để hiểu nó thì phải xem các code liên quan nữa. Tổng quát là nó dùng để lấy ngẫu nhiên các câu hỏi khác nhưng tránh lấy trùng với những câu hỏi đã được trả lời trước đó rồi. Nó được chạy khi sự kiện đổi câu hỏi hoặc sang câu hỏi mới.
- Lấy số random cung cấp cho biến "number" của hàm.
- Kiểm tra trong các câu hỏi đang trả lời (từ first tới câu hỏi hiện tại) xem "id" các câu hỏi đó có trùng với số ngẫu nhiên "number" không?
- Nếu number = id thì là trùng -> chạy lấy id câu hỏi khác ("get_id").
- Nếu không trùng thì lấy câu hỏi từ id ngẫu nhiên đó.

(25-07-18, 01:22 PM)ongke0711 Đã viết: Tôi không phải tác giả ứng dụng này nhưng có xem qua code của nó.
Để hiểu nó thì phải xem các code liên quan nữa. Tổng quát là nó dùng để lấy ngẫu nhiên các câu hỏi khác nhưng tránh lấy trùng với những câu hỏi đã được trả lời trước đó rồi. Nó được chạy khi sự kiện đổi câu hỏi hoặc sang câu hỏi mới.
- Lấy số random cung cấp cho biến "number" của hàm.
- Kiểm tra trong các câu hỏi đang trả lời (từ first tới câu hỏi hiện tại) xem "id" các câu hỏi đó có trùng với số ngẫu nhiên "number" không?
- Nếu number = id thì là trùng -> chạy lấy id câu hỏi khác ("get_id").
- Nếu không trùng thì lấy câu hỏi từ id ngẫu nhiên đó.

Cảm ơn Pro. em đang chỉ ko hiểu cái tranh_trung là gì, hóa ra là [ tránh trùng lặp câu hỏi]