在vf中如何输入圆的半径求圆的面积，程序设计题该怎么做

*vf题目：分别使用自定义函数和子程序两种方法，编写计算圆环面积的程序，其中圆的半径从键盘输入

INPUT "请输入圆环外(大)半径：" TO dr

INPUT "请输入圆环内(小)半径：" TO xr

?'圆环面积(自定义函数方法):',yhmj_hs(dr,xr) &&自定义函数方法调用

s=0 &&以下是子程序方法调用

DO yhmj_zc WITH dr,xr

?'圆环面积(子程序方法):',s

RETURN

PROCEDURE yhmj_zc

PARAMETERS wj,nj

s=PI()*wj^2-PI()*nj^2

RETURN

FUNCTION yhmj_hs

PARAMETERS wj,nj

s=PI()*wj^2-PI()*nj^2

RETURN s

①编一过程用于求一元二次方程的两个实根，要求主程序实现输入和输出的功能。

set talk off

store 0 to x1,x2

input "a=" to a

input "b=" to b

input "c=" to c

if fun(a,b,c)>=0

? x1,x2

else

messagebox("无实数解！")

endif

return

function fun(a,b,c)

D=B^2-4*A*C

if D>=0

D2=sqrt(D)

X1=(-b+D2)/(2*a)

X2=(-b-D2)/(2*a)

Endif

return D

②将计算圆、长方形的面积的程序编为两个自定义函数，然后被主程序调用。

set talk off

input "r = " to r

input "a = " to a

input "b = " to b

? "圆面积 = "

? fun1(r)

?

? "长方形面积 = "

? fun2(a,b)

return

function fun1(r)

return Pi()*r*r

function fun2(a,b)

return a*b

---