VF比较大小 急

来源：百度知道 编辑：UC知道 时间：2024/05/24 19:41:05
定义一个八个元素的数组，随机产生的八个两位数位于数组中显示出来，按照从大到小的顺序排序然后再显示排序后的数组元素

clear
dime b(8)
rand(-1)
for i=1 to 8
do while .t.
a=int(100*rand())
if a>9
b(i)=a
exit
endif
enddo
endfor
? "产生的随机数依次是："
for i=1 to 8
if i=8
?? allt(str(b(i)))
else
?? allt(str(b(i)))+"，"
endif
endfor
for i=1 to 7
for j=i+1 to 8
if b(j)>b(i)
s=b(i)
b(i)=b(j)
b(j)=s
endif
endfor
endfor
? "按从大到小顺序排列："
for i=1 to 8
if i=8
?? allt(str(b(i)))
else
?? allt(str(b(i)))+"，"
endif
endfor
return

clear &&清屏
dime b(8) &&定义数组,元素有8个
rand(-1) &&随机函数
for i=1 to 8 &&for循环8次
do while .t. &&循环条件横成立
a=int(100*rand()) &&int为取整函数
if a>9 &&只有大于9的数字才可以保留下来
b(i)=a &&给数组元素赋值
exit &&无条件退出循环
endif &&选择结束
enddo &&循环结束处
endfor &&for循环