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

private

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),黃石企業(yè)網(wǎng)站建設(shè),黃石品牌網(wǎng)站建設(shè),網(wǎng)站定制,黃石網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,黃石網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

sub

form_click()

dim

intflag

as

integer

dim

strnumber

as

string

dim

strmsg

as

string

strnumber

=

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

msg$

=

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

+

strnumber

+

chr$(13)

+

chr(10)

+

"確認(rèn)是否正確"

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

"計(jì)算一個(gè)數(shù)的平方根"

print

"單擊窗體開始"

end

sub

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

問題不是很簡單嗎？

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

根號(hào)在VB中如何表達(dá)？

VB 有一個(gè)求平方根的函數(shù)，使用示例:

a = Sqr(數(shù)值)

以下摘自 VB 6.0 SP6 的對(duì)象瀏覽器中對(duì) Sqr 函數(shù)的解釋:

Function Sqr(Number As Double) As Double

VBA.Math 的成員

返回一個(gè)數(shù)的平方根

當(dāng)前標(biāo)題：vb點(diǎn)虐 平方根號(hào) 求平方根的vb程序代碼
分享鏈接：http://vcdvsql.cn/article32/ddijdpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、企業(yè)網(wǎng)站制作、關(guān)鍵詞優(yōu)化、微信小程序、軟件開發(fā)、網(wǎng)站建設(shè)

廣告

聲明：本網(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í)需注明來源： 創(chuàng)新互聯(lián)