1、输入半径,计算圆的周长和圆面积。界面设计如下:

我需要详细的步骤 谢谢
2024-12-13 17:31:11
推荐回答(1个)
回答1:

代码非常简单,就是下面两个过程:

Private Sub Command1_Click()

  Text2.Text = Format(3.1415926 * Val(Text1.Text) * Val(Text1.Text), "0.000")

End Sub

Private Sub Command2_Click()

   Text3.Text = Format(3.1415926 * Val(Text1.Text) * 2, "0.000")

End Sub