Private Sub CmdSqr_Click()
Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2
End Sub 至于布局相信你会做的很好
Dim r As Single '定义半径r为单精度(变量)
Const PI As Single = 3.1415926 '定义PI为单精度(常量)
Dim s As Single '定义面积S为单精度（变量）
r = InputBox("输入r") '半径r通过inputbox函数输入值
s = PI * r ^ 2 '用求圆面积公式，并把值赋给S
Print s '在窗体上打印出S的值
End Sub
程序运行 在text1里输入圆的半径 按下按钮
在text2里就会出来面积
Private Sub Command1_Click()
Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2
End Sub
太easy了，路过
你不会吗？？？？？？？？？？？？？？？？？？？
vb怎么计算圆形面积?
vb可以用以下的方法计算圆形面积：Dim r as double,s as double r=val(inputbox("请输入半径："))s=3.1415926*r*r msgbox("圆面积=" & s)
VB中如何写程序代码计算圆的面积
1、在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。2、接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。3、接下来定义一个Pi的常量，默认值设置为3.14。4、接下来我们开始编写代码。（因为程序行数较多，在这里统一写注释不方便观察，每句的含义请看...
用VB程序求圆的面积
Const PI As Single = 3.14 '定义PI为单精度(常量)Dim s As Single '定义面积S为单精度（变量）r = InputBox("输入r") '半径r通过inputbox函数输入值 s = PI * r ^ 2 '用求圆面积公式，并把值赋给S Print s '在窗体上打印出S的值 End Sub ...
如何利用VB编程,输入圆的半径,计算并输出圆的面积。
1、打开vb，选择左边工具栏的commandbutton。2、在窗体上拖出一个按钮，更改上面的文字为“单击输入半径”。3、双击按钮，在弹出的code代码窗口中，输入如下代码。4、选择工具栏中的启动按钮进行调试。5、单击按钮，会弹出一个对话框，在里面输入半径3。6、会在窗体上打印出计算出的面积的值。
vb编程:输入半径,求圆形面积
Private Sub Command1_Click()Dim r As Double r = InputBox("请输入半径:", "输入半径")Print "圆的面积是: (r ^ 2 * 3.14159)"End Sub 在窗体上建立一个按扭然后双击进去,输入上面的代码就可以了!
VB题目是计算圆的面积,编程该怎么写
试试这个：Private Sub Form_Load()Dim r, s As Long r = Val(InputBox("请输入圆的半径", "计算圆的面积", 1))s = 3.14 * r * r Print "圆的面积是："; s End Sub
vb 已知圆半径r,求圆面积,球表体积,球体积
As Long, v As Long r = InputBox("请输入圆半径:", "圆半径")c = 3.14 * r * r s = 4 * 3.14 * r * r v = (4 \/ 3) * 3.14 * r * r * r Label4.Caption = c Label5.Caption = s Label6.Caption = v End Sub 在VISUAL BASIC 程序设计教程（第四版） 71 ...
怎样用VB计算圆的面积和周长
textbox2用来显示计算结果周长 textbox3用来显示计算结果面积 添加两个button1命名为计算圆的周长和面积。定义常量π，定义半径r 然后在button1 事件中添加计算和显示结果代码即可。Public Class Form1 Const P = 3.14 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S...
怎样用vb求圆的周长和面积
面积：s=πr² 或s=π(d\/2)²程序，自己弄一个textbox 1用来输入圆的半径 textbox2用来显示计算结果周长 textbox3用来显示计算结果面积 添加两个button1命名为计算圆的周长和面积。定义常量π，定义半径r 然后在button1 事件中添加计算和显示结果代码即可。算法：Public Class Form1 Con...
vb怎么计算圆形面积?
先建一个窗体Form1,两个标签.其Caption分别为"输入圆的半径:" "圆的面积:" 两个Text,Text属性分别为 , .意思是初始化为空格.一个命令按钮CmdSqr,添加其代码 Private Sub CmdSqr_Click()Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2 End Sub 至于布局相信你会做的很好 ...
