如何利用VB编程，输入圆的半径，计算并输出圆的面积。
答案:3 悬赏:30
解决时间 2021-01-08 20:10
- 提问者网友：寂寞梧桐
- 2021-01-08 11:19
如何利用VB编程，输入圆的半径，计算并输出圆的面积。
最佳答案
- 二级知识专家网友：你哪知我潦倒为你
- 2021-01-08 11:58
Public Sub command1_click( )
dim r as integer
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:"&s
end sub
dim r as integer
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:"&s
end sub
全部回答
- 1楼网友：何以畏孤独
- 2021-01-08 13:05
Public Sub command1_click( )
dim r as single,s as single
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:" & cstr(s)
eng sub
dim r as single,s as single
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:" & cstr(s)
eng sub
- 2楼网友：像个废品
- 2021-01-08 12:19
sub command1_click()
dim r$,s!
do
r=inputbox("请输入半径r")
if isnumeric(r) then
if val(r)>0 then exit do
end if
loop
s=3.1415926*val(r)*val(r)
msgbox "圆的面积为:" & s
end sub
dim r$,s!
do
r=inputbox("请输入半径r")
if isnumeric(r) then
if val(r)>0 then exit do
end if
loop
s=3.1415926*val(r)*val(r)
msgbox "圆的面积为:" & s
end sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯