用vba编写一个程序计算圆的面积
计算圆的周长面积vi子程序?
计算圆的周长面积vi子程序?
Private Sub Command1_Click()
D InputBox(请输入圆的直径)
S 3.1415926 / 4 * D ^ 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)
VB中如何写程序代码计算圆的面积?
答:试试这个:
Private Sub Form_Load()
Dim r, s As Long
r Val(InputBox(请输入圆的半径
vb怎么计算圆形面积?
先建一个窗体Form1,两个标签.其Caption分别为输入圆的半径: 圆的面积: 两个Text,Text属性分别为 , .意思是初始化为空格.一个命令按钮CmdSqr,添加其代码Private Sub CmdSqr_Click() Text2.Text 3.1415926 * Val(Text1.Text) ^ 2 End Sub 至于布局相信你会做的很好
vb输入圆的半径,计算并输出圆的面积,单击命令按钮,调用InputBox函数输入数据,通过MsgBox显示计算结果?
我用一个命令按钮来实现你所说的效果
Private Sub Command1_Click()
Dim r As Single
r Val(InputBox(请输入圆的半径:, 输入))
MsgBox 当半径为 r 时圆的面积为: r * r * 3.14
End Sub
代码我已经在电脑上试过了,应该满足你所说的要求!!!
vba计算圆周长?
输入半径,用VB编写计算圆面积和圆周长的程序
为保证程序运行的正确,对输入的半径进行合法检查,数据检查调用ISNUMERIC函数,利用MSGBOX先是出错信息,结果保留两位小数.要求面积和周长用两个COMMAND完成.半径用一个标签控制输入。.