求高手编写VF程序题~请写完整,1）有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.2）输入一个三位整数,将其方

Question

求高手编写VF程序题~请写完整,
1）有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.
2）输入一个三位整数,将其方向输出,如输入314,输出413.
3）使用主子程序条用的方法,编写一个求100以内所有素数的程序.
4）设计计算圆面积的函数和相应的调用程序.

Answer 1

* 1）有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.
CLEAR
DIMENSION a(30)
a[1] = 1
? " 1", a[1]
a[2] = 1
? " 2", a[2]
FOR i = 3 TO 30
a[i] = a[i-2] + a[i-1]
? STR(i,2), a[i]
ENDFOR
* 2）输入一个三位整数,将其方向输出,如输入314,输出413.
CLEAR
INPUT "输入一个三位整数：" TO a
b=STR(a,3)
? SUBSTR(b,3,1) + SUBSTR(b,2,1) + SUBSTR(b,1,1)
* 3）使用主子程序条用的方法,编写一个求100以内所有素数的程序.
CLEAR
LOCAL i
FOR i = 2 TO 100
IF ss(i)
? i
ENDIF
ENDFOR
PROCEDURE ss(n)
LOCAL i, s
s = .T.
FOR i = 2 TO n-1
IF MOD(n,i) = 0
s = .F.
EXIT
ENDIF
ENDFOR
RETURN s
ENDFOR
* 4）设计计算圆面积的函数和相应的调用程序.
CLEAR
INPUT "输入圆的半径：" TO a
? ymz(a)
PROCEDURE ymz(r)
RETURN 3.14159 * r^2
ENDPROC