Private Sub Form_Load()
Dim r, s As Long
r = Val(InputBox("请输入圆的半径", "计算圆的面积", 1))
s = 3.14 * r * r
Print "圆的面积是："; s
End Sub本回答被提问者采纳
s=3.1415926 * (inputbox("请输入半径的值"))^2
msgbox s '或者me.print s本回答被网友采纳
VB题目是计算圆的面积,编程该怎么写
"圆的面积是:";s End Sub
VB中如何写程序代码计算圆的面积
1、在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。2、接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。3、接下来定义一个Pi的常量，默认值设置为3.14。4、接下来我们开始编写代码。（因为程序行数较多，在这里统一写注释不方便观察，每句的含义请看...
如何在VB中输入圆的面积公式?
MsgBox ("圆的面积为：" & s & "圆的周长为：" & c) '输出结果 End Sub
vb编程:输入半径,求圆形面积
Print "圆的面积是: (r ^ 2 * 3.14159)"End Sub 在窗体上建立一个按扭然后双击进去,输入上面的代码就可以了!
用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程序求圆的面积
'直接复制此代码到代码区 然后点一下窗体输入任意一个数值即得出圆的面积 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关于圆的周长和面积的代码。。。
Private Sub Command1_Click()r = Val(Text1.Text)s = 3.1415926 * r ^ 2 c = 2 * 3.1415926 * r Label1.Caption = "周长是：" & c Label2.Caption = "面积是：" & s End Sub Private Sub Command2_Click()Text1.Text = ""Label1.Caption = ""Label2.Caption = ""End ...
设计VB计算圆的面积与周长
2 L = 3.1415926 * D MsgBox ("圆的面积" & S & vbCrLf & "圆的周长" & L)End Sub Private Sub Command2_Click()R = InputBox("请输入圆的半径")S = 3.1415926 * (R ^ 2)L = 2 * 3.1415926 * R MsgBox ("圆的面积" & S & vbCrLf & "圆的周长" & L)End Sub ...
VB输入半径,计算圆周长和圆面积。
Text1.Text)\\x0d\\x0ac=2*3.14*r\\x0d\\x0as=3.14*r*r\\x0d\\x0aPrint"周长c=";c;"面积s=";s\\x0d\\x0aEndSub\\x0d\\x0a\\x0d\\x0aPrivateSubForm_Load()\\x0d\\x0aMe.Show\\x0d\\x0aText1.Text=""\\x0d\\x0aMsgBox"请输入要计算的圆的半径"\\x0d\\x0aText1.SetFocus\\...
