Câu hỏi và giải đáp Cơ sở dữ liệu và lập trình môn Tin 3 | Trường Đại học Kinh Doanh và Công Nghệ Hà Nội

lOMoAR cPSD| 57855709
'Phần E Nhóm câu hỏi CSDL
HE(1) = "Chức năng của biến Database? "
* "Dùng để kết nối với CSDL"
"Dùng để thao tác với các bản ghi"
"Dùng để thao tác với các trường (cột) trong bảng"
"Dùng để thao tác với các truy vẫn dữ liệu"
HE(2) = "Chức năng của biến Recordset? "
* "Dùng để thao tác với các bản ghi"
"Dùng để kết nối với CSDL"
"Dùng để thao tác với các trường (cột) trong bảng"
"Dùng để thao tác với các truy vẫn dữ liệu"
HE(3) = "Cách khai báo biến Recordset? " * "DIM AS DAO.Recordset" "DIM AS Recordset" "DIM AS DAO.Database" "DIM AS Database"
HE(4) = "Cách khai báo biến Database? " * "DIM AS DAO.Database" "DIM AS DAO.Recordset" "DIM AS Recordset" "DIM AS Database"
HE(5) = "Cách gán biến Database với CSDL? " * "SET =CurrentDB()" " =CurrentDB()"
"SET = Biến Database.OpenRecordSet(''Nguồn dữ liệu'',''Kiểu dữ liệu'')"
" = Biến Database.OpenRecordSet(''Nguồn dữ liệu'',''Kiểu dữ liệu'')"
HE(6) = "Cách gán biến Recordset với bản ghi? "
* "SET = Biến Database.OpenRecordSet(''Nguồn dữ liệu'',''Kiểu dữ liệu'')" "SET =CurrentDB()" " =CurrentDB()"
" = Biến Database.OpenRecordSet(''Nguồn dữ liệu'',''Kiểu dữ liệu'')"
HE(7) = "Để gán biến kiểu Database với CSDL ''HSSV''? " * "SET DuLieu =CurrentDB()" "DuLieu =CurrentDB()"
"SET DuLieu = OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')"
"DuLieu = OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')" lOMoAR cPSD| 57855709
HE(8) = "Để gán biến kiểu Recordset với bản ghi (đã có biến kiểu Database và CSDL là ''HSSV'') ? "
* "SET DuLieu = BanGhi.OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')" "SET DuLieu =CurrentDB()" "DuLieu =CurrentDB()"
"DuLieu = BanGhi.OpenRecordSet(''HSSV'',''DB_OPEN_DYNASET'')"
For NhomE = 1 To TongSoCauNhomE SE(NhomE) = 4 DE(NhomE) = 1 DiemE(NhomE) = 0.6 Next NhomE
'Nhóm F Cau hoi phan lap trinh
HF(1) = "Hãy cho biết khi lập trình thì thủ tục nào sau đây không hợp lệ. " * "Sub For()." "Sub LenhSelect()." "Sub LenhIf()."
"Tất cả đều không hợp lệ."
HF(2) = "Hãy cho biết khi lập trình thì thủ tục nào sau đây hợp lệ. "
* "Tất cả đều hợp lệ." "Sub LenhFor()." "Sub LenhSelect()." "Sub LenhIf()."
HF(3) = "Hãy cho biết khi lập trình thì tên thủ tục nào sau đây hợp lệ. " * "Sub False()." "Sub For()." "Sub If()."
"Tất cả đều không hợp lệ."
HF(4) = "Hãy cho biết khi lập trình thì tên thủ tục nào sau đây hợp lệ. " * "Sub TinhTong()." "Sub Tinh Tong()." "Sub Tính Tổng()."
"Tất cả đều hợp lệ."
HF(5) = "Hãy cho biết khi lập trình thì tên thủ tục nào sau đây không hợp lệ. "
* "Tất cả đều không hợp lệ." "Sub Tinh-Tong()." "Sub Tinh Tong()." "Sub Tính Tổng()." lOMoAR cPSD| 57855709
HF(6) = "Hãy cho biết khi lập trình thì tên biến nào sau đây hợp lệ. " * "Dim TongDiem As Double." "Dim Tong Diem As Integer." "Dim Tong-Diem As Long."
"Tất cả đều hợp lệ"
HF(7) = "Hãy cho biết khi lập trình thì tên biến nào sau đây hợp lệ. "
* "Tất cả đều hợp lệ." "Dim KetQua As Double." "Dim Ket_Qua As Double." "Dim KQua As Double."
HF(8) = " Phát biểu MsgBox trong Access thường được dùng để:"
* "Hiện thông báo (Lệnh ra dữ liệu)."
"Nhập giá trị dạng Number từ bàn phím."
"Nhập giá trị dạng bất kỳ từ bàn phím."
"Nhập giá trị dạng String từ bàn phím."
HF(9) = " Phát biểu InputBox trong Access thường được dùng để:"
* "Nhập dữ liệu dạng bất kỳ từ bàn phím."
"Chỉ nhập dữ liệu dạng Number từ bàn phím."
"Chỉ nhập dữ liệu dạng String từ bàn phím."
"Hiện thông báo (Lệnh ra dữ liệu)."
HF(10) = " Phát biểu của lệnh IF...THEN... ENDIF (Dạng khuyết): " "IF THEN" " " "END IF"
* "Nếu đúng thì thực hiện , nếu sai thì bỏ qua."
"Nếu sai thì thực hiện , nếu đúng thì bỏ qua."
"Nếu đúng thì bỏ qua, sai thì thực hiên ."
"Nếu không đúng thì thực hiện ."
HF(11) = " Phát biểu của lệnh IF...ELSE... END IF (Dạng đầy đủ): " "IF THEN" " " "ELSE" " " "END IF"
* "Nếu đúng thì thực hiện <'Khối lệnh 1>, nếu sai thì thực hiện <'Khối lệnh 2>."
"Nếu sai thì thực hiện <'Khối lệnh 1>, nếu đúng thì thì thực hiện <'Khối lệnh 2>."
"Nếu đúng thì thực hiện <'Khối lệnh 1> nếu sai thì bỏ qua."
"Nếu sai thì thực hiện <'Khối lệnh 2> nếu đúng thì bỏ qua ."
HF(12) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" lOMoAR cPSD| 57855709 "Dim A As Double" "Dim B As Double" "Dim S As Double" "A=7" "B=3" "S=0" "If A" S= A-B " "End If" "MsgBox S" "End Sub" * " 0." " 4." " 1." "10."
HF(13) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim A As Double" "Dim B As Double" "Dim S As Double" "A=7" "B=3" "S=0" "If A" S= A-B " "Else " " S= A+B " "End If" "MsgBox S" "End Sub" * "10." " 1." " 0." " 4."
HF(14) = " Phát biểu của lệnh Select Case: " "Select Case Bien_Chon" " Case 1" " Khối lệnh 1" " Case 2" " Khối lệnh 2" " Case N" " Khối lệnh N" " Case Else" " Khối lệnh N+1" "End Select" lOMoAR cPSD| 57855709
* "Nếu biến chọn bằng một giá trị từ 1...N thì thực hiện khối lệnh tương ứng. Nếu không bằng thì
thực hiện khối lệnh N+1."
"Nếu biến chọn không bằng một giá trị từ 1...N thì thực hiện khối lệnh tương ứng. Nếu bằng thì thực hiện khối lệnh N+1."
"Nếu biến chọn không bằng một giá trị từ 1...N thì thực hiện khối lệnh tương ứng."
"Nếu biến chọn bằng một giá trị từ 1...N thì thực hiện khối lệnh tương ứng."
HF(15) = "Khi chạy ''thủ tục'' dưới đây cho kết quả là gì? nều nhập số 3: " "Sub Thoi_Khoa_Bieu()" "Dim Thu As Byte"
"Thu = InputBox(''Ban muon hoi thu may? '', ''Thoi khoa bieu'')" "Select Case Thu" " Case 2"
" MsgBox ''Hom nay hoc Triet hoc tai phong A403 Vinh tuy ''" " Case 3"
" MsgBox ''Hom nay hoc Kinh te tai phong C203 Lac trung''" " Case 4"
" MsgBox ''Hom nay hoc Tin hoc tai phong B509 Vinh tuy ''" " Case 5"
" MsgBox ''Hom nay hoc Ke toan tai phong C207 Lac trung ''" " Case 6 "
" MsgBox ''Hom nay hoc Toan CC tai phong B203 Vinh tuy'' " " Case 7 "
" MsgBox ''Hom nay hoc Tieng anh tai phong B203 Vinh Tuy'' " " Case Else "
" MsgBox ''Xin loi, ngay nay khong co trong thoi khoa bieu''" " End Select" "End Sub"
* " Hom nay hoc Kinh te tai phong C203 Lac trung."
" Hom nay hoc Tin hoc tai phong B509 Vinh tuy."
" Hom nay hoc Tieng anh tai phong B203 Vinh Tuy."
" Xin loi, ngay nay khong co trong thoi khoa bieu."
HF(16) = "Khi chạy ''thủ tục'' dưới đây cho kết quả là gì? nều nhập số 8: " "Sub Thoi_Khoa_Bieu()" "Dim Thu As Byte"
"Thu = InputBox(''Ban muon hoi thu may? '', ''Thoi khoa bieu'')" "Select Case Thu" " Case 2"
" MsgBox ''Hom nay hoc Triet hoc tai phong A403 Vinh tuy ''" " Case 3"
" MsgBox ''Hom nay hoc Kinh te tai phong C203 Lac trung''" " Case 4"
" MsgBox ''Hom nay hoc Tin hoc tai phong B509 Vinh tuy ''" " Case 5" lOMoAR cPSD| 57855709
" MsgBox ''Hom nay hoc Ke toan tai phong C207 Lac trung ''" " Case 6 "
" MsgBox ''Hom nay hoc Toan CC tai phong B203 Vinh tuy'' " " Case 7 "
" MsgBox ''Hom nay hoc Tieng anh tai phong B203 Vinh Tuy'' " " Case Else "
" MsgBox ''Xin loi, ngay nay khong co trong thoi khoa bieu''" " End Select" "End Sub"
* " Xin loi, ngay nay khong co trong thoi khoa bieu."
" Hom nay hoc Tin hoc tai phong B509 Vinh tuy."
" Hom nay hoc Tieng anh tai phong B203 Vinh Tuy."
" Hom nay hoc Kinh te tai phong C203 Lac trung."
HF(17) = " Phát biểu của lệnh FOR ... NEXT " "FOR Biến = TO [STEP ] " " " "NEXT"
* "Nếu giá trị của Biến vẫn còn nhỏ hơn hoặc bằng giá trị cuối thì thực hiện , nếu lớn
hơn thi thoát khỏi vòng lặp."
"Nếu giá trị của Biến lớn hơn hoặc bằng giá trị cuối thì thực hiện , nếu nhỏ hơn thi thoát khỏi vòng lặp."
"Nếu giá trị của Biến vẫn còn nhỏ hơn hoặc bằng giá trị cuối thì thực hiện lệnh>." "Nếu giá trị của Biến lớn nhỏ hơn hoặc bằng giá trị cuối thì thực hiện lệnh>." ''' Bo sung moi
HF(18) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5" " S = S + I" " Next" "MsgBox S" "End Sub" * "15." " 6." "16." " 9."
HF(19) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " S = 0" " For I = 0 To to 5 Step 2" " S = S + I" " Next" "MsgBox S" "End Sub" * " 6." "16." "15." " 9."
HF(20) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5 Step 2" " S = S + I" " Next" "MsgBox S" "End Sub" * " 9." " 6." "16." "15."
HF(21) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " For I = 1 To 5" " S = S + I" " Next" "MsgBox S" "End Sub" * "16." " 6." "15." " 9."
HF(22) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " For I = 0 To to 5 Step 2" lOMoAR cPSD| 57855709 " S = S + I" " Next" "MsgBox S" "End Sub" * " 7." "16." "15." " 9."
HF(23) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " For I = 1 To 5 Step 2" " S = S + I" " Next" "MsgBox S" "End Sub" * "10." " 6." "16." "15." '----
HF(24) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " For I = 1 To 5" " S = 0" " S = S + I" " Next" "MsgBox S" "End Sub" * " 5." " 6." " 7." " 9."
HF(25) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " For I = 0 To to 5 Step 2" " S = 0" " S = S + I" " Next" "MsgBox S" "End Sub" * " 4." " 6." " 7." " 5."
HF(26) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " For I = 1 To 5 Step 2" " S = 0" " S = S + I" " Next" "MsgBox S" "End Sub" * "5." "6." "4." "7." '---
HF(27) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " For I = 1 To 5" " S = 1" " S = S + I" " Next" "MsgBox S" "End Sub" * " 6." " 5." " 7." " 9."
HF(28) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " For I = 0 To to 5 Step 2" " S = 1" " S = S + I" " Next" "MsgBox S" "End Sub" * " 5." " 6." " 7." " 4."
HF(29) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " For I = 1 To 5 Step 2" " S = 1" " S = S + I" " Next" "MsgBox S" "End Sub" * "6." "5." "4." "7." '--
HF(30) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5" " Next" " S = S + I" "MsgBox S" "End Sub" * " 6." " 5." " 7." " 9."
HF(31) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " S = 0" " For I = 0 To to 5 Step 2" " Next" " S = S + I" "MsgBox S" "End Sub" * "6." "5." "7." "9."
HF(32) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5 Step 2" " Next" " S = S + I" "MsgBox S" "End Sub" * "7." "6." "5." "9."
HF(33) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " For I = 1 To 5" " Next" " S = S + I" "MsgBox S" "End Sub" * " 7." " 5." " 6." " 9."
HF(34) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " S = 0" " For I = 0 To 5 Step 2" " Next" " S = S + I" "MsgBox S" "End Sub" * "6." "5." "7." "9."
HF(35) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5 Step 2" " Next" " S = S + I" "MsgBox S" "End Sub" * "7." "6." "8." "9."
HF(36) = " 'Thủ tục'' dưới đây thực hiện bao nhiêu vòng lặp " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5" " S = S + I" " Next" "MsgBox S" "End Sub" * "5 vòng." "4 vòng." "3 vòng." "2 vòng."
HF(37) = " 'Thủ tục'' dưới đây thực hiện bao nhiêu vòng lặp " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" lOMoAR cPSD| 57855709 " For I = 1 To 5 Step 2 " " S = S + I" " Next" "MsgBox S" "End Sub" * "3 vòng." "4 vòng." "5 vòng." "2 vòng."
HF(38) = " 'Thủ tục'' dưới đây thực hiện bao nhiêu vòng lặp " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 0 To 5 Step 2 " " S = S + I" " Next" "MsgBox S" "End Sub" * "3 vòng." "4 vòng." "5 vòng." "2 vòng."
HF(39) = " 'Thủ tục'' dưới đây thực hiện bao nhiêu vòng lặp " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 2 To 5 Step 2 " " S = S + I" " Next" "MsgBox S" "End Sub" * "2 vòng." "4 vòng." "5 vòng." "3 vòng."
HF(40) = " 'Thủ tục'' dưới đây thực hiện bài toán gì? " lOMoAR cPSD| 57855709 "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5" " S = S + I" " Next" "MsgBox S" "End Sub"
* "Tính tổng từ 1 đến 5."
"Tính tổng các số chẵn từ 1 đến 5."
"Tính tổng các số lẻ từ 1 đến 5."
"Liệt kê các số từ 1 đến 5."
HF(41) = " 'Thủ tục'' dưới đây thực hiện bài toán gì? " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 1 To 5 Step 2" " S = S + I" " Next" "MsgBox S" "End Sub"
* "Tính tổng các số lẻ từ 1 đến 5."
"Tính tổng từ 1 đến 5."
"Tính tổng các số chẵn từ 1 đến 5."
"Liệt kê các số lẻ từ 1 đến 5."
HF(42) = " 'Thủ tục'' dưới đây thực hiện bài toán gì? " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 0 To 5 Step 2" " S = S + I" " Next" "MsgBox S" "End Sub"
* "Tính tổng các số chẵn từ 1 đến 5."
"Tính tổng từ 1 đến 5."
"Tính tổng các số lẻ từ 1 đến 5."
"Liệt kê các số chẵn từ 1 đến 5." '''' lOMoAR cPSD| 57855709
HF(43) = " Phát biểu của lệnh Do While " "Do While " " " "Loop" '--------------
* "Nếu còn đúng thì thực hiện , nếu sai thoát khỏi vòng lặp."
"Nếu BT Logic sai thì thực hiện , nếu đúng thoát khỏi vòng lặp."
"Nếu còn đúng thì thực hiện ."
"Nếu sai thì thực hiện ." 'Dang 1--------
HF(44) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 1" " Do While I<=5" " S = S + I" " I = I + 1" " Loop" "MsgBox S" "End Sub" * "15." "16." " 5." " 6."
HF(45) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 1" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" "End Sub" * " 9." "15." " 5." " 6." '--------
HF(46) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " lOMoAR cPSD| 57855709 "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 0" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" "End Sub" * " 6." "15." " 5." "16."
HF(47) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 1" " Do While I<=5" " S = S + I" " I = I + 1" " Loop" "MsgBox S" "End Sub" * "16." "15." " 5." " 6."
HF(48) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 1" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" "End Sub" * "10." "15." " 5." lOMoAR cPSD| 57855709 " 6." '--------
HF(49) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 0" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" "End Sub" * " 7." "15." " 6." "16."
HF(50) = " 'Thủ tục'' dưới đây thực hiện bài toán gì? " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " For I = 0 To 5 Step 2" " S = S + I" " MsgBox I" " Next" "End Sub"
* "Liệt kê các số chẵn từ 1 đến 5."
"Tính tổng các số chẵn từ 1 đến 5."
"Tính tổng từ 1 đến 5."
"Tính tổng các số lẻ từ 1 đến 5."
HF(51) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 1" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" lOMoAR cPSD| 57855709 "End Sub" * " 9." "15." " 5." " 6." '---------
HF(52) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 0" " Do While I<=5" " S = S + I" " I = I + 2" " Loop" "MsgBox S" "End Sub" * " 6." "15." "16. " " 5." '-Het dang 1 'Dang 3--------
HF(53) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 1" " Do While I<=5" " I = I + 1" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 6." "16." " 5." " 15."
HF(54) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " lOMoAR cPSD| 57855709 " S = 0" " I = 1" " Do While I<=5" " I = I + 2" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 7." "15." " 5." " 6." '--------
HF(55) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 0" " Do While I<=5" " I = I + 2" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 6." "15." " 5." "16."
'--------------------------------------
HF(56) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 1" " Do While I<=5" " I = I + 1" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 7." "15." " 5." " 6." lOMoAR cPSD| 57855709
HF(57) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 1" " Do While I<=5" " I = I + 2" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 8." "15." " 5." " 6." '--------
HF(58) = "Kết quả là bao nhiêu khi chạy ''thủ tục'' dưới đây: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 1" " I = 0" " Do While I<=5" " I = I + 2" " Loop" " S = S + I" "MsgBox S" "End Sub" * " 7." "15." " 5." " 6." 'Het dang 3 'Dang 4
HF(59) = "'Thủ tục'' dưới đây thực hiện bao nhiêu vòng lặp: " "Sub Test()" "Dim I As Integer" "Dim S As Integer " " S = 0" " I = 1" " Do While I<=5" " S = S+ I" " I = I + 2" " Loop"