在vb中如何精確表達π 有前輩用atn函數(shù)表達出來了 但還有些疑問

首先說：能。 3*Atn（√3）也可以得到正確的值。但沒什么意義。因為這個表達式書寫起來遠不如 4 * Atn(1) 簡潔，而且由于使用了開根號函數(shù)，無論是精度還是CPU資源消耗上都要更差一點。

目前成都創(chuàng)新互聯(lián)公司已為近1000家的企業(yè)提供了網(wǎng)站建設、域名、網(wǎng)絡空間、網(wǎng)站運營、企業(yè)網(wǎng)站設計、安遠網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

最后，在VB6中，用 4 * Atn(1) 是可以的。在 VB.net 中就可以直接使用 math.pi 這個常量了。

求幫忙編寫vb程序。vb.net程序，輸入圓的半徑，求圓的面積和周長。跪謝！

Dim pi As Single = 3.14159

Dim R As Single = Val(InputBox("輸入半徑"))

MsgBox("圓面積=" pi * R * R.ToString)

MsgBox("圓周長=" 2 * pi * R.ToString)

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怎樣實現(xiàn)某一范圍內(nèi)的隨即小數(shù)?例如2.1到3.4之間。

可以用Rnd函數(shù)實現(xiàn)

Rnd 函數(shù)返回小于 1 但大于或等于 0 的值。

為了生成某個范圍內(nèi)的隨機整數(shù)，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

這里，upperbound 是隨機數(shù)范圍的上限，而 lowerbound 則是隨機數(shù)范圍的下限。

你這里可以先把范圍擴大10倍，看成21到34之間的隨機數(shù)，最后再除以10就行了。

Int((34 - 21 + 1) * Rnd + 21) / 10

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

-1.52341E-13

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