vb6 将16进制转二进制、八进制的代码？？
分两步，先八进制转十进制，再十进制转二进制即可。
Private Sub Command1_Click()Text2 = OCT_to_DEC(Trim(Text1))Text2 = DEC_to_BIN(CStr(Text2))End SubPublic Function OCT_to_DEC(ByVal Oct As String) As Long '八进制转十进制Dim i As LongDim B As Long For i = 1 To Len(Oct) Select Case Mid(Oct, Len(Oct) - i + 1, 1) Case "0": B = B + 8 ^ (i - 1) * 0 Case "1": B = B + 8 ^ (i - 1) * 1 Case "2": B = B + 8 ^ (i - 1) * 2 Case "3": B = B + 8 ^ (i - 1) * 3 Case "4": B = B + 8 ^ (i - 1) * 4 Case "5": B = B + 8 ^ (i - 1) * 5 Case "6": B = B + 8 ^ (i - 1) * 6 Case "7": B = B + 8 ^ (i - 1) * 7 End Select Next i OCT_to_DEC = BEnd FunctionPublic Function DEC_to_BIN(Dec As Long) As String '十进制转二进制DEC_to_BIN = "" Do While Dec > 0DEC_to_BIN = Dec Mod 2 & DEC_to_BINDec = Dec \ 2LoopEnd Function
1.运行“MicrosoftVisualStudio2010”。
2.当弹出“vs”窗口时，找到菜单栏，用鼠标左键点击“文件(f)”选项。知道
3.在弹出的列表中，左键单击标题为“新项目(p)”的项目。
4.在弹出式标题“新建项目”中，用鼠标左键选择标题为“VisualBasic”的项目，再选择标题为“WIndows”的项目。在右边的列表中选择标题“Windows窗体返回应用程序”。
5.在背景为“白色”、标题为“ForM1”的窗口中，双击鼠标左键。
6、在新切换到“代码”页。
7.然后在“PrivateSubForm1_Load(ByValsender作为系统”下编写代码。对象，ByVale作为system.eventargs)处理mybase.load”。就是这样。
' 输入：Bin(二进制数)
' 输入数据类型：String
' 输出：BIN_to_OCT(八进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
Public Function BIN_to_OCT(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 3 <> 0 Then
Bin = String(3 - Len(Bin) Mod 3, "0") & Bin
End If
For i = 1 To Len(Bin) Step 3
Select Case Mid(Bin, i, 3)
Case "000": H = H & "0"
Case "001": H = H & "1"
Case "010": H = H & "2"
Case "011": H = H & "3"
Case "100": H = H & "4"
Case "101": H = H & "5"
Case "110": H = H & "6"
Case "111": H = H & "7"
End Select
Next i
While Left(H, 1) = "0"
H = Right(H, Len(H) - 1)
Wend
BIN_to_OCT = H
End Function
' 用途：将十六进制转化为二进制
' 输入：Hex(十六进制数)
' 输入数据类型：String
' 输出：HEX_to_BIN(二进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
Public Function HEX_to_BIN(ByVal Hex As String) As String
Dim i As Long
Dim B As String
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, i, 1)
Case "0": B = B & "0000"
Case "1": B = B & "0001"
Case "2": B = B & "0010"
Case "3": B = B & "0011"
Case "4": B = B & "0100"
Case "5": B = B & "0101"
Case "6": B = B & "0110"
Case "7": B = B & "0111"
Case "8": B = B & "1000"
Case "9": B = B & "1001"
Case "A": B = B & "1010"
Case "B": B = B & "1011"
Case "C": B = B & "1100"
Case "D": B = B & "1101"
Case "E": B = B & "1110"
Case "F": B = B & "1111"
End Select
Next i
While Left(B, 1) = "0"
B = Right(B, Len(B) - 1)
Wend
HEX_to_BIN = B
End Function
' 用途：将十六进制转化为八进制
' 输入：Hex(十六进制数)
' 输入数据类型：String
' 输出：HEX_to_OCT(八进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
Public Function HEX_to_OCT(ByVal Hex As String) As String
Dim Bin As String
Hex = UCase(Hex)
Bin = HEX_to_BIN(Hex)
HEX_to_OCT = BIN_to_OCT(Bin)
End Function
这不是vb6.0的代码吗？
雀钩百红： 展开全部' 用vb里面的And即可,and可以实现与运算 Option Explicit Function GetBinary(ByVal Hex As String) As String ' 先转为数字 Dim Dec As Long, i As Long Dec = CInt(＂&H＂ + Hex) ' 再获得各个位 Dim Binary As String Dim Mask As Long ...
卫辉市18467911210： VB程序设计:将十进制整数转换为其他进制 - ？
雀钩百红： 您好,这样的: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 Loop End Function 十进制...
卫辉市18467911210： 用VB编写数制转换的程序 - ？
雀钩百红： 编程环境下,Ctrl+E,菜单编辑器,按代码写入 标题:进制转换 名称:Menu(选择“显示菜单列表”)然后按那个“->”标志的按钮 标题:二进制 名称:Tran2 标题:八进制 名称:Tran8 标题:十六进制 名称:Tran16 标题:退出 名称:...
卫辉市18467911210： vb程序设计 编写一个程序 使输入的一个16进制数,转换成2进制数输出 - ？
雀钩百红： Private Sub Command1_Click() Dim i, k, n, t As Integer Dim c As String k = Len(Text1.Text) For i = k To 1 Step -1 c = Mid(Text1, i, 1) If c > ＂0＂ And c < ＂9＂ Then n = Val(c) End If If UCase(c) >= ＂A＂ And UCase(c) <= ＂F＂ Then n = 10 + Asc(...
卫辉市18467911210： vb里有十六进制转十进制的函数吗 - ？
雀钩百红： VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的 String; Oct 函数: 返回代表一数值的八进制值的Variant (String); Cint函数: 强制将一个表达式转换成-32,768 至 32,767的整型; CLng函数: 强制...
卫辉市18467911210： vb中怎么编写二进制之间的转换??? - ？
雀钩百红： '16进制转换二进制 Public Function HEX_to_BIN(ByVal Hex As String) As String Dim i As Long Dim B As String Hex = UCase(Hex) For i = 1 To Len(Hex) Select Case Mid(Hex, i, 1) Case ＂0＂: B = B & ＂0000＂ Case ＂1＂: B = B & ＂0001＂ ...
卫辉市18467911210： VB 十六进制转化为二进制 - ？
雀钩百红： Function siliuTo2(ByVal su As String) As String'16进制转换为2进制 For i = 1 To Len(su) n = Mid(su, i, 1) Select Case n Case 0 siliuTo2 = siliuTo2 & ＂0000＂ Case 1 siliuTo2 = siliuTo2 & ＂0001＂ Case 2 siliuTo2 = siliuTo2 & ＂0010＂ Case 3 ...
卫辉市18467911210： 高分相送 ,求VB的16进制转2进制方法 - ？
雀钩百红： 16进制数转换成十进制16进制转换成二进制等(1KB) http://vb.xin-soft.com/resource/code/OTHER/o011.zip 转换二进制数为16进制数(1KB) http://vb.xin-soft.com/resource/code/OTHER/o010.zip
卫辉市18467911210： vb中将任意进制数转化为二进制数程序 - ？
雀钩百红： 下面是把十进制整数转化为二进制的程序 Private Sub Command1_Click() Dim m As Variant Dim n As Variant Dim mod1() Dim mod2() Dim ci As Integer m = Val(Text1.Text) For a = 0 To 100 If 2 ^ a > m Then ci = a Exit For End If Next n = ＂＂ If m ...
卫辉市18467911210： 怎么把十六进制转化为八进制 - ？
雀钩百红： 十六进制转化为八进制的方法有两种,如下: 第一种:他们之间的转换可以先转成二进制然后再相互转换. 第二种:他们之间的转换可以先转成十进制然后再相互转换. 十六进制(英文名称:Hexadecimal),是计算机中数据的一种表示方法...
