急！！请教，vb中如何把十六进制数转换为十进制

Question

我用cint来转换，怎么老是说类型不匹配？cint(&HAA)没问题，但是我用变量就出错了，如下：cint(h) ' h 是十六进制的一个变量请问是什么地方有问题，如何解决。

Answer 1

没问题的，可能是变量超过了整形的最大值，用CLNG试试

Answer 2

不需要转换啊。
str1＝"a1"
val（"&H"&str1)

Answer 3

同意diyee的做法
例如16進制intHex=2A10
    dim intTen as integer
　　intTen=&H2A10
得出的intTen就是10進制數了。

Answer 4

如果不是16进制字串的话，没有必要转换：Option Explicit
Private Sub Command1_Click()
    Dim h As Integer
    h = &HAA
    MsgBox CInt(h)
    MsgBox h
End Sub至于类型不匹配，请仔细检查数据类型前后是否一致及变量的取值是否溢出

Answer 5

Up在推存一个VB小工具软件名称：VB代码计算器
软件类型：编程工具
编程环境：VB6 + SP5
适用系统：Win9x/2k/XP■ 软件介绍本程序能显示出你编写的VB源代码一共写了多少行，同时也支持其他类型的文件计算。特点：①界面美观，操作方便，你只需拖动你保存好的VB工程（组）文件到本程序窗口就可显示出源代码的总行数。②能自动分析VB工程（组）内包含的文件（这是可选的，也可以不自动分析并把他当作普通文件计算），并分别计算出每个文件所包含源代码的行数。③能自动隔离VB文件中由VB自动生成的代码，只计算用户输入的源代码，并可选择是否要排除空行或注释行的计算。④支持计算非VB文件，如文本文件、ini文件等。计算该类文件时只能排除空行的计算，其他只要不是空行都会累加到总行数中。⑤可暂停正在计算中的任务。⑥可以保存计算结果和被计算文件列表为文本文件，方便以后查询或打印输出。
下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm
天空软件 http://www.skycn.com/soft/12423.html