求计算机专业大神VBA代码编写

求步骤和代码！！谢谢各位

2025-03-20 10:36:27

推荐回答（3个）

回答1：

Const PI = 3.14
Sub ipt()
Dim r As Integer
Dim Area
Dim Perimeter
r = Val(InputBox("请输入半径"))
If r > 0 Then
Area = AreaOfCircle(r)
Perimeter = PerimeterCircle(r)
MsgBox ("面积=" & Area & vbCrLf & "周长=" & Perimeter)
Else: MsgBox ("半径需要大于0！")
End If
End Sub
Function AreaOfCircle(ByVal r As Integer)
AreaOfCircle = PI * r ^ 2
End Function
Function PerimeterCircle(ByVal r As Integer)
PerimeterCircle = 2 * PI * r
End Function

大概这样吧，自己看需要修改

回答2：

这个比较简单，50元给你搞定

回答3：

做出来了，兄弟