在TEXT里輸入一串16進制的數字如：1A2C4B5F....那怎么定義1=a(0),A=a(1),2=a(3)....第N+1個=a(n)?。颗e的例子好象犯了低級錯誤...應該是一個字節一個字節的取值....在TEXT里輸入一串16進制的數字如：1A2C4B5F....
2 回答
喵喵時光機
TA貢獻1846條經驗 獲得超7個贊
進制轉化
a
=
CCur("&H"
&
a)
CCur
函數
返回表達式，此表達式已被轉換為
Currency
子類型的
Variant。
CCur(expression)
expression
參數是任意有效的表達式。
說明
通常，您可以使用子類型數據轉換函數書寫代碼，以顯示某些操作的結果應當被表達為特定的數據類型，
而非默認的數據類型。例如在整數運算的情況下，使用
CCur
函數強制進行貨幣計算。
CCur
函數用于進行從其他數據類型到
Currency
子類型的國際公認的格式轉換。例如，對十進制分隔
符和千位分隔符的識別取決于系統的區域設置。
下面的示例使用
CCur
函數將一個表達式轉換成
Currency
類型:
Dim
MyDouble,
MyCurr
MyDouble
=
543.214588
'
MyDouble
是雙精度的。
MyCurr
=
CCur(MyDouble
*
2)
'把
MyDouble
*
2
(1086.429176)
的結果轉換為
Currency(1086.4292)。
墨色風雨
TA貢獻1853條經驗 獲得超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
提交
取消