来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 06:05:49
VB编写计算圆面积的Function过程.
编写计算圆面积的Function过程.
Function S(r As Single) As Single 'Function过程
Const pi = 3.1415926535898
S = pi * r ^ 2
End Function
Private Sub Form_Click()
Dim r As Single
r = Val(InputBox("请输入圆的半径:"))
If