有现成函数sqr（100）返回10
公司主营业务：成都做网站、网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出铁东免费做网站回馈大家。
如果是任意次开方可以自己做一个函数，先做一个连乘的乘方函数，再做一个开任意次方。因为开方就是不断的用连乘来试验的，如下
'定义连乘函数，或者叫乘方Private Function lc(number, n As Integer)Dim myresultmyresult = 1Dim i As IntegerFor i = 1 To n myresult = myresult * numberNextlc = myresultEnd Function
12345678910111213141516171819202122 '开任意次方Private Function Power(number As Double, n As Integer)Dim j As DoubleDim myresult As Doublemyresult = 0.0000001For j = p To number Step 0.00001 Dim myNum As Double myNum = lc(j, n) If myNum = number Then myresult = j Else Exit For End IfNextPower = myresultIf lc(Int(Power) + 1, n) = number ThenPower = Int(Power) + 1ElsePower = myresultEnd IfEnd Function
调用示范：
MsgBox Power(28, 3)
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
"sqr（";
strnumber;
")=";
sqr(val(strnumber))
else
"取消操作"
end
if
end
sub
private
sub
form_load()
autoredraw
=
true
"计算一个数的平方根"
"单击窗体开始"
end
sub
用一个标输出结果???
什么是标啊,我用msgbox输出的...你最后还谢绝,我真服了你的语言表达能力了
Private Sub Command1_Click()
'计算text1
If IsNumeric(Text1) Then
If CLng(Text1) 0 Then
MsgBox "text1 内为负数,不能开方"
Else
MsgBox "text1 开方结果:" Sqr(CDbl(Text1))
End If
Else
MsgBox "text1 内不是数字"
End If
'计算text2
If IsNumeric(Text2) Then
If CLng(Text1) 0 Then
MsgBox "text2 内为负数,不能开方"
Else
MsgBox "text2 开方结果:" Sqr(CDbl(Text2))
End If
Else
MsgBox "text2 内不是数字"
End If
End Sub
VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。
请你比较一下这个运算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
这样就会发现，你的代码中括号的位置错了。
正确的应该是： Math.Sqrt((n + 1) / n - 1)
