武隆集团网站建设微信小程序开发实战

VB将十进制整数转换成16进制以内的任意进制数

'数值转换，能够将十进制整数转换成16进制以内的任意进制数
Private Function DecToN(ByVal x%, ByVal n%) As StringDim p() As String, y$, r%p = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F", ",")If n > 16 ThenDecToN = ""Exit FunctionEnd Ify = ""Dor = x Mod nx = x \ ny = p(r) & yLoop Until x = 0DecToN = y
End Function
Private Sub Command1_Click()Dim x%, n%, y$x = InputBox("请输入待转换的十进制整数！", "数值转换", 0)n = InputBox("请输入需要的进制，注意不要大于16", "数值转换", 2)y = DecToN(x, n)If y <> "" ThenMsgBox "转换结果：" & DecToN(x, n)ElseMsgBox "对不起！本程序不能转换超过16的进制！"End If
End Sub