Số hiệu: BM1/QT-KĐ-RĐTV/00 Trang 1 ĐẠI HỌC SƯ PHẠM KỸ THUẬT TPHCM KHOA CÔNG NGHỆ THÔNG TIN BỘ MÔN: HỆ THỐNG THÔNG TIN --------------- ĐỀ THI CUỐI KỲ NĂM HỌC 2013-2014 MÔN: LẬP TRÌNH VISUAL BASIC MÃ MÔN HỌC: VBPR131085 Thời gian: 60 phút Được sử dụng tài liệu viết tay. Đề thi có: 02 trang ----------------------------- Câu 1: (2 điểm) Hãy viết lại thủ tục DoSomething sau đây sử dụng vòng lặp Do while … Loop để thay thế cho vòng lặp For và sử dụng vòng lặp Do … Loop Until để thay thế cho vòng lặp Do while … Loop, với A là mảng các số nguyên có n phần tử và Change(X, Y) là thủ tục đổi chỗ giá trị của 2 phần tử X, Y. Câu 2: (2 điểm) Cho biết kết quả của các biến a, b, c, x, và y khi thủ tục Form_Click() được gọi trong các trường hợp sau biết rằng STT là số thứ tự của sinh viên. (Lệnh Print <chuỗi> là lệnh in chuỗi ra Form) Câu 3: (2 điểm) Một mảng các số nguyên được gọi là “đan dấu” nếu hai phần tử kế nhau là trái dấu. Ví dụ: 1 -3 2 -5 4 là mảng đan dấu -1 6 -4 2 9 không là mảng đan dấu Viết hàm kiểm tra xem một mảng các số nguyên A có n phần tử là “đan dấu” hay không. Nếu là “đan dấu” thì hàm trả về True, ngược lại trả về false. Câu 4: (2 điểm) Viết chương trình nhập vào một chuỗi (không có khoảng trắng dư thừa) và in ra một hình tam giác vuông (như mẫu cho trong ví dụ) dựa vào chuỗi vừa nhập, trong đó khoảng trắng giữa các từ được thay bằng k. tự: “#” Số hiệu: BM1/QT-KĐ-RĐTV/00 Trang 2 Câu 5: (2 điểm) Viết chương trình nhập 2 số nguyên dương N và M. Tính và in ra tổng M ký số cuối cùng của số N. Ví dụ: N = 1234567; M = 4  Kết quả sẽ cho ra: Tổng 4 ký số cuối cùng là 22 M = 10  Kết quả sẽ cho ra: Tổng 7 ký số cuối cùng là 28 --------------------------------------------------HẾT-------------------------------------------- Ghi chú: Cán bộ coi thi không được giải thích đề thi. Số hiệu: BM1/QT-KĐ-RĐTV/00 Trang 1 ĐẠI HỌC SƯ PHẠM KỸ THUẬT TPHCM ĐỀ THI CUỐI KỲ NĂM HỌC 2013-2014 KHOA CÔNG NGHỆ THÔNG TIN MÔN: LẬP TRÌNH VISUAL BASIC BỘ MÔN: HỆ THỐNG THÔNG TIN MÃ MÔN HỌC: VBPR131085 --------------- Thời gian: 60 phút Được sử dụng tài liệu viết tay. Đề thi có: 02 trang ----------------------------- Câu 1: (2 điểm) Hãy viết lại thủ tục DoSomething sau đây sử dụng vòng lặp Do while … Loop để thay thế cho vòng lặp For và sử dụng vòng lặp Do … Loop Until để thay thế cho vòng lặp Do while … Loop, với A là mảng các số nguyên có n phần tử và Change(X, Y) là thủ tục đổi chỗ giá trị của 2 phần tử X, Y. Sub DoSomething ( ) Dim k , j As Integer For k = 1 To n j = 1 Do while j < n If A(k) < A(j) Then Change ( A(k), A(j) ) j = j + 1 Loop Next End Sub Câu 2. (2 điểm) Cho biết kết quả của các biến a, b, c, x, và y khi thủ tục Form_Click() được gọi trong các trường hợp sau biết rằng STT là số thứ tự của sinh viên. (Lệnh Print <chuỗi> là lệnh in chuỗi ra Form) a) Sub p(a As Byte, b As Byte, c As Byte) a = a + b b = b + c c = c + a Print "a = " & a & ", b = " & b & ", c = " & c End Sub Sub Form_Click() Dim x As Byte, y As Byte x = STT Mod 3 y = x + 2 Call p(y, x, y) Print "x = " & x & "y = " & y End Sub b) Sub p(a As Byte, b As Byte, c As Byte) a = a + b b = b + c c = c + a Print "a = " & a & ", b = " & b & ", c = " & c End Sub Sub Form_Click() Dim x As Byte, y As Byte x = STT Mod 3 y = x + 2 Call p(y, x + y, x) Print "x = " & x & "y = " & y End Sub