关于vb.net的sqrt的信息

VB.NET 考试题目 急 求高手啊

(1)ByVal num as Integer() ,ByVal strInput as string

(2) strInput.Length -1

(3)strScript(i)

(4) Num(j)+1

Function mysqr(ByVal num) as string

Dim retVal as string

if num0 then

num =-num

retVal =Math.Sqrt(num).tostring +"i"

else

retVal =Math.Sqrt(num).tostring

end if

return retVal

End function

相关问答

Q1: vb中math.sqrt与sqrt的区别

vb6中没有sqrt，只有sqr

math.sqrt出现在了vb.net中，仅仅是将Sqr归类到math这个类下了，没有更多的区别

Q2: VB.net的开方运算

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)

Q3: vb.net求双平方数字的的方法

Public Function panduan(ByVal n As Integer) As Boolean

        Dim res As Boolean = False

        Dim a, b, c, d, temp1, temp2 As Integer

        a = n \ 1000

        b = (n \ 100) Mod 10

        c = (n \ 10) Mod 10

        d = n Mod 10

        temp1 = Sqrt(n)

        temp2 = Sqrt(a + b + c + d)

        If temp1 * temp1 = n And temp2 * temp2 = (a + b + c + d) Then

            res = True

        End If

        Return res

    End Function

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer

        For i = 1000 To 9999 Step 1

            If panduan(i) Then

                temp = i

                Exit For

            End If

        Next

        TextBox6.Text = temp

    End Sub

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

问题不是很简单吗？

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

Q5: VB.NET 求一元二次方程的程序

(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2个根

Delta = b * b - 4 * a * c '求得b*b-4*a*c并存放在变量Delta中

If Delta = 0 Then '如果Delta的值为0

Re = -b / (2 * a)

b * b - 4 * a * c＝b^2-4ac=0

-b/(2a)是唯一解

vb.net的sqrt的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net的sqrt的信息别忘了在本站进行查找喔。