在TEXT里輸入一串16進(jìn)制的數(shù)字如：1A2C4B5F....那怎么定義1=a(0),A=a(1),2=a(3)....第N+1個=a(n)??？舉的例子好象犯了低級錯誤...應(yīng)該是一個字節(jié)一個字節(jié)的取值....在TEXT里輸入一串16進(jìn)制的數(shù)字如：1A2C4B5F....
2 回答
喵喵時光機(jī)
TA貢獻(xiàn)1846條經(jīng)驗 獲得超7個贊
進(jìn)制轉(zhuǎn)化
a
=
CCur("&H"
&
a)
CCur
函數(shù)
返回表達(dá)式，此表達(dá)式已被轉(zhuǎn)換為
Currency
子類型的
Variant。
CCur(expression)
expression
參數(shù)是任意有效的表達(dá)式。
說明
通常，您可以使用子類型數(shù)據(jù)轉(zhuǎn)換函數(shù)書寫代碼，以顯示某些操作的結(jié)果應(yīng)當(dāng)被表達(dá)為特定的數(shù)據(jù)類型，
而非默認(rèn)的數(shù)據(jù)類型。例如在整數(shù)運算的情況下，使用
CCur
函數(shù)強(qiáng)制進(jìn)行貨幣計算。
CCur
函數(shù)用于進(jìn)行從其他數(shù)據(jù)類型到
Currency
子類型的國際公認(rèn)的格式轉(zhuǎn)換。例如，對十進(jìn)制分隔
符和千位分隔符的識別取決于系統(tǒng)的區(qū)域設(shè)置。
下面的示例使用
CCur
函數(shù)將一個表達(dá)式轉(zhuǎn)換成
Currency
類型:
Dim
MyDouble,
MyCurr
MyDouble
=
543.214588
'
MyDouble
是雙精度的。
MyCurr
=
CCur(MyDouble
*
2)
'把
MyDouble
*
2
(1086.429176)
的結(jié)果轉(zhuǎn)換為
Currency(1086.4292)。
墨色風(fēng)雨
TA貢獻(xiàn)1853條經(jīng)驗 獲得超6個贊
用以下程序片斷來解決
Dim LLen As Long
Dim ArrayA() as byte
Dim LCount as Long
LLen=len(Text1.text)
Redim ArrayA(LLen) as byte
for LCount=1 to LLen
ArrayA(LCount-1)=asc(mid(text1.text,LCount,1))
next LCount
添加回答
舉報
0/150
提交
取消