如何用VB.NET画同心圆

窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：

成都创新互联电话联系：18980820575，为您提供成都网站建设网页设计及定制高端网站建设服务，成都创新互联网页制作领域十余年，包括成都广告制作等多个方面拥有多年的网站设计经验，选择成都创新互联，为网站锦上添花。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'声明窗体的Me.CreateGraphics对象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圆心的X坐标

Dim Cy As Integer = 150 '圆心的Y坐标

Dim R As Integer '圆的半径

'绘制半径为R的圆

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5。

说明：

DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；

DrawEllipse（画笔的颜色，绘制椭圆所需要的矩形区域）

其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值，确定该区域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆。理解了是在正方形里绘制内切圆，就可以通过数学计算，知道如何绘制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100，短轴为50的内切椭圆。

vb.net 计算圆周率公式

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim s As Double

Dim n As Integer

s = 2

For n = 1 To 10000

s = s * (2 * n) ^ 2 / (2 * n - 1) / (2 * n + 1)

Next n

MsgBox("圆周率π的值是"  s)

End Sub

VB.net的开方运算

VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。

请你比较一下这个运算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

这样就会发现，你的代码中括号的位置错了。

正确的应该是： Math.Sqrt((n + 1) / n - 1)

VB.net当中用数学函数math.sin出现的问题

-1.52341E-13

科学计数法，10的-13次方表示此数已经接近于0了，应该是single类型的精度导致的，你把精度设置适当应该就可以了。

VB.NET 如何绘制数学代数式（公式、方程、函数解析式等）？

绝对值是“|”，可以直接显示，同理对数可用log(x)代替，根号和其他不支持显示。

如果要显示数学式子，只能画吧。

计算时可用“^”求幂或求根，“/”表示除法和分数线，还有math类。

名称栏目：vb.net数学,net 数学
网页URL：http://hbruida.cn/article/hohsoh.html