求助

ydxydx

VB中如何将数字3032215713转为十六进制？

飘云

需要处理大数

1. Private Sub Command1_Click()
   
2. test = dectohex(3032215713#)
   
3. MsgBox test'结果为：B4BBF0A1
   
4. End Sub
   
5. 
   
6. '***************************************************************
   
7. '函数名称：10-->16进制转换
   
8. '***************************************************************
   
9. Function dectohex(ByVal hugenum As String) As String
   
10. Do While Len(hugenum) > 2
    
11. dectohex = Hex(Val(Right(hugenum, 4)) Mod 16) & dectohex
    
12. For I = 1 To 4
    
13. hugenum = half(hugenum)
    
14. Next
    
15. Loop
    
16. dectohex = Hex(Val(hugenum)) & dectohex
    
17. End Function
    
18. '***************************************************************
    
19. '函数名称：取半
    
20. '***************************************************************
    
21. Function half(ByVal X As String) As String '
    
22. X = 0 & X
    
23. Dim I As Long
    
24. ReDim result(2 To Len(X)) As String
    
25. For I = 2 To Len(X)
    
26. result(I) = CStr(Val(Mid(X, I, 1)) \ 2 + IIf(Val(Mid(X, I - 1, 1)) Mod 2 = 1, 5, 0))
    
27. Next
    
28. half = Join(result, "")
    
29. If Left(half, 1) = "0" Then half = Right(half, Len(half) - 1)
    
30. End Function

复制代码

小子贼野

好长的代码，看不懂，对VB不感兴趣

ydxydx

谢谢老大！有些代码一时间还搞不明白，下来慢慢学习。根据老大的提示，本人想了一个简单一点的，不知可不可以？
  Private   Sub   Command1_Click()   
  Dim   Y   As   Double,   X  As   String   
  Y= 3032215713#
  Do   While  Y  >  10000   
  X   =   Hex(Val(Right(Y,   4))   Mod   16)   &  X  
   Y =   Int(Y  /   16)   
  Loop   
  X   =   Hex(a)   &  X  
  MsgBox   X   
  End   Sub