使用VB編程算平方根

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

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、新田網(wǎng)絡(luò)推廣、微信小程序開發(fā)、新田網(wǎng)絡(luò)營銷、新田企業(yè)策劃、新田品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供新田建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：chinadenli.net

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

'定義連乘函數(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

調(diào)用示范：

MsgBox Power(28, 3)

VB.net的開方運(yùn)算

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

請你比較一下這個(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)，你的代碼中括號的位置錯(cuò)了。

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

VB如何中開方

Sqr 函數(shù)

返回一個(gè) Double，指定參數(shù)的平方根。

語法

Sqr(number)

必要的 number 參數(shù) number 是 Double 或任何有效的大于或等于 0 的數(shù)值表達(dá)式。

例子:

Dim MySqr

MySqr = Sqr(4) ' 返回 2。

MySqr = Sqr(23) ' 返回 4.79583152331272。

MySqr = Sqr(0) ' 返回 0。

MySqr = Sqr(-4) ' 生成一個(gè)運(yùn)行時(shí)錯(cuò)誤（負(fù)數(shù)不能用此函數(shù)開平方根）。

網(wǎng)頁標(biāo)題：vb.net如何開平方根 vb 平方根
文章源于：http://chinadenli.net/article34/hgejse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計(jì)、網(wǎng)站收錄、商城網(wǎng)站、定制網(wǎng)站、微信公眾號、App開發(fā)

廣告

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