s=space(100)@5,10 say "请输入8个数,用英文逗号隔开:"@7,14 get sreadds=""for i = 1 to 8
ic=str(i,1)
d&ic=val(s)
dh=at(",",s)
s=substr(s,dh+1)
ds=ds+","+"d"+Ic
if empty(s)
exit
endif endfor ds=substr(ds,2)maxd=alltrim(str(max(&ds)))mind=alltrim(str(min(&ds)))@9,10 say "最大数:"+maxd+"... |