Chương trình ai là triêu phú
Cuong Servenet > 24-07-18, 11:38 AM
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