Visual Basic 6.0精简版编写十进制对二、八、十六进制之间转换的代码。如果二进制到八、十六进制有更好

这是我自己写的十进制转N进制，N进制转十进制的代码，你可以参考：

Public Function 十转N进制(ByVal 原数据 As Long, Optional 进制类别 As Integer = 36) As String

Const 转换字符 As String = "0123456789ABCDEFGHIGKLMNOPQRSTUVWXYZ"

Dim 个位数 As String, 十位数 As String

Dim 数字组() As String

Dim 数组上界 As Long

Dim 负数 As Boolean

Dim 循环指针 As Long, 暂存器 As Long

If 进制类别 > 36 Then MsgBox "您输入的 进制类别 过大，不能超过36！": Exit FunctionIf 进制类别 < 2 Then MsgBox "您输入的 进制类别 过小，不能小于2！": Exit Function

If Abs(原数据) < 2 Then 十转N进制 = 原数据

If 原数据 < 0 Then 负数 = True: 原数据 = -原数据

数组上界 = Int(Log(原数据) / Log(进制类别))

暂存器 = 原数据

ReDim 数字组(0 To 数组上界)

For 循环指针 = 数组上界 To 0 Step -1

数字组(循环指针) = Mid(转换字符, 暂存器 Mod 进制类别 + 1, 1)

暂存器 = 暂存器 \ 进制类别

Next

十转N进制 = Join(数字组, "")If 负数 = True Then 十转N进制 = "-" & 十转N进制

End Function

Public Function N转十进制(ByVal 原数据 As String, Optional 进制类别 As Integer = 36) As Long

Const 转换字符 As String = "0123456789ABCDEFGHIGKLMNOPQRSTUVWXYZ"

Dim 负数 As Boolean

Dim 循环指针 As Long, 暂存器 As Integer

负数 = False

If Left$(原数据, 1) = "-" Then 负数 = True: 原数据 = Mid(原数据, 2)

If Len(原数据) = 0 Then MsgBox "原数据无效！": Exit Function

原数据 = UCase$(原数据)

N转十进制 = 0

For 循环指针 = 1 To Len(原数据)

暂存器 = InStr(1, 转换字符, Mid(原数据, 循环指针, 1))

If 暂存器 > 0 And 暂存器 < 进制类别 Then

N转十进制 = N转十进制 + (暂存器 - 1) 进制类别 ^ (Len(原数据) - 循环指针)

Else

MsgBox "原数据无效！"

N转十进制 = 0

Exit Function

End If

Next

If 负数 = True Then N转十进制 = -N转十进制

End Function

哎，遇上我算你运气好，去年我仔细查找了相关的资料，确认了原版是“罗麦尼亚语”。不过这首歌存在很多语言版本，因此也有人以为是英语，并不能说他脑子短路，具体资料如下： —————————————————————————————— 该曲演唱组合O-zone fromMoldova(摩尔多瓦,前苏联加盟共和国,邻ROMANIA),成员三人anBalan,ArsenieToderas,RaduSirbu,70s底80s初生02年在ROMANIA一举成名 其轻舞曲DragosteaDinTei(德语:绿柠檬树下的爱)风靡欧洲,横扫欧洲多国单曲金榜,目前在BBC排第8 历年专辑: 2002-Number1,2003-Dragosteadintei,2004-DiscO-Zone 歌曲列表: Amsatechem Crede-ma Darundeesti Deceplangchitarele Despretine Dragosteadintei Fiestadelanoche Noptifaradesomn Numalasdelimbanoastra Numaitu Number1 Oriundeaifi Printrenori Sarbatoareanoptilordevara DragosteaDinTei是摩尔多瓦-罗麦尼亚乐队O-Zone最出名的一首曲目。它于2003年底在罗麦尼亚发布，并在第二年的年初在欧洲其他地方发布，并荣登多国排行榜的榜首。这首歌无疑被认为是2004年最重要的夏季热歌。这首歌受到了不少社会族群的追捧，特别是俄国人和挪威人。 在意大利，最流行的版本来自Haiducii。但是O-Zone和Haiducii互相自责对方偷窃这首歌曲。 现在这首歌被认为是舞曲经典和同志国歌，并在美国受到一些俱乐部的欢迎。O-Zone的DanBalan和纽约DJLucasPrata一同合作，创造出英文版本的歌曲“MaiAHee”。这首歌曲只是简单的与原作相联系，并没有提及菩提树 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 中，罗麦尼亚，英三种语言歌词，外加中文谐音读法（不会罗语，照样可唱） Dragoste-din-tei（美国人称为numanumadance） (WORDSOFLOVE) 绿柠檬树下的爱 （译名又为“菩提树下的爱情”，译法众多，不一列举） 罗麦尼亚语，中文对照 Alo,salut,sunteu,unhaiduc,(嗨，你好，是我，一名歹徒) Siterog,iubireamea,primestefericirea(我求你，我的爱人，接受幸福吧) Alo,alo,sunteuPicasso,(嗨嗨，是我，毕加索) Ti-amdatbeep,sisuntvoinic,(我给你发一声beep，而我自觉强大无比) Darsastiinu-ticernimic(但你要知道我不是在要求你什么) Chorus] Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) Tesun,sa-tispun,cesimtacum,(我给你打了个电话，来告诉你我对你现在的感觉) Alo,iubireamea,sunteu,fericirea(嗨，是我，你的幸福) Alo,alo,suntiarasieu,Picasso,(嗨嗨，是我，毕加索) Ti-amdatbeep,sisuntvoinic,(我给你发一声beep，而我自觉强大无比) Darsastiinu-ticernimic(但你要知道我不是在要求你什么) Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) Ma-ia-hii Ma-ia-huu Ma-ia-hoo Ma-ia-haa Ma-ia-hii Ma-ia-huu Ma-ia-hoo Ma-ia-haa Ma-ia-hii Ma-ia-huu Ma-ia-hoo Ma-ia-haa Ma-ia-hii Ma-ia-huu Ma-ia-hoo Ma-ia-haa Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) Vreisaplecidarnuma,numaiei,(你想走，不想不想要我) Numa,numaiei,(不想不想要我) Numa,numa,numaiei(不想不想不想要我) Chipultausidragosteadintei,(你的脸孔和爱是从椴树里来的) Mi-amintescdeochiitai(而我会记着你的眼睛的) 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 不会唱是吗？来吧，跟我学。。。 ＜打狗死他地呆＞中文词！原创如有不足大家补充~O~ ------------------------------- 麦一亚hy 麦一亚胡 麦一亚河 麦一亚哈哈 哈楼 搜可 死耶呕 ong 太毒哭 吸带老 有比啦妈比妈是大 fai力气辣 啊龙！啊龙 su耶毕咖索 藏大棵比 she森否你可 大些嘘地咯雪了你哩~~~ 喂色北嘘大 奴麦奴麦耶 奴麦奴麦耶 奴麦奴麦耶奴麦耶 ki不到新 啦不死撒顶得 哪林带死带哦ki大嘿 ----------------------------＜我累死了＞ 。。。。。。。。。。。。。。。。。。。。。。。。。。 英文版的歌词： Ma-ia-hiiMa-ia-huuMa-ia-haaMa-ia-ha-ha(x4) Hello,hi,it'sme,anoutlaw, andplease,mylove,accepthappiness Hello,hello,it'sme,Picasso, IgaveyouacallandI'mneat, ButyoumustknowI'maskingyounothing Chorus: Youwanttogobutyoudon't,youdon'ttakemewithyou Youdon't,youdon'ttakemewithyou,youdon't,youdon't,youdon'ttakemewithyou Yourfaceandtheloveunderthelindentree remindmeofyoureyes(x2) Igaveyouacall,totellyouwhatIfeelnow Hello,mylove,it'sme,happiness Hello,hello,it'smeagain,Picasso, IgaveyouacallandI'mneat ButyoumustknowI'maskingyounothing Chorus: Youwanttogobutyoudon't,youdon'ttakemewithyou Youdon't,youdon'ttakemewithyou,youdon't,youdon't,youdon'ttakemewithyou Yourfaceandtheloveunderthelindentree remindmeyoureyes(x2) Ma-ia-hiiMa-ia-huuMa-ia-haaMa-ia-ha-ha(x4) Chorus: Youwanttogobutyoudon't,youdon'ttakemewithyou Youdon't,youdon'ttakemewithyou,youdon't,youdon't,youdon'ttakemewithyou Yourfaceandtheloveunderthelindentree remindmeofyoureyes(x2) 视屏下载地址：http://mxdmmxxddcn/mxd1011/8wmv

ekrnexe

这是本词条的版本，由于贡献。

ekrn - ekrnexe - 进程信息

进程文件： ekrnexe

进程名称： ekrnexe

描述：

ekrnexe是ESET Smart Security反病毒软件相关程序。

出品者： Eset

属于： ESET Smart Security

系统进程： 否

后台程序： 否

使用网络： 是

硬件相关： 否

常见错误： 未知N/A

内存使用： 31，956k（可变）

安全等级 (0-5): 1

间谍软件： 否

广告软件： 否

病毒： 否

木马： 否

可否删除：可以

ekrnexe会有CPU占用100%的问题出现，可能原因有

1版本问题或者汉化问题，出现这种问题的版本主要是NOD32 30551或30560其他版本出现较少，有些汉化版本容易出现此类问题，换一种就没有这种问题了；

2杀软的实时防护功能问题，此功能是我们在执行程序的时候，杀软先检查一次，然后才展示给用户看．这样做是为了安全起见，但是反应就会比平时的慢，在实时防护下有一个编辑排除功能，在里面把运行时反应慢的程序目录添加进去即可。