2 DETHI VB HK1 14 15 bomon

ĐẠ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 sử dụng vòng lặp Do while … Loop để thay cho vòng lặp For sử dụng vòng lặp Do … Loop Until để thay cho vòng lặp Do while … Loop, với A mảng số nguyên có n phần tử Change(X, Y) thủ tục đổi chỗ giá trị phần tử X, Y Sub DoSomething ( ) Dim k , j As Integer For k = 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 điểm)  Cho biết kết biến a, b, c, x, y thủ tục Form_Click() gọi trường hợp sau biết STT số thứ tự sinh viên (Lệnh Print lệnh in chuỗi 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 y = x + 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 Số hiệu: BM1/QT-KĐ-RĐTV/00   Sub Form_Click() Dim x As Byte, y As Byte x = STT Mod y = x + Call p(y, x + y, x) Print "x = " & x & "y = " & y End Sub Trang Câu 3: (2 điểm) Một mảng số nguyên gọi “đan dấu” hai phần tử kế trái dấu Ví dụ: -3 -5 mảng đan dấu -1 -4 không mảng đan dấu Viết hàm kiểm tra xem mảng số nguyên A có n phần tử “đan dấu” hay không Nếu “đan dấu” hàm trả True, ngược lại trả false Private Function LaDanDau(A() as Integer, Byval n As Integer) As Boolean ………… End Function Câu (2 điểm) Viết chương trình nhập vào chuỗi (khơng có khoảng trắng dư thừa) in hình tam giác vng (như mẫu cho ví dụ) dựa vào chuỗi vừa nhập, khoảng trắng từ thay ký tự: “#” Ví dụ: chuỗi “Tơi học” à T To Toi Toi# Toi#h Toi#ho Toi#hoc Câu (2 điểm) Viết chương trình nhập số nguyên dương N M Tính in tổng M ký số cuối số N Ví dụ: N = 1234567; M = è Kết cho ra: Tổng ký số cuối 22 M = 10 è Kết cho ra: Tổng ký số cuối 28 Ghi chú: Cán coi thi không giải thích đề thi Ngày 28 tháng 12 năm 2014 Trưởng BM Số hiệu: BM1/QT-KĐ-RĐTV/00   Trang ĐÁP ÁN GỢI Ý Chú ý: với câu viết chương trình, sinh viên làm theo cách khác miễn Câu Thang điểm: vòng lặp ngồi màu đỏ (1đ), vòng lặp màu đen(1đ) Sub DoSomething ( ) Dim k , j As Integer k=1 ‘ thiếu dòng trừ 0.5đ Do while k= Then ‘ điều kiện: 0.5đ Exit For ‘ dừng đúng: 0.5đ End If Next If i >= n Then LaDanDau = True ‘trả đúng: 0.25đ Else LaDanDau = False End If End Function Cách 2: Private Function LaDanDau(A() As Integer, ByVal n As Integer) As Boolean Dim i As Integer ‘ khai báo biến: 0.25đ For i = To n – ‘ vòng lặp: 0.5đ, ví dụ For i=1 To n sai có truy xuất A(i+1) If (A(i) > And A(i + 1) > 0) Or (A(i) < And A(i + 1) < 0) Then ‘ điều kiện: 0.5đ LaDanDau = False ‘ dừng đúng: 0.5đ Exit Function End If Next LaDanDau = True ‘trả đúng: 0.25đ End Function Câu (2 điểm) Viết chương trình nhập vào chuỗi (khơng có khoảng trắng dư thừa) in hình tam giác vng dựa vào chuỗi vừa nhập, khoảng trắng từ thay ký tự: “#” Private Sub Form_Click() Dim s As String, chuoikq As String 0.75đ  (khai  báo  biến:0.25đ,  nhập:0.25đ  lưu  ý  sinh  viên  có  thể  nhập   s = InputBox("nhap S")  control  khác  vẫn  đúng  như  TextBox,  thay  thế:0.25đ)   s = Replace(s, " ", "#", 1) For i = To Len(s) 1đ  (trong  đó  vòng  lặp  chiếm  0.25đ)   chuoikq = chuoikq & Mid(s, 1, i) & vbCrLf Next i Print chuoikq End Sub 0.25đ,  lưu  ý  sinh  viên  có  thể  xuất  bằng  cách  khác  vẫn  đúng  như  TextBox,  Label,  MsgBox,…   Số hiệu: BM1/QT-KĐ-RĐTV/00   Trang Câu 5: (Thang điểm: nhập (0.25 điểm), xử lý (1.5 điểm), xuất liệu (0.25 điểm) Cách 1: (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) Private Sub cmdTinh_Click() Dim i As Integer, M As Integer, Tong As Integer Dim N As Integer N = Val(txtN.Text) M = Val(txtM.Text) Tong = For i = To M If N = Then Exit For Tong = Tong + N Mod 10 N = N \ 10 Next i If N = Then M = Len(txtN.Text) LblKQ.Caption = "Tong " + Str(M) + " ky so cuoi cua " _ + txtN.Text + " la " + Str(Tong) End Sub Cách 2: Chú ý: Sinh viên xử lý theo chuỗi ( N kiểu String), dòng lệnh cần sửa tương ứng sau: (3) Dim N As String (4) N = txtN.Text (8) If Len(N) = Then Exit For (9) Tong = Tong + Val(Right(N, 1)) (10) N = Left(N, Len(N) - 1) (12) If Len(N) = Then M = Len(txtN.Text) Số hiệu: BM1/QT-KĐ-RĐTV/00   Trang