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

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

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

取消只看楼主

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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-165308-1-1.html