Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b=3.14*a^2
Text2.Text = "圆面积为:"+ b
End Sub
微信扫码预览、分享更方便