vb 怎么把36进制转换成 10 进制

t_sheng 2012-06-27 10:39:49

vb 怎么把36进制转换成 10 进制

...全文

669 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

jing105630 2012-11-06

打赏
举报

32进制吧？。。。

东方之珠 2012-11-06

打赏
举报

引用 7 楼 zhao4zhong1 的回复:

Visual Basic code 12345678910111213 Dim basestr As StringDim n36 As StringDim n As LongDim L As LongDim i As Longbasestr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"n36 = "Z7"n = 0 For i = 1 To ……

赵老师的代码确实简单易懂。

赵4老师 2012-10-22

打赏
举报

(^_^)

熊孩子开学喽 2012-10-20

打赏
举报

[Quote=引用 7 楼的回复:]

VB code
Dim basestr As String
Dim n36 As String
Dim n As Long
Dim L As Long
Dim i As Long
basestr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
n36 = "Z7"
n = 0
For i = 1 To Len(n36)
n = n * 36 + (In……
[/Quote]

效率低了点,胜在简单易懂啊.

元芳, 你怎么看? 元芳, 元芳!? 一会工夫跑哪去啦, 本官喊你来看代码啊.

来啦, 来啦, 回禀大人, 在下这几天看得两眼昏花, 夜不成眠啊, 求求您就把我当成个屁给放了吧.

......噗呲~~~~

元芳: "......大人您真恶心"

of123 2012-06-27

打赏
举报

36 进制无疑是字符串了。10 进制结果要求是数字还是字符串？

of123 2012-06-27

打赏
举报

数字有多大？

贝隆 2012-06-27

打赏
举报

0~9+A~Z?

t_sheng 2012-06-27

打赏
举报

36进制转换 10 进制

贝隆 2012-06-27

打赏
举报

16吧？没有写错？

赵4老师 2012-06-27

打赏
举报

Dim basestr As String

Dim n36 As String

Dim n As Long

Dim L As Long

Dim i As Long

basestr = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

n36 = "Z7"

n = 0

For i = 1 To Len(n36)

    n = n * 36 + (InStr(basestr, Mid(n36, i, 1)) - 1)

Next

Debug.Print n