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

- Tên sáng kiến: Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint phục vụ hiệu vào giảng dạy - Lĩnh vực: Chuyên môn III Mục đích yêu cầu sáng kiến Thực trạng ban đầu trước áp dụng sáng kiến Ứng dụng đồ dùng dạy học vào giảng dạy cần thiết, để phục vụ hỗ trợ tốt cho việc giảng dạy giáo viên nhằm mang lại hiệu cao tiết học chất lượng học tập học sinh Vì nhà trường trang bị số thiết bị đồ dùng phục vụ giảng dạy giúp cho học sinh học tập tương đối tốt; sau theo phát triển đại CNTT đồ dùng dạy học lỗi thời, khơng cịn phù hợp với học, khơng đa dạng, học sinh cảm thấy nhàm chán; không đáp ứng nhu cầu học tập học sinh, nội dung học, kiến thức mơn Vì giảng dạy lớp giáo viên thường gặp khó khăn như: - Sử dụng đồ dùng dạy học phù hợp với giảng, phù hợp môn chưa đạt; phương pháp truyền đạt hiệu giảng dạy chưa tốt - Các giảng không trực quan sinh động, không thu hút nhiều học sinh tham gia vào hoạt động học tập, ý thức học tập học sinh kém, chất lượng môn chưa cao - Bản thân chưa trang bị cho học sinh phương pháp tự học hiệu quả, dụng cụ phục vụ giảng dạy, học tập chưa đạt yêu cầu; chưa trọng rèn luyện kĩ học tập cho học sinh; khơng có biện pháp giúp học sinh nắm bắt kiến thức chủ động linh hoạt, sáng tạo - Đồ dùng dạy học chưa phát huy khả tự học học sinh; kích thích khả tự giác học tập em cịn kém, chưa thích thú học tập - Chưa tạo môi trường học tập tốt cách tương tác trực tiếp giảng với nhiều dạng khác tạo tính chủ động, hứng thú học tập cho em - Giáo viên gặp khó khăn việc lơi kéo em tham gia học tập, để tạo điều kiện giúp học sinh có hịa nhập bạn bè hoạt động nhóm, hoạt động trải nghiệm sáng tạo, suy luận giải vấn đề học tập - Học sinh phải ghi chép nội dung học nhiều nên khó tập trung vào kiến thức cần đạt học, nắm bắt giảng chậm, không hiệu GV: Võ Thành Sơn Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint 2019 - 2020 - Để tạo giảng tương tác với học sinh cần sử dụng phần mềm ActivInspire với bảng tương tác ActivBoard; sử dụng cơng cụ tốn nhiều kinh phí nên việc mua thiết bị phục vụ giảng dạy không khả thi - Đối với môn Tin học 11 có vận dụng ngơn ngữ lập trình để viết chương trình cho số tốn nên địi hỏi học sinh có tính tư cao, vận dụng kiến thức liên quan đến mơn Tốn tiếng Anh tương đối nhiều, thường học sinh khơng hiểu Bên cạnh khả tư học sinh hạn chế nên áp dụng vào việc giải tập lập trình gặp nhiều khó khăn, hầu hết em chưa viết chương trình Pascal - Ở cấp học THCS em chưa làm quen với mơn lập trình Pascal, lên THPT em cịn chưa quen với môn học dẫn đến việc giảng dạy giáo viên tiếp thu kiến thức học sinh chưa tốt Bản thân học sinh chưa hiểu sâu lợi ích mơn học ứng dụng rộng rãi xã hội Trong trình dạy học để giúp học sinh hiểu, vận dụng kiến thức học vào giải toán vấn đề khó với giáo viên Giáo viên phải giúp học sinh cảm nhận việc học môn Tin học viết chương trình Pascal khơng khó; Giáo viên phải vận dụng đồ dùng dạy học giúp học sinh hiểu, biết cấu trúc viết chương trình Pascal Để đạt yêu cầu trình nhiều thời gian giáo viên phải thực bước Các chương trình Pascal khiến cho học sinh khó hiểu, khó hình dung em lần đầu làm quen với cách viết chương trình Pascal - Chính từ thực trạng đó, chất lượng mơn thân năm đầu trước áp dụng sáng kiến vào giảng dạy thấp Kết giảng dạy chưa ổn định thấp mặt chung tổ, tỉ lệ học sinh giỏi đạt 63,06%, tỉ lệ học sinh trung bình đạt 34,23% có học sinh yếu chiếm 2,71% Biểu đồ thống kê tỉ lệ môn Tin học 11 45.00 42,60% 39,14% 40.00 35.00 34,23% 31,38% 31,68% 30.00 25.00 Cá nhân 20.00 17,30% Bình quân tổ 15.00 10.00 5.00 2,71% 0,96% 0.00 Giỏi GV: Võ Thành Sơn Khá Trung bình Yếu Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint Sự cần thiết phải áp dụng sáng kiến: 2019 - 2020 - Việc xây dựng giảng tương tác trực tiếp PowerPoint để hỗ trợ học tập môn Tin học 11 vừa mang tính trực quan, sinh động vừa cung cấp cho em đầy đủ kiến thức trọng tâm theo dạy, dạng tập đánh giá lực học sinh Bài giảng tương tác VBA xây dựng với công cụ thực ngơn ngữ lập trình Visual Basic for Appliacations tích hợp Microsoft Office với nội dung kiến thức bám sát chương trình tin học phổ thơng, nhằm kích thích đối tượng học sinh đặc biệt học sinh trung bình - yếu nâng cao chất lượng học tập - ĐDDH thiết kế giao diện PPT quen thuộc học sinh nên khả tiếp thu học em nhanh hơn, tạo môi trường tương tác học thuận lợi giúp mang lại hiệu cao tiết dạy - Khi giáo viên tạo giảng tương tác cách sử dụng lập trình VBA PPT giúp khơng tốn khoản phí lớn để mua thiết bị Ngồi giúp hoạt động giảng dạy thuận lợi, khắc phục khó khăn mơn việc tăng cường phát huy kỹ cho học sinh học tập, mang lại hiệu cao Bài giảng có tính tương tác cao, dễ sử dụng, thao tác học đạt độ xác cao, ln ổn định tiện lợi dạy học với nhiều dạng học, tập khác - Đồ dùng dạy học thiết kế với nhiều màu sắc trực quan sinh động gây hứng thú tham gia học; giảng thiết kế giao diện đẹp gồm nhiều màu sắc kết hợp ngơn ngữ, tính tốn, xếp, hình vẽ, xử lý tổng thể nhằm kích thích học sinh phát triển hoạt động hai bán cầu não tham gia học tập; giúp bán cầu não phải bán cầu não trái phát triển cân q trình hoạt động từ học sinh tiếp thu tốt, tỉnh táo, tập trung học tập - Việc sử dụng ĐDDH vào giảng dạy góp phần phát triển hình thành lực sau: + Năng lực tự học, lực sáng tạo + Năng lực phát giải vấn đề + Năng lực giao tiếp hợp tác + Năng lực sử dụng ngơn ngữ + Năng lực tốn học + Năng lực sử dụng công nghệ thông tin(năng lực tin học) - Qua trình áp dụng sản phẩm vào giảng dạy cho thấy học sinh chủ động, học tập tích cực, chất lượng mơn nâng cao Giúp học sinh biết nhiều ứng dụng, nhiều tính hay mơn Tin học đời sống thực tế nay, từ em vận dụng kiến thức mơn để bổ trợ học tập cho môn khác GV: Võ Thành Sơn Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint 2019 - 2020 - Khi áp dụng sáng kiến vào giảng dạy chất lượng môn thân cải thiện rõ rệt, đạt hiệu cao năm học 2015 – 2016 Kết giảng dạy nâng cao với tỉ lệ học sinh giỏi đạt 89,58%, tỉ lệ học sinh trung bình đạt 10,42% khơng có học sinh yếu Bên cạnh chất lượng tổ môn tăng rõ rệt sử dụng đồ dùng dạy học vào phục vụ giảng dạy; tỉ lệ học sinh giỏi tăng lên 87,4%, tỉ lệ học sinh trung bình đạt 11,81% tỉ lệ học sinh yếu giảm 0,79% Như vậy, sử dụng đồ dùng dạy học tự làm vào giảng dạy ta nhận thấy đạt hiệu cao, kết giảng dạy tin học cá nhân tăng, góp phần cao chất lượng giảng dạy chung tổ môn Biểu đồ thống kê tỉ lệ môn Tin học 11 70.00 60,84% 60.00 51,87% 50.00 37,71% 40.00 Cá nhân 30.00 26,56% Bình quân tổ 20.00 10,42% 10.00 11,81% 0,79% 0.00 Giỏi Khá Trung bình Yếu - Ngồi giáo viên vận dụng lập trình VBA tạo sản phẩm trị chơi khởi động thu hút học sinh giúp tiết học thêm phần sôi động ứng dụng rộng rãi với nhiều mơn học khác như: Lý, Hóa, Sinh, Anh Văn, nhằm tạo mơi trường học tập u thích, tăng cường phát triển kỹ cho học sinh Nội dung sáng kiến 3.1 Tiến trình thực a) Xác định đối tượng học sinh - Trước tạo sản phẩm ĐDDH tự làm giáo viên phải xác định khối lớp, đối tượng học sinh cịn gặp khó khăn việc học mơn, đối tượng học sinh có kết học tập thấp cần xác định vướn mắt em thường gặp việc học - Đối với môn Tin học 11 thân nhận thấy khó học sinh, điểm số bình quân em đạt thấp so với khối 10 12 Chương trình khối 11 em học lập trình Pascal, đa phần học sinh học Pascal kết học tập không tốt, nội dung tập đa GV: Võ Thành Sơn 10 Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint 2019 - 2020 dạng em không nắm bắt kiến thức, kết học tập thấp Vì xây dựng đồ dùng dạy học tự làm cho Tin học 11 mục tiêu cần thiết giáo viên nhằm tạo nhiều phương pháp giảng dạy, khai thác, sáng tạo đồ dùng giúp em thích thú học tập, em tiếp xúc với môn nhẹ nhàng hơn, giảm tải cho việc học, củng cố tảng kiến thức mơn; từ học sinh khơng cịn áp lực tham gia hoạt động học tập lớp, phát triển kỹ hoạt động học tập để cải thiện kết môn b) Lựa chọn nội dung học cần thiết cho đồ dùng dạy học - Bước đầu giáo viên cần hình thành nội dung theo chuẩn kiến thức kỹ cần truyền đạt cho học sinh Sau giáo viên tiến hành rà sốt nội dung chương trình học cần thiết để sáng tạo đồ dùng dạy học - Giáo viên thu thập thơng tin tài liệu có liên quan đến nội dung học việc tìm hiểu tài nguyên, khai thác phần mềm ứng dụng nghiên cứu cách sáng tạo đồ dùng dạy học Giáo viên tạo dạng đồ dùng phù hợp với học, tập cụ thể nhằm đạt mục tiêu kiến thức kỹ cho bài, đồng thời tạo tính đa dạng cho hoạt động học tập, hoạt động khởi động đầu tiết học c) Các bước tạo đồ dùng dạy học Việc thiết kế giảng ứng dụng lập trình VBA dựa việc sử dụng phần mềm Visual Basic for Applications; việc thiết kế ta sử dụng vài nút lệnh đơn giản code lập trình khơng cần phải viết q nhiều lệnh phức tạp  Thiết lập ban đầu: - Thiết lập chế độ bảo mật: Đối với PowerPoint 2010, Chọn File Options chọn dịng Trust Center Trust Center settings… tiếp tục tích chọn vào mục Enable all macros - Bật công cụ VBA: Chọn File Options chọn dịng Customize Ribbon sau tích chọn vào Developer Khi cơng cụ Developer có Toolbar Thiết lập thuộc tính Label(Nhã  Text Box Commamd Mở giao diện viết code VBA Ghi chú: Khi tạo file ta lưu với kiểu định dạng PowerPoint Macro-Enabled Presentation (*.pptm) để sử dụng tính Macro nút lệnh Máy tính phải cài loại font chữ tương ứng với bảng mã VNI-Windows GV: Võ Thành Sơn 11 Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint  Cách tạo giảng ứng dụng VBA: 2019 - 2020  Tạo trị chơi chữ:  Bước 1: Thiết kế giao diện (chọn nút lệnh công cụ Developer) - Sử dụng cho tập điền khuyết, xếp chương trình Pascal: - Sử dụng nút lệnh Command Button, Label, Text Box + Command Button: Dùng tạo nút lệnh Kết Quả, Làm lại + Nút lệnh Xanh Lá(Command Button): Dùng cho Đáp án tập, Khởi tạo tập, ẩn lệnh xếp + Label: Dùng tạo cho dòng lệnh để xếp, hiển thị kết + Text Box: Dùng tạo cho dòng lệnh để xếp, hiển thị kết - Sử dụng cho trị chơi chữ, Hoạt động trắc nghiệm cố học: - Sử dụng nút lệnh Command Button, Label + Command Button: Dùng tạo nút lệnh Câu 1, câu 2, … , câu 8, Reset, Key, nút từ câu 1, 2, …, GV: Võ Thành Sơn 12 Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint 2019 - 2020 + Label: Dùng tạo cho ô chữ từ khóa, hiển thị nội dung câu hỏi, chữ từ khóa, câu hỏi đáp án trắc nghiệm, điểm số nhóm  Bước 2: Thiết lập thuộc tính cho đối tượng + Trên công cụ Developer ta chọn Properties để thiết lập thuộc tính cho đối tượng + Ta thiết lập màu nền, font chữ, cỡ chữ, * Thiết lập số đối tượng sau: - Name: Đặt tên cho đối tượng + Từ khóa 1: C11, C12, ., C17 + Từ khóa 2: C21, C22, ., C28 + Làm tương tự cho từ khóa 3 + Câu 1 C1, câu 2 C2, , câu 8 C8 + Reset Lamlai; Key key - BackColor: Chọn màu cho đối tượng - Caption: Nội dung hiển thị đối tượng + Sử dụng cho câu 1 câu + Các ô từ khóa bỏ trống - Enabled: True(Đối tượng ln hoạt động) - Font: Chọn font chữ cỡ chữ cho đối tượng + Sử dụng font VNI-Times tương ứng với bảng mã VNI Windows - ForeColor: Chọn màu chữ  Bước 3: Thực viết code: - Trên công cụ Developer ta chọn View Code để thực viết code cho đối tượng thiết kê giao diện - Các câu hỏi code ta sử dụng bảng mã VNI Windows - Giao diện Microsoft Visual Basic for Applications dùng để viết lệnh lập trình:  Phần viết code cho đối tượng:  Phần code trị chơi chữ: * Phần code cho nút lệnh Câu 1: GV: Võ Thành Sơn 13 Sử dụng lập trình VBA thiết kế đồ dùng dạy học PowerPoint {Đổi màu cho từ khóa, câu hỏi} C11.Caption = "?" Private Sub C1_Click() C12.Caption = "?" C11.BackColor = &HFFFF& C13.Caption = "?" C12.BackColor = &HFFFF& C14.Caption = "?" C13.BackColor = &HFFFF& C15.Caption = "?" C14.BackColor = &HFFFF& C16.Caption = "?" C15.BackColor = &HFFFF& C17.Caption = "?" C16.BackColor = &HFFFF& End Sub C17.BackColor = &HFFFF& 2019 - 2020 l1.Caption = " Câu 1: Thủ tục để đưa kết hình? " {Hiển thị đáp án từ khóa} Private Sub C1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) C11.BackColor = &HFFFF00 C12.BackColor = &HFFFF00 C13.BackColor = &HFFFF00 C14.BackColor = &HFFFF00 C15.BackColor = &HFFFF00 C16.BackColor = &H40C0& C17.BackColor = &HFFFF00 C11.Caption = "W" {Hiển thị từ khóa gợi ý} C12.Caption = "R" C13.Caption = "I" C14.Caption = "T" C15.Caption = "E" C16.Caption = "L" C17.Caption = "N" Key1.Caption = "L" + " " + Key1.Caption End Sub Private Sub C11_Click() C11.Caption = "W" End Sub Private Sub C12_Click() C12.Caption = "R" End Sub Private Sub C13_Click() C13.Caption = "I" End Sub Private Sub C14_Click() C14.Caption = "T" End Sub Private Sub C15_Click() C15.Caption = "E" GV: Võ Thành Sơn End Sub Private Sub C16_Click() C16.Caption = "L" End Sub Private Sub C17_Click() C17.Caption = "N" End Sub 14 Sử dụng VBA thiết kế đồ dùng dạy học Power Point PHIẾU HỌC TẬP SỐ 2019 - 2020 Họ 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 hay sai? Hãy đánh dấu (X) vào ô (đúng/sai) tương ứng Phát biểu Đúng Sai Biến đếm biến đơn thường có kiểu số nguyên Biểu thức giá trị đầu giá trị cuối kiểu với biến đếm Trong cấu trúc lặp For – Do giá trị đầu lớn giá trị cuối Giá trị biến đếm không tự động điều chỉnh sau lần thực câu lệnh lặp Ở dạng lặp tiến câu lệnh sau từ khóa DO thực tuần tự, với biến đếm nhận giá trị tăng từ giá trị đầu giá trị cuối Ở dạng lặp tiến, sau lần lặp giá trị biến đếm tăng thêm đơ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 in hình số từ đến 10 Mỗi số in dịng TT Chương trình u cầu Program InSo; - Bài toán yêu cầu thực việc gì? Uses Crt; Var i: Integer; - Công việc yêu cầu thực lặp lại nhiều lần? Begin Clrscr; For to ); Writeln( Readln; End - Nếu sử dụng cấu trúc lặp For – Do dạng tiến giải yêu cầu tốn giá trị đầu, giá trị cuối bao nhiêu? Câu lệnh viết nào? + Giá trị đầu: + Giá trị cuối: + Câu lệnh: + Câu lệnh lặp lại lần? - Bài 3: Sắp xếp để hồn thành chương trình sau Biết chương trình thực in hình số từ đến N (N số nguyên nhập từ bàn phím) Mỗi số in dịng TT Chương trình Chương trình hồn chỉnh Var i,N: integer; Begin Readln(N); Program InDaySo; Write('Nhap gia tri N = '); Uses Crt; Clrscr; Writeln(i); Readln; 10 End 11 For i:=1 to N GV: Võ Thành Sơn 42 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 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 để hồn thành chương trình sau Biết chương trình thực in hình số từ đến N (N số nguyên nhập từ bàn phím) Mỗi số in dịng - Hoạt động củng cố kiến thức GV: Võ Thành Sơn 43 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 PHIẾU HỌC TẬP SỐ Họ tên: Lớp: Nhóm: BÀI 11: KIỂU MẢNG Bài 1: Cho mảng chiều gồm phần tử sau: A 10 55 17 20 17 29 23 43 18 Hãy xác định thành phần sau: - Tên biến mảng: - Số lượng phần tử: - Kiểu liệu 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 số đầu:………… , số cuối:………… Bài 2: Điền vào khoảng trống để hồn thành chương trình sau:  Khai báo mảng chiều gồm 20 phần tử nguyên  Viết đoạn lệnh nhập giá trị N nhập vào giá trị cho phần tử mảng  Tính tổng phần tử có giá trị chẵn in tổng hình Program BT2; Var …….: Array[……… ] of Integer; ………………:Integer; Begin Write('Nhap so luong phan tu: '); Readln(………… ); For i:=1 to N Begin write('Phan tu thu ',i,' = '); Readln(………… ); End; Tong:=………… ; For i:=1 to ………… If …………… then Tong:=…………… ; Write('Tong phan tu co gia tri chan la: ',………); Readln End GV: Võ Thành Sơn 44 17 10 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 Bài 3: Sắp xếp chương trình sau thành chương trình hồn chỉnh  Khai báo mảng chiều gồm 30 phần tử nguyên  Viết đoạn lệnh nhập giá trị N nhập vào giá trị cho phần tử mảng  In hình phần tử có giá trị âm, số in dịng Dãy lệnh cần xếp Chương trình hồn chỉnh For i:=1 to N If A[i] < 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 Readln(N); Writeln(A[i]); Writeln(‘Cac phan tu am: ’); Readln(A[i]); GV: Võ Thành Sơn 45 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 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 GV: Võ Thành Sơn - Sắp xếp chương trình sau thành chương trình hồn chỉnh  Khai báo mảng chiều gồm 30 phần tử nguyên  Viết đoạn lệnh nhập giá trị N nhập vào giá trị cho phần tử mảng  In hình phần tử có giá trị âm, số in dòng 46 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 PHIẾU HỌC TẬP SỐ Họ 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 để hồn thành chương trình sau:  Khai báo mảng 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 nhập vào giá trị cho phần tử mảng  Tính tổng phần tử bội in tổng hình Ví dụ: Cho N=10 mảng A gồm phần tử sau: A 12 35 17 30 17 29 15 17 17 10 Vậy tổng phần tử bội là: 80 Program BT1; Var……….: Array[……… ] of Integer; ………………:Integer; Begin Write('Nhap so luong phan tu: '); Readln(………… ); For i:=1 to N Begin write('Phan tu thu ',i,' = '); Readln(………… ); End; Tong:=………… ; For i:=1 to ………… If …………… then Tong:=…………… ; Write ('Tong phan tu boi cua la: ',………… ); Readln End Bài 2: Sắp xếp câu lệnh sau thành chương trình hồn chỉnh Biết chương trình giải tốn: Đếm số phần tử có giá trị lớn 15 in kết biến Đếm hình Ví dụ: Cho N=10 mảng A gồm phần tử sau: A 12 35 17 10 17 29 15 17 10 Vậy số phần tử có giá trị lớn 10 là: Dãy lệnh cần xếp Chương trình hồn chỉnh For i:=1 to N If A[i] > 15 then Write('So ptu lon hon 15 la: ',Dem); End; Write('Nhap SL ptu: '); Readln(N); 47 Begin Var A: Array[1 50] of Integer; GV: Võ Thành Sơn Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 Write('Phan tu thu ',i,' = '); Begin Program BT2; i, N, Dem:Integer; Readln End For i:=1 to N Dem:=Dem + 1; Readln(A[i]); Dem:=0; Bài 3: Điền vào khoảng trống để hồn thành chương trình sau: a) Khai báo mảng 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 nhập vào giá trị cho phần tử mảng c) In phần tử có số chẵn mảng chiều Ví dụ: Cho N=10 mảng A gồm phần tử sau: A 12 35 17 30 17 29 15 17 17 10 Phần tử có 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 Begin … ……………………………………………… …………………………………………………… End; Write('Phan tu co chi so chan: '); For i:=1 to ……… If ……………………… then ……………………………………… …… Readln End GV: Võ Thành Sơn 48 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 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âu lệnh sau thành chương trình hồn chỉnh Biết chương trình giải tốn: Đếm số phần tử có giá trị lớn 15 in kết biến Đếm hình - Điền vào khoảng trống để hồn thành chương trình sau: Khai báo mảng 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 nhập vào giá trị cho phần tử mảng In phần tử có số chẵn mảng chiều Ví dụ: Cho N=10 mảng A gồm phần tử sau: GV: Võ Thành Sơn 49 Sử dụng VBA thiết kế đồ dùng dạy học Power Point PHIẾU HỌC TẬP SỐ 2019 - 2020 Họ tên: Lớp: Nhóm: BÀI 12: KIỂU XÂU Câu 1: Hãy cho biết kết sau thực hàm thủ tục xử lý xâu: - Ghép xâu: A:= ‘Ha Noi’; B:=’ Viet Nam’; Kết xâu A + B là: ……………………………… ‘Bai Tap’…………… ‘BAI TAP’ So sánh xâu: Thủ tục Delete: ST:=’Bai Tap Tin Hoc’; - Delete(ST,1,4); - S1:=’Tin ’; Thủ tục Insert: Insert(S1,S2,1); - Hàm Copy:S:= ‘THE GIOI DI DONG’; Copy(S,1,8); Hàm Length: S:=’50_KY_TU’; Length(S); Hàm POS: S1:= ‘A’; POS(S1,S2); Kết quả: ………………………… S2:=’Hoc’; Kết quả: …………………… Kết quả: ………………………… Kết quả: ………………………… S2:= ‘YOKOHAMA; Kết quả: ……………………… Câu 2: Dựa vào lệnh từ cột bên trái để hoàn thành chương trình tốn sau: Chương trình sau nhập vào hai xâu khơng q 150 kí tự in xâu lớn (Dữ liệu nhập vào phải ln cho kết có xâu lớn hơn) Ví dụ: A := ‘Tin hoc’; B := ‘Toan Hoc’; Thì kết in hình xâu: ‘Toan Hoc’ Các lệnh Writeln(‘Xau lon hon: ’,B); Readln(A); Write(‘Nhap Xau B: ’); Chương Trình Program BT1; Begin Write(‘Nhap xau A: ’); Writeln(‘Xau lon hon: ’,A) Var A, B : String[150]; Readln(B); IF A > B Then Else Readln; End GV: Võ Thành Sơn 50 Sử dụng VBA thiết kế đồ dùng dạy học Power Point 2019 - 2020 Câu 3: Dựa vào lệnh từ cột bên trái để hoàn thành chương trình tốn sau: Chương trình sau nhập vào xâu S khơng q 100 kí tự chuyển đổi xâu kí tự sang chữ in hoa in hình Ví dụ: S := ‘cong nghe thong tin’; Thì kết in hình xâu: ‘CONG NGHE THONG TIN’ Các lệnh Chương Trình Upcase(S[i]) Length(S) Copy(S) Pos(S) Program BT2; …………………………… Readln(S); Writeln(S); Write(‘Nhap xau S: ’); ………………………………… i : integer; Begin For i := to ……………… Var S : String; S[i] := …………………………… ; Var S : String[50]; Var S : String[100]; Writeln(‘Xau Hoa : ’, S); Readln; End Câu 4: Sắp xếp câu lệnh sau thành chương trình hồn chỉnh: Chương trình sau nhập vào xâu kí tự có độ dài khơng q 100 Hãy cho biết có chữ số xuất xâu S In kết hình Ví dụ: S := ‘Xin chao! Lop 11CB2’; Số lượng kí tự số xâu: Dãy lệnh cần xếp Chương trình hồn chỉnh IF (S[i] >= '0') and (S[i]