Question

怎么使用myBatis访问数据库

Answer 1

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