通过InputBox函数，输入圆的半径r和运算标志，按照运算标志进行指定运算，参考界面见实验指导书P30页。给定的运算标志及其表示的运算如下：]
C表示计算周长
A表示计算面积
B表示周长和面积都计算
要求：使用Case语句实现。

这些书上都有，你就不知道多看看

计算按钮里面的代码
Dim type as string
Dim r as double
r=val(inputbox("请输入圆的半径","第一步")
type=inputbox("请输入计算类型","第二部")
select case type
case "C"
print "半径="& r &"圆周长=" & format(2*3.1415926*r,"0.0")
case "A"
print "半径=" & r & "面积=" & format(3.1415926*r*r,"0.0")
case "B"
…
…
case else
msgbox"输入类型有误"
end selece

最后一行是end select
手机打的

Option Explicit
Const pi As Double = 3.14159
Private Sub Form_Load()
Dim rad As Double
Dim cal As String
rad = Val(InputBox("请输入圆的半径："))
cal = Asc(InputBox("请输入A或B或C："))
Select Case cal
Case 65
Print "圆的周长为:"; 2 * pi * rad
Case 66
Print "圆的面积为:"; pi * rad ^ 2
Case 67
Print "圆的周长为:"; 2 * pi * rad
Print "圆的面积为:"; pi * rad ^ 2
Case Else
Print "输入错误！"
End Select
End Sub

谢谢大神