代码非常简单,就是下面两个过程:
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")