VB计算圆的周长和面积，求大神出面。
计算圆的周长和面积：在窗体中添加一个文本框Text1和一个对应的标签label1，再添加两个命令按钮Command1和Command2和一个图片框Picture1。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。）
Private Sub Command1_Click()
Dim R!, S!
R = Val(Text1)
S = 3.14 * R * R
Picture1.Cls
Picture1.Print "r=" & Text1
Picture1.Print "周长=" & S
End Sub
Private Sub Command2_Click()
Dim R!, C!
R = Val(Text1)
C = 2 * 3.14159 * R
Picture1.Cls
Picture1.Print "r=" & Text1
Picture1.Print "面积=" & C
End Sub
Private Sub Text1_Change()
Command1.Enabled = Ture
Command2.Enabled = Ture
End Sub
我把两个command的enable属性改为false，写完代码后，我是想一填上半径，command就呈现可按，可是一直不可按，灰色不可用。请指教哪里有问题？
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
Command2.Enabled = True
End Sub
在窗体载入时加上这个代码
代码没问题
true
怎样用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怎么求圆的周长?
可以参考下面的代码：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 输入 半径 计算圆的周长和面积公式
他们的答案好像都没有输出结果。Dim r, s, c As Integer 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.Te...
vb编程 输入圆半径,计算圆周长和圆面积 顺便可以把图画出来,用VB2005...
r = InputBox("r=", "输入半径") '输入r的值 s = PI * r * r '计算表达式PI*r*r的值并赋给s c= 2*pi*r '计算表达式2*PI*r的值并赋给c Print "圆的面积 s="; s 's的值输出到当前的窗体上 Print "圆的周长 c="; c '过程结束 End Sub ...
设计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编程,输入圆的半径,计算并输出圆的面积。
1、打开vb，选择左边工具栏的commandbutton。2、在窗体上拖出一个按钮，更改上面的文字为“单击输入半径”。3、双击按钮，在弹出的code代码窗口中，输入如下代码。4、选择工具栏中的启动按钮进行调试。5、单击按钮，会弹出一个对话框，在里面输入半径3。6、会在窗体上打印出计算出的面积的值。
简单VB编程!求高手帮忙,答对必追加悬赏!
1，从输入框中输入圆的半径，计算圆的周长和面积。2，比较两个数X和Y的大小，如果X小于Y,交换他们的值，写出程序代码。谢谢高手了。。解析:不用加任何控件，把代码复制就行，单击窗体实现 1:Private Sub Form_Click()r = InputBox("请输入圆的半径")MsgBox "圆的面积为" & 3.14 * r ^ 2...
vb编程 输入圆半径,计算圆周长和圆面积
Private Sub cmdOK_Click()Dim PI As Double PI = 3.14 If IsNumeric(Trim(txtR.Text)) = False Then MsgBox "请输入一个合法的数"txtR.Text = ""txtR.SetFocus Exit Sub End If txtG.Text = FormatNumber((2 * PI * Val(txtR.Text)), 2)txtA.Text = FormatNumber(PI * Val(txtR....
怎样用vb求圆的周长和面积
程序，自己弄一个textbox 1用来输入圆的半径 textbox2用来显示计算结果周长 textbox3用来显示计算结果面积 添加两个button1命名为计算圆的周长和面积。定义常量π，定义半径r 然后在button1 事件中添加计算和显示结果代码即可。算法：Public Class Form1 Const P = 3.14 Private Sub Button1_Click(By...
用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
