set talk off
dimen aa(5)
for i = 1 to 5
input to aa(i)
next
?"排序后"
for i = 1 to 5
for j = i+1 to 5
if aa(i)<aa(j) then
t = aa(i)
aa(i) = aa(j)
aa(i) = t
endif
next
??aa(i)
next
set talk on
return
2、
set talk off
for i = 2 to 20 step 2
?i,"的平方根为",sqrt(i)
next
set talk on
return
用VFP编程,任意输入10个数,按从大到小的顺序排列。
\/\/ 输出排序后的数组 PRINT "10个数从大到小的顺序是："FOR i = 1 TO 10 PRINT a(i)ENDFOR \/\/ 结束程序 RETURN ```上述代码首先声明了一个可以存储10个整数的数组。然后，通过两个嵌套的`FOR`循环对数组进行排序。最后，使用`PRINT`语句将排序后的数组输出到屏幕上。这样的代码结构清晰，易...
VFP编写程序,任意数排列。
1、set talk off dimen aa(5)for i = 1 to 5 input to aa(i)next ?"排序后"for i = 1 to 5 for j = i+1 to 5 if aa(i)<aa(j) then t = aa(i)aa(i) = aa(j)aa(i) = t endif next ??aa(i)next set talk on return 2、set talk off for i = 2 to 20 ste...
vfp编写程序求任意输入3个数,把他们从出小到大的顺序输出。谢谢
s1=VAL(thisform.text1.value)s2=VAL(thisform.text2.value)s3=VAL(thisform.text3.value)l1=min(s1,s2,s3) &&最小 l2=max(s1,s2,s3)&&最大 do case case l1=s1 and l2=s2 l3=s3 case l1=s1 and l2=s3 l3=s2 case l1=s2 and l2=s3 l3=s1 case l1=s2 and l2=s1 l3=s3 cas...
十数字由大到小排列vfp程序设计
endfor 排序 for i = 1 to 9 for j = 1 to 9 if arr(j)<arr(j+1)x=arr(j) &&本行及下面两行,互换两个数 arr(j)=arr(j+1)arr(j+1)=x endif endfor endfor 显示 display memory like arr 上面的比较复杂,还有个更简单的:定义10个随机两位数 dimension arr(10)FOR i = ...
如何用VFP编写一个程序,实现对10个数随机分成5组,要详细步骤,谢谢啦
tmp1="第一组："tmp2="第二组："for i= 1 to 10 为了方便分组，先随机产生10个数，这里取10以内的10个随机整数 N(i,2)=int(rand*10)随机的将数分到第一组或第二组 if rand()>=0.5 N(i,1)=1 else N(i,1)=2 endif endfor 输出结果 ?"十个数："for y=1 to 10 ??alltrim...
用vfp制作一程序 从键盘上任意输入十个数显示并累加
clear s=0 for i=1 to 10 input "请输入一个数：" to x s=s+x endfor ?"它们的和是：",s
怎样用VFP编写一个比较五个数大小的程序
cc)INSERT INTO temp (num) VALUES (dd)INSERT INTO temp (num) VALUES (ee)SELECT MAX(num) as max_num FROM temp INTO CURSOR tmp maxnum = tmp.max_num USE SELECT temp USE DELETE FILE temp.dbf RETURN maxnum ENDFUNC 当然，这样写纯粹是为了写vf程序，还可以使用冒泡法等算法实现 ...
求一个VFP程序
要求还挺多,呵 你那个两端大中间小,得有个主次把?比如最大得放前面还是后面,我给你个现成得排序程序,你自己修改把 这个是原来有的,不是输入得,要输入你用input即可 clear dimension a(10)a(1)=142 a(2)=120 a(3)=452 a(4)=23 a(5)=89 a(6)=42 a(7)=865 a(8)=140 a(9)=...
在vfp中,编写程序,随机产生3位数,判断该数是否为对称数,如果是对称数则...
参考代码：CLEAR a=INT((999 - 100 + 1) * RAND( ) + 100) &&生成随机数 IF INT(a\/100)=MOD(a,10) THEN ? "对称数"+ALLTRIM(STR(a))ENDIF RETURN
VFP在0~3之间随机生成10个数,要保留一位小数,这个程序怎么写?
=rand(-1)for i=1 to 10 n=rand()*3.5 IF N>3 OR N<1 LOOP ENDIF ? allt(str(N,3,1))ENDFOR 运行一下，看看结果吧！
