
CODE: [Copy to clipboard][ Last edited by baomaboy on 2007-5-11 at 01:17 PM ]dim d
c(6)
for i=0 To UBound(d)-1
msgbox d(i)
next
function c(x)
for a=0 to 9
for b=0 to 9
if a-x=0 or b-x=0 then
d=d&a&b&"/"
end if
next
next
d = split(d,"/")
end function
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |