1樓：司徒驚月
用迴圈取字串的每個字元，並用函式取得它的asc碼賦值給陣列就可以了
排序就用2層迴圈匹配就可以了
2樓：匿名使用者
private sub command1_click()redim a(len(text1.text))for i = 1 to len(text1.text)a(i) = asc(mid(text1.
text, i, i))next i
for i = len(text1.text) to 1 step -1
for j = 1 to i - 1
if a(j) < a(j + 1) thent = a(j)
a(j) = a(j + 1)
a(j + 1) = t
end if
next j
next i
print "排序後的結果是："
for i = 1 to len(text1.text)print chr(a(i));
next i
for i = len(text1.text) to 1 step -1
print chr(a(i));
next i
end sub
3樓：匿名使用者
option explicit
dim stemp as string
dim ytemp() as byte
private sub command1_click()ytemp = strconv(stemp, vbfromunicode)
debug.print ubound(ytemp)end sub
private sub form_load()stemp = "vb字串轉換成asc碼的問題"
debug.print len(stemp)end sub
怎麼把vb中的把asc碼轉換成字元
4樓：匿名使用者
private sub command1_click()mm$ = ""
n = len(text1.text)
for i = 1 to n
b$ = mid$(text1.text, i, 1)c$ = chr（asc(b$) - 10）mm$ = mm$ & c$
next
label1.caption = mm$
end sub
這樣就好了
vb裡怎麼把字元轉成ascii碼啊？
5樓：du瓶邪
cc="sadsad"
aa=""
do until len(cc)=0
aa=aa & asc(cc) & ","
cc=right(cc,len(cc)-1)loop
aa中儲存的就是ascii碼串
do...loop是迴圈語句，len()是求字串長度的函式，do until len(cc)=0意思是如果字串的長度為0就不再執行do...loop之間的兩行語句了。
right()是擷取子字串函式，cc=right(cc,len(cc)-1)執行的結果是去掉最左邊的一個字元。
6樓：
asc() 字元轉成 ascii碼
chr() ascii碼 轉成字元
求vb中將字串轉換為16進位制的ascii碼
7樓：
dim i as integer
text2=""
for i = 1 to len(text1)text2 = text2 + format(hex(asc(mid(text1, i, 1))),"0000")
next
以上為熱心網友的結果，只是為了準確轉換數字與漢字，加了一點東西.
8樓：
text2.text = hex(asc(text1.text))
該死,這樣不行.
9樓：匿名使用者
private sub command1_click()for i = 1 to len(text1.text)n = jinzhizhuanh(asc(mid(text1.text, i, 1)))
jieguo = jieguo & n & " "
next i
text2.text = jieguo
end sub
function jinzhizhuanh(n as integer) as string
dim a(15) as string
b = "0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"
for i = 0 to 15
a(i) = split(b, ",")(i)next i
do while n > 15
s = int(n / 16)
k = a(n - s * 16) & kn = s
loop
k = a(n) & k
jinzhizhuanh = k
end function
用vb把字串轉ascii碼的問題，很簡單的
10樓：匿名使用者
chr(97) & chr(68)
11樓：網海1書生
s = "head"
t = ""
for i = 1 to len(s)
t = t & chr(asc(mid(s, i, 1)) - 29)
next
msgbox t
vb的問題。我想要單擊command1之後將text1中輸入的字元轉化成asc碼，並顯示在text 15
12樓：匿名使用者
private sub command1_click() '加密按鈕'此功能只能讀取到一個字元
text2.text = asc(text1.text)end sub
'輸入框為text1
'加密框: text2
'解密框: text3
private sub command2_click() '解密按鈕text3.text = chr(text2.text)end sub
介面你自己設計吧，，，不上傳了
13樓：小五哥
這問題很簡單。真的。
vb序列通訊中如何將十六進位制數值轉換成asc碼
14樓：夜來雨早來晴
asc 函式
返回一個 integer，代表字串中首字母的字元**。
語法asc(string)
必要的 string 引數可以是任何有效的字串表示式。如果 string 中沒有包含任何字元，則會產生執行時錯誤。
說明在非 dbcs 系統下，返回值範圍為 0 – 255 。在 dbcs
系統下，則為 -32768 – 32767。
注意 ascb
函式作用於包含在字串中的位元組資料，ascb 返回第一個位元組的字元**，而非字元的字元**。ascw 函式返回 unicode 字元**，若平臺不支援 unicode，則與 asc
函式功能相同。
asc 函式示例
本示例使用 asc 函式返回字串首字母的字元值（ascii 值）。
dim mynumber
mynumber = asc("a") ' 返回 65。
mynumber = asc("a") ' 返回 97。
mynumber = asc("要") ' 返回 -11606
15樓：一○○度
private sub command1_click()
dim h as string, nstr as string, i as long
h = "31"
nstr = chr("&h" & h) '16進碼「31」轉變為數字字元 1
print nstr
h = "6d"
nstr = chr("&h" & h) '16進碼「6d」轉變為字母 m
print nstr
nstr = "可顯的 ascii 碼 33 到 126："
for i = 33 to 126
nstr = nstr & i & " " & chr(i) & " "
next
print nstr
text1.text = nstr
end sub
c字串如何轉化為數字C，怎麼把字元轉換成數字
你可以叫 stringstream 和 vector 幫忙。下面的 裡 dbl array 既是你要建立的實數陣列 real 代表你讀到的字串 include include include using namespace std int main 值得一提的是，vector 可以被當成陣列來用，而...
16進位制字串轉換成數字的問題，C ,16進位制轉化問題，字串轉化成數字
long ltemp strtol 0xa10b null,16 這樣的話,就將0xa10b這個十六制形式的字串轉為十進位制的數字了.注 strtol的功能就是將字串轉為數字,而後面的16就是進位制,根據需要,你可以是二進位制,八進位制,十進位制,或是十六進位制應該都是可以的.如果出現以下情形之一，...
c語言程式設計用遞迴法將整數n轉換成字串
1 新建一個工程和.c檔案 輸入標頭檔案和主函式。2 宣告被呼叫的函式，定義變數型別。3 輸入整數。4 用一個if語句去判斷整數是否為負數，若為負數則用putchar函式輸出一個負號。5 呼叫一個函式。6 定義函式的返回型別和形參型別。7 通過if語句判斷該數是否僅剩一位數，若不是則執行else語句...