你讲的是在交互式情况下,输入一条命令,在屏幕上显示,或者写一个prg文件,do一下,结果在屏幕上显示。
其实这个问题很烦,而且使用价值不大,为什么不用表单?想怎么显示都可以。你的问题我举个例子,对你不知道有无帮助。
在屏幕上显示20个数字,每个数字长度为8位,小数点保留2位(即整数只能到万位)。每行输出5个数字,每个数字之间空4个空格。
DECLARE Z(20)
***** 定义数组z
z(1)=2012.235
***** 给数组赋值
for i=2 to 10
z(i)=z(i-1)+1600.004
endfor
z(11)=10221.33
for i=12 to 20
z(i)=z(i-1)+600.006
endfor
**** 显示
clear
k=0
for j=1 to 4
?
k=k+5
for i=k-4 to k
?? z(i) picture '99999.99'
?? space(4)
endfor
endfor
没有测试环境,所以没测,抱歉!程序应该没有问题。