vb编程十进制/十六进制/二进制间的转换代码

2020年5月31日21:16:06 发表评论 157 views

vb编程十进制/十六进制/二进制间的转换代码


1,十进制转十六进制

vb编程十进制/十六进制/二进制间的转换代码Function Dec2Hex(value As StringAs String
vb编程十进制/十六进制/二进制间的转换代码    value 
= Trim$(value)
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码    
If Len(value) = 0 Then
vb编程十进制/十六进制/二进制间的转换代码        Dec2Hex 
= ""
vb编程十进制/十六进制/二进制间的转换代码    
Else
vb编程十进制/十六进制/二进制间的转换代码        Dec2Hex 
= Hex(value)
vb编程十进制/十六进制/二进制间的转换代码    
End If
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码    
If Len(Dec2Hex) = 1 Then
vb编程十进制/十六进制/二进制间的转换代码        Dec2Hex 
= "0" & Dec2Hex
vb编程十进制/十六进制/二进制间的转换代码    
ElseIf Len(Dec2Hex) <> 2 Then
vb编程十进制/十六进制/二进制间的转换代码        Dec2Hex 
= "ERR"
vb编程十进制/十六进制/二进制间的转换代码        
MsgBox ("変数の長さはただしくない")
vb编程十进制/十六进制/二进制间的转换代码    
End If
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
End Function
vb编程十进制/十六进制/二进制间的转换代码

 

2,十六进制转十进制

vb编程十进制/十六进制/二进制间的转换代码Function Hex2Dec(value As StringAs Byte
vb编程十进制/十六进制/二进制间的转换代码    value 
= Trim$(value)
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码    
If Len(value) = 0 Then
vb编程十进制/十六进制/二进制间的转换代码        
MsgBox "error"
vb编程十进制/十六进制/二进制间的转换代码        
Exit Function
vb编程十进制/十六进制/二进制间的转换代码    
End If
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码    Hex2Dec 
= CByte("&H" & value)
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
End Function

 

2,十进制转二进制

以下VB函数可以完成十进制转换二进制的工作。另外,这个函数还加入了对二进制长度的判断,如果转换出来的二进制长度低于最小值,函数会自动在二进制字符串前补0。

vb编程十进制/十六进制/二进制间的转换代码Public Function DecimalToBinary(DecimalValue As Long, MinimumDigits As Integer)
vb编程十进制/十六进制/二进制间的转换代码
As String
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
' Returns a string containing the binary
vb编程十进制/十六进制/二进制间的转换代码'
 representation of a positive integer.
vb编程十进制/十六进制/二进制间的转换代码

vb编程十进制/十六进制/二进制间的转换代码
Dim result As String
vb编程十进制/十六进制/二进制间的转换代码
Dim ExtraDigitsNeeded As Integer
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
' Make sure value is not negative.
vb编程十进制/十六进制/二进制间的转换代码
DecimalValue = Abs(DecimalValue)
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
' Construct the binary value.
vb编程十进制/十六进制/二进制间的转换代码
Do
vb编程十进制/十六进制/二进制间的转换代码    result 
= CStr(DecimalValue Mod 2& result
vb编程十进制/十六进制/二进制间的转换代码    DecimalValue 
= DecimalValue  2
vb编程十进制/十六进制/二进制间的转换代码
Loop While DecimalValue > 0
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
' Add leading zeros if needed.
vb编程十进制/十六进制/二进制间的转换代码

vb编程十进制/十六进制/二进制间的转换代码ExtraDigitsNeeded 
= MinimumDigits - Len(result)
vb编程十进制/十六进制/二进制间的转换代码
If ExtraDigitsNeeded > 0 Then
vb编程十进制/十六进制/二进制间的转换代码    result 
= String(ExtraDigitsNeeded, "0"& result
vb编程十进制/十六进制/二进制间的转换代码
End If
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码DecimalToBinary 
= result
vb编程十进制/十六进制/二进制间的转换代码
vb编程十进制/十六进制/二进制间的转换代码
End Function 

发表评论

您必须才能发表评论!