中科新闻网云服务器安装xampp:vb怎么计算圆形面积？
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 07:00:27
求步骤，方法，代码，谢谢………………
先建一个窗体Form1,两个标签.其Caption分别为"输入圆的半径:" "圆的面积:" 两个Text,Text属性分别为 , .意思是初始化为空格.一个命令按钮CmdSqr,添加其代码
Private Sub CmdSqr_Click()
Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2
End Sub 至于布局相信你会做的很好
Private Sub Form_click()
Dim r As Single '定义半径r为单精度(变量)
Const PI As Single = 3.1415926 '定义PI为单精度(常量)
Dim s As Single '定义面积S为单精度（变量）
r = InputBox("输入r") '半径r通过inputbox函数输入值
s = PI * r ^ 2 '用求圆面积公式，并把值赋给S
Print s '在窗体上打印出S的值
End Sub
在窗体上方两个text并把里面的文本清空，再放一个按钮
程序运行 在text1里输入圆的半径 按下按钮
在text2里就会出来面积
Private Sub Command1_Click()
Text2.Text = 3.1415926 * Val(Text1.Text) ^ 2
End Sub
S = 3.14159 * R * R
太easy了，路过
3.141592653*r*r.
你不会吗？？？？？？？？？？？？？？？？？？？