高考问答7.1巨石之核怎么去:编程（请帮我编写一个VF过程）
来源：百度文库 编辑：高考问答 时间：2024/05/03 14:50:00
用VF P编个过程嘛：procmin(array,mina),求一维数组array中的最小值，另编一主程序随机产生10个300—400间的整数（用表达式：int(rand()*101+300),显示产生的数组中各元素，调用procmin(array,mina)过程，显示数组最小值
给你两个：过程和函数！
第一个是过程调用（主程序和过程都在同一个程序里，如要分两个文件就要在‘do procmin WITH array1,0’加set proce to 文件名）：
set talk off
clear
dime array1(10)
? "产生的数组为："
for i=1 to 10
array1(i)=int(rand()*101+300)
?? array1(i)
next
do procmin WITH array1,0
set talk on
procedure procmin(array1,mina)
mina=array1(1)
for i=2 to 10
if mina>array1(i)
mina=array1(i)
else
loop
endif
next
? '最小值为:',mina
ENDPROC
第二个为函数调用：主程序和函数都在同一个程序里，如要分两个文件就要在函数前加set proce to 文件名
set talk off
clear
dime array1(10)
? "产生的数组为："
for i=1 to 10
array1(i)=int(rand()*101+300)
?? array1(i)
next
a=procmin1(@array1,0)
? "最小值为",a
FUNCTION procmin1(array1,mina)
mina=array1(1)
for i=2 to 10
if mina>array1(i)
mina=array1(i)
else
loop
endif
next
return mina
ENDFUNC