Ai Pro về VB 6.0 giúp mình với!!!

[Summon-Saint]

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

 

[Summon-Saint]

Hic, help mình với sắp thi đến nơi rồi trời ơi, ai vào cứu mình với đi

 

[Raizen]

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

 

[Superhackerboy]

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

 

[Ryomurai]

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....

 

[Summon-Saint]

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ả

 

[tungnhoi]

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ự"