下面程序是把给定的16进制正整数转换为10进制数。 以下是引用片段:
Option Explicit
Private Sub Form_Click()
Dim St As Integer, Dem As Long
St=InputBox("输入一个十六进制数")
Dem=Convert(St)
Print St; ">="; Dem
End Sub
Private Function Convert(S As String)As Long
Dim N As Integer, I As Integer,Substring As String*1
Dim P As long, K As Long,Asc1 As Integer
N= (1)
P=16^N
For I=1 To N
P=P/16
Substring= (2)
Select Case Substring
Case "0" To "9"
K=K+P*Val(Substring)
Case (3)
Asc1=Asc(Substring)-Asc("A")+10
(4)
End Select
Next I