VB.net的開方運算

VB的運算順序是：先乘除、后加減，有括號的先算括號內，有負號的先算負號。

為頭屯河等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務，及頭屯河網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為網(wǎng)站設計、網(wǎng)站建設、頭屯河網(wǎng)站設計，以傳統(tǒng)方式定制建設網(wǎng)站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

請你比較一下這個運算中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)

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

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

VB.NET為用戶提供了Math.Sqrt函數(shù)用于計算平方根值，但被開方值若為負數(shù)則無法得出正確的結果（如，-4的平

問題不是很簡單嗎？

判斷輸入的數(shù),大于等于零,則直接開方;小于零則取絕對值開方再加上字符"i",代碼我就不寫了.

使用VB編程算平方根

有現(xiàn)成函數(shù)sqr（100）返回10

如果是任意次開方可以自己做一個函數(shù)，先做一個連乘的乘方函數(shù)，再做一個開任意次方。因為開方就是不斷的用連乘來試驗的，如下

'定義連乘函數(shù)，或者叫乘方Private?Function?lc(number,?n?As?Integer)Dim?myresultmyresult?=?1Dim?i?As?IntegerFor?i?=?1?To?n????myresult?=?myresult?*?numberNextlc?=?myresultEnd?Function????

12345678910111213141516171819202122????'開任意次方Private?Function?Power(number?As?Double,?n?As?Integer)Dim?j?As?DoubleDim?myresult?As?Doublemyresult?=?0.0000001For?j?=?p?To?number?Step?0.00001????????????????????????????Dim?myNum?As?Double????myNum?=?lc(j,?n)????If?myNum?=?number?Then????myresult?=?j????Else????Exit?For????End?IfNextPower?=?myresultIf?lc(Int(Power)?+?1,?n)?=?number?ThenPower?=?Int(Power)?+?1ElsePower?=?myresultEnd?IfEnd?Function

調用示范：

MsgBox Power(28, 3)

VB中求一個數(shù)的平方根的代碼

private

sub

form_click()

dim

intflag

as

integer

dim

strnumber

as

string

dim

strmsg

as

string

strnumber

=

inputbox("輸入一個數(shù)")

msg$

=

"輸入的數(shù)是："

+

strnumber

+

chr$(13)

+

chr(10)

+

"確認是否正確"

intflag

=

msgbox(msg$,

36)

if

intflag

=

6

then

print

"sqr（";

strnumber;

")=";

sqr(val(strnumber))

else

print

"取消操作"

end

if

end

sub

private

sub

form_load()

autoredraw

=

true

print

"計算一個數(shù)的平方根"

print

"單擊窗體開始"

end

sub

VB問題，關于求平方根

把你定義的函數(shù)中的這句

squareroot

=

Sqr(n)

改成

squareroot

=

Sqr(x)

變量用錯了。呵呵

Sqrt()在VB里怎么使用？

在VB6中，沒有名為Sqrt（）函數(shù)或子過程；只有Math.Sqr(...)函數(shù)！

函數(shù) Math.Sqr(x)求一個數(shù)x的平方根。這個函數(shù)中

x≥0

所得結果（根）為Double類型

舉例如下：

Dim?root?As?Double

root?=?Math.Sqr(10)

MsgBox?"10的平方根為："?+?CStr(root)

如果試圖求一個負數(shù)的平方根引發(fā)錯誤：

當前文章：vb.net求平方根 vb語言中,用于計算平方根的函數(shù)是
當前路徑：http://chinadenli.net/article18/hpeggp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供外貿建站、品牌網(wǎng)站設計、軟件開發(fā)、網(wǎng)站策劃、網(wǎng)站排名、網(wǎng)站制作

廣告

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