a=1 ? format$("4d$",a) a=10 ? format$("4d$",a) a=100 ? format$("4d$",a) a=1000 ? format$("4d$",a) もしかしたらこれを求めてるのかも？