1. THÔNG BÁO TUYỂN ADMIN DIỄN ĐÀN 2013
    Tìm kiếm nhà trọ - Ở ghép
    THÔNG BÁO BÁN ÁO SPKT.NET CHO THÀNH VIÊN DIỄN ĐÀN


    HÃY TÌM KIẾM Ở ĐÂY TRƯỚC KHI ĐẶT CÂU HỎI
    {xen:phrase loading}

Thảo luận Đề thi nhập môn tin học ngày 30/11/2010 !!!

Thảo luận trong 'Thảo luận đề thi' bắt đầu bởi huavantuan, 10 Tháng mười hai 2010.

  1. huavantuan New Member

    Số bài viết: 150
    Đã được thích: 0
    Điểm thành tích: 0
    ĐỀ THI GIỮA KỲ NĂM HỌC 2010-2011
    MÔN : Visual Basic

    THỜI GIAN: 90 phút
    ĐỀ SỐ: 01

    Câu : 1 cho thủ tục như sau:

    Private Sub UCLN(ByVal a As Integer, b As Integer, ByRef KetQua As Integer)
    Do While a > 0 And b > 0
    If a > b Then
    a = a Mod b
    Else
    b = b Mod a
    End If
    Loop
    If a = 0 Then
    KetQua = b
    Else
    KetQua = a
    End If
    End Sub

    Dim x As Integer, y As Integer, kq As Integer
    Private Sub Cau1_Click()
    Call UCLN(y, x, kq)
    MsgBox "x=" & x & "y=" & y & "kq=" & kq
    End Sub

    a)Cho biết kết quả xuất ra MsgBox khi thực hiện thủ tục Cau1_click() với x=28,y=18
    b) Cho biết kết quả xuất ra MsgBox khi thực hiện thủ tục Cau1_click() với x=18,y=28

    Câu: 2
    Viết Function SHH để kiểm tra một số có phải là số hoàn hảo hay không. Số hoàn hảo là số có tổng các ước bằng chính số đó. Ví dụ 1 là số hoàn hảo vì 1 có 1 ước là 1; 6 là số hoàn hảo vì 6 có 3 ước 1,2,3 và 6=1+2+3.
    Câu: 3 Cho giao diện như hình sau:
    [IMG]
    Mảng txtA là mảng các TextBox gồm 6 phần tử từ 0 tới 5 như trên giao diện.
    Viết hàm sử lý sự kiện Click cho các nút như sau:
    a) Nút tổng mảng: cmdTongMang_Click(). Tính tổng các phần tử trong mảng.
    b) Nút Max: cmdMax_Click(). Tìm phần tử lớn nhất trong mảng.
    c) Sắp xếp giảm: cmdSapXepGiam_Click(). Sắp xếp mảng TxtA giảm dần.
    Giả sử đã có Function SHH để kiểm tra số hoàn hảo như sau:
    Function SHH(ByVal N as Integer) as Boolean.
    Phần thân SHH coi như đã được viết đúng. Sử dụng Function SHH này để viết 2 nút sau:
    d) Nút Đếm SHH: cmdDemSHH_Click(). Đếm xem trong mảng có bao nhiêu số hoàn hảo.
    e) Nút Tổng SHH: cmdTongSHH_Click(). Tính tổng các số hoàn hảo có ở trong mảng.
    Ghi chú: Cán bộ coi thi không giải thích gì thêm.

    Ngày 30 tháng 11 năm 2010
    Giáo viên ra đề : Phùng Quang Ngọc

    Giải câu 2:
    Private Function SHH(a As Integer) As Boolean
    Dim i As Integer, tong As Integer
    tong = 0
    For i = 1 To a - 1
    If a Mod i = 0 Then tong = tong + i
    Next
    If tong = a Or a = 1 Then SHH = True Else SHH = False
    End Function
  2. vanbinh_21 <marquee><b><i>--- waiting for you... mãi chờ em..

    Số bài viết: 2,077
    Đã được thích: 52
    Điểm thành tích: 48
    Re: Đề thi nhập môn tin học ngày 30/11/2010 !!!

    trả lời câu 1:
    a/ khi nhập x=28 => a=28 ; y=18 => b=18
    vì a>0 b>0 nên vòng lặp được chạy.
    vì a>b => a= a mod b = 28 mod 18 = 10
    b > a => b = 18 mod 10 = 8
    a>b => a= 10 mod 8 = 2
    b>a => b=8 mod 2 = 0
    vì b = 0, dừng vòng lặp.
    thì ketqua = a = 2.

    khi nhấn Cau1_Click() thì msgbox ra là: x= 28 y= 18 kq= 2

    b/ giống câu a rồi bạn ơi.

    mấy câu kia chưa cài VB nên chưa giải được.
  3. bao_ckd New Member

    Số bài viết: 14
    Đã được thích: 0
    Điểm thành tích: 0
  4. vantot90 New Member

    Số bài viết: 15
    Đã được thích: 0
    Điểm thành tích: 0
    Re: Đề thi nhập môn tin học ngày 30/11/2010 !!!

    Một chút kinh nghiệm cho môn này, muốn dễ qua và đạt điểm cao thì nên để học kì hè học với thầy Long, học kỳ trước mình thấy môn này hơi khó nên rút môn học để hè học ai ngờ lại qua với điểm số rất cao luôn(9.2):D
  5. huavantuan New Member

    Số bài viết: 150
    Đã được thích: 0
    Điểm thành tích: 0
    Bạn thi trên máy hay trên giấy vậy ?
    Mình thấy muốn có điểm cao trong các môn học chủ yếu chuẩn bị bài ở nhà thật tốt thầy hay cho các bài tập cho học sinh lên làm kiếm điểm quá trình 10đ quá trình là 3đ rùi
    Nếu thi trên máy thì ok luôn đây mình thi trên giấy không biết sao đây !
  6. Nguyenpc New Member

    Số bài viết: 14
    Đã được thích: 0
    Điểm thành tích: 0
  7. vanbinh_21 <marquee><b><i>--- waiting for you... mãi chờ em..

    Số bài viết: 2,077
    Đã được thích: 52
    Điểm thành tích: 48
    bạn nói đúng, khi viết code ý tưởng giống pascal chỉ có code là hơi khác thôi.
  8. thien_spkt New Member

    Số bài viết: 18
    Đã được thích: 0
    Điểm thành tích: 0
  9. maitamson Member

    Số bài viết: 42
    Đã được thích: 0
    Điểm thành tích: 6
  10. huavantuan New Member

    Số bài viết: 150
    Đã được thích: 0
    Điểm thành tích: 0
    Chưa học qua pascal thì cố gắng hiểu được cách làm việc của thuật toán và chịu khó tự làm hết các bài tập trong sách thì qua môn này cũng không khó lắm ?
  11. dollyboy Member

    Số bài viết: 37
    Đã được thích: 2
    Điểm thành tích: 8
    Re: Đề thi nhập môn tin học ngày 30/11/2010 !!!


    câu a sai oj pan ơi:
    Call UCLN(y, x, kq)
    thì y=b con x=a moi đúng chứ
    x=2 vì x=b mà b là tham biến nên giá trị của x phải = b
    y=18

    còn câu b:
    x=o
    y=28
    kq=2
  12. thaiphonght Member

    Số bài viết: 30
    Đã được thích: 0
    Điểm thành tích: 6

Chia sẻ trang này