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}

đề thi cuối kì môn VISUAL BASIC ngày 17/6/10 có đáp án

Thảo luận trong 'Thảo luận đề thi' bắt đầu bởi vanbinh_21, 17 Tháng sáu 2010.

  1. 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ài:1 nhập vào một mảng gồm txtN phần tử nhập từ bàn phím (6đ)
    [IMG]



    • Viết chương trình nhập các phần tử A của mảng, dùng inputbox. Chỉ nhập kiểu dữ liệu là số.(1)
    • Viết chương trình in mảng đã nhập(1)
    • Viết chương trình xóa các số chẳn(2)
    • Viết chương trình tính trung bình cộng các số lẻ.(2)
    (đặt tên theo yêu cầu)
    Bài:2 nhập vào một chuỗi từ bàn phím (4đ)
    [IMG]



    • Chuẩn hóa chuỗi vừa nhập. (xóa các khoảng trắng dư thừa) (2)
    • Đổi các kí tự thường sang kí tự in hoa ( chú ý không dùng hàm UCASE) (2)
    • (đặt tên theo yêu cầu)

    Các file đính kèm:

    phuphu1212 thích bài này.
  2. Xuân Hiếu Phạm Xuân Hiếu

    Số bài viết: 2,124
    Đã được thích: 2
    Điểm thành tích: 38
  3. 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
  4. nath New Member

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
  5. 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
  6. Xuân Hiếu Phạm Xuân Hiếu

    Số bài viết: 2,124
    Đã được thích: 2
    Điểm thành tích: 38
  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
  8. thuongdt New Member

    Số bài viết: 791
    Đã được thích: 0
    Điểm thành tích: 0
    đề tính ra nhẹ hơn đề hum trước tụi mình thi giữa kì
    lớp mình gk điểm thấp quá trời, dưới trung bình cũng nhiều nữa.
    nhưng dẫu sao thi trên máy cũng dễ die, viết tay còn được điểm ý tưởng
  9. 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ữ
  10. 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
    mình thấy thi trên máy dể hơn, lớp mình đậu hơn 90%
    lớp 30 người đậu 29 :d
  11. votrungchi.kmt New Member

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

    Số bài viết: 55
    Đã được thích: 0
    Điểm thành tích: 0
    oh, tốt wá tui củng chuẩn bị thi rồi không biết sao đây, thank ông nhiều nha. ah, ông thi được mấy điểm, chắc điểm tổng kết cao lắm ha?
  13. 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
    hi. mình được tròn 10.0 lun :D
  14. love_pro New Member

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

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
    hix tụi mình cũng clc mà thầy bắt thi trên giấy nè, chán thiệt
  16. DinkDuK New Member

    Số bài viết: 95
    Đã được thích: 0
    Điểm thành tích: 0
    Sao mình không chạy được bài 1 vậy bạn , nó báo lỗi chỗ " n = val(txtn.text) " , cái này là bài bạn thi xong rồi up lên hả ? hay bạn làm lại , mình gà cái này quá , bạn có tiệt chiêu gì bày ra hết đi :) . mà sao bạn không tách 2 bài ra 2 cái mà gom lại 1 cái vậy .
  17. 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
    ua, vậy bạn học lớp nào, ai dạy?
  18. 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
    cái này là thi xong mình coppy lại rồi post lên đó :d
    còn việc mình không tách 2 bài riêng là theo yêu cầu của trung tâm tin học phải làm 2 form trong cùng 1 project đó bạn.
    bạn có thể đọc bài giảng của thầy cho mình tại đây: http://spkt.net/diendan/showthread.php?t=13344
    hoặc tất cả bài giải phần thuật toán của mình tại đây: http://spkt.net/diendan/showthread.php?p=74344
    tổng hợp tất cả các hàm trong vb bạn củng có thể tham khảo tại đây http://spkt.net/diendan/showthread.php?p=74381#post74381 :D
    mình vẩn chạy được bài 1 mà. bạn phải nhập số phần tử của mảng vào trước rồi mới click cmdnhapmang rồi nhập các phần tử của mảng:[IMG]
  19. 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
  20. nath New Member

    Số bài viết: 71
    Đã được thích: 0
    Điểm thành tích: 0
    lớp CNTĐ CL2 , thầy gì dạy tới giờ mình chưa biết tên nữa :D
  21. seamean New Member

    Số bài viết: 3
    Đã được thích: 0
    Điểm thành tích: 0
    CNTĐ CL2 sẽ lên đoạn đầu đài môn tin vào thứ 2 tới. Giữa kì vừa rồi thầy ra đề khó nên anh em die rất nhiều. Ko biết có thể sống qua mùa quýt năm nay ko nữa :)
  22. 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
    :d chúc bạn thi tốt nha. ah, bạn học CNTD với bạn "chung" phải không?
  23. votrungchi.kmt New Member

    Số bài viết: 74
    Đã được thích: 0
    Điểm thành tích: 0
    Mình có ý kiến là nên thêm 1 đoạn code để ràng buộc chỗ nhập để tránh bị lỗi, cụ thể là nếu không nhập vào số phần thử N thì nút nhập mảng sẽ không có tác dụng! zaayj thì sẽ tránh dc lỗi quên nhập số phần tử!
  24. 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
    uhm, cách đó củng hay jờ mình viết thêm đoạn code cho txtnhap nếu txtnhap=""thì báo lổi bắt nhập lại hoặc ẩn cmdnhap... thank!
  25. chuatethanhcoi Member

    Số bài viết: 124
    Đã được thích: 0
    Điểm thành tích: 16
    Đề hum bữa của tụi minh thi cuôi kì khó lắm,cả lớp gần rớt hết,các bạn sắp thi cuối kì ôn cho kĩ nhen,tùy thầy thôi,có thầy cho đề dễ nhưng có thầy cho đề khó lắm đó.
  26. DinkDuK New Member

    Số bài viết: 95
    Đã được thích: 0
    Điểm thành tích: 0
    Đề của bạn giống của vanbinh không ? có gì up cho mọi người tham khảo với , có bài giải càng tốt ^^ .
  27. seamean New Member

    Số bài viết: 3
    Đã được thích: 0
    Điểm thành tích: 0
    uhm. Sao bạn quý nhưng ko hiếm của CNTĐ CLC lại nối tiếng thế nhỉ?
  28. 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
    tại bạn đó học chung trương cấp 3 với mình :d
  29. 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
    mình sửa lại bài 1 rồi các bạn tham khảo nha. thank!

    Các file đính kèm:

    • bai 1.rar
      Kích thước:
      1.9 KB
      Đọc:
      97
  30. love_pro New Member

    Số bài viết: 55
    Đã được thích: 0
    Điểm thành tích: 0
    thi trên máy vẩn dể hơn
  31. greenfield New Member

    Số bài viết: 2
    Đã được thích: 0
    Điểm thành tích: 0
    oc.bây giờ mới thấy bạn nói là thi trên giấy dễ hơn đấy!!
    theo mình thì thi trên máy còn biết chỗ nào lỗi chứ viết tay thì phai chạy chương trình bằng tay mà đã chạy bằng tay như vậy thì khi nào cũng đúng( với bản thân mình thui)
  32. Xuân Hiếu Phạm Xuân Hiếu

    Số bài viết: 2,124
    Đã được thích: 2
    Điểm thành tích: 38
    Vừa mới thi trên máy ngày 7/7, ra mảng, chuỗi, chương trình con còn được, ra dạng listbox bó tay luôn :)) Chủ quan quá nên không ngờ được, cả trong sách lẫn đề cương không có, chỉ có học trên lớp :(
  33. nhoc_ZntoZoa New Member

    Số bài viết: 103
    Đã được thích: 0
    Điểm thành tích: 0
    Môn này ko thể chủ quan đc,chủ quan là die liền,5 chỉ nữa chứ.Mới vô học thầy đã giới thiệu "đây là một trong những môn mang lại nguồn thu đáng kể cho nhà trường"..%-(Nản hết biết,mong là mình sẽ qua đc.
  34. 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
    uhm, lớp tụi mình chỉ rớt 1 đứa thôi, còn lớp kế bên rớt 19 đứa lớp có 30 người ah :-??
  35. 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
  36. minhdkc Member

    Số bài viết: 33
    Đã được thích: 0
    Điểm thành tích: 6
    thi trên máy biết mnhf viết code đúng hay sai.dề thi sắp tới mình dự đoán là khó.tại đề thi cua clc tất nhiên là dễ hơn oj
    :-??
  37. 08209001 New Member

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

    Số bài viết: 43
    Đã được thích: 1
    Điểm thành tích: 8
  39. Xuân Hiếu Phạm Xuân Hiếu

    Số bài viết: 2,124
    Đã được thích: 2
    Điểm thành tích: 38
    :)) Đưa đề giấy của lớp thường làm lẹ hơn trên máy đấy :))
  40. kmanng21 Member

    Số bài viết: 43
    Đã được thích: 1
    Điểm thành tích: 8
    đúng rồi viết code=giấy chỉ cần thể hiện ý tưởng còn viết máy nhìu khi sai 1 vài chỗ kiếm gần chết
  41. kuranh2009 New Member

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

    Số bài viết: 17
    Đã được thích: 0
    Điểm thành tích: 0
    [FONT=Times New Roman, serif]ĐÁP ÁN[/FONT][FONT=Times New Roman, serif] THI CUỐI KỲ[/FONT]
    [FONT=Times New Roman, serif]Câu 1[/FONT][FONT=Times New Roman, serif]: Sau khi thực hiện từng bước 2 chương trình trên ta có kết quả sau: [/FONT]
    [FONT=Times New Roman, serif] a [/FONT][FONT=Times New Roman, serif]= 3[/FONT]
    [FONT=Times New Roman, serif]b [/FONT][FONT=Times New Roman, serif]= 4[/FONT]

    • [FONT=Times New Roman, serif]call p(a=3,a=3) => [/FONT][FONT=Times New Roman, serif]a, b ở trong hàm đều tham chiếu đến biến a ở ngoài hàm.[/FONT]
      • [FONT=Times New Roman, serif]a [/FONT][FONT=Times New Roman, serif]= a + b = 3 + 3 = 6 (a trong hàm tham chiếu đến a ở ngoài hàm nên a ngoài hàm cũng thay đổi theo, tức a ở ngoài hàm sau phép gán này bằng 6)[/FONT]
      • [FONT=Times New Roman, serif]b[/FONT][FONT=Times New Roman, serif] = b + a = 6 + 6 = 12 (b tham chiếu đến a ở ngoài hàm (a ngoài hàm bằng 6, do đã thay đổi bởi phép gán ở trên) nên b ở vế phải bằng 6) [/FONT]
    [FONT=Times New Roman, serif]Do đó[/FONT]
    [FONT=Times New Roman, serif]a[/FONT][FONT=Times New Roman, serif] =12 (vì a trong hàm truyền tham chiếu đến a ngoài hàm nên khi nó thay đổi thì a ngoài hàm cũng thay đổi theo)[/FONT]
    [FONT=Times New Roman, serif]b = 4 (vì không có biến nào tham chiếu đến b ở ngoài hàm).[/FONT]

    • [FONT=Times New Roman, serif]call p(b = 4, a – b = 8) => a ở trong hàm tham chiếu đến biến b ở ngoài hàm; b trong hàm tham chiếu đến biến chứa giá trị (a – b), đây là một biến c nào đó.[/FONT]
      • [FONT=Times New Roman, serif]a = a + b = 12[/FONT]
      • [FONT=Times New Roman, serif]b = a + b = 12 + 8 = 20[/FONT]
    [FONT=Times New Roman, serif]Do đó[/FONT]
    [FONT=Times New Roman, serif]a[/FONT][FONT=Times New Roman, serif] =12 (vì không có biến nào tham chiếu đến a ở ngoài hàm).[/FONT]
    [FONT=Times New Roman, serif]b =12 (vì a trong hàm tham chiếu đến b ngoài hàm nên khi a trong hàm thay đổi thì b ngoài hàm cũng thay đổi theo).[/FONT]


    [FONT=Times New Roman, serif]Kết quả:[/FONT]
    [FONT=Times New Roman, serif]a = 12[/FONT]
    [FONT=Times New Roman, serif]b = 12[/FONT]
    [FONT=Times New Roman, serif]a =12 [/FONT]
    [FONT=Times New Roman, serif]b = 4[/FONT]










    [FONT=Times New Roman, serif]Câu 2[/FONT]
    ‘[FONT=Times New Roman, serif]Phần khai báo General: [/FONT]
    [FONT=Times New Roman, serif]Dim a(1 to 100) as integer[/FONT]
    [FONT=Times New Roman, serif]Dim n as integer[/FONT]


    [FONT=Times New Roman, serif]a)[/FONT]
    [FONT=Times New Roman, serif]Private Sub cmdnhap_Click()[/FONT]
    [FONT=Times New Roman, serif]Dim i As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim s As String[/FONT]
    [FONT=Times New Roman, serif]Dim s1 As String[/FONT]
    [FONT=Times New Roman, serif]Do[/FONT]
    [FONT=Times New Roman, serif]s1 = InputBox("Nhap so phan tu cua mang")[/FONT]
    [FONT=Times New Roman, serif]Loop Until Val(s1) >= 2 And Val(s1) <= 100[/FONT]
    [FONT=Times New Roman, serif]n = Val(s1)[/FONT]
    [FONT=Times New Roman, serif]For i = 1 To n - 1[/FONT]
    [FONT=Times New Roman, serif]Do[/FONT]
    [FONT=Times New Roman, serif]s = InputBox("A(" + Str(i) + ")=")[/FONT]
    [FONT=Times New Roman, serif]Loop Until Val(s) > 1[/FONT]
    [FONT=Times New Roman, serif]a(i) = Val(s)[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]For i = 1 To n - 1[/FONT]
    [FONT=Times New Roman, serif]txtnhap = txtnhap + Str(a(i)) + " "[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]b[/FONT][FONT=Times New Roman, serif])[/FONT][FONT=Times New Roman, serif] [/FONT]
    [FONT=Times New Roman, serif]Private Sub cmdtongsnt_Click()[/FONT]
    [FONT=Times New Roman, serif]Dim i As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim j As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim s As String[/FONT]
    [FONT=Times New Roman, serif]Dim vt As String[/FONT]
    [FONT=Times New Roman, serif]Dim tong As Long[/FONT]
    [FONT=Times New Roman, serif]For i = 1 To n - 1[/FONT]
    [FONT=Times New Roman, serif]j = 2[/FONT]
    [FONT=Times New Roman, serif]Do While j < a(i) And a(i) Mod j <> 0[/FONT]
    [FONT=Times New Roman, serif]j = j + 1[/FONT]
    [FONT=Times New Roman, serif]Loop[/FONT]
    [FONT=Times New Roman, serif]If j = a(i) Then[/FONT]
    [FONT=Times New Roman, serif]tong = tong + a(i)[/FONT]
    [FONT=Times New Roman, serif]s = s + Str(a(i)) + " "[/FONT]
    [FONT=Times New Roman, serif]vt = vt + Str(i) + " "[/FONT]
    [FONT=Times New Roman, serif]End If[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]MsgBox "Tong cac phan tu la SNT = " & tong & vbCrLf & "Cac phan tu la SNT: " & s & vbCrLf & "Vi tri cac phan tu la SNT : " & vt[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]c)[/FONT][FONT=Times New Roman, serif] [/FONT]
    [FONT=Times New Roman, serif]Private Sub cmdchenX_Click()[/FONT]
    [FONT=Times New Roman, serif]Dim i As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim x As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim j As Integer[/FONT]
    [FONT=Times New Roman, serif]Dim temp As Integer[/FONT]
    [FONT=Times New Roman, serif]x = InputBox("chen phan tu x")[/FONT]
    [FONT=Times New Roman, serif]For i = 1 To n - 2[/FONT]
    [FONT=Times New Roman, serif]For j = i + 1 To n - 1[/FONT]
    [FONT=Times New Roman, serif]If a(i) > a(j) Then[/FONT]
    [FONT=Times New Roman, serif]temp = a(i)[/FONT]
    [FONT=Times New Roman, serif]a(i) = a(j)[/FONT]
    [FONT=Times New Roman, serif]a(j) = temp[/FONT]
    [FONT=Times New Roman, serif]End If[/FONT]
    [FONT=Times New Roman, serif]Next j[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]'Chen day tang[/FONT]
    [FONT=Times New Roman, serif]j = 1[/FONT]
    [FONT=Times New Roman, serif]Do While x > a(j)[/FONT]
    [FONT=Times New Roman, serif]j = j + 1[/FONT]
    [FONT=Times New Roman, serif]Loop[/FONT]
    [FONT=Times New Roman, serif]For i = n - 1 To j Step -1[/FONT]
    [FONT=Times New Roman, serif]a(i + 1) = a(i)[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]a(j) = x[/FONT]
    [FONT=Times New Roman, serif]txtkq.Text = ""[/FONT]
    [FONT=Times New Roman, serif]For i = 1 To n[/FONT]
    [FONT=Times New Roman, serif]txtkq.Text = txtkq.Text + Str(a(i)) + " "[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]d[/FONT][FONT=Times New Roman, serif])[/FONT]
    [FONT=Times New Roman, serif]Private Sub cmdthoat_Click()[/FONT]
    [FONT=Times New Roman, serif]Unload Me[/FONT]
    [FONT=Times New Roman, serif]'End[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]Câu 3a[/FONT]
    [FONT=Times New Roman, serif]Private Sub cmdchuanhoa_Click()[/FONT][FONT=Times New Roman, serif] [/FONT]
    [FONT=Times New Roman, serif]Dim s, s1, s2 As String[/FONT]
    [FONT=Times New Roman, serif]Dim d, i As Integer[/FONT]


    [FONT=Times New Roman, serif]d = Len(s)[/FONT]
    [FONT=Times New Roman, serif]i = InStr(s, " ")[/FONT]
    [FONT=Times New Roman, serif]Do While (i < d) And (i <> 0)[/FONT]
    [FONT=Times New Roman, serif]s1 = s1 + " " + Left(s, i - 1)[/FONT]
    [FONT=Times New Roman, serif]s1 = Trim(s1)[/FONT]
    [FONT=Times New Roman, serif]s = Right(s, d - i)[/FONT]
    [FONT=Times New Roman, serif]d = Len(s)[/FONT]
    [FONT=Times New Roman, serif]i = InStr(s, " ")[/FONT]
    [FONT=Times New Roman, serif]Loop[/FONT]
    [FONT=Times New Roman, serif]Text1.Text = s1 + " " + s[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]Private Sub Cmddaonguoc_Click()[/FONT][FONT=Times New Roman, serif] [/FONT]
    [FONT=Times New Roman, serif]Dim s, s1, s2 As String[/FONT]
    [FONT=Times New Roman, serif]Dim d, i As Integer[/FONT]
    [FONT=Times New Roman, serif]i = InStr(s, " ")[/FONT]
    [FONT=Times New Roman, serif]Do While (i < d) And (i <> 0)[/FONT]
    [FONT=Times New Roman, serif]s1 = Left(s, i - 1) + " " + s1[/FONT]
    [FONT=Times New Roman, serif]s = Right(s, d - i)[/FONT]
    [FONT=Times New Roman, serif]d = Len(s)[/FONT]
    [FONT=Times New Roman, serif]i = InStr(s, " ")[/FONT]
    [FONT=Times New Roman, serif]Loop[/FONT]
    [FONT=Times New Roman, serif]Text1.Text = s + " " + s1[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]Câu[/FONT][FONT=Times New Roman, serif] 3b[/FONT]
    [FONT=Times New Roman, serif]a)[/FONT]
    [FONT=Times New Roman, serif]Private Sub Form_Load()[/FONT]
    [FONT=Times New Roman, serif]Dim i As Integer[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Giam Doc"[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Pho Giam Doc"[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Truong phong"[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Thu quy"[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Nhan vien"[/FONT]
    [FONT=Times New Roman, serif]For i = 0 To 4[/FONT]
    [FONT=Times New Roman, serif]Combo1.ItemData(i) = i[/FONT]
    [FONT=Times New Roman, serif]Next i[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]b[/FONT][FONT=Times New Roman, serif])[/FONT]
    [FONT=Times New Roman, serif]Private Sub Combo1_Click()[/FONT]
    [FONT=Times New Roman, serif]Select Case Combo1.ListIndex[/FONT]
    [FONT=Times New Roman, serif]Case 0[/FONT]
    [FONT=Times New Roman, serif]txtluong = 8000000[/FONT]
    [FONT=Times New Roman, serif]Case 1[/FONT]
    [FONT=Times New Roman, serif]txtluong = 5000000[/FONT]
    [FONT=Times New Roman, serif]Case 2[/FONT]
    [FONT=Times New Roman, serif]txtluong = 3500000[/FONT]
    [FONT=Times New Roman, serif]Case 3[/FONT]
    [FONT=Times New Roman, serif]txtluong = 1500000[/FONT]
    [FONT=Times New Roman, serif]Case 4[/FONT]
    [FONT=Times New Roman, serif]txtluong = 1300000[/FONT]
    [FONT=Times New Roman, serif]End Select[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]c)[/FONT]
    [FONT=Times New Roman, serif]Private Sub nhap_Click()[/FONT]
    [FONT=Times New Roman, serif]List1.AddItem txthoten.Text & " - " & txtluong[/FONT]
    [FONT=Times New Roman, serif]tong = Val(tong) + Val(txtluong)[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]d[/FONT][FONT=Times New Roman, serif])[/FONT]
    [FONT=Times New Roman, serif]Private Sub ketthuc_Click()[/FONT]
    [FONT=Times New Roman, serif]Unload me [/FONT]
    ‘[FONT=Times New Roman, serif]hoặc End[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]


    [FONT=Times New Roman, serif]e)[/FONT]
    [FONT=Times New Roman, serif]Private Sub xoa_Click()[/FONT]
    [FONT=Times New Roman, serif]Dim i As Integer[/FONT]
    [FONT=Times New Roman, serif]If List1.ListIndex <> -1 Then[/FONT]
    [FONT=Times New Roman, serif]List1.RemoveItem List1.ListIndex[/FONT]
    [FONT=Times New Roman, serif]tong = 0[/FONT]
    [FONT=Times New Roman, serif]For i = 0 To List1.ListCount - 1[/FONT]
    [FONT=Times New Roman, serif]tong = Val(tong) + Val(Right(List1.List(i), 7))[/FONT]
    [FONT=Times New Roman, serif]Next[/FONT]
    [FONT=Times New Roman, serif]Else[/FONT]
    [FONT=Times New Roman, serif]MsgBox "Phai chon gia tri can xoa"[/FONT]
    [FONT=Times New Roman, serif]End If[/FONT]
    [FONT=Times New Roman, serif]End Sub[/FONT]
  43. Xuân Hiếu Phạm Xuân Hiếu

    Số bài viết: 2,124
    Đã được thích: 2
    Điểm thành tích: 38
  44. 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
    nếu được dùng hàm ucase thi wá dể rồi...
  45. kmanng21 Member

    Số bài viết: 43
    Đã được thích: 1
    Điểm thành tích: 8
    theo mình thì khi đề yêu cầu nạp chức vụ+lương vào thì mình nên nạp chung luôn
    private sub form_load()
    [FONT=Times New Roman, serif]Combo1.AddItem "Giam Doc"
    combo1.itemdata(0)=
    [/FONT] [FONT=Times New Roman, serif]Combo1.AddItem "Pho Giam Doc"[/FONT]
    [FONT=Times New Roman, serif]combo1.itemdata(1)=[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Truong phong"[/FONT]
    [FONT=Times New Roman, serif]combo1.itemdata(2)=[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Thu quy"
    [/FONT][FONT=Times New Roman, serif]combo1.itemdata(3)=[/FONT]
    [FONT=Times New Roman, serif]Combo1.AddItem "Nhan vien"[/FONT]
    [FONT=Times New Roman, serif]combo1.itemdata(4)=
    end
    [/FONT]
  46. xuantruong62 New Member

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

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

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

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

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

Chia sẻ trang này