| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 9203 人关注过本帖
标题:[求助]如何用VB实现16转10进制
只看楼主 加入收藏
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
嗯 ...也是....简单的想了想..就写了...你的比较不错..

我的msn: myfend@
2006-12-15 21:27
olivia_jf
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-12-9
收藏
得分:0 
先转成ASC码,然后再转为10进制
2006-12-15 22:33
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
8楼的有问题输入as结果等160,其实不用那么麻烦直接用val函数就行了.
如:
Private Sub Command1_Click()
Dim strData As String
strData = InputBox("请输入16进制数")
Print Val("&H" & strData)
End Sub

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2006-12-16 20:40
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
val你能转多大的数?

快上课了……
2006-12-16 23:04
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
这只是一种方法那用下面的能不能满足一般的要求呢?

Private Sub Command1_Click()
Dim strData As String
strData = InputBox("请输入16进制数")
Print CDbl("&H" & strData)
End Sub

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2006-12-17 09:47
jackyhuang
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2006-1-20
收藏
得分:0 

注意:要判断一下输入的数据是否为空,否则程序会出错。


一个自学的,正在学的人
2006-12-19 09:53
MIS0542
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-3-15
收藏
得分:0 

哈哈
我正需要
不过有没有简单的

2007-04-19 14:12
jfzq1601
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-5-23
收藏
得分:0 

Public Function Dec(TempStr As String) As Long

Dim TempData As String
Dim TempLen As Integer
Dim TempM As String
Dim TempData1 As Long
Dim Loopi As Long
Dim Loopj As Long

On Error GoTo OUT:
TempLen = Len(TempStr)
For Loopi = 1 To TempLen
TempM = Mid(TempStr, Loopi, 1)
Select Case UCase(TempM)
Case "A"
TempM = 10
Case "B"
TempM = 11
Case "C"
TempM = 12
Case "D"
TempM = 13
Case "E"
TempM = 14
Case "F"
TempM = 15
End Select
Loopj = TempLen
Loopj = Loopj - Loopi
TempData1 = TempData1 + CLng(TempM) * 16 ^ Loopj
Next

Dec = TempData1
Exit Function
OUT:

End Function

2007-05-24 10:17
jfzq1601
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-5-23
收藏
得分:0 
回复:(leolover风)我就是因为!不知道算法! 10...
purana,你好
请问:For i = LenHex To 1 Step -1
HexStep = HexStep * 16
If HexStep = 0 Then HexStep = 1
这段程序的作用是什么?
2007-05-24 11:54
jfzq1601
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-5-23
收藏
得分:0 
回复:(purana)Option ExplicitPrivate Sub Comma...

晕,回复错了。
purana
请问你程序中的
For i = LenHex To 1 Step -1
HexStep = HexStep * 16
If HexStep = 0 Then HexStep = 1
他的作用是什么?请赐教。

2007-05-24 11:57
快速回复:[求助]如何用VB实现16转10进制
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.063421 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved