... cac cau tracnghiem question(i) = curnum = Int(Rnd * sumsent) + 'Chon ngau nhien mot cau tracnghiem nduplicate = For j = To i - 'Kiem tra trung If question(j) = curnum Then 'Neu cau tracnghiem ... = End If Next j If nduplicate Then 'Neu cau tracnghiem chua question(i) = curnum 'Luu lai thu tu cau tracnghiem da result(i) = "" 'Cau tracnghiem moi thi chua co ket qua tra loi i=i+1 'Xac ... ket qua tra loi cua cau tracnghiem la A End If If optchon(1).Value Then 'Neu option button thu hai duoc chon result(orderno) = "B" 'Luu ket qua tra loi cua cau tracnghiem la B End If If optchon(2).Value...