vb进制转换程序求指导，求代码～_百度知道
vb进制转换程序求指导，求代码～
是2～16进制的，这要我编多久啊？？在线等哦
提问者采纳
VB自带几个进制转换函数，其余可以直接百度搜索&VB 各种进制相互转换大全&
提问者评价
按照你说的，真的成功了，好开心，谢谢你！
其他类似问题
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = &P&U&
ThreeHexCode = &V&E&
ThreeHexCode = &Z&C&
ThreeHexCode = &G&I&
ThreeHexCode = &
ThreeHexCode = &= 1
Qty = Int(Qty /S&
ThreeHexCode = &Q&R&
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = &H& scaleNum)
Qty = BoxPackQty
For J = I To 1 Step -1
ThreeHexFun = ThreeHexFun & ThreeHexCode(Int(Qty /
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = &
ThreeHexCode = & scaleNum ^ J))
Qty = Qty Mod (scaleNum ^ J)
ThreeHexFun = ThreeHexFun & ThreeHexCode(Qty Mod scaleNum)End Function ‘------对应表Private Function ThreeHexCode(ByVal IntCodeAs Long) As String
Select Case IntCode
ThreeHexCode = &
ThreeHexCode = &O&
ThreeHexCode = &A&
ThreeHexCode = &K&M&
ThreeHexCode = &
ThreeHexCode = &X&D&B&J&F&quot‘------函数为任意进制转换…scaleNum为多少进制…BoxPackQty为数值大小Private Function ThreeHexFun(ByValBoxPackQty As LN&W&
ThreeHexCode = &T&quot, ByVal scaleNum As Long) As String
Dim Qty As Long
Dim I As Long
Qty = BoxPackQty
Do While Int(Qty /L&
ThreeHexCode = & scaleNum) &gt
进制转换的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁计算机二级VB常用算法：进制转化进10进制数
下面程序是把给定的16进制正整数转换为10进制数。 以下是引用片段：
　　Option Explicit
　　Private Sub Form_Click()
　　Dim St As Integer， Dem As Long
　　St=InputBox(&输入一个十六进制数&)
　　Dem=Convert(St)
　　Print St; &&=&; Dem
　　End Sub
　　Private Function Convert(S As String)As Long
　　Dim N As Integer， I As Integer，Substring As String*1
　　Dim P As long， K As Long，Asc1 As Integer
　　N= (1)
　　P=16^N
　　For I=1 To N
　　P=P/16
　　Substring= (2)
　　Select Case Substring
　　Case &0& To &9&
　　K=K+P*Val(Substring)
　　Case (3)
　　Asc1=Asc(Substring)-Asc(&A&)+10
　　End Select
　　Next I
您对本文章有什么意见或着疑问吗？请到您的关注和建议是我们前行的参考和动力&&
您的浏览器不支持嵌入式框架，或者当前配置为不显示嵌入式框架。关于VB 两个十六进制之间的加减的问题？
在两个文本控件中,我想实再两个十六进制之间的加减如:31EA315  +  45EA0123我是这样写法的:Private Sub Text1_Change() Hex(Text3.Text) = Hex(Text1.Text) + Hex(Text2.Text)End Sub提示类型不匹配,应该怎么写法才是正确的？
Private&Sub&Command1_Click()& & Text3&=&Hex(Val(&&H&&&&Text1)&+&Val(&&H&&&&Text2))&'显示16进制字符形式& & Print&Val(&&H&&&&Text1)&+&Val(&&H&&&&Text2)&'显示10进制值&End&Sub&Private&Sub&Form_Load()& & Text1&=&&31EA315&& & Text2&=&&45EA0123&&End&Sub&补充：代码在VB6中调试通过。请问你VB版本？&前代码Text3中显示的就是16进制（字符形式）&MSDN的解释&Hex&函数&返回代表十六进制数值的&String。&按你叙述的修改代码：&Private&Sub&Form_Load()& & Text1&=&&&& & Text2&=&&&&End&Sub&Private&Sub&List1_Click()& & Text1&=&List1&End&Sub&Private&Sub&Text2_KeyPress(KeyAscii&As&Integer)&If&KeyAscii&=&13&Then&Text3&=&Hex(Val(&&H&&&&Text1)&+&Val(&&H&&&&Text2))&'显示16进制字符形式&Print&Val(&&H&&&&Text1)&+&Val(&&H&&&&Text2)&'显示10进制值&End&If&End&Sub&但测试了一下,如果第一个框有A-E的.A-E后面的就不参加运算了&是否你的VB有问题或你语句有错&我的代码按你&第一个框:440A0000&第二个框输入:1&第三个框结果是:440A0001
单！&用VB、Delphi、BCB等编程工具写一个小程序，从数据库或TXT文本里读数据，将16进制的数转换为10进制后，再写入一个新的数据库或TXT文本里，即可。如果想做的话，一会儿就搞定了。&你把数据发送过来，我看一下。不过你要附一些文字，把需求说清楚，以免做出的东西你没有用。&另外:你的EXCEL带密级吗？如果不带的话，就发过来吧。&&我在北京，你在哪里呀？
在控件箱中的Data控件是VB用于数据库操作的控件，双击Data控件或单击后在体上拖动出控件的大小，都可以看到Data控件的外观&1.Data控件的常用属性&（1）Connect属性&Connect属性用来指定该数据控件所要链接的数据库格式，默认值为Access，其他还包括dBASE、FoxPro、Excel等。&（2）DatabaseName属性&DatabaseName属性是用于确定数据控件使用的数据库的完整路径。如果链接的Access&数据库，就可单击按钮定位.mdb文件。例如，选择&C：＼dbbook.mdb&文件。&（3）RecordSource属性&RecordSource属性用于指定数据控件所链接的记录来源，可以是数据表名，也可以是查询名。在属性窗口中单击下拉箭头在列表中选出数据库中的记录来源。例如，选择客户信息表&Customers&。&（4）RecordsetType属性&RecordsetType属性用于指定数据控件存放记录的类型，包含表类型记录集、动态集类型记录集和快照类型记录集，默认为动态集类型。&&表类型记录集（Table）：包含实际表中所有记录，这种类型可对记录进行添加、删除、&修改、查询等操作，直接更新数据。&&动态集类型记录集（Dynaset）：可以包含来自于一个或多个表中记录的集合，即能从&多个表中组合数据，也可只包含所选择的字段。这种类型可以加快运行的速度，但不能自动更新数据。&&快照类型记录集（Snapshot）：与动态集类型记录集相似，但这种类型的记录集只能读不能更改数据。&（5）BOFAction和EOFAction属性&在运行时用户通过单击数据控件的指针按钮可移动记录到开始或结尾，BOFAction属性是指当用户移动到开始时程序将执行的操作，EOFAction指当用户移动到结尾时程序将执行的操作。&EOFAcfion值为0（MoveFirst）是将第一笔记录作为当前记录，为1（BOF）；9记录的开头。&EOFAction值为0（Move&Last）是将最后一笔记录作为当前记录，为1（EOF）指记录的末尾，为2（AddNew）移动到记录结尾并自动添加一记录。&2.Data控件常用的方法&（1）AddNew方法&AddNew用于添加一个新记录，新记录的每个字段如果有默认值将以默认值表示，如果没有则为空白。&例如，给Data1的记录集添加新记录：&Data1.Recordset.AddNew&（2）Delete方法&Delete用于删除当前记录的内容，在删除后应将当前记录移到下一个记录。&（3）Edit方法&Edit用于对可更新的当前记录进行编辑修改。&（4）Find方法群组&Find方法群组是用于查找记录，包含FindFirst、FindLast、FindNext和FindPreviou方法，这4种方法查找的起点不同&。&Find方法&查找起点&查找方向& & &FindFirst&第一个记录&向后查找& & &FindLast&最后一个记录&向前查找& & &FindNext&当前记录&向后查找& & &FindRrevious&当前记录&向前查找& &例如，查找&客户号&字段为&10002&的记录：&Datal.Recordset.FindFirst″客户号=′10002&，&If&Datal.Recordset.NoMatchThen&′如果没找到&MsgBox″找不到10002号客户″&End&If&通常当查找不到符合条件的记录时，需要显示信息提示用户，因此使用NoMatch属性，当使用Find或Seek方法找不到相符的记录时，NoMatch属性为True。&（5）Move方法群组&Move方法群组是用于移动记录，包含MoveFirst、MoveLast、MoveNext和MovePrevious&方法，这四种方法分别是移到第一笔记录、移到最后一笔记录、移到下一笔记录和移到前一笔记录。&注意：&当在最后一个记录时，如果使用了MoveNext方法时EOF的值会变为True，如果再使&用MoveNext方法就会出错。对于MovePrevious方法如果前移,结果也是同样。&（6）Refresh方法&如果DatabaseName、ReadOnly、Exclusive或Connect属性的设置值发生改变，可以使用Refresh方法打开或重新打开数据库，用Refresh方法可以更新数据控件的集合内容。&（7）Seek方法&Seek方法适用于数据表类型（Table）记录集，通过一个已被设置为索引（Index）的字段，查找符合条件的记录，并使该记录为当前记录。&语法：&记录集.Seek比较式，key1，key2，...，key13&例如，当索引为&客户号&字段时，查找客户号为&10005&的记录：&Data1.Recordset.Seek″：″，″10005″&（8）Update方法&Update方法用于将修改的记录内容保存到数据库中。&（9）UpdateControls方法&UpdateControls方法可以从数据控件的记录集中再取回原先的记录内容，即恢复原先值。当在与数据控件链接的控件中修改了记录内容，可以用UpdateControls方法使这些控件显示恢复原来的值。&3.Data控件常用的事件&（1）Reposition事件&Reposition事件是当某一个记录成为当前记录之后触发。通常利用该事件对当前记录的数据内容进行计算，触发该事件有以下几种原因：&&单击数据控件的某个按钮，进行记录的移动。&&使用Move方法群组。&&使用Find方法群组。&&其他可改变当前记录的属性或方法。&（2）Validate事件&Validate事件与Reposition事件不同，是当某一记录成为当前记录之前，或是在Update、Delete、Unload或Close操作之前触发。&事件的定义如下：&语法：&Private&Sub&Data1_Validate&（action&As&Integer&,save&As&Integer）&其中：&&action：用来指示引发这种事件的操作。&&Save：用来指定被链接的数据是否修改了。&例如，在Validate事件触发时确定记录内容是否修改，如果不修改则恢复：&Private&Sub&Data1_Validate(Action&As&Integer&,Save&As&Integer)&Dim&mag&if&Save=True&Then&mag=MsgBox（″要保存修改吗？″&，vbYesNo）&If&mag=vbNo&Then&Save=False&Data1.UpdateControls&′恢复原先内容&End&if&EndIf&End&Sub&二、与控件绑定&控件箱中的常用控件PictureBox、Label、TextBox、CheckBox、Image、OLE、ListBox&和ComboBox控件都能和Data的Recordset的一个字段绑定，与Data控件绑定的控件称为数据感知控件。&1.数据感知控件的相关属性&&DataSource属性：用于在下拉列表中选择想要绑定的控件名称。&&DataField属性：用于在下拉列表中选择要显示的字段名称。&2.绑定数据控件的步骤&数据感知控件绑定的过程不需要加入任何程序代码，将文本框txtOrderNo与Dara1绑定的步骤如下：&（1）将数据控件（Data1）放置在窗体中，将数据感知控件TextBox放置在窗体中并改名为txtOrderNo。&（2）设置Data1的DatabaseName属性为&C:\dbbook.Mdb&文件，设置Data1的RecordSource属性为&Orders&表。&（3）设置txtOrderNo的DataSource属性为Data1，设置txtOrderNo的DataField属性为&定单号&字段。&[例Ex_Data1_out]创建一个订购图书的客户信息的输入界面，用文本框绑定Data控件，txtOrderNo、txtCuNo和txtDate分别显示&Customers&表的各字段。&界面设计，窗体由4个按钮、3个标签、3个文本框和1个Dara控件组成。&窗体文本框控件和Data控件的属性设置，标签和按钮属性设置省略。&对&象&控件名&属性名&属性值& & &TextBox&txtCuNo&txtOrderNo&txtDate&Text&DataSource&DataField&Text&DataSource&DataField&Text&DataSource&DataField& 空&Data1&客户号&空&Data1&定单号&空&Data1&订购日期& & &Data&Data1&Caption&DataBaseName&RecondSource& 客户信息&C:\dbbook.mdb&Oders& &程序代码如下：&Option&Explicit&Private&Sub&cmdAdd_Click()&′添加记录&Data1.Recordset.AddNew&Data1.Recordset.Update&Data1.Recordset.MoveLast&End&Sub&Private&Sub&cmdDelete_Click（）&′删除记录&Dim&mag&mag=&MsgBox（″要删除吗?&″&，vbYesNo，″删除记录″&）&If&mag=VbYes&Then&Data1.Recordset.Delere&Data1.Recordset，MoveLast&End&If&End&Sub&当删除最后一个记录后，如果再删除就会出错，因此每次删除完将当前记录移到最后一个。&Private&Sub&cmdend_Click（）&End&End&Sub&Private&Sub&cmdedit_Click（）&′修改记录&Data1.Recordset.Edit&Data1.Recordset.Update&End&Sub&Private&Sub&Data1_Validate(Action&As&Integer,&Save&As&Integer)&′确定是否修改，如不修改恢复原先内容&Dim&mag&If&Save&=&True&Then&mag&=&MsgBox（&save?&,&vbYesNo,&&save&record&）&If&mag&=&vbNo&Then&Save&=&False&Data1.UpdateControls&End&If&End&If&End&Sub
简单！&用VB、Delphi、BCB等编程工具写一个小程序，从数据库或TXT文本里读数据，将16进制的数转换为10进制后，再写入一个新的数据库或TXT文本里，即可。如果想做的话，一会儿就搞定了。&你把数据发送过来，我看一下。不过你要附一些文字，把需求说清楚，以免做出的东西你没有用。另外:你的EXCEL带密级吗？如果不带的话，就发过来吧。&a&href=&mailto:soso9595@sina&soso9595@sina/a我在北京，你在哪里呀？
世界上不少程序都是用C语言编出来的，肯定要多于VB！其实两种语言大同小异，但是用VB编出来的程序漏洞比较少，因为VB编程基本都是图形界面，代码较少！不过，用VB编出来的程序的体积比较大，我想这可能就是大家很少用VB正式编程的原因吧！所以用VB编的程序加载起来要比用C语言编的程序要慢！C语言效率当然要高些！不过，这只是我个人的理解，仅供参考！两种语言都是简单的语言，权威的说法是比较容易上手！但我感觉VB要容易些，C语言看了几个月也不会！正规的程序员肯定会VB和C语言，但会的绝对不止这两种，学VB和C语言的目的就是入门，以这两门语言为跳板，去学习其它语言要更容易些，所以如果只会VB和C语言是肯定不行的，能否吃香我就不说了！关于书籍的问题嘛，因为两种语言都算是编程语言中的基础，所以市场上的关于这两门语言编程的书籍都差不多，学校图书馆的书就很不错呀！还有，我是不太看重证的，考了计算机等级考试的证也没多大用，楼主如果真想考个证，那就好好学习，考个软件工程师吧！
<span class="support" topicId="77d6f794ac7ade05" followupId="77d6f794ac7ade0500047cbaa
<span class="against" topicId="77d6f794ac7ade05" followupId="77d6f794ac7ade0500047cbaa
世界上不少程序都是用C语言编出来的，肯定要多于VB！其实两种语言大同小异，但是用VB编出来的程序漏洞比较少，因为VB编程基本都是图形界面，代码较少！不过，用VB编出来的程序的体积比较大，我想这可能就是大家很少用VB正式编程的原因吧！所以用VB编的程序加载起来要比用C语言编的程序要慢！C语言效率当然要高些！不过，这只是我个人的理解，仅供参考！两种语言都是简单的语言，权威的说法是比较容易上手！但我感觉VB要容易些，C语言看了几个月也不会！正规的程序员肯定会VB和C语言，但会的绝对不止这两种，学VB和C语言的目的就是入门，以这两门语言为跳板，去学习其它语言要更容易些，所以如果只会VB和C语言是肯定不行的，能否吃香我就不说了！关于书籍的问题嘛，因为两种语言都算是编程语言中的基础，所以市场上的关于这两门语言编程的书籍都差不多，学校图书馆的书就很不错呀！还有，我是不太看重证的，考了计算机等级考试的证也没多大用，楼主如果真想考个证，那就好好学习，考个软件工程师吧！C# 实现16进制和字符串之间转换的代码[转] - 钢钢 - 博客园
十六进制字符串与数值类型之间转换（C# 编程指南）
以下示例演示如何执行下列任务：
获取字符串中每个字符的十六进制值。
获取与十六进制字符串中的每个值对应的字符。
将十六进制 string 转换为整型。
将十六进制 string 转换为浮点型。
将字节数组转换为十六进制 string。
此示例输出 string 中的每个字符的十六进制值。首先，它将 string 分析为字符数组，然后对每个字符调用 ToInt32(Char) 以获取相应的数字值。最后，在 string 中将数字的格式设置为十六进制表示形式。
string&input&=&"Hello&World!";
char[]&values&=&input.ToCharArray();
foreach&(char&letter&in&values)
&&&&//&Get&the&integral&value&of&the&character.
&&&&int&value&=&Convert.ToInt32(letter);
&&&&//&Convert&the&decimal&value&to&a&hexadecimal&value&in&string&form.
&&& string&hexOutput&=&String.Format("{0:X}",&value);
&&& Console.WriteLine("Hexadecimal&value&of&{0}&is&{1}",&letter,&hexOutput);
Hexadecimal value of H is 48
Hexadecimal value of e is 65
Hexadecimal value of l is 6C
Hexadecimal value of l is 6C
Hexadecimal value of o is 6F
Hexadecimal value of is 20
Hexadecimal value of W is 57
Hexadecimal value of o is 6F
Hexadecimal value of r is 72
Hexadecimal value of l is 6C
Hexadecimal value of d is 64
Hexadecimal value of ! is 21
十六进制值的 string 并输出对应于每个十六进制值的字符。首先，它调用 Split(array&Char&[]()[]) 方法以获取每个十六进制值作为数组中的单个 string。然后调用 ToInt32(String, Int32) 以将十六进制转换为表示为 int 的十进制值。示例中演示了用于获取对应于该字符代码的字符的两种不同方法。第一种方法是使用 ConvertFromUtf32(Int32)，它将对应于整型参数的字符作为 string 返回。第二种方法是将 int 显式转换为 char。
string&hexValues&=&"48&65&6C&6C&6F&20&57&6F&72&6C&64&21";
string[]&hexValuesSplit&=&hexValues.Split('&');
foreach&(String&hex&in&hexValuesSplit)
&&& //&Convert&the&number&expressed&in&base-16&to&an&integer.
&&& int&value&=&Convert.ToInt32(hex,&16);
&&& //&Get&the&character&corresponding&to&the&integral&value.
&&& string&stringValue&=&Char.ConvertFromUtf32(value);
&&& char&charValue&=&(char)
&&& Console.WriteLine("hexadecimal&value&=&{0},&int&value&=&{1},&char&value&=&{2}&or&{3}",
&&& hex,&value,&stringValue,&charValue);
hexadecimal value = 48, int value = 72, char value = H or H
hexadecimal value = 65, int value = 101, char value = e or e
hexadecimal value = 6C, int value = 108, char value = l or l
hexadecimal value = 6C, int value = 108, char value = l or l
hexadecimal value = 6F, int value = 111, char value = o or o
hexadecimal value = 20, int value = 32, char value = or
hexadecimal value = 57, int value = 87, char value = W or W
hexadecimal value = 6F, int value = 111, char value = o or o
hexadecimal value = 72, int value = 114, char value = r or r
hexadecimal value = 6C, int value = 108, char value = l or l
hexadecimal value = 64, int value = 100, char value = d or d
hexadecimal value = 21, int value = 33, char value = ! or !
此示例演示了将十六进制 string 转换为整数的另一种方法，即调用 Parse(String, NumberStyles) 方法。
string&hexString&=&"8E2";
int&num&=&Int32.Parse(hexString,&System.Globalization.NumberStyles.HexNumber);
Console.WriteLine(num);
Output: 2274
下面的示例演示如何使用 System..::.BitConverter 类和 Int32..::.Parse 方法将十六进制 string 转换为浮点型。
string&hexString&=&"";
uint&num&=&uint.Parse(hexString,&System.Globalization.NumberStyles.AllowHexSpecifier);
byte[]&floatVals&=&BitConverter.GetBytes(num);
float&f&=&BitConverter.ToSingle(floatVals,&0);
Console.WriteLine("float&convert&=&{0}",&f);
Output: 200.0056 &
下面的示例演示如何使用 System..::.BitConverter 类将字节数组转换为十六进制字符串。
byte[]&vals&=&{&0x01,&0xAA,&0xB1,&0xDC,&0x10,&0xDD&};
string&str&=&BitConverter.ToString(vals);
Console.WriteLine(str);
str&=&BitConverter.ToString(vals).Replace("-",&"");
Console.WriteLine(str);
01-AA-B1-DC-10-DD
01AAB1DC10DD
只是msdn上的盗版！代码如下:
public&string&StrToHex(string&mStr)&//返回处理后的十六进制字符串
&&& return&BitConverter.ToString(
&&& ASCIIEncoding.Default.GetBytes(mStr)).Replace("-",&"&");
/*&StrToHex&*/
public&string&HexToStr(string&mHex)&//&返回十六进制代表的字符串
&&& mHex&=&mHex.Replace("&",&"");
&&& if&(mHex.Length&&=&0)&return&"";
&&& byte[]&vBytes&=&new&byte[mHex.Length&/&2];
&&& for&(int&i&=&0;&i&&&mHex.L&i&+=&2)
&&& if&(!byte.TryParse(mHex.Substring(i,&2),&NumberStyles.HexNumber,&null,&out&vBytes[i&/&2]))
&&& vBytes[i&/&2]&=&0;
&&& return&ASCIIEncoding.Default.GetString(vBytes);
/*&HexToStr&*/
随笔 - 301
评论 - 1391掌握VB基本数据类型掌握VB中的常量与变量_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
喜欢此文档的还喜欢
掌握VB基本数据类型掌握VB中的常量与变量
掌&#8203;握&#8203;V&#8203;B&#8203;基&#8203;本&#8203;数&#8203;据&#8203;类&#8203;型&#8203;掌&#8203;握&#8203;V&#8203;B&#8203;中&#8203;的&#8203;常&#8203;量&#8203;与&#8203;变&#8203;量
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：500.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢}