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] Thảm họa Visual Basic 13.6.2011 !!!

Thảo luận trong 'Thảo luận đề thi' bắt đầu bởi ndkhuong, 13 Tháng sáu 2011.

  1. ndkhuong Member

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
  2. user001 New Member

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

    Số bài viết: 88
    Đã được thích: 0
    Điểm thành tích: 0
    mình cũng làm được có 1 câu ah,đề gì đâu mà kỳ cục,không thấy phần mảng và phần textbox hay combobox đâu,buồn ghê,làm trên máy toàn chú trọng những phần này,còn câu cuối thì thầy cô nào có dạy phần này đàng hoàng thì mình chết liền đó mà tới 2d lận
  4. sinbat911 New Member

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

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
    nghe thằng bạn nói thầy Tâm giải hết mấy phần này rồi mới đau chứ :(( rồi còn học kì sau lên 120k/ chỉ nữa chứ @@
  6. dogia New Member

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

    Số bài viết: 43
    Đã được thích: 17
    Điểm thành tích: 0
    Đề thi ở đây http://spkt.net/diendan/showthread.php?p=162698
    Tình hình rất là tình hình là đề thi Visual rất khó, có lẽ không sống sót được tới bình minh. Nhưng mà cũng xin post bài làm câu 1,câu 2 cho mọi người xem góp ý.
    Câu 1
    Private Sub cmdThapPhanSangNhiPhan_Click()
    n = Val(TxtThapPhan.Text)
    Do
    d = n Mod 2
    S = d & S
    n = n \ 2
    Loop Until n = 0
    Text2.Text = S
    End Sub

    Private Sub cmdNhiPhanSangThapPhan_Click()
    n = txtNhiPhan.Text
    d = Len(n)
    For i = 0 To d - 1
    a = Mid(n, d - i, 1)
    b = a * (2 ^ i)
    S = S + b
    Next i
    Text1.Text = S
    End Sub
    ------------------------------------------------------------------------
    Câu 2
    Private Function th(ByVal n As Integer, ByVal k As Integer) As Double
    a = gt(n)
    b = gt(k) * gt(n - k)
    th = a / b
    End Function

    Private Function gt(ByVal x As Integer) As Double
    t = 1
    For i = 1 To x
    t = t * i
    Next i
    gt = t
    End Function

    Câu 3,Câu 4, Câu 5 ai biết chỉ giúp.
  8. ndkhuong Member

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
    có lẽ câu chuyển thập phân sang nhị phân bạn còn thiếu, khi lấy chuỗi kí tự thì nó lấy từ dưới lên cơ mà. Đây là bài giải của mấy anh trong 4r :)
    Private Sub cmdthapphansangnhiphan_Click()
    Dim a As Integer
    Dim kq As String
    Dim t As String
    a = Val(txtthapphan.Text)
    t = ""
    Do
    t = t & Str(a Mod 2)
    a = a \ 2
    Loop Until a = 0
    kq = ""
    'dao nguoc tap hop cac so du'
    For i = Len(t) To 1 Step -1
    kq = kq & Mid(t, i, 1)
    Next i
    txtthapphan.Text = kq
    End Sub

    còn cái này là chuyển từ nhị phân sang thập phân
    Private Sub cmdnhiphansangthapphan_Click()
    Dim a As String
    Dim t As Integer
    Dim i As Integer
    a = txtnhiphan.Text
    t = 0
    For i = 1 To Len(a)
    t = t * 2 + Val(Mid(a, i, 1))
    Next i
    txtnhiphan.Text = t
    End Sub
    vinhan136 thích bài này.
  9. dogia New Member

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

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

    Số bài viết: 4
    Đã được thích: 0
    Điểm thành tích: 0
    câu 5 minh post cac ban xem co gi thi sua gium nha
    Private Sub Command1_Click()
    Dim a, b As Integer
    a = Val(Text1)
    b = Val(Text2)
    Picture1.Circle (ScaleWidth / 2, ScaleHeight / 2), a, , , , (b/a)
    End Sub
  12. thanhtuan_hoangsatruongsa New Member

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

    Số bài viết: 384
    Đã được thích: 0
    Điểm thành tích: 0
    Có lẽ kỳ này lại đóng góp nhiều nữa vì môn này chỉ, cứ theo lệ hằng năm thì có quá nữa là hy sinh! Thôi thì chúc may mắn lần sau vậy!
  14. Bo1A11 New Member

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

    Số bài viết: 35
    Đã được thích: 0
    Điểm thành tích: 0
    dù muốn hay không thì cũng thế rồi mà.5 chỉ 5 xị chư mấy,hjhj
    1 cái chết không thuyết phục.!
    do nhà trường xây chưa xong nên đề khó thôi.Hhjhj
  16. thanhkht New Member

    Số bài viết: 156
    Đã được thích: 0
    Điểm thành tích: 0
    phải nói ko hiểu tự nhiên năm nay ra đêf cực khó như thế này,các thầy ra đề ko biết các thầy nghỉ sao nửa..theo mình dự đoán chắc có lẽ năm nay hơn 80% sinh viên rớt môn này,có nhiều sinh viên làm chỉ 5 phút là đã nộp bài mà môn này tới 5 chỉ luôn chứ,chia buồn cùng mọi người nhé
  17. nguyenmdrak New Member

    Số bài viết: 365
    Đã được thích: 0
    Điểm thành tích: 0
    Lần đầu:mãi chơi =>thi rớt
    Lần hai:đóng tiền học lại(vẫn tội mải chơi)=> rớt
    Lần ba:chắc chắn đậu
    Tiền đã không có rùi còn mắc cái eo,thui lần này hè về kiếm tiền đăng kí học lại :017:
  18. konan_levanhai Bất công là một tất yếu !

    Số bài viết: 479
    Đã được thích: 10
    Điểm thành tích: 18
    Bỏ ngay cái lý luận đó đi mọi người ơi. Do ôn không kĩ thôi. Ôn một cách cẩu thả. Học mà chưa nắm vũng nó là cái gì thôi . Thi 3 môn mà tui đi luôn 3 môn kìa. Nhìn lại cái tội không học đàng hoàng. Với cái đề đó, nếu kĩ kĩ chút. chừng 5 điểm lấy được. Nhìn nhận lại thực tế đi. Cứ cái tâm lý như thế hoài, anh em ta còn thất bại hoài đấy.
    Mấy dạng đề khá mới thôi, nhưng cũng xoay quanh có mấy vấn đề chứ gì.

    Tiếc cho khoảng thời gian bỏ ra!!
  19. nguyenmdrak New Member

    Số bài viết: 365
    Đã được thích: 0
    Điểm thành tích: 0
    Hên xui,nếu nói học mà hiểu mà để nắm vững thì trên đời này ít người học được lắm.:)|
  20. cindar New Member

    Số bài viết: 105
    Đã được thích: 0
    Điểm thành tích: 0
    cái đề nhìn kinh dị thật.
    câu 1 có lẽ ai cũng làm được nên ko cần phải bàn.
    câu 2 và câu 3 đều dùng đệ quy để giải.
    ---câu 2 bảo viết hàm, trong hàm này có 1 hàm nhỏ nữa dùng để tính n!.
    ---mình viết bằng C++ ( vì lâu quá quên VB mất rồi )
    Int giai_thua ( int n)
    {
    if(n<=1) return 1;
    else return n*giai_thua(n-1);
    }
    trong hàm tính biểu thức ta gọi lại hàm tính giai thừa.
    float bài ( int n, int k)
    {
    float result;
    result = giai_thua(n)/((giai_thua(k))*(giai_thua(n-k)));
    }
    kết quả cuối cùng là biến result.

    câu 3.

    //hàm tính giai thừa
    double giai_thua ( double n)
    {
    if(n<=1) return 1;
    else return n*giai_thua(n-1);
    }

    //hàm tính lũy thừa
    double luy_thua (double n )
    {
    return n*n;
    }

    //hàm chính
    double bai3 ( double x )
    {
    double result;
    for(int i =0; i<=x;i++)
    {
    result += luy_thua(x)/giai_thua(x);
    }
    }

    //kết quả cuối cùng là biến result
    hình như cách này sai rồi và chỉ tính được với số x hữu hạn chứ ko tính được với x là vô cùng
    bài này hình như có 1 cái thuật toán tính gần đúng mà học trong phương pháp tính, tiếc là lâu quá mình quên mất và ko có sách ở đây để tham khảo
    cách này ko sai nhưng có lẽ ko đúng với yêu cầu của đề bài.

    bài 4 mình nêu ý tưởng lối đi để các bạn tự làm
    đề cho sử dụng làm LEN để ta lấy chiều dài chuỗi.
    đầu tiên ta cắt khoảng trống 2 đầu của chuỗi nếu chuỗi có khoảng trống ở 2 đầu.
    dùng hàm for:
    //cắt đầu chuỗi
    tạo 1 biến n = 1;
    for( tạo biến i, i < n ; i++)
    {
    if(chuỗi==" ") { chuỗi=""; n++; }
    }
    //cắt đuôi chuỗi tương tự nhưng cho biến i chạy ngược từ sau về trước, cắt hết các kí tự khoảng trắng cho đến khi gặp kí tự ko phải là kí tự khoảng trắng thì ngừng.
    //cắt các khoảng trắng thừa trong chuỗi.
    for ( tạo biến i , i <= chiều dài chuỗi mới sau khi cắt đầu và đuôi ; i++ )
    {
    if(chuỗi và chuỗi[i+1] đều là khoảng trắng)
    {
    chuỗi[i+1]=""; // xóa kí tự i+1
    i--; // lùi về 1 kí tự để kiểm tra tiếp.
    }
    }

    // câu 5 về picture box lâu quá mình quên và hồi xưa hình như ko được học về nó nên ko nhớ.
    //

    PS: chia buồn cho các bạn thi VB kì này vì đề quá khó.(^_^).
  21. so61pi New Member

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

    Số bài viết: 105
    Đã được thích: 0
    Điểm thành tích: 0
    Đúng rồi, câu 3 giải như vậy có lẽ ko phù hợp với yêu cầu của đề vì nó ko giải được các trường hợp số nhập vào và vô cùng hoặc kết quả vượt quá giá trị của biên. thời gian để tính toán chậm hơn là dùng 1 thuật toán tính khác ( học trong phương pháp tính ).
    Câu 3 mình giải như thế chỉ có 1 đối số nhập vào thôi bạn, 2 biến n ở 2 hàm function nó chỉ là biến tạm, ko ảnh hưởng đến chương trình.
    Mình viết bằng C++, bạn nào hiểu ý được thì chuyển quá VB cho các bạn giúp.
    Thân.
  23. timexironman New Member

    Số bài viết: 169
    Đã được thích: 1
    Điểm thành tích: 0
    cái đề pùn đời quá zut mất rùi. tình hình là do while khi cai đk thỏa mãn thì tính như cách của ông anh thui. Biến của hàm function là biến x. right?
  24. cindar New Member

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

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

    Số bài viết: 140
    Đã được thích: 1
    Điểm thành tích: 18
    công nhận đề năm nay khó thật, cứ nghĩ đề ra vừa sức thui, nào ngờ thế này, hjxhjx, môn này 5 chỉ, kéo điểm xuống, hjx,uổng thật, chia buồn với mọi người. chúc may mắn lần sau :(:)((
  27. so61pi New Member

    Số bài viết: 27
    Đã được thích: 0
    Điểm thành tích: 1
    Có ai giải thích câu 3 dùng mình:

    Đề:
    Viết hàm nhận 1 đối số là doubletrị trả về là double dùng để tính tổng sau đây:

    s = 1 + x/(1!) + (x^2)/(2!) + ... + (x^n)/(n!) + ...

    với sai số |(x^n)/(n!)| < e cho trước.

    • 1 đối số là double: có phải là x ?
    • trị trả về là double dùng để tính tổng: câu này nên hiểu như thế nào ?
    • sai số |(x^n)/(n!)| < e cho trước: sai số cho trước có ràng buộc gì không ?

    Mình xin cảm ơn :).
  28. cindar New Member

    Số bài viết: 105
    Đã được thích: 0
    Điểm thành tích: 0
    bé cái nhầm. sorry nha, mình ẩu quá, vì đề bảo 1 đối số nên tưởng n và x là như nhau.
    thôi rồi. đề này bảo và vào 1 đối số == > đối số ở đây chỉ có thể là x thôi.
    vậy biến n là dần đến vô cùng rồi, bài này phải dùng cách khác giải chứ cách của mình sai.
    mình hiểu nhầm đề 1 đối số là cho cả x và n.
    với bài 3 như thế này phải xem lại 1 tí mới giải được....hix...
    @abilaba : làm gì mà bắt bẽ ghê vậy, hi, hồi xưa có học về picture box nhưng thầy chỉ chỉ cách show hình lên thôi, ko chỉ cách vẽ và thao tác nhiều trên nó nên mình ko biết :|

    cùng thắc mắc với bạn.
    Viết hàm nhận 1 đối số là double ==> yêu cầu viết 1 hàm có 1 đối số là kiểu double.
    trị trả về là double dùng để tính tổng sau đây ==> hàm có đầu vào là double, đầu ra cũng vậy, chức năng của hàm là dùng để tính cái tổng đó, cái tổng đó trả về giá trị là double
    PS: Lão nào cho đề vãi vậy ? chắc mới tu luyện trên núi nào xuống, tưởng sv spkt đều là super mọt sách :))
  29. thaiphonght Member

    Số bài viết: 30
    Đã được thích: 0
    Điểm thành tích: 6
    khó thật. tình hình là die hết.. làm 4 câu mà chắc sai mất 3.. hết hi vọng rồi... 5 cị của ta đã đi rồi...
    hè sau học lại hết
  30. songdeyeu_26137 New Member

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

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

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
  33. quangsangpro Member

    Số bài viết: 276
    Đã được thích: 1
    Điểm thành tích: 18
    hic! hè năm sau hoc lại.nhìn cái đề thi kj 1 tưởng đâu là qua chứ,đề kj 2 gap đôi độ khó so với độ khó của đề học kì 1
  34. nhok New Member

    Số bài viết: 22
    Đã được thích: 0
    Điểm thành tích: 1
    đề đúng là kì cục phần mảng học 2 tháng trời lại không ra hix thảm họa 2011. Kì này rớt kỉ lục lun quá mong thầy cô thương tình chấm nhẹ tay + mỗi người 5d qua môn 8->
  35. bastian New Member

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

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18
  37. konan_levanhai Bất công là một tất yếu !

    Số bài viết: 479
    Đã được thích: 10
    Điểm thành tích: 18
    " Chứng minh tính đúng đắn của Chương trình này "

    Private Sub cmdChungMinh_click()
    Dim phép màu as "có trời mới biết"
    If( phepmau= có )then Msgbox (" đậu"& " hên xui",vbOkonly, " Chúc mừng may mắn")
    else msgbox " Chết chắc " :((
    end
  38. so61pi New Member

    Số bài viết: 27
    Đã được thích: 0
    Điểm thành tích: 1
    Câu 3 mình làm như sau (không biết chắc không nữa :|):

    Mã:
    Private Sub Command1_Click()
        Dim X As Double
        Dim error As Double
        Dim n As Long
        Dim i As Long
        Dim result As Double
        
        X = Val(txtX)
        error = Val(txtE)
        n = 1
        Do While ((X ^ n) / GiaiThua(n)) >= error
            n = n + 1
        Loop
        
        result = 1
        For i = 1 To n
            result = result + (X ^ i) / GiaiThua(i)
        Next i
        
        MsgBox result
        
    End Sub
    
    Function GiaiThua(n As Long) As Double
        Dim i As Long
        Dim result As Double
        
        result = 1
        For i = 1 To n
            result = result * i
        Next i
        
        GiaiThua = result
    End Function
  39. nhoczu Member

    Số bài viết: 107
    Đã được thích: 0
    Điểm thành tích: 16
    Mọi người nghe Siêu nhân SPKT nói chưa!!! :-@:-@:-@
  40. so61pi New Member

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

    Số bài viết: 365
    Đã được thích: 0
    Điểm thành tích: 0
    Good idea! Đúng là trường mình lắm "siêu nhân"(cứ tưởng dễ lắm ấy-nói một chuyện còn làm lại là một chuyện).Haizzz:)|
  42. konan_levanhai Bất công là một tất yếu !

    Số bài viết: 479
    Đã được thích: 10
    Điểm thành tích: 18
    Thôi đi mấy bác, nhận ra đâu là cái chưa được của mình kìa. Ở đó mà cứ trách cái Tòa nhà trung tâm. :)
    Nói thiệt, HK1 cũng nguyền rủa cái toàn nhà trung tâm đó. HK@ quyết tâm, >> 4 môn đầu tiên thi die hết nè. Không đùa đâu. Trong đó có VB. Đúng siêu nhân luôn. :((
  43. thanhtuan_hoangsatruongsa New Member

    Số bài viết: 636
    Đã được thích: 0
    Điểm thành tích: 0
    nói thiệt hay giỡn thế mài ...............hkII này thấy đâu co hoạt động gì đâu
    cố lên 1 vợ 2 lầu 3 con 4 bánh đang chờ mài đó
  44. dogia New Member

    Số bài viết: 32
    Đã được thích: 0
    Điểm thành tích: 0
    Visual Basic trở thành môn học siêu lợi nhuận của trường mình ..( 5 chỉ + tỉ lệ rớt không dưới 80% ) .. nhiều thằng vừa nhận đề (hông biết kịp đọc chưa nữa)lên nọp bài luôn.. miệng lẩm bẩm 500k..sặc máu\:D/
  45. minhky12 New Member

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

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

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

    Số bài viết: 791
    Đã được thích: 0
    Điểm thành tích: 0
    Năm mình thi cũng xém die vì cái bài này, vừa đủ 5đ cuối kỳ, lalala.
  49. small ant Well-Known Member

    Số bài viết: 2,827
    Đã được thích: 88
    Điểm thành tích: 48
    Giới tính: Nữ
  50. ndkhuong Member

    Số bài viết: 182
    Đã được thích: 2
    Điểm thành tích: 18

Chia sẻ trang này