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