一般来说要两个文本框（一个输入半径，一个输出结果），一个命令按钮（让电脑计算），代码我就不重复了，下面就有，本来想说说细点，但我只能输入100字！
Dim R!
R = 2
MsgBox "面积是：" & PI * R ^ 2
s=3.14*r*r
text2=s
Private Sub Form_Load()
Dim R As Double
Dim S As Double
R = Val(Text1.Text)
S = 3.14 * (R ^ 2)
MsgBox Str(S)
End Sub本回答被提问者采纳
如何在VB中输入圆的面积公式?
可以参考下面的代码：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 ("圆的面积为：...
用VB程序求圆的面积
r = InputBox("输入r") '半径r通过inputbox函数输入值 s = PI * r ^ 2 '用求圆面积公式，并把值赋给S Print s '在窗体上打印出S的值 End Sub
vb编程:输入半径,求圆形面积
Private Sub Command1_Click()Dim r As Double r = InputBox("请输入半径:", "输入半径")Print "圆的面积是: (r ^ 2 * 3.14159)"End Sub 在窗体上建立一个按扭然后双击进去,输入上面的代码就可以了!
VB中如何写程序代码计算圆的面积
1、在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。2、接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。3、接下来定义一个Pi的常量，默认值设置为3.14。4、接下来我们开始编写代码。（因为程序行数较多，在这里统一写注释不方便观察，每句的含义请看...
VB题目是计算圆的面积,编程该怎么写
试试这个：Private Sub Form_Load()Dim r, s As Long r = Val(InputBox("请输入圆的半径", "计算圆的面积", 1))s = 3.14 * r * r Print "圆的面积是："; s End Sub
用VB编写求圆的面积
Option Explicit Const PI = 3.1415926 Private Sub Form_Click()Dim r r = InputBox("输入圆的半径：r", , 10)Print "圆的面积："; PI * r ^ 2 End Sub
用VB程序求圆的面积
'直接复制此代码到代码区 然后点一下窗体输入任意一个数值即得出圆的面积 Private Sub Form_Click()Dim x As Integer,PI As Single PI = 3.1415926 x = InputBox("输入一个圆的半径")y = 3.14 x x MsgBox "圆的面积为："& y End Sub ...
用VB6.0编程,求圆的面积,球的表面积,球的体积。
如图所示，望采纳。。。
怎样用VB计算圆的面积和周长要从头开始
Const pi As Single = 3.141593Private Sub Form_Click()Dim r As Singler = Val(InputBox("请输入圆的半径："))MsgBox "这个圆的面积为" & pi * r ^ 2 & vbCrLF & "周长为" & 2 * pi * rEnd Sub
编程,输入圆的半径,计算并输出圆的面积,用vb
On Error Resume Next Radius = Val(InputBox("输入圆的半径", "半径"))Pi = 3.1415926 MsgBox "圆的面积是：" & Radius * Radius * Pi
