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真相背後 樓主的意思是，文字框中的文字可見，而文字框的邊界不可見，對不對呢？其實，那不叫刪除，而是隱藏...