设计一个程序,由用户输入半径,计算出圆周长和圆面积

access2003,vba... access2003,vba 展开
 我来答
匿名用户
推荐于2018-04-12
展开全部
好像用不着access2003吧
vb代码:
Private Sub Command1_Click()
Dim r As Single
Dim c As Single
Dim s As Single
Dim P As Single
P = 3.14
r = Int(Text1.Text)
c = 2 * P * r
s = 2 * P * r
Label1.Caption = "圆周长为 : " + Str(c)
Label2.Caption = "圆面积为 :" + Str(s)
End Sub
程序中有一个文本框text1 两个Label控件 分别是Label1,Label2
东莞大凡
2024-11-19 广告
板格标定棋盘是我们东莞市大凡光学科技有限公司在精密光学测量领域的重要工具。它采用高精度设计,确保每一个格板都达到严格的校准标准。通过使用板格标定棋盘,我们能够有效地对光学测量系统进行校准,从而提升测量的准确性和可靠性。这一工具在光学仪器的研... 点击进入详情页
本回答由东莞大凡提供
铎碧灵房宾
游戏玩家

2019-06-29 · 游戏我都懂点儿,问我就对了
知道大有可为答主
回答量:1.2万
采纳率:34%
帮助的人:733万
展开全部
//C++语言
#include<math.h>
#include<iostream>
using
namespace
std;
#define
R
3.14159
int
main()
{
double
r;
double
circumference,square;
cout<<"请输入要计算面积和周长的圆的半径:";
cin>>r;
circumference=2*R*r;
square=R*pow(r,2);
cout<<"圆周长是:"<<circumference<<"
圆面积是:"<<square<<endl;
return
0;
}
//c语言
/*
#include<math.h>
#include<stdio.h>
#define
R
3.14159
int
main()
{
double
r;
double
circumference,square;
printf("请输入要计算面积和周长的圆的半径:\n");
scanf("%lf",&r);
circumference=2*R*r;
square=R*pow(r,2);
printf("圆周长是:%f,
圆面积是:%f\n",circumference,square);
return
0;
}
*/
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-07-18
展开全部
//C++语言

#include<math.h>
#include<iostream>
using namespace std;
#define R 3.14159

int main()
{
double r;
double circumference,square;
cout<<"请输入要计算面积和周长的圆的半径:";
cin>>r;
circumference=2*R*r;
square=R*pow(r,2);
cout<<"圆周长是:"<<circumference<<" 圆面积是:"<<square<<endl;
return 0;
}

//c语言
/*
#include<math.h>
#include<stdio.h>
#define R 3.14159
int main()
{
double r;
double circumference,square;
printf("请输入要计算面积和周长的圆的半径:\n");
scanf("%lf",&r);
circumference=2*R*r;
square=R*pow(r,2);
printf("圆周长是:%f, 圆面积是:%f\n",circumference,square);
return 0;
}
*/
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-07-18
展开全部
//C++编
include<iostream>
using namespace std;
int main(){
double x;
cin>>x;
double zc,mj;
zc=2*3.14*x;
mj=3.14*x*x;
cout<<"圆周长是:"<<zc<<" 圆面积是:"<<mj;
return 0;
}
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-07-18
展开全部
也不知道你是要什么语言的,给你几种吧

1.VB的

'在代码窗口中直接复制代码
Private Sub Form_Load()
Dim Radiu As Single '半径
Dim Area As Single '面积
Dim Circumference As Single '周长
Const Pi As Single = 3.141592653

Radiu = InputBox("请输入半径:", "输入")
Area = Pi * Radiu * Radiu
Circumference = 2 * Pi * Radiu
MsgBox "你输入的数是" & Radiu & vbCrLf & _
"面积是" & Area & vbCrLf & _
"周长是" & Circumference, vbInformation, "输出"
End
End Sub

2.C++的

#include <iostream>

using namespace std;

int main()
{
float radiu=0, area=0, circumference=0;
const float pi = 3.14159;

cout<<"请输入半径:";
cin>>radiu;
area = pi * radiu * radiu;
circumference = 2 * pi * radiu;
cout<<"你输入的半径是"<<radiu<<endl;
cout<<"面积是"<<area<<endl;
cout<<"周长是"<<circumference<<endl;
}
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式