Ôn tập tin học Access (có đáp án)

'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()."
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(10) = " Phát biểu của lệnh IF...THEN... ENDIF (Dạng khuyết): "
"IF <DK> THEN"
" <Khối lệnh>"
"END IF"
* "Nếu <DK> đúng thì thực hiện <Khối lệnh>, nếu sai thì bỏ qua."
"Nếu <DK> sai thì thực hiện <Khối lệnh>, nếu đúng thì bỏ qua."
"Nếu <DK> đúng thì bỏ qua, sai thì thực hiên <Khối lệnh>."
"Nếu <DK> khơng đúng thì thực hiện <Khối lệnh>."
HF(11) = " Phát biểu của lệnh IF...ELSE... END IF (Dạng đầy đủ): "
"IF <DK> THEN"
" <Khối lệnh 1>"
"ELSE"


" <Khối lệnh 2>"
"END IF"
* "Nếu <DK> đú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 <DK> 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 <DK> đúng thì thực hiện <'Khối lệnh 1> nếu sai thì bỏ qua."
"Nếu <DK> 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()"
"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"
* "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"


"
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 = <Giá trị đầu> TO <giá trị cuối> [STEP <N>] "
" <Khối lệnh> "
"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 <Khối lệnh>, nếu lớn hơn
thi thố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 <Khối lệnh>, nếu nhỏ hơn thi thố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 <Khối 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 <Khối 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 "
" 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"
"
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."
"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 "
" 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 "
" 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 "
" 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 "
" 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"
" 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 tốn gì? "
"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 tố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 tố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."
HF(43) = " Phát biểu của lệnh Do While "
"Do While <BT Logic>"
" <Khối lệnh> "
"Loop"
* "Nếu <BT Logic> cịn đúng thì thực hiện <Khối lệnh>, nếu <BT Logic> sai thoát khỏi vòng lặp."


"Nếu BT Logic sai thì thực hiện <Khối lệnh>, nếu <BT Logic> đúng thốt khỏi vịng lặp."
"Nếu <BT Logic> cịn đúng thì thực hiện <Khối lệnh>."
"Nếu <BT Logic> sai thì thực hiện <Khối lệnh>."

'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: "
"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."
" 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 tố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"
"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."

'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 "

" 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."
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."

'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"
"MsgBox S"
"End Sub"
* "3 vịng."
"4 vịng."
"5 vịng."
"Vơ số vịng."
HF(60) = "'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 = 0"
" Do While I<=5"
"
S = S+ I"
"

I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* "3 vòng."
"4 vòng."
"5 vịng."
"Vơ số vịng."
HF(61) = "'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 = 0"
" Do While I<=5"
"
S = S + I"
" Loop"
"MsgBox S"
"End Sub"


* "Vơ số vịng."
"4 vịng."
"3 vịng."
"5 vịng."

'Dang 5
HF(62) = "'Thủ tục'' dưới đây thực hiện bài tốn gì?"
"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"
* "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(63) = "'Thủ tục'' dưới đây thực hiện bài tốn gì? "
"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"

* "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(64) = "'Thủ tục'' dưới đây thực hiện bài tốn gì? "
"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"
* "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."
"Tính tổng từ 1 đến 5."
"Liệt kê các số chẵn từ 1 đến 5."
HF(65) = " Phát biểu của lệnh Do Until "
"Do Until <BT Logic>"
" <Khối lệnh> "
"Loop"
* "Nếu <BT Logic> cịn sai thì thực hiện <Khối lệnh>, nếu <BT Logic> đúng thốt khỏi vịng lặp."
"Nếu BT Logic đúng thì thực hiện <Khối lệnh>, nếu <BT Logic> sai thốt khỏi vịng lặp."

"Nếu <BT Logic> cịn đúng thì thực hiện <Khối lệnh>."
"Nếu <BT Logic> sai thì thực hiện <Khối lệnh>."
HF(66) = "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 Until I > 5"
"
S = S + I"
"
I = I + 1"
" Loop"
"MsgBox S"
"End Sub"
* "15."
"16."
" 5."
" 6."
HF(67) = "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 Until I > 5"
"
S = S + I"
"

I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* " 9."
"15."
" 5."
" 6."


HF(68) = "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 Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* " 6."
"15."
" 5."
"16."
HF(69) = "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 Until I > 5"
"
S = S + I"
"
I = I + 1"
" Loop"
"MsgBox S"
"End Sub"
* "16."
"15."
" 5."
" 6."
HF(70) = "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 Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"

* "10."
"15."
" 5."
" 6."
HF(71) = "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 Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* " 7."
"15."
" 6."
"16."
HF(72) = "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 Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* " 9."
"15."
" 5."
" 6."
HF(73) = "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 Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* " 6."
"15."
"16."
" 5."

'Dang 3--------


HF(74) = "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 Until I > 5"
"
I = I + 1"
" Loop"
"
S = S + I"
"MsgBox S"
"End Sub"
* " 6."
"16."
" 5."
" 15."
HF(75) = "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 Until I > 5"
"

I = I + 2"
" Loop"
"
S = S + I"
"MsgBox S"
"End Sub"
* " 7."
"15."
" 5."
" 6."
HF(76) = "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 Until I > 5"
"
I = I + 2"
" Loop"
"
S = S + I"
"MsgBox S"
"End Sub"
* " 6."
"15."
" 5."
"16."
HF(77) = "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 Until I > 5"
"
I = I + 1"
" Loop"
"
S = S + I"
"MsgBox S"
"End Sub"
* " 7."
"15."
" 5."
" 6."
HF(78) = "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 Until I > 5"
"
I = I + 2"
" Loop"
"
S = S + I"

"MsgBox S"
"End Sub"
* " 8."
"15."
" 5."
" 6."
HF(79) = "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 Until I > 5"
"
I = I + 2"
" Loop"
"
S = S + I"
"MsgBox S"
"End Sub"
* " 7."
"15."
" 5."
" 6."

'Dang 4


HF(80) = "'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 Until I > 5"
"
S = S+ I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
*"3 vịng."
"4 vịng."
"5 vịng."
"Vơ số vịng."
HF(81) = "'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 = 0"
" Do Until I > 5"
"
S = S+ I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"

* "3 vòng."
"4 vịng."
"5 vịng."
"Vơ số vịng."
HF(82) = "'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 = 0"
" Do Until I > 5"
"
S = S + I"
" Loop"
"MsgBox S"
"End Sub"
* "Vơ số vịng."
"4 vịng."
"3 vịng."
"5 vịng."


'Dang 5
HF(83) = "'Thủ tục'' dưới đây thực hiện bài tốn gì?"
"Sub Test()"
"Dim I As Integer"
"Dim S As Integer "
" S = 0"
" I = 1"
" Do Until I > 5"

"
S = S + I"
"
I = I + 1"
" Loop"
"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(84) = "'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"
" I = 1"
" Do Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"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(85) = "'Thủ tục'' dưới đây thực hiện bài tốn gì? "

"Sub Test()"
"Dim I As Integer"
"Dim S As Integer "
" S = 0"
" I = 0"
" Do Until I > 5"
"
S = S + I"
"
I = I + 2"
" Loop"
"MsgBox S"
"End Sub"
* "Tính tổng các số chẵn từ 1 đến 5."