UC知道关于vb的一个小程序
来源：百度知道 编辑：UC知道 时间：2024/06/02 02:51:28
请帮忙解决一下：
编写一段代码，求给定一个圆的周长和面积。要求：
（1）圆半径r利用inputbox函数从键盘任意输入（r>0)
(2)圆周率定义为常量pi
(3)利用赋值语句将求出的周长和面积分别赋给变量l,s
(4)用print方法输出详细结果
本人写出来的有点小问题,条件中r>0还用的if语句,实际上似乎不用,所以希望各位大虾指点下,供小弟参考,谢谢
编写一段代码，求给定一个圆的周长和面积。要求：
（1）圆半径r利用inputbox函数从键盘任意输入（r>0)
(2)圆周率定义为常量pi
(3)利用赋值语句将求出的周长和面积分别赋给变量l,s
(4)用print方法输出详细结果
本人写出来的有点小问题,条件中r>0还用的if语句,实际上似乎不用,所以希望各位大虾指点下,供小弟参考,谢谢
pi = 3.1415926
r = InputBox("请输入r")
If IsNumeric(r) Then
l = 2 * pi * Abs(r)
s = pi * r * r
Print "周长为："; l
Print "面积为："; s
MsgBox "周长为：" & CStr(l) & " " & "面积为：" & CStr(s)
Else
MsgBox "您输入的不是数，程序无法计算。"
End If
Private Const Pi = 3.1415926 '定义常量
Dim R, S, L As Double
Private Sub Command1_Click()
R = Val(InputBox("请输入半径R", "输入", ""))
If R > 0 Then
L = 2 * Pi * R
S = Pi * R * R
Print "周长为："; L
Print "面积为："; S
Else
MsgBox "半径R的值必须大于0，请正确输入", 48, "提示错误！"
End If
End Sub
const pi = 3.1415926
private sub command1_click()
r = inputbox("input r")
if r < 0 then
msgbox "r < 0"
exit sub
end if
s = pi * r ^ 2
l = 2 * r * pi
print s
print l