那该怎么定义1A=a(0),2c=a(1),4b=a(3)....一直定义到第i个？

Question

在TEXT里输入一串16进制的数字如：1A2C4B5F....那怎么定义1=a(0),A=a(1),2=a(3)....第N+1个=a(n)啊？举的例子好象犯了低级错误...应该是一个字节一个字节的取值....在TEXT里输入一串16进制的数字如：1A2C4B5F....

Answer 1

进制转化
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)。

Answer 2

用以下程序片断来解决
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