Ai giỏi về VB 6.0 giúp mình giải bài này với: Giao Diện thì gồm có:Label(Nhập chuỗi bất kỳ),textbox,listbox, và 2 command button(gồm nút thực hiện và thoát) Yêu cầu là: Khi nhập 1 chuỗi bất kỳ vào trong textbox (vd:aab67t) nhấn nút lệnh "Thực hiện" thì chuỗi vừa nhập vào được hiển thị trong listbox theo dạng tách ra từng phần, vd như: Có 2 kí tự a Có 1 kí tự b Có 1 kí tự 6 Có 1 kí tự 7 Có 1 kí tự t Làm theo 2 cấu trúc lặp Do White và For, bạn nào biết thì giúp mình với, cảm ơn các bạn rất nhiều mình đang cần gấp vì sắp thi đến nơi rồi
mình chỉ bít chút ít về VB6 thui, nói ra để bạn tham khảo nhá: bạn tạo sự kiện khi click vào button thực hiện >> gettext ở textbox >>được 1 xâu, rồi dùng thuật toán tách từ (cái này dễ) sau đó add vào listbox là xong
nói thuật giải thôi nhé có 2 cách text là chuỗi nhập vào cách 1: dem = 1; s là kí tự đầu tiên cho s chạy từ kí tự đầu tiên đến hết chuỗi, nếu thấy kí tự nào giống s thì { dem +=1 xóa kí tự đó đi} khi hết thì chuỗi đó sẽ mất toàn bộ những kí tự giống kí tự đầu tiên và dem sẽ là số lần xuất hiện của kí tự đó trong chuỗi tiếp tục cho dem = 0, và làm lại, cho đến khi hết cách 2: dùng mảng 2 chiều
Mình có thể xài lệnh for được nè kết hợp array.... Mình sẽ cho 1 tham số đi từ đầu đến cuối mảng. Thêm cái vụ increment nữa đó. VD như trong C là chucai++. Còn việc tách ra và lấy những ký tự ra thì mình không biết.... Để mình đi hỏi vài người hoặc là về suy nghĩ tý.. Nếu có thì trả lời bạn....
Cảm ơn các bạn rất nhiều 30 cục chả30 cục chả30 cục chả30 cục chả30 cục chả30 cục chả30 cục chả30 cục chả30 cục chả
Dễ thôi Bạn làm 1 mảng A có các phần tử là các số trong bảng mã ASCII sau đó VD họ nhập chữ tungnhoi thì bạn for từ kí tự đầu đến kí tự cuối sau đó A[ord( Kí tự đó ) ] = A[ord( Kí tự đó ) ] + 1 sau đó for i từ phần tử 1 đến 255 kiểm tra nếu A > 0 then list1.additem ord(i) & " - " & str(a) & "kí tự"
