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}

Tổng hợp đề thi Nhập Môn Tin Học VB

Thảo luận trong 'Đề thi các năm' bắt đầu bởi langtu101288, 7 Tháng năm 2009.

  1. langtu101288 New Member

    Số bài viết: 2
    Đã được thích: 2
    Điểm thành tích: 0
    Đây là để thi nhập môn tin học lập trình visual basic mà mình sưu tập được,mong được chia sẻ với mọi người

    i[IMG][IMG][IMG]
    ngocphuspk and tongdinhkhoa like this.
  2. phoenix Administrator

    Số bài viết: 633
    Đã được thích: 13
    Điểm thành tích: 0
    Hiện tại mình tạo box này mong các bạn post đề lên nhé . Thanks

    Tớ sẻ hướng dẫn giải bài 1 các bạn tham khảo nhé :

    Thực ra ở aa c,d phải viết lại là aa(c,d) mới đúng . // đây là 1 đoạn chương trình con
    c=3 và d=5 chạy xuống aa(c,d) nó sẻ gán cho giá trị và đưa lên phía trên
    Sub aa(ByVal a As Integer ,b As Integer) // các bạn cẩn thận ở chổ byVal (Để biến đó sẽ không thay đổi sau khi hàm đó chạy. Thông thường một biến dùng chung khi truyền qua các hàm (Nếu sử dụng nhiều hàm cùng một lúc, mà có thể các hàm này đặt lại giá trị của biến thì hàm khác sẽ xử lý khác với mục tiêu đặt ra), người ta truyền theo giá trị để các hàm này sẽ độc lập xử lý theo giá trị của biến trước khi "chui qua hàm") có nghĩa là không trả giá trị đó nhé . cẩn thận mấy ông thầy lừa chổ đó

    Khi đó a=3 và b=5
    Vòng for 1 chạy từ 1 đến 3 và thực hiện b=b+1 cuối cùng ta được b=11
    và a=16
    Kết quả xuất ra màn hình a=3 và b=11
  3. phoenix Administrator

    Số bài viết: 633
    Đã được thích: 13
    Điểm thành tích: 0
    Ghi chú:
    Các biến số của hàm hay thủ tục có thể bị thay đổi bởi các quy trình tính toán, điều đó cho thấy sự quan trọng của việc bảo vệ giá trị gốc của biến. VB có hai từ khoá là phép đưa ra hoặc phép phủ nhận sự thay đổi toàn bộ giá trị biến, đó là ByRef và ByVal.
    Mặc định VB truyền thông tin tới hàm (hoặc thủ tục) bởi tham chiếu (ByRef), đề cập tới dữ liệu gốc trong biến số của hàm vào lúc hàm được gọi ra. Hơn nữa, nếu hàm làm thay đổi giá trị của biến số, giá trị gốc sẽ bị thay đổi.
    Bạn sẽ có được kết quả trên nếu bạn bỏ qua từ khoá ByVal đứng trước biến số num1 trong hàm MyAverage trong phần khai báo biến số.
    Nếu bạn muốn thủ tục hàm thay đổi giá trị gốc, bạn không cần thiết phải thêm từ khoá ByRef vào, vì VB đã mặc định truyền tham số là ByRef.
    Khi bạn sử dụng từ khoá ByVal trước tên biến số, VBA sẽ truyền tham số bằng giá trị cho biến này. Điều đó có nghĩa là VBA sẽ tạo ra một bản sao của dữ liệu gốc. Bản sao đó sẽ được truyền tới hàm. Nếu hàm thay đổi giá trị của biến số được truyền tới, giá trị gốc sẽ không thay đổi - chỉ là copy sự thay đổi đó. Điều đó giải thích tại sao khi hàm MyAverage đã thay đổi giá trị của biến num1, nhưng giá trị gốc của biến đó vẫn như cũ.

  4. nhokalone New Member

    Số bài viết: 134
    Đã được thích: 1
    Điểm thành tích: 0
    bài giải này có sai vài chỗ rồi:

    c=4 , d=4
    chạy sub aa(c,d) ==> đây mặc định là truyền tham trị
    for i=1 to 4
    a=a*i
    ==> a=4*1*2*3*4=96
    a=a+b=96+4=100

    Kết quả a=100, b=4
    c=4, d=4
    truonghai1188 thích bài này.
  5. giusethang Member

    Số bài viết: 183
    Đã được thích: 0
    Điểm thành tích: 16
    Bạn làm thì đúng rồi nhưng bạn nhầm 1 chút ở kết quả thì phải, do biến a gắn bằng Byef nên nó sẽ truyền giá trị ngược lại cho c => a=100, b= 4, c= 100, d=4. Mình làm thế đúng không bạn, có gì góp ý cho mình nha.
  6. xuantruong62 New Member

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

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

    Số bài viết: 8
    Đã được thích: 0
    Điểm thành tích: 1
    theo mình thì làm như vậy là chính xác rồi. không biết các bạn khác nghĩ sao <:p
  9. ndkhuong Member

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
    cho mình hỏi sub bb() là chương trình con, và nó truyền tham số c, lần lượt cho a, b đúng ko ?
  10. theanh09110004 New Member

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

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
    cho mình hỏi xét tăng giảm thế này đúng ko ?

    Private Sub cldkt_Click()
    Dim kttang As Boolean, ktgiam As Boolean
    For i = 0 To 5
    kttang = True
    If Val(txts(i)) > Val(txts(i + 1)) Then kttang = False
    ktgiam = True
    If Val(txts(i)) < Val(txts(i + 1)) Then ktgiam = False
    Next i
    If kttang = True And ktgiam = False Then
    MsgBox " mang tang "
    ElseIf kttang = False And ktgiam = True Then
    MsgBox " mang giam "
    Else
    MsgBox " mang ko tang ko giam "

    End If

    End Sub
  12. quangsangpro Member

    Số bài viết: 276
    Đã được thích: 1
    Điểm thành tích: 18
    anh em giai bài này dùm với;
    nhập vào số nguyên n và in ra các ước số chẵn của n,tính tổng các ước số, đếm các ước số

    HELP NHA!
  13. MinhThe New Member

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

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

    Số bài viết: 53
    Đã được thích: 1
    Điểm thành tích: 8
    Giới tính: Nam
  16. bachckm1 Member

    Số bài viết: 608
    Đã được thích: 3
    Điểm thành tích: 18
  17. SPK_DKC_DHT Administrator

    Số bài viết: 2,868
    Đã được thích: 64
    Điểm thành tích: 48
    Giới tính: Nam
  18. bachckm1 Member

    Số bài viết: 608
    Đã được thích: 3
    Điểm thành tích: 18
  19. emu8086 New Member

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

    Số bài viết: 3
    Đã được thích: 0
    Điểm thành tích: 1
    bai nay sai roi ban. neu truong hop cuoi cung mak dung' thi kq bao' dung, con lai thi sai. , -> ban nen xem lai code.

Chia sẻ trang này