R程序产生1到1000的随机数