VB 如何用inputbox输入半径 并计算圆周长

先在窗体上画一个command按钮，然后把代码改为：
Const pi As Double = 3.1415926
Private Sub command1_click()
Dim mianji As Double
Dim zhouchang As Double
Dim r As Integer
r = Val(InputBox("请输入圆的半径：", "输入"))
mianji = pi * r ^ 2
zhouchang = 2 * pi * r
Print "圆的周长为：" & zhouchang
Print "圆的面积为：" & mianji
End Sub
单击按钮，只要输入圆半径，然后按确定就会有结果。。。。

按照你的文字叙述和你的目的可以说前面你写的都还没错，但后面两个文本框事件就算是错了，你的所有代码都不变，只要你把后面两个显示到文本框的事件代码移动到第一个事件，即Form_Load事件的最后就可以了，更改如下：
按照你的文字叙述和你的目的可以说前面你写的都还没错，但后面两个文本框事件就算是错了，你的所有代码都不变，只要你把后面两个显示到文本框的事件代码移动到第一个事件，即Form_Load事件的最后就可以了，将以下两行移动到Form_Load的最后end sub 之前：
text1.text=mianji
text2.text=zhouchang

Const pi As Double = 3.1415926
Private Sub Form_Load()
Dim r As Integer
r = Val(InputBox("请输入圆的半径：", "输入"))
Text1.text = pi * r ^ 2
Text2.text = 2 * pi * r
End Sub

mianji = pi * r ^ 2
zhouchang = 2 * pi * r

修改为：
Text1= pi * r ^ 2
Text2 = 2 * pi * r

然后把下面的俩事件删了
Private Sub Text1_Change()
Private Sub Text2_Change()