vb点虐 平方根号 求平方根的vb程序代码

VB中求一个数的平方根的代码

private

创新互联是一家集网站建设,黄石企业网站建设,黄石品牌网站建设,网站定制,黄石网站建设报价,网络营销,网络优化,黄石网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

sub

form_click()

dim

intflag

as

integer

dim

strnumber

as

string

dim

strmsg

as

string

strnumber

=

inputbox("输入一个数")

msg$

=

"输入的数是："

+

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

"计算一个数的平方根"

print

"单击窗体开始"

end

sub

VB.NET为用户提供了Math.Sqrt函数用于计算平方根值，但被开方值若为负数则无法得出正确的结果（如，-4的平

问题不是很简单吗？

判断输入的数,大于等于零,则直接开方;小于零则取绝对值开方再加上字符"i",代码我就不写了.

根号在VB中如何表达？

VB 有一个求平方根的函数，使用示例:

a = Sqr(数值)

以下摘自 VB 6.0 SP6 的对象浏览器中对 Sqr 函数的解释:

Function Sqr(Number As Double) As Double

VBA.Math 的成员

返回一个数的平方根