var a:integer;begin for a:=1000 to 9999 do writeln(a);readln;end. 先编个程玩玩哈 最简单的EXCEL里在第一数列打1000和1001框住这两个数字，使变成淡蓝色把鼠标移到框住这两个数字的黑色边框上，往下拖，直到9999，再从头框一下，右键复制到你要的地方，OK，一分钟搞定···