作业帮 > 综合 > 作业

请设计函数area依据输入的半径值求圆的面积(圆周率取值3.142)

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/28 11:28:20
请设计函数area依据输入的半径值求圆的面积(圆周率取值3.142)
调用inputbox函数输入圆的半径
调用print方法在窗体默认位置输出圆的面积
请设计函数area依据输入的半径值求圆的面积(圆周率取值3.142)
 Private Function area(r As Double) As Double
   area = r ^ 2 * 3.142
End FunctionPrivate Sub Form_Click()
   Dim r As Double
   r = Val(InputBox("r=?"))
   If r > 0 Then
      Print "s=" & area(r)
   Else
      MsgBox "输入数据不符!"
   End If
End Su