请问该怎么测试，oracle function函数？

Question

怎么测试，oracle function函数

Answer 1

怎么测试，oracle function函数
比如你定义了一个函数：
create FUNCTION y2
(inx2 number)
return number is
Result number(2);
begin

Result := inx2*inx2;

return(Result);
end y2;

 

Answer 2

Private Sub Command1_Click()
n = CInt(InputBox("N="))
y = fac(n)
MsgBox n & "!=" & y
End Sub

Function fac(n)
If n = 0 Or n = 1 Then fac = 1 Else fac = n * fac(n - 1)
End Function

Answer 3

Private Sub Command1_Click()

  a = CInt(Text1.Text)

  b = CInt(Text2.Text)

  x = 0

  gcd a, b, x

  Label1.Caption = "Gcd(" & a & "," & b & ")=" & x

  

End Sub

Private Sub Form_Load()

  Label1.Caption = ""

  Text1.Text = ""

  Text2.Text = ""

End Sub

Sub gcd(a, b, x)

  If a Mod b = 0 Then

    x = b

  Else

    gcd b, a Mod b, x

  End If

End Sub

Answer 4

1 2 3 4 5 6 7 8

Function Factorial(n As Integer) As Double If Factorial = 0 Then Factorial = 1 If n > 1 Then Factorial = n * Factorial(n - 1) End Function   Private Sub Form_Click() '点击窗体运行 MsgBox "阶乘计算结果为 " & Factorial(Val(InputBox("请输入一个整数，不要太大"))) End Sub

Answer 5

Private Function Factorial1(intN As Integer) As Integer
If intN = 0 Then
Factorial1 = 1
Else
Factorial1 = Factorial1(intN - 1) * intN
End If
End Function