怎样用VB实现八进制和十六进制的相互转换

不能用函数代替，希望能帮帮我，谢谢

举报该问题

第1个回答 2008-05-29

问题很简单，就是写起来麻烦。
转换思路如下：
1.参数只能是8进制数的字符串形式，例如：“32”，表示3*8+2这个数，函数返回的应该是16进制的字符串。
2.使用VB超强的字符串函数，把参数字串从右到左逐位读出、同步按位加权累加得到这个字串的对应数值V
3.返回字符串 = Cstr(Hex(V))本回答被提问者采纳

相似回答

VB程序。将一个十进制数分别转换成二,八,十六进制数。答：1.运行“MicrosoftVisualStudio2010”。2.当弹出“vs”窗口时，找到菜单栏，用鼠标左键点击“文件(f)”选项。知道 3.在弹出的列表中，左键单击标题为“新项目(p)”的项目。4.在弹出式标题“新建项目”中，用鼠标左键选择标题为“VisualBasic”的项目，再选择标题为“WIndows”的项目。在右边的列表中...

...个十进制N转换成分别用二进制,八进制和十六进制的数(用sub实现...答：Case "7": B = B + 8 ^ (i - 1) * 7 End Select Next i OCT_to_DEC = BEnd Function' 用途:将二 进制转化为八进制' 输入:Bin(二进制数)' 输入数据类型:String' 输出:BIN_to_OCT(八进制数)' 输出数据类型:String' 输入的最大数为2147483647个字符Public Function BIN_to_OCT(ByVal Bin...

vb常用函数答：（1）转换函数函数名功能 Int(x) 返回不大于自变量的最大整数。Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。Hex(x) 把一个十进制数转换成为十六进制数。Oct(x) 把一个十进制数转换成为八进制数。Asc(x) 返回字符串中第一个字符的ASCII码。Chr(x) 把值转换为相应的ASCII字符。Str(...

vb进制转换代码?答：' 用途:将十六进制转化为八进制' 输入: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_...

请求VB编程一个二八十 十六进制相互转化的程序,请求能给我窗体文件...答：Sub Command4_Click()'16 to 2txt2.Text = HEX_to_BIN(txt16.Text)'16 to 8txt8.Text = HEX_to_OCT(txt16.Text)'16 to 10txt10.Text = HEX_to_DEC(txt16.Text)End Sub模块' 用途：将十进制转化为二进制' 输入：Dec(十进制数)' 输入数据类型：Long' 输出：DEC_to_BIN(二进制数...

用VB编写数制转换的程序答：编程环境下，Ctrl+E,菜单编辑器，按代码写入标题：进制转换 名称：Menu（选择“显示菜单列表”）然后按那个“->”标志的按钮标题：二进制名称：Tran2 标题：八进制 名称：Tran8 标题：十六进制 名称：Tran16 标题：退出名称：Quit(选择“显示菜单列表”）Option Base 1 Dim arr() As...

VB数制的转换程序设计答：编程环境下，Ctrl+E,菜单编辑器，按代码写入标题：进制转换 名称：Menu（选择“显示菜单列表”）然后按那个“->”标志的按钮标题：二进制名称：Tran2 标题：八进制 名称：Tran8 标题：十六进制 名称：Tran16 标题：退出名称：Quit(选择“显示菜单列表”）Option Base 1 Dim arr() As...

大家正在搜

八进制和十六进制转换十六进制转换成八进制十进制怎么转十六进制八进制怎么转十进制十进制转十六进制算法八进制转十进制怎么算八进制转换二进制二进制转化为十六进制十进制转八进制