Private Sub Command 1_Click()
Dim r as single, c as single,
c=2*3.14*r
s=3.14*r*r
Text3 text=str(s)
End sub
微信扫码预览、分享更方便