vb输入圆的半径，计算并输出圆的面积,单击命令按钮，调用InputBox函数输入数据，通过MsgBox显示计算结果

答案:4 悬赏:50 手机版

解决时间 2021-01-18 05:07

提问者网友：寂寞撕碎了回忆
2021-01-17 07:02

最佳答案

五星知识达人网友：污到你湿
2021-01-17 08:12

我用一个命令按钮来实现你所说的效果
Private Sub Command1_Click()
Dim r As Single
r = Val(InputBox("请输入圆的半径：", "输入"))
MsgBox "当半径为" & r & "时圆的面积为：" & r * r * 3.14
End Sub
代码我已经在电脑上试过了，应该满足你所说的要求！！！

全部回答

1楼网友：七十二街
2021-01-17 10:08

他们回答的都很好

2楼网友：怙棘
2021-01-17 09:53

Private Sub Command1_Click()
a = Val(InputBox("请输入半径的长："))
MsgBox "半径为" & a & "的园的面积为：" & a ^ 2 * 3.14
End Sub

3楼网友：英雄的欲望
2021-01-17 08:27

Private Sub Command1_Click()
Dim SBj As Single
Dim SMj As Single
SBj = Val(InputBox("请输入半径的长："))
MsgBox "半径为" & SBj & "的圆的面积为：" & SBj * SBj * 3.14
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息