下面程序是把给定的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
| 
