题目
怎样用VB计算圆的面积和周长
要从头开始,希望每步有截图,刚刚开始学,
要从头开始,希望每步有截图,刚刚开始学,
提问时间:2020-10-13
答案
就两个公式嘛
圆的周长=2×半径×圆周率=直径×圆周率
即:圆的周长=2πr 或πD
面积:s=πr² 或s=π(d/2)²
程序,自己弄一个textbox 1用来输入圆的半径
textbox2用来显示计算结果周长
textbox3用来显示计算结果面积
添加两个button1命名为计算圆的周长和面积.
定义常量π,定义半径r
然后在button1 事件中添加计算和显示结果代码即可.
Public Class Form1
Const P = 3.14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear() '清空以前计算结果
TextBox3.Clear() '清空以前计算结果
If TextBox1.Text <> String.Empty Then '判断是否输入半径
Dim r As Double = TextBox1.Text
'上面是这两部的合并 Dim r As Double
' r=TextBox1.Text
TextBox2.Text = 2 * P * r
TextBox3.Text = P * r * r
Else
MsgBox("请输入圆的半径")
End If
End Sub
End Class
如果没有输入半径,提示输入半径
圆的周长=2×半径×圆周率=直径×圆周率
即:圆的周长=2πr 或πD
面积:s=πr² 或s=π(d/2)²
程序,自己弄一个textbox 1用来输入圆的半径
textbox2用来显示计算结果周长
textbox3用来显示计算结果面积
添加两个button1命名为计算圆的周长和面积.
定义常量π,定义半径r
然后在button1 事件中添加计算和显示结果代码即可.
Public Class Form1
Const P = 3.14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear() '清空以前计算结果
TextBox3.Clear() '清空以前计算结果
If TextBox1.Text <> String.Empty Then '判断是否输入半径
Dim r As Double = TextBox1.Text
'上面是这两部的合并 Dim r As Double
' r=TextBox1.Text
TextBox2.Text = 2 * P * r
TextBox3.Text = P * r * r
Else
MsgBox("请输入圆的半径")
End If
End Sub
End Class
如果没有输入半径,提示输入半径
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1火车到站广播是怎么说的?
- 2甲乙丙三人承包一项工程,甲乙合作六天完成了这项工程的三分之一后,乙丙又合作了2天完成了余下工程的四分之一,以后三人又合作了五天才完成了这项工程,一共得到工程款二千一百六十元.按完成工作量的多少来付报酬
- 3(3y+2)(y-4)-3(y-2)(y-3)计算
- 4合并同类项:3(y-x)²-7(y-x)+8(y-x)²+6(y-x)
- 5美丽而神奇的夜的世界的一切,立刻会在你的想象中展开.
- 6实验室里,科学家米勒是如何模拟原始地球上生命的出现的?米勒实验证明了什么
- 7一批货物第一天运走全部的2/3少28吨,第二天运走余的3/4又52吨,这是还剩货物70吨货物共有多少吨
- 8What do you like ____(eat) in the morning
- 91).
- 103/4+4/8+5/16+6/32+7/64+8/128+9/256
热门考点