dim mianji,zhouchang as double
pai=3.1415926
mianji= pai*r*r
zhouchang=2*pai*r
用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求圆的周长和面积
程序，自己弄一个textbox 1用来输入圆的半径 textbox2用来显示计算结果周长 textbox3用来显示计算结果面积 添加两个button1命名为计算圆的周长和面积。定义常量π，定义半径r 然后在button1 事件中添加计算和显示结果代码即可。算法：Public Class Form1 Const P = 3.14 Private Sub Button1_Click(ByV...
怎样用VB计算圆的面积和周长
圆的周长＝2×半径×圆周率＝直径×圆周率 即：圆的周长＝2πr 或πD 面积：s=πr² 或s=π(d\/2)²程序，自己弄一个textbox 1用来输入圆的半径 textbox2用来显示计算结果周长 textbox3用来显示计算结果面积 添加两个button1命名为计算圆的周长和面积。定义常量π，定义半径r 然后...
设计VB计算圆的面积与周长
Private Sub Command2_Click()R = InputBox("请输入圆的半径")S = 3.1415926 * (R ^ 2)L = 2 * 3.1415926 * R MsgBox ("圆的面积" & S & vbCrLf & "圆的周长" & L)End Sub
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输入半径,计算圆周长和圆面积。
运行通过，希望对你有帮助。\\x0d\\x0aPrivateSubCommand1_Click()\\x0d\\x0aDimrAsDouble\\x0d\\x0ar=Val(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\\x0...
vb编程:输入半径,求圆形面积
Private Sub Command1_Click()Dim r As Double r = InputBox("请输入半径:", "输入半径")Print "圆的面积是: (r ^ 2 * 3.14159)"End Sub 在窗体上建立一个按扭然后双击进去,输入上面的代码就可以了!
VB输入半径,计算圆周长和圆面积。
运行通过，希望对你有帮助。Private Sub Command1_Click()Dim r As Double r = Val(Text1.Text)c = 2 * 3.14 * r s = 3.14 * r * r Print "周长c="; c; "面积s="; s End Sub Private Sub Form_Load()Me.Show Text1.Text = ""MsgBox "请输入要计算的圆的半径"Text1.Set...
输入半径,用VB编写计算圆面积和圆周长的程序
i As Single, s As Single r = InputBox("请输入半径:", "输入半径")i = 2 * PI * r s = PI * r ^ 2 Label2 = Label2 & r Label3 = Label3 + Str(i)Label4 = Label4 + Str(s)End Sub 当然你要有四个Label控件，第一个可以随便设置，例如写成“计算圆的周长与面积”...
用vb编程,求圆的周长与面积,代码怎么写?急求,跪谢啊!
private sub command1_click()dim x,z,s as single x=val(inputbox("请输入圆的半径："))z=2*3.1416*x s=3.1416*x*x msgbox z msgbox s end sub
