那该怎么定义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类型:DimMyDouble,MyCurrMyDouble=543.214588'MyDouble是双精度的。MyCurr=CCur(MyDouble*2)'把MyDouble*2(1086.429176)的结果转换为Currency(1086.4292)。

Answer 2

用以下程序片断来解决Dim LLen As LongDim ArrayA() as byteDim LCount as LongLLen=len(Text1.text)Redim ArrayA(LLen) as bytefor LCount=1 to LLenArrayA(LCount-1)=asc(mid(text1.text,LCount,1))next LCount