如何用VB.NET畫同心圓

窗體上添加一個(gè)按鈕，在該按鈕的單擊事件里編寫代碼如下：

成都創(chuàng)新互聯(lián)電話聯(lián)系：18980820575，為您提供成都網(wǎng)站建設(shè)網(wǎng)頁設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù)，成都創(chuàng)新互聯(lián)網(wǎng)頁制作領(lǐng)域十余年，包括成都廣告制作等多個(gè)方面擁有多年的網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)，選擇成都創(chuàng)新互聯(lián)，為網(wǎng)站錦上添花。

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

'聲明窗體的Me.CreateGraphics對(duì)象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓心的X坐標(biāo)

Dim Cy As Integer = 150 '圓心的Y坐標(biāo)

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（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）

其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個(gè)數(shù)值確定，第1個(gè)數(shù)值，確定該區(qū)域左上角的X坐標(biāo)，第2個(gè)數(shù)值，確定該區(qū)域左上角的Y坐標(biāo)，第3個(gè)數(shù)值，確定該區(qū)域的寬度，第4個(gè)數(shù)值，確定該區(qū)域的高度。

例如1：

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

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計(jì)算，知道如何繪制了。

同理例如2：

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

就是以圓心坐標(biāo)為（100,100），繪制半徑為50 的圓。其實(shí)在VB.NET中，是告訴系統(tǒng)在以左上角坐標(biāo)（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

vb.net 計(jì)算圓周率公式

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的開方運(yùn)算

VB的運(yùn)算順序是：先乘除、后加減，有括號(hào)的先算括號(hào)內(nèi)，有負(fù)號(hào)的先算負(fù)號(hào)。

請(qǐng)你比較一下這個(gè)運(yùn)算中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)

這樣就會(huì)發(fā)現(xiàn)，你的代碼中括號(hào)的位置錯(cuò)了。

正確的應(yīng)該是： Math.Sqrt((n + 1) / n - 1)

VB.net當(dāng)中用數(shù)學(xué)函數(shù)math.sin出現(xiàn)的問題

-1.52341E-13

科學(xué)計(jì)數(shù)法，10的-13次方表示此數(shù)已經(jīng)接近于0了，應(yīng)該是single類型的精度導(dǎo)致的，你把精度設(shè)置適當(dāng)應(yīng)該就可以了。

VB.NET 如何繪制數(shù)學(xué)代數(shù)式（公式、方程、函數(shù)解析式等）？

絕對(duì)值是“|”，可以直接顯示，同理對(duì)數(shù)可用log(x)代替，根號(hào)和其他不支持顯示。

如果要顯示數(shù)學(xué)式子，只能畫吧。

計(jì)算時(shí)可用“^”求冪或求根，“/”表示除法和分?jǐn)?shù)線，還有math類。