vb點虐 平方根號 求平方根的vb程序代碼

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

private

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

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

問題不是很簡單嗎？

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

根號在VB中如何表達？

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

a = Sqr(數(shù)值)

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

Function Sqr(Number As Double) As Double

VBA.Math 的成員

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

當前標題：vb點虐 平方根號 求平方根的vb程序代碼
分享鏈接：http://muchs.cn/article32/ddijdpc.html

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

廣告

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