vb6.0编写公式 t=a*√（b*c/d）
3个回答
展开全部
sub command1_click()
dim a,b,c,d,t
a=val(inputbox(a=))
b=val(inputbox(b=))
c=val(inputbox(c=))
d=val(inputbox(d=))
t=a*(b*c/d)^(1/2) 't=a*sqr(b*c/d)
msgbox a
dim a,b,c,d,t
a=val(inputbox(a=))
b=val(inputbox(b=))
c=val(inputbox(c=))
d=val(inputbox(d=))
t=a*(b*c/d)^(1/2) 't=a*sqr(b*c/d)
msgbox a
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你的“√”是开方的意思吗？
开平方用SQR：
Sqr 函数示例
本示例使用 Sqr 函数来计算某数的平方根。
Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回 4.79583152331272。
MySqr = Sqr(0) ' 返回 0。
MySqr = Sqr(-4) ' 生成一个运行时错误（负数不能用此函数开平方根）。
开平方用SQR：
Sqr 函数示例
本示例使用 Sqr 函数来计算某数的平方根。
Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回 4.79583152331272。
MySqr = Sqr(0) ' 返回 0。
MySqr = Sqr(-4) ' 生成一个运行时错误（负数不能用此函数开平方根）。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
t=a*(abs(b*c/d))
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
