吉林四平安监局:编程(请帮我编写一个VF过程)
给你两个:过程和函数!
第一个是过程调用(主程序和过程都在同一个程序里,如要分两个文件就要在‘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