进制转换问题？？

[游子]

我要把16进制转换成10进制，例如我在text1里输入00005 点计算按钮 text2显示为：00005 如果text1为：0000F 那么text2=000015 如果text1为：000FF 那么text2=0001515
就像这样的 怎么写啊？？

[CathySun118]

LZ的想法很奇怪

[用户 昵称]

你这想法很特殊啊，不过照你的说法，直接mid出来就可以了。

[用户 昵称]

Option Explicit

Private Function conv(ByVal s As String) As String
    Dim i As Long
    Dim l As Long
    
    Dim c As String
    Dim ss As String
    
    l = Len(s)
    For i = 1 To l
        c = Mid(s, i, 1)
        ss = ss & Trim$(CStr(Val("&H" & c)))
    Next i
    conv = ss
End Function
Private Sub Command1_Click()
    Debug.Print conv("00005")
    Debug.Print conv("0000F")
    Debug.Print conv("000FF")
End Sub

[波导终结者]

000FF为什么会变成0001515 ？奇怪的要求

[wxrwan]

你的这种想法有问题
000FF为什么会变成0001515，如果变成0000001515还是对的，否则从0001515还原成16进制就不知道是还原成000FF还是0001515了。