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

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

創(chuàng)新互聯(lián)公司于2013年開(kāi)始，先為灤平等服務(wù)建站，灤平等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為灤平企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。

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 如何繪制數(shù)學(xué)代數(shù)式（公式、方程、函數(shù)解析式等）？

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

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

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

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

-1.52341E-13

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

如何用VB.NET畫(huà)同心圓

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

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

‘用黑色畫(huà)筆繪制一組同心圓，半徑從5開(kāi)始，增量為5。

說(shuō)明：

DrawEllipse是VB.Net的Graphics類(lèi)的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫(huà)筆的顏色，繪制橢圓所需要的矩形區(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），邊長(zhǎng)為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過(guò)數(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），長(zhǎng)軸為100，短軸為50的內(nèi)切橢圓。

VB.net的開(kāi)方運(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)

當(dāng)前文章：vb.net數(shù)學(xué),vb數(shù)學(xué)函數(shù)
文章鏈接：http://chinadenli.net/article28/hohejp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊(cè)、微信小程序、全網(wǎng)營(yíng)銷(xiāo)推廣、定制開(kāi)發(fā)、虛擬主機(jī)、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)