【VB程序】设计程序，要求输入圆半径的值，求出圆的面积。以上为题目，求代码，求如图的表格表2-5

发布网友发布时间：2022-04-28 16:23

我来回答

共4个回答

热心网友时间：2023-10-04 10:11

'1、求圆的面积
Private Sub Command1_Click()
T = InputBox("请输入圆半径")
MsgBox "圆的面积为：" & Val(T) ^ 2 * 3.14159

End Sub

2、表格表2-5窗口请看附件。

请参考采纳！谢谢！

追问

追答T = InputBox("请输入圆半径")
请把代码复制完整。

热心网友时间：2023-10-04 10:11

Dim r
r = InputBox("请输入半径")
If IsNumeric(r) Then
MsgBox "半径为" & r & "的圆，面积约等于：" & Format((3.141592653 * r * r), "0.00")
Else
MsgBox "请输入有效数字作为半径"
End If追问

我打进去不对啊

热心网友时间：2023-10-04 10:12

甲：没人解答？嗯这个问题太复杂，同时分数又太少
乙：度娘缺心眼呗
甲：不是，度娘心眼太多了

热心网友时间：2023-10-04 10:12

Dim Pi As Single
Dim r As Single
Dim S As Single
Private Sub Form_Load()
r = InputBox("请输入半径")
Pi = 3.1415926
S = Pi * r * r
Print S
End Sub追问打进去怎么不给我面积呢

追答你要在窗口右边的属性栏里面找一找autodraw的选项，开成true才行

【VB程序】设计程序，要求输入圆半径的值，求出圆的面积。 以上为题目，求代码，求如图的表格表2-5

【VB程序】设计程序，要求输入圆半径的值，求出圆的面积。以上为题目，求代码，求如图的表格表2-5