新手求教：这段程序大概实现什么功能阿 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 新手求教：这段程序大概实现什么功能阿

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 372 人关注过本帖

标题：新手求教：这段程序大概实现什么功能阿

取消只看楼主加入收藏

weishanhu03

等　级：新手上路
帖　子：75
专家分：0
注　册：2007-4-24

楼主

问题点数：0 回复次数：2

新手求教：这段程序大概实现什么功能阿

stem = Bin(x)
For i = 1 To 12 - Len(stem)
stem = "0" + stem
Next i
For i = 1 To 4
stem = "1" + stem
Next i
For i = 0 To 15
dout(i) = Hex(Val(Mid$(stem, i + 1, 1)))
Next i

2007-08-25 10:38

weishanhu03

等　级：新手上路
帖　子：75
专家分：0
注　册：2007-4-24

第 2 楼

得分:0

Bin(x)是将x转化为二进制形式（以字符串输出）

2007-08-25 10:39

weishanhu03

等　级：新手上路
帖　子：75
专家分：0
注　册：2007-4-24

第 3 楼

得分:0

谢了

2007-08-25 10:54

快速回复：新手求教：这段程序大概实现什么功能阿