VB將文字框中的漢字按拼音排序

時間 2021-08-11 17:24:57

1樓:匿名使用者

首先將漢字轉為ascii碼陣列,然後對ascii碼陣列排序。再將ascii碼陣列轉換為字元,大功告成了。

以下**經測試完全正確。

dim lasc(j) as long

private sub command1_click()dim i as long, j as long, k as long

dim r as long

dim fs as string

fs = text1.text

j = len(fs) - 1

redim lasc(j)

for i = 0 to j

lasc(i) = asc(mid(fs, i + 1, 1))next

for i = 0 to j - 1

for k = i + 1 to j

if lasc(i) > lasc(k) thenr = lasc(i)

lasc(i) = lasc(k)

lasc(k) = r

end if

next

next

fs = ""

for i = 0 to j

fs = fs & chr(lasc(i))next

text1.text = fs

end sub

2樓:匿名使用者

可以直接按照漢字的ascii值,進行大小排序:

例如:print asc("安") < asc("表")

print asc("別") < asc("稱")

3樓:聽不清啊

private sub command1_click()

a = len(text1.text)

for i = 1 to a - 1

i1 = i

for j = i + 1 to a

if asc(mid(text1.text, j, 1)) < asc(mid(text1.text, i1, 1)) then i1 = j

next j

if i1 > i then

d1$ = mid(text1.text, 1, i - 1)

d2$ = mid(text1.text, i, 1)

d3$ = mid(text1.text, i + 1, i1 - i - 1)

d4$ = mid(text1.text, i1, 1)

d5$ = mid(text1.text, i1 + 1, a - i1)

end if

text1.text = d1$ + d4$ + d3$ + d2$ + d5$

next i

end sub

vb中**如何控制按拼音字母順序來排列

4樓:匿名使用者

'list1的屬

性 sorted設為true

dim i%, j%, h$, x&

private sub command1_click()list1.clear

for i = 16 to 87

for j = 1 to 94

doevents

if chr(x) <> " " then list1.additem chr(x)

next j

next i

end sub

VB中怎麼將文字框中的內容寫入陣列中

private sub command1 click dim a as string a split text1.text,for i 0 to ubound a print a i next end sub 意思是 將文字框裡面的內容以 逗號 處隔開 輸出到窗體上 先定義一個陣列,再用一個for迴...

vb文字框1中的字元反序顯示在文字框2中

網海1書生 text2.text strreverse text1.text private sub command1 click dim m as long,t as long,n as integer m val inputbox 輸入大於1的正整數m 輸入資料 n 1 t 0 do while...

中怎麼刪除文字框,而不刪除文字框中的文字

格式 文字框樣式 形狀輪廓 無輪廓,有圖可以看,這位主要是把輪廓刪除了 由穎 您的目的好像是要插入文字但卻不顯示文字框。可以右擊文字框,設定形狀格式 線條顏色 無線條。這樣的話,文字框就看不見啦 a真相背後 樓主的意思是,文字框中的文字可見,而文字框的邊界不可見,對不對呢?其實,那不叫刪除,而是隱藏...