来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