0

trac nghiem giun dua

Chương trình trắc nghiệm kiến thức THPT dựa trên ngôn ngữ Visual Basic

Chương trình trắc nghiệm kiến thức THPT dựa trên ngôn ngữ Visual Basic

Kĩ thuật Viễn thông

... 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...
  • 35
  • 809
  • 7
Trắc nghiệm IQ

Trắc nghiệm IQ

Kỹ năng tư duy

...
  • 14
  • 4,709
  • 27

Xem thêm