如何利用VB编程,输入圆的半径,计算并输出圆的面积。
发布网友
发布时间：2022-04-28 16:23
共5个回答
热心网友
时间：2022-06-19 16:56
1、打开vb，选择左边工具栏的commandbutton。
2、在窗体上拖出一个按钮，更改上面的文字为“单击输入半径”。
3、双击按钮，在弹出的code代码窗口中，输入如下代码。
4、选择工具栏中的启动按钮进行调试。
5、单击按钮，会弹出一个对话框，在里面输入半径3。
6、会在窗体上打印出计算出的面积的值。
热心网友
时间：2022-06-19 16:57
可以参考下面的代码：
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
热心网友
时间：2022-06-19 16:57
dim r as integer
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:"&s
end sub
热心网友
时间：2022-06-19 16:58
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
热心网友
时间：2022-06-19 16:58
dim r as single,s as single
r=val(inputbox("请输入半径"))
s=3.1415926*r^2
msgbox "圆的面积为:" & cstr(s)
eng sub
