中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]闲来无事编了一个十六进制乘法表供大家学习

beeny
初级用户

积分 136
发帖 49
注册 2007-1-4
状态离线

『楼主』: [原创]闲来无事编了一个十六进制乘法表供大家学习

来DOS联盟有些时日在这里学了不少东西!
再次谢谢中国DOS联盟

dim i,j,str,s

for i = 1 to 15
for j=1 to i
s=h16(i,j)
str=str & s & " "
next
str=str & vbcrlf
next
set fso=createobject("scripting.filesystemobject")
set f1=fso.createtextfile("1.txt")
f1.write str
f1.close
set fso=nothing
wscript.echo "ok"

'十六进制乘法口决表
function h16(a,b)
dim s1,s2,s3
if a<10 then
s1=a
else
s1=sh(a)
end if

if b<10 then
s2=b
else
s2=sh(b)
end if

if a*b<10 then
s3=a*b
else
s3=sh(a*b)
end if
h16=s1 & "*" & s2 & "=" & s3
end function

'十进制转十六进
function sh(num)
dim i,j,s4
i=num
do while i>0
j=i mod 16
select case j
case 0,1,2,3,4,5,6,7,8,9
s4=j & s4
case 10
s4="A" & s4
case 11
s4="B" & s4
case 12
s4="C" & s4
case 13
s4="D" & s4
case 14
s4="E" & s4
case 15
s4="F" & s4
end select
i=i\16
loop
sh=s4
end function

2008-4-7 11:34

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: