计算输出圆半径从10-20（间距1）的圆面积

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:06:29
定义从一个计算圆面积的函数，函数名为UDF。编写主程序调用UDF函数，计算并输出圆半径从10-20（间距1）的圆面积
要步骤

这是vb6编程：
Private Function UDF(S, R) As Double
S = 3.14259265 * R ^ 2

End Function

Private Sub Command1_Click()
Dim sd As Double， ra%
For ra = 10 To 20 Step 1
Call UDF(sd, ra)
Print sd
Next ra
End Sub