如何利用VB编程，输入圆的半径，计算并输出圆的面积。

Question

如何利用VB编程，输入圆的半径，计算并输出圆的面积。单击命令按钮，调用InputBox函数输入数据，通过MsgBox显示计算结果。
要快点哦。

Answer 1

1、打开vb，选择左边工具栏的commandbutton。

2、在窗体上拖出一个按钮，更改上面的文字为“单击输入半径”。

3、双击按钮，在弹出的code代码窗口中，输入如下代码。

4、选择工具栏中的启动按钮进行调试。

5、单击按钮，会弹出一个对话框，在里面输入半径3。

6、会在窗体上打印出计算出的面积的值。

Answer 2

可以参考下面的代码：

Private Sub Command1_Click()

Dim p As Single

Dim s As Single

Dim r As Single

p = 3.1415 '定义周长率的值

r = InputBox("请输入一个圆的半径", "输入", 0) '获取输入值

s = p * r ^ 2 '面积公式

c = 2 * p * r '周长公式

MsgBox ("圆的面积为：" & s & "圆的周长为：" & c) '输出结果

End Sub

扩展资料：

相关参考函数

InputBox 函数： 在对话框中显示提示信息，等待用户输入文本或者单击按钮，并返回文本框的内容。 

InStr 函数： 返回一个字符串在另一个字符串中第一次出现的位置。 

InStrRev 函数： 返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。 

Int 函数 ：返回数的整数部分。 

整数除法运算符(\)： 两数相除，返回的商取其整数部分。 

Join 函数： 返回连接许多包含在一个数组中的子串而创建的字符串。 

参考资料来源：百度百科-Visual Basic

Answer 3

Public Sub command1_click( )

dim r as integer

r=val(inputbox("请输入半径"))

s=3.1415926*r^2

msgbox "圆的面积为:"&s

end sub

Answer 4

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

Answer 5

Public Sub command1_click( )
dim r as single,s as single
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:" & cstr(s)
eng sub