trac nghiem giun dua

Ngày tải lên: 26/10/2015, 19:54

Ngày tải lên: 21/11/2012, 10:03

Ngày tải lên: 17/12/2012, 16:24

... cac cau trac nghiem question(i) = curnum = Int(Rnd * sumsent) + 'Chon ngau nhien mot cau trac nghiem nduplicate = For j = To i - 'Kiem tra trung If question(j) = curnum Then 'Neu cau trac nghiem ... = End If Next j If nduplicate Then 'Neu cau trac nghiem chua question(i) = curnum 'Luu lai thu tu cau trac nghiem da result(i) = "" 'Cau trac nghiem moi thi chua co ket qua tra loi i=i+1 'Xac ... ket qua tra loi cua cau trac nghiem 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 trac nghiem la B End If If optchon(2).Value...

Ngày tải lên: 27/04/2013, 09:25

Ngày tải lên: 09/07/2013, 01:25

Ngày tải lên: 25/12/2013, 11:04

Ngày tải lên: 03/01/2014, 14:20

Ngày tải lên: 13/09/2014, 21:33

Ngày tải lên: 22/10/2014, 10:00

Ngày tải lên: 15/11/2014, 18:07

Ngày tải lên: 14/12/2021, 22:01

Ngày tải lên: 13/03/2015, 18:43

Ngày tải lên: 12/04/2015, 14:21

Ngày tải lên: 17/04/2015, 10:09

Ngày tải lên: 19/06/2015, 09:38

Ngày tải lên: 04/08/2015, 23:51

Ngày tải lên: 10/08/2012, 13:48

Ngày tải lên: 10/08/2012, 16:07

Ngày tải lên: 10/08/2012, 17:01