VB.net数学 Vb Net

如何用VB.NET画同心圆

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

创新互联专注为客户提供全方位的互联网综合服务,包含不限于网站设计制作、成都网站设计、广水网络推广、小程序制作、广水网络营销、广水企业策划、广水品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供广水建站搭建服务,24小时服务热线:028-86922220,官方网址:www.cdcxhl.com

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 如何绘制数学代数式(公式、方程、函数解析式等)?

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

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

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

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

-1.52341E-13

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


网页标题:VB.net数学 Vb Net
链接URL:http://pwwzsj.com/article/dodojjc.html