懂VB的进来

懂VB的进来

hex将数字转换为16进制
clng("&h"&十六进制文本)
eg：
------
Dim a

a="ff"

MsgBox clng("&h"&a)eg：
-----
Dim a
a=255
MsgBox hex(a)

msgbox hex(255)

MsgBox ("255转换为十六进制：" & Hex(255))
MsgBox ("ff转换为十进制：" & CInt("&H" & "ff"))

VB中涉及到的数据进制之间的转换函数主要有如下几个:
Hex 函数: 返回代表十六进制数值的 String;
Oct 函数: 返回代表一数值的八进制值的Variant (String);
Cint函数: 强制将一个表达式转换成-32,768 至 32,767的整型;
CLng函数: 强制将一个表达式转换成-2,147,483,648 至 2,147,483,647的长整型;
Cdec函数: 强制将一个表达式转换成Decimal 数据类型;
CDbl函数: 强制将一个表达式转换成Double 数据类型;

以上这些函数是最基本的几个数据进制之间的转换函数,其中以前三个函数最常用,也最有用.从上面几个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成十进制和二进制,不过十进制的转换我们可以通过Cint函数轻松完成,而二进制的实现我们可以通过二进制和八进制,十六进制的关系轻松转换.

下面几个例子为Hex函数和Oct函数以及Cint函数的实例:
(1). A= hex(5) 返回5;
(2). B=hex(10) 返回A
(3). C=hex(23) 返回17
(4). D=oct(5) 返回5
(5). E=oct(10) 返回12
(6). F=oct(23) 返回27
(7). G=Cint(&H17) 返回23
(8) . H=Cint(&O12) 返回10