VB编程序实现十进制数转换成2、8、16进制数.doc

VB编程序实现十进制数转换成2、8、16进制数十进制转二进制Public Function DECtoBIN(Dec As Long) As String DECtoBIN = Do While Dec 0 DECtoBIN = Dec Mod 2 & DECtoBIN Dec = Dec 2 LoopEnd Function十进制转八进制：VB自带函数：Oct(num)十进制转十六进制：VB自带函数：hex(num) 转换成十六进制 Hex()如：10（十进制）:Hex(10)=A转换成8进制Oct()如：10（十进制）:Oct(10)=12转换成2进制，使用下面的方法采用连除2取余数，将一个十进制数转换为二进制数Dim Dec As Integer 输入一个十进制数Dim Bin As String 转换为二进制表示Dim res As IntegerDim i As IntegerDec = Val(InputBox(x=)Form1.Print 十进制数：; DecDores = Dec Mod 2 求出除以2的余数Bin = res & BinDec = Dec 2Loop While Dec 0Form1.Print 转换为二进制数为：; BinPrivate Sub Command1_Click()Print bin(Text1.Text)End SubFunction bin(n As Long) As StringDo Until n = 0bin = (n Mod 2) & binn = n 2LoopEnd Function十六进制：Hex(number)或使用&H前缀 八进制：Oct(number)或使用&O前缀 二、八、十六进制转为十进制：参数sdate为要进行转换的数，stype为此数的类型。如要将十六进制的7b转为十进制: msgbox OtherToShi(7b,16)Private Function OtherToShi(ByVal Sdate As String, ByVal Stype As Long) As StringDim A As String, K As Long, P As LongIf trim(sdate)= then msgbox 请输入要转换的数！ :Exit functionOn Error GoTo ExitsubP = Len(Sdate)Select Case Stype Case 2 For K = 1 To P If Mid(Sdate, K, 1) 1 Then GoTo Exitsub Next Case 8 If IsNumeric(Sdate) = False Then GoTo Exitsub Sdate = Round(Sdate) p=len(sdate) Case 16 For K = 1 To P A = Asc(LCase(Mid(Sdate, K, 1) If A 49 And A 102 Then GoTo Exitsub Next Case Else 按你说的操作,此句好象可免 MsgBox 指定转换的类型不正确，请重新输入！: Exit FunctionEnd SelectK = 0Do While K 0 S = LTrim(Str(Sdate Mod Stype) If Stype = 16 Then Select Case S Case 10 S = A Case 11 S = B Case 12 S = C Case 13 S = D Case 14 S = E Case 15 S = F End Select End If ShiToOther = S & ShiToOther