Const PI = 3.14159
Dim r As Double
Dim C As Double
Dim S As Double
If IsNumeric(Text1.Text) Then
r = Val(Text1.Text)
C = 2 * PI * r
S = PI * r ^ 2
Text2.Text = Format(C, "0.00")
Text3.Text = Format(S, "0.00")
Else
MsgBox "输入不是一个有效的数值。", vbCritical
Text1.SetFocus
End If
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024