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 的成员

返回一个数的平方根

当前标题：vb点虐 平方根号 求平方根的vb程序代码
分享链接：https://www.cdcxhl.com/article32/ddijdpc.html

成都网站建设公司_创新互联，为您提供App开发、企业网站制作、关键词优化、微信小程序、软件开发、网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联