已经找到命令了，用format命令就可以，如format /rd  15 4
写出来给大家做个参考，呵呵

do until i > rows(b1);
       format/rd 1,0;
       print "The beta" i "is: ";;
       format/rd 7,4;
       print b1[i];
       format/rd 1,0;
       print "The t-ratio" i "is: ";;
       format/rd 7,4;
      print tb1[i] "probabiltiy(t)= " prob_tb1[i];;
      print "probability(N)=" prob_tb1_n[i];
      i=i+1;
    endo;

这个例子中，保留四位

谢谢大家多提问，多找出答案，将给与一定程度的奖励