Sáng kiến kinh nghiệm Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên Powerpoint phục vụ hiệu quả vào giảng dạy

rường: 
Tạo thêm tính đa dạng khi ứng dụng công nghệ thông tin trong giảng dạy, thúc đẩy phong 
trào sáng tạo đồ dùng dạy học phục vụ giảng dạy và phát huy tính tự học của học sinh theo 
hướng mới là khai thác kiến thức học tập tại lớp. 
Đề tài đã được áp dụng ở trường trong những năm qua và có hiệu quả rõ rệt ở từng năm 
học. Đề tài hoàn toàn mới giúp cho mọi hoạt động giảng dạy tại lớp đạt hiệu quả cao, nâng cao 
chất lượng bộ môn. Chuyên môn giảng dạy của giáo viên được cải thiện, các phẩm chất năng 
lực học tập của các em được phát triển. Những phương pháp được nêu ra trong bài viết đã được 
áp dụng vào giảng dạy thực tế và bước đầu có hiệu quả, bản thân sẽ tiếp tục áp dụng tại đơn vị, 
mở rộng và hoàn thiện hơn trong những năm tiếp theo để từng bước năng cao chất lượng giáo 
dục, giúp học sinh hoàn thiện nhiều kỹ năng trong học tập, nghiên cứu. 
VI. Kết luận: 
Như vậy, khi xác định được tầm quan trọng của việc sử dụng đồ dùng dạy học tự làm vào 
giảng dạy nhằm nâng cao chất lượng học tập của học sinh, thì giáo viên không ngừng tìm tòi 
những sản phẩm, những đồ dùng hay và không ngừng sáng tạo ra sản phẩm mới để phục vụ 
giảng dạy; để áp dụng sản phẩm vào giảng dạy đạt hiệu quả, thì giáo viên phải làm sao tạo cho 
các em thích thú và xây dựng ý thức học tập tốt. 
Việc đa dạng hóa phương pháp dạy học hiện nay là yếu tố rất cần thiết đối với mỗi giáo 
viên, không chỉ giúp bản thân linh hoạt, mềm dẻo khi tổ chức các hoạt động học tập mà còn 
giúp trình độ chuyên môn được nâng cao nhằm nắm bắt kịp thời những đổi mới trong giáo dục. 
Ngoài ra, học sinh được thừa hưởng những điều mới, điều hay, sự tiếp cận kiến thức một cách 
dễ dàng trong quá trình học tập mà còn kích thích học sinh sáng tạo không ngừng, yêu thích 
công nghệ thông tin, tự khám phá những điểm mạnh của bản thân từ đó đi sâu vào các nghiên 
cứu khoa học mang tính thực tiễn cao. Bài giảng tương tác ứng dụng VBA trong PowerPoint 
chủ yếu là hệ những kiến thức học sinh cần đạt đối với các kiến thức cơ bản của bộ môn Tin 
học 11, rèn khả năng tư duy và những kỹ năng cần thiết khi học tập bộ môn, bên cạnh đó cũng 
để các em thấy được thế mạnh của việc sử dụng đồ dùng dạy học có ứng dụng công nghệ thông 
tin làm phong phú thêm tri thức, phát huy tối đa khả năng tự học, tự nghiên cứu, kích thích học 
sinh càng yêu thích ngành công nghệ thông tin, tạo động lực học tập tốt đối với bộ môn. 
Trên đây chỉ là một số kinh nghiệm bước đầu mà bản thân đã áp dụng đồ dùng dạy học tự 
làm vào việc giảng dạy đạt hiệu quả trong những năm qua. Bài viết chắc còn thiếu sót và chưa 
đẩy đủ, mong đồng nghiệp cùng tham khảo và góp ý. 
Tôi cam đoan những nội dung báo cáo là đúng sự thật. 
 Xác nhận của đơn vị áp dụng sáng kiến Người viết sáng kiến 
Võ Thành Sơn 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 35 
Năm học: 2019 - 2020 
SỞ GIÁO DỤC VÀ ĐÀO TẠO AN GIANG 
TRƯỜNG THPT NGUYỄN QUANG DIÊU 
PHỤ LỤC 
BÁO CÁO SÁNG KIẾN 
Họ và tên : Võ Thành Sơn 
Điện thoại : 0377955964 
Lĩnh vực : Chuyên môn 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 36 
 Giấy khen đạt giải C sản phẩm đồ dùng dạy học tự làm cấp tỉnh năm học 2018 - 2019 
 Sản phẩm đồ dùng dạy học tự làm được đưa lên trang web hội đồng bộ môn tỉnh An 
Giang năm học 2018 – 2019 
Link tải về 
bài tập 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 37 
PHIẾU HỌC TẬP SỐ 1 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 6: PHÉP TOÁN, BIỂU THỨC, CÂU LỆNH GÁN 
Bài 1: Cho đoạn CT sau. Hãy sửa lỗi để hoàn thành chương trình tính diện tích hình tròn 
 =  (với PI = 3.14 là hằng số, bán kính R được nhập từ bàn phím) 
Số 
TT 
Các lệnh Chương trình hoàn chỉnh 
1 Program DT_HTron; 
2 Uses 
3 Const PI=3.14; 
4 Var S,R: Integer; 
5 Begin 
6 clrscr; 
7 Write('Nhap ban kinh R: '); 
8 Writeln(R); 
9 S=PI . R^2 ; 
10 Write('Dien tich S= ',S:4:2); 
11 Readln; 
12 End 
Bài 2: Điền vào những chỗ còn thiếu để hòan thành chương trình tính vận tốc rơi tự do 
 =  (với g = 9.8 là hằng số, độ cao h được nhập từ bàn phím) 
Số 
TT 
Các lệnh Chương trình hoàn chỉnh 
1 Program VanToc_Roi; 
2 Uses crt; 
3 Const .; 
4 Var .: Real; 
5 Begin 
6 clrscr; 
7 Write('Nhap do cao h: '); 
8  
9 V:= . 
10 Write('Van toc V= ',.); 
11 Readln; 
12 End. 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 38 
Bài 3: Cho đoạn chương trình sau. Hãy sắp xếp để hoàn thành chương trình tính giá trị 
biểu thức  = 

√  
 (với x, y được nhập từ bàn phím) 
Số 
TT 
Chương trình Chương trình hoàn chỉnh 
1 Begin 
2 Readln(x); 
3 Var T,x,y: Real; 
4 Program Tinh_BieuThuc; 
5 Clrscr; 
6 Readln; 
7 Write('Nhap gia tri cua y = '); 
8 Writeln('Gia tri bieu thuc T = ',T:4:1); 
9 Readln(y); 
10 End. 
11 Uses Crt; 
12 Write('Nhap gia tri cua x = '); 
13 T:= SQR(x)/SQRT(x + y); 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 39 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 6: PHÉP TOÁN, BIỂU THỨC, CÂU LỆNH GÁN 
- Bài tập khởi động kiểm tra kiến thức 
- Bài tập sửa lỗi hoàn thành chương trình Pascal 
- Bài tập điền khuyết vào ô trống 
- Bài tập sắp xếp chương trình 
- Bài tập điền khuyết 
Sử dụng lập trình VBA thiết kế đồ dùng dạy học trên PowerPoint 2019 - 2020 
GV: Võ Thành Sơn 40 
PHIẾU HỌC TẬP SỐ 2 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 9: CẤU TRÚC RẼ NHÁNH 
Bài 1: Viết câu lệnh IF – THEN hoặc IF – THEN – ELSE tương ứng với các dạng phát biểu sau: 
A. Nếu N ≥0 thì thông báo N là số không âm; 
 ............................................................................. 
B. Nếu x + y > 10 thì gán z = x + y ngược lại 
thì gán z = 0,5; 
 ............................................................................. 
C. Nếu a chia hết cho 2 thì thông báo a là số chẳn; 
............................................................................. 
D. Nếu a > 0 thì gán S = a2 ngược lại thì gán S = 0; 
............................................................................. 
............................................................................. 
Bài 2: Sắp xếp các lệnh sau để thành chương trình hoàn chỉnh cho bài toán kiểm tra N có phải là 
bội số của 5 hay không? 
STT Dòng lệnh Chương trình hoàn chỉnh 
1 Clrscr; 
2 Write('nhap so nguyen N= '); 
3 Uses Crt; 
4 Var N: Integer; 
5 End. 
6 If N mod 5 = 0 then 
7 Write(N,' la boi so cua 5') Else 
8 Begin 
9 Write(N,' khong la boi so cua 5'); 
10 Readln(N); 
11 PROGRAM Boi_5; 
12 Readln 
Bài 3: Điền các lệnh thích hợp với chương trình sau (chương trình thực hiện tìm số chẵn liền sau 
số nguyên dương M được nhập từ bàn phím) 
Chương trình Đáp án 
Program so_chan_lien_sau; 
Uses crt; 
.(1). : Integer; 
Begin 
Clrscr; 
(2)..('Nhap so nguyen duong M: '); 
..(3); 
 If .(4). then 
 M:=M+2 
Else 
 (5). 
 Write('So chan lien sau so M la: ', ..(6)..); 
 Readln; 
End. 
(1) 
(2) 
(3) 
(4) 
(5) 
(6)
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 41 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 9: CẤU TRÚC RẼ NHÁNH 
- Hoạt động khởi động bằng trò chơi ô chữ 
- Bài tập 1 viết đúng câu lệnh If - Then 
- Bài tập 2 thực hiện sắp xếp chương trình 
- Bài tập 3 điền các lệnh vào ô thích hợp 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 42 
PHIẾU HỌC TẬP SỐ 3 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 10: CẤU TRÚC LẶP 
- Bài 1: Những phát biểu sau đây đúng hay sai? Hãy đánh dấu (X) vào ô (đúng/sai) tương ứng. 
Phát biểu Đúng Sai 
1. Biến đếm là biến đơn thường có kiểu số nguyên 
2. Biểu thức giá trị đầu và giá trị cuối cùng kiểu với biến đếm 
3. Trong cấu trúc lặp For – Do giá trị đầu lớn hơn giá trị cuối 
4. Giá trị của biến đếm không được tự động điều chỉnh sau mỗi lần thực hiện câu lệnh lặp 
5. Ở dạng lặp tiến câu lệnh sau từ khóa DO được thực hiện tuần tự, với biến đếm lần 
lượt nhận các giá trị tăng từ giá trị đầu cho đến giá trị cuối 
6. Ở dạng lặp tiến, sau mỗi lần lặp thì giá trị biến đếm tăng thêm 2 đơn vị 
- Bài 2: Hãy điền vào chỗ trống để hoàn thành chương trình sau: Biết chương trình thực hiện in 
ra màn hình các số từ 1 đến 10. Mỗi số in trên một dòng 
TT Chương trình Yêu cầu 
1 Program InSo; - Bài toán yêu cầu thực hiện việc gì? 
 ............................................................................................ 
- Công việc nào được yêu cầu thực hiện lặp lại nhiều lần? 
 ............................................................................................ 
- Nếu sử dụng cấu trúc lặp For – Do dạng tiến giải quyết yêu cầu 
của bài toán trên thì giá trị đầu, giá trị cuối bằng bao nhiêu? Câu 
lệnh viết như thế nào? 
 + Giá trị đầu: ............................................................. 
 + Giá trị cuối: ............................................................ 
 + Câu lệnh: ............................................................... 
 + Câu lệnh lặp lại bao nhiêu lần? ............................. 
2 Uses Crt; 
3 Var i: Integer; 
4 Begin 
5 Clrscr; 
6 For....................to..................do 
7 Writeln(................); 
8 Readln; 
9 End. 
- Bài 3: Sắp xếp để hoàn thành chương trình sau. Biết chương trình thực hiện in ra màn hình các 
số từ 1 đến N (N là số nguyên được nhập từ bàn phím). Mỗi số in trên một dòng 
TT Chương trình Chương trình hoàn chỉnh 
1 Var i,N: integer; 
2 Begin 
3 Readln(N); 
4 Program InDaySo; 
5 Write('Nhap gia tri N = '); 
6 Uses Crt; 
7 Clrscr; 
8 Writeln(i); 
9 Readln; 
10 End. 
11 For i:=1 to N do 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 43 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 10: CẤU TRÚC LẶP 
- Hoạt động khởi động 
- Bài tập điền khuyết 
- Bài tập Sắp xếp để hoàn thành chương trình 
sau. Biết chương trình thực hiện in ra màn hình 
các số từ 1 đến N (N là số nguyên được nhập từ 
bàn phím). Mỗi số in trên một dòng 
- Hoạt động củng cố kiến thức 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 44 
PHIẾU HỌC TẬP SỐ 4 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 11: KIỂU MẢNG 
Bài 1: Cho mảng một chiều gồm các phần tử sau: 
A 10 55 17 20 17 29 23 43 18 17 
 1 2 3 4 5 6 7 8 9 10 
Hãy xác định các thành phần sau: 
- Tên biến mảng: ................................................................................................ 
- Số lượng phần tử: ............................................................................................ 
- Kiểu dữ liệu của phần tử: ................................................................................ 
- Viết khai báo cho mảng trên: .......................................................................... 
- Cách tham chiếu đến phần tử thứ 6: ................................................................ 
- Dựa vào khai báo hay cho biết chỉ số đầu:.., chỉ số cuối: 
Bài 2: Điền vào khoảng trống để hoàn thành chương trình sau: 
 Khai báo mảng một chiều gồm 20 phần tử nguyên. 
 Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng. 
 Tính tổng các phần tử có giá trị chẵn và in tổng ra màn hình. 
Program BT2; 
Var .: Array[..] of Integer; 
 :Integer; 
Begin 
 Write('Nhap so luong phan tu: '); 
 Readln(..); 
 For i:=1 to N do 
 Begin 
 write('Phan tu thu ',i,' = '); 
 Readln(..); 
 End; 
 Tong:=..; 
 For i:=1 to  do 
 If . then 
 Tong:=..; 
 Write('Tong phan tu co gia tri chan la: ',); 
 Readln 
End. 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 45 
Bài 3: Sắp xếp chương trình sau thành chương trình hoàn chỉnh. 
 Khai báo mảng một chiều gồm 30 phần tử nguyên. 
 Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng. 
 In ra màn hình các phần tử có giá trị âm, mỗi số in trên một dòng 
Dãy lệnh cần sắp xếp Chương trình hoàn chỉnh 
For i:=1 to N do 
If A[i] < 0 then 
End; 
Write('Nhap so luong phan tu: '); 
Begin 
Var A:Array[1..30] of Integer; 
Write('Phan tu thu ',i,' = '); 
Begin 
Program BT3; 
i, N:Integer; 
Readln 
End. 
For i:=1 to N do 
Readln(N); 
Writeln(A[i]); 
Writeln(‘Cac phan tu am: ’); 
Readln(A[i]); 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 46 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 11: KIỂU MẢNG 
- Bài tập điền khuyết
- Sắp xếp chương trình sau thành chương trình 
hoàn chỉnh. 
 Khai báo mảng một chiều gồm 30 phần 
tử nguyên. 
 Viết đoạn lệnh nhập giá trị N và nhập 
vào giá trị cho từng phần tử trong mảng. 
 In ra màn hình các phần tử có giá trị âm, 
mỗi số in trên một dòng. 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 47 
PHIẾU HỌC TẬP SỐ 5 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 11: KIỂU MẢNG (tiếp theo) 
Bài 1: Điền vào khoảng trống để hoàn thành chương trình sau: 
 Khai báo mảng một chiều gồm 100 phần tử thuộc kiểu nguyên. 
 Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng. 
 Tính tổng các phần tử là bội của 5 và in tổng ra màn hình. 
Ví dụ: Cho N=10 và mảng A gồm các phần tử sau: 
A 12 35 17 30 17 29 15 17 6 17 
 1 2 3 4 5 6 7 8 9 10 
Vậy tổng các phần tử là bội của 5 là: 80 
Program BT1; 
Var.: Array[..] of Integer; 
 :Integer; 
Begin 
 Write('Nhap so luong phan tu: '); 
 Readln(..); 
 For i:=1 to N do 
 Begin 
 write('Phan tu thu ',i,' = '); 
 Readln(..); 
 End; 
 Tong:=..; 
 For i:=1 to  do 
 If . then 
 Tong:=..; 
 Write ('Tong phan tu boi cua 5 la: ',..); 
 Readln 
End. 
Bài 2: Sắp xếp các câu lệnh sau thành chương trình hoàn chỉnh. Biết chương trình giải 
bài toán: Đếm số phần tử có giá trị lớn hơn 15 và in kết quả biến Đếm ra màn hình 
Ví dụ: Cho N=10 và mảng A gồm các phần tử sau: 
A 12 35 17 10 17 29 15 7 6 17 
 1 2 3 4 5 6 7 8 9 10 
Vậy số phần tử có giá trị lớn hơn 10 là: 5 
Dãy lệnh cần sắp xếp Chương trình hoàn chỉnh 
For i:=1 to N do 
If A[i] > 15 then 
Write('So ptu lon hon 15 la: ',Dem); 
End; 
Write('Nhap SL ptu: '); Readln(N); 
Begin 
Var A: Array[1..50] of Integer; 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 48 
Write('Phan tu thu ',i,' = '); 
Begin 
Program BT2; 
i, N, Dem:Integer; 
Readln 
End. 
For i:=1 to N do 
Dem:=Dem + 1; 
Readln(A[i]); 
Dem:=0; 
Bài 3: Điền vào khoảng trống để hoàn thành chương trình sau: 
a) Khai báo mảng một chiều gồm 50 phần tử thuộc kiểu nguyên. 
b) Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng. 
c) In ra các phần tử có chỉ số chẵn trong mảng một chiều. 
Ví dụ: Cho N=10 và mảng A gồm các phần tử sau: 
A 12 35 17 30 17 29 15 17 6 17 
 1 2 3 4 5 6 7 8 9 10 
Phần tử có chỉ số chẵn là: 35 30 29 17 17 
Program BT3; 
Var  
 i, N:..; 
Begin 
 Write('Nhap so luong phan tu: '); 
 For i:=1 to N do 
 Begin 
 .... 
 End; 
 Write('Phan tu co chi so chan: '); 
 For i:=1 to . do 
 If  then 
 .. 
 Readln 
End. 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 49 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 11: KIỂU MẢNG 
- Bài tập điền khuyết 
- Sắp xếp các câu lệnh sau thành chương trình 
hoàn chỉnh. Biết chương trình giải bài toán: Đếm 
số phần tử có giá trị lớn hơn 15 và in kết quả 
biến Đếm ra màn hình. 
- Điền vào khoảng trống để hoàn thành chương trình sau: 
Khai báo mảng một chiều gồm 50 phần tử thuộc kiểu nguyên. 
Viết đoạn lệnh nhập giá trị N và nhập vào giá trị cho từng phần tử trong mảng. 
In ra các phần tử có chỉ số chẵn trong mảng một chiều. 
Ví dụ: Cho N=10 và mảng A gồm các phần tử sau: 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 50 
PHIẾU HỌC TẬP SỐ 6 
Họ và tên: ................................................................. Lớp: .................... Nhóm: .......................... 
BÀI 12: KIỂU XÂU 
Câu 1: Hãy cho biết kết quả sau khi thực hiện các hàm và thủ tục xử lý xâu: 
- Ghép xâu: A:= ‘Ha Noi’; B:=’ Viet Nam’; 
Kết quả xâu A + B là: . 
- So sánh xâu: ‘Bai Tap’ ‘BAI TAP’ 
- Thủ tục Delete: ST:=’Bai Tap Tin Hoc’; 
Delete(ST,1,4); Kết quả:  
- Thủ tục Insert: S1:=’Tin ’; S2:=’Hoc’; 
Insert(S1,S2,1); Kết quả: ........ 
- Hàm Copy: S:= ‘THE GIOI DI DONG’; 
Copy(S,1,8); Kết quả: . 
- Hàm Length: S:=’50_KY_TU’; 
Length(S); Kết quả: . 
- Hàm POS: S1:= ‘A’; S2:= ‘YOKOHAMA; 
POS(S1,S2); Kết quả: .... 
Câu 2: Dựa vào các lệnh từ cột bên trái để hoàn thành chương trình của bài toán sau: 
Chương trình sau nhập vào hai xâu không quá 150 kí tự và in ra xâu lớn hơn. (Dữ liệu nhập 
vào phải luôn cho kết quả có một xâu lớn hơn) 
Ví dụ: A := ‘Tin hoc’; B := ‘Toan Hoc’; 
Thì kết quả in ra màn hình là xâu: ‘Toan Hoc’ 
Các lệnh Chương Trình 
Writeln(‘Xau lon hon: ’,B); 
Readln(A); 
Write(‘Nhap Xau B: ’); 
Writeln(‘Xau lon hon: ’,A) 
Var A, B : String[150]; 
Program BT1; 
Begin 
Write(‘Nhap xau A: ’); 
Readln(B); 
IF A > B Then 
Else 
Readln; 
End. 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 51 
Câu 3: Dựa vào các lệnh từ cột bên trái để hoàn thành chương trình của bài toán sau: 
Chương trình sau nhập vào một xâu S không quá 100 kí tự và chuyển đổi xâu kí tự đó sang chữ 
in hoa rồi in ra màn hình. 
Ví dụ: S := ‘cong nghe thong tin’; 
Thì kết quả in ra màn hình là xâu: ‘CONG NGHE THONG TIN’ 
Các lệnh Chương Trình 
Upcase(S[i]) 
Length(S) 
Copy(S) 
Pos(S) 
Readln(S); 
Writeln(S); 
Var S : String; 
Var S : String[50]; 
Var S : String[100]; 
Program BT2; 
. 
 i : integer; 
Begin 
Write(‘Nhap xau S: ’); 
For i := 1 to  do 
 S[i] := . ; 
Writeln(‘Xau Hoa : ’, S); 
Readln; 
End. 
Câu 4: Sắp xếp các câu lệnh sau thành chương trình hoàn chỉnh: 
Chương trình sau nhập vào một xâu kí tự có độ dài không quá 100. Hãy cho biết có bao 
nhiêu chữ số xuất hiện trong xâu S. In kết quả ra màn hình. 
Ví dụ: S := ‘Xin chao! Lop 11CB2’; 
Số lượng kí tự số trong xâu: 3 
Dãy lệnh cần sắp xếp Chương trình hoàn chỉnh 
IF (S[i] >= '0') and (S[i] <= '9') then 
Write('SL ky tu so la: ',Dem); 
End. 
Write('Nhap xau S: '); 
Dem:=Dem + 1; 
Begin 
Program BT3; 
Var S:String[100]; 
 Dem,i:Integer; 
Readln 
For i:=1 to length(S) do 
Readln(S); 
Dem:=0; 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 52 
CHƯƠNG TRÌNH ỨNG DỤNG VBA TƯƠNG ỨNG VỚI PHIẾU HỌC TẬP 
BÀI 11: KIỂU XÂU 
- Hoạt động khởi động 
- Thực hiện điền kết quả vào ô trống 
- Chọn dòng lệnh thích hợp vào chỗ còn 
thiếu(dữ kiện cho đủ): 
- Chọn dòng lệnh thích hợp vào chỗ còn 
thiếu(dữ kiện cho có dư): 
- Thực hiện sắp xếp chương trình 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 53 
 Một số hình ảnh ứng dụng sản phẩm đồ dùng dạy học tự làm vào hoạt động giảng dạy 
 - Học sinh làm bài trên phiếu học tập: 
- Bài tập được trình chiếu trên màn hình LCD: 
 - Học sinh xem nội dung, tham gia thảo luận bài tập: 
 - Học sinh làm bài tập tương tác trực tiếp trên màn hình: 
Sử dụng VBA thiết kế đồ dùng dạy học trên Power Point 2019 - 2020 
GV: Võ Thành Sơn 54 
- Sảm phẩm đồ dùng hiển thị kết quả sau khi học sinh làm bài: