当前位置: 首页 > news >正文

旅游seo整站优化上饶网站建设企业

旅游seo整站优化,上饶网站建设企业,上海新闻官网,90后做网站月入万元发信人: zkboy (小小鸟), 信区: VisualBasic 标 题: Re: 请教#xff1a;如何在VB中实现16进制数或10进制数与2进制#xfffd;发信站: BBS 水木清华站 (Thu Jun 15 19:39:37 2000)转一篇相关资料在编程中#xff0c;我们经常使用二进制(binary)、八进制(octal)、十进…发信人: zkboy (小小鸟), 信区: VisualBasic       标  题: Re: 请教如何在VB中实现16进制数或10进制数与2进制发信站: BBS 水木清华站 (Thu Jun 15 19:39:37 2000)转一篇相关资料在编程中我们经常使用二进制(binary)、八进制(octal)、十进制(decimal)和十六进制(hexadecimal)来表示一个数据除二进制可表示大部分数据外我们一般用其他的进制来表示整型数。它们之间的转换有时显得非常重要但VB本身提供的转换函数很少。这样就需要我们根据VB程序的特点自己来设计转换函数。以下向大家介绍几种转换方法虽然不能放之四海皆准瑾希望能激发您的思路。一、VB提供的进制转换函数1、Hex(x)返回十六进制数值的String类型注意(1)其返回的是String类型(2)函数返回值最多是8个十六进制字符(3)x为整数如果x不是整数将先被四舍五入成最接近的整数。2、Oct(x)返回八进制数值的 Variant(String)类型注意(2)函数返回值最多是11个八进制字符(3)x为整数如果x不是整数将先被四舍五入成最接近的整数。VB只有这两个进制转换函数。二、自己设计转换函数1、十六进制 - 十进制 lngDec  CLng(H  strHex)你看仅这么一个表达式就能完成转换。为什么用Clng( )而不用Val( )这只是为了避免数值范围的限制。2、八进制 - 十进制 提示VB中八进制数以O为前缀通过上面您一定能写出转换表达式。3、十六进制 - 二进制 Function Hex2Bin(HexValue As String) As StringConst BinIndexTable  0000000100100011010001010110011110001001101010111100110111101111Dim n As IntegerDim Tmp As StringTmp  For n  1 To Len(HexValue)Tmp  Tmp  Mid(BinIndexTable, _(Val(H  Mid(HexValue, n, 1) - 1) * 4  1), 4)NextHex2Bin  TmpEnd Function我们知道1位十六进制数代表4位二进制。这里用到一个索引表BinIndexTable经过对给定的十六进制数逐位分离、检索索引表、转换、合并就可以得到结果。和前面的转换比较这里用到了Val( )函数因为保证的前提是1位十六进制最大表示为十进制的15。是看起来这种方法很原始但它是最简便的并且运行速度最快。4、用两个函数来完成各种进制间的转换Function ConvertBase(NumValue As String, BaseFrom As Integer, BaseTo As Integer) _As String转换一个数值(NumValue)从一种进制(BaseFrom)到另一种进制(BaseTo)用一个整数来表示各种进制二进制  2八进制  8十进制  10十六进制  16NumValue是给定的数值字符串包括 0 - 9, A - ZBaseFrom是给定的数值的进制可以是2与36间的任何整数BaseTo是希望转换成的进制可以是2与36间的任何整数函数返回希望得到的进制数是一个String类型Dim i As IntegerDim PlaceValue As IntegerDim CurrentCharacter As StringDim CharacterValue As IntegerDim RunningTotal As DoubleDim Remainder As DoubleDim BaseOutDouble As DoubleDim NumInCaps As String确认NumValue有效If NumValue   Or BaseFrom  2 Or BaseFrom  36 _Or BaseTo  1 Or BaseTo  36 ThenConvertBase  ErrorExit FunctionEnd If使字母为大写NumInCaps  UCase(NumValue)先将给定的数转换为十进制PlaceValue  Len(NumInCaps)For i  1 To Len(NumInCaps)PlaceValue  PlaceValue - 1CurrentCharacter  Mid(NumInCaps, i, 1)CharacterValue  0If Asc(CurrentCharacter)  64 And _Asc(CurrentCharacter)  91 ThenCharacterValue  Asc(CurrentCharacter) - 55End IfIf CharacterValue  0 ThenIf Asc(CurrentCharacter)  48 Or _Asc(CurrentCharacter)  57 ThenConvertBase  ErrorExit FunctionElseCharacterValue  Val(CurrentCharacter)End IfEnd IfIf CharacterValue  0 Or CharacterValue  BaseFrom - 1 ThenConvertBase  ErrorExit FunctionEnd IfRunningTotal  RunningTotal  CharacterValue * (BaseFrom ^ PlaceValue)Next i将得到的十进制数转换为目标进制DoBaseOutDouble  CDbl(BaseTo)Remainder  ModDouble(RunningTotal, BaseOutDouble)RunningTotal  (RunningTotal - Remainder) / BaseToIf Remainder  10 ThenCurrentCharacter  Chr(Remainder  55)ElseCurrentCharacter  Right(Str(Remainder), _Len(Str(Remainder)) - 1)End IfConvertBase  CurrentCharacter  ConvertBaseLoop While RunningTotal  0End FunctionFunction ModDouble(NumValue As Double, DivNum As Double) As Double返回一个由小数点分开的数用语Double数据类型ModDouble  NumValue - (Int(NumValue / DivNum) * DivNum)End Function这里的自定义函数能很好的完成转换的任务尤其是可以转换Double数据类型这点在使用Windows注册表编程时很有用转换DWords。代码很复杂需要脑子不停的转动请您仔细理解。其实这只是一个通用的函数您可以提取思路用于自己的特定功能。调用方法Dim theValue As String十进制 - 十六进制theValue  ConvertBase(100, 10, 16)二进制 - 八进制theValue  ConvertBase(100, 2, 8)十进制 - 三进制theValue  ConvertBase(100, 10, 3) 【 在 suliangfeng (疯子) 的大作中提到: 】:    我需要把一10进制的数转为2进制然后提取低7位请问如何实现谢谢
http://wiki.neutronadmin.com/news/100705/

相关文章:

  • 一般网站的费用网站怎么做页游
  • 做简单的网站首页找人建设一个网站大概需要多少费用
  • 连云港网站建设同城做推广哪个网站好
  • 彩妆网站建设报告长春公司推广网站
  • 可信网站认证申请西二旗网站建设
  • 无形资产 网站建设福州网站建设求职简历
  • 怎么在网站上做图片轮播cms建站程序
  • 一个好的网站建设需要多少钱做网站的logo
  • 竞价托管网站建设商城建站流程
  • 深圳招工网站房地产市场分析
  • 南京高端网站建设公司王烨演的电视剧
  • 广西城乡建设网站微信公众号托管平台
  • 做网站找哪家公司好wordpress设置页面缓存
  • 微网站的价格标小智logo在线设计
  • 网站制作的内容包含中国中信建设有限责任公司
  • 网站不想续费湛江搜索引擎网站推广
  • 内蒙古集宁建设厅官方网站购物网站开发背景及意义
  • 教做美食网站源码佛山h5模板建站
  • 优化网站排名茂名厂商在线网站编辑
  • 网站跟域名是什么关系阿里云虚拟主机购买
  • 一个公司设计网站怎么做html5商城网站源码
  • 网站建设开发公司微信公众号开发wordpress 仪表盘自定义
  • 广州海珠区网站建设杭州建站模板制作
  • 自己做网站好还是购买网站好昆明的互联网公司有哪些
  • 校园网站的意义三室两厅两卫装修实景
  • 当当网的网站建设要求wordpress用户注册表
  • 怎么利用百度云盘做网站网站建设市场行情分析
  • 网站建设redu平度建设局网站
  • 淄博外贸网站制作网站开发怎么兼容ie
  • 苏州那家公司做网站好沈阳建设工程信息网官方网站