Question

VB 6.0中，如何把一个变量声明成16进制的？

VB 6.0中，如何把一个变量声明成16进制的？
或者是能够直接把字符串转成16进制格式的也行

例如 字符串的 A3
转成 16进制的 A3
用于16进制的+1运算的，不胜感激。

Answer 1

任何数据对于计算机都是二进制的，对于计算机来说，没有16进制的说法。
16进制字符串转数字很简单，用Val("&H" & 变量)
例如：
dim x as string,y as integer
x="A3"
y=val("&H" & x)

Answer 2

public a(20) as integer '申请一个全局变量数组 数组的下界为0上界为20

要设定下界
option base 1 '下界为1 就是从1开始
public a(20) as integer

我也刚学VB几十天 有问题需要一起探讨的 +Q 675185488 注明是百度VB

Answer 3

Hex（Convert.ToInt64(A3, 16) ）

追问

如果我字符串A3 的值，是赋给了变量A的，那用这个命令不行啊。。
我要把变量转成16进制的，或者是变量的值转成16进制。。

追答

不好意思我回答的这个是将10进制转换为16进制的
您看看下面这个吧 抱歉
Hex$(x) 是把10进制的数字变成16进制
如y=Hex$(10)就是求10的十六进制数 那么 y=A

字母，数字，和汉字的asc码都只要用asc（）这个函数就可以求出来了

你把问题写写清楚的话，我可以写下代码
Option Explicit
Dim aa$, bb$, hexstr$, I&, S

Private Sub Command1_Click()
Dim lendd As Integer, n As Integer
lendd = Len(Text2.Text)
Text3.Text = ""
n = 0
For I = lendd To 1 Step -1
n = n + 1
Text3.Text = Text3.Text + Mid(Text2.Text, I, 1)

If n = 4 Then Text3.Text = Text3.Text & "-": n = 0

Next I

End Sub

Private Sub command2_Click()
aa = ""
If Text1.Text = "" Then Exit Sub
For I = 1 To Len(Text1.Text)
aa = aa & CStr(ZFto16(Mid(Text1.Text, I, 1)))
Next I
Text2.Text = Trim(aa)
Text1.Text = ""
End Sub
Public Function ZFto16(hz$) As String
If hz = "" Then Exit Function
ZFto16 = Hex(Asc(hz))
End Function
Public Function ZF16toZF(hexstr$) As String
If hz = "" Then Exit Function
ZF16toZF = Chr("&H" & hexstr)
End Function

Answer 4

MessageBox.Show(Convert.ToInt32("000f", 16))