/ 猿问

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

2019-07-09 10:06:36

# 怎么测试，oracle function函数

## 5 回答

create FUNCTION y2
(inx2 number)
return number is
Result number(2);
begin

Result := inx2*inx2;

return(Result);
end y2;

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

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

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

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

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

• 5 回答
• 0 关注
• 702 浏览

0/150