如何编写分解因数的自定义函数?
2010-05-11 12:43
405 查看
Q:如何编写分解因数的自定义函数?
A:首先,我们需要一个判断质数的函数。代码如下:
该函数返回一个数组,记录是否质数的逻辑值以及其中一个因数。
主代码如下:
A:首先,我们需要一个判断质数的函数。代码如下:
Function IsPrime(ByVal N) Dim arr(1 To 2) For i = 2 To N ^ 0.5 If Int(N / i) = (N / i) Then arr(1) = False arr(2) = i IsPrime = arr Exit Function End If Next i arr(1) = True IsPrime = arr End Function
该函数返回一个数组,记录是否质数的逻辑值以及其中一个因数。
主代码如下:
Function Factors(ByVal X) Dim ArrTemp ArrTemp = IsPrime(X) If ArrTemp(1) Then '若X是质数则直接返回 Factors = X Exit Function Else '若X不是质数,则可继续分解 Factors = ArrTemp(2) & "*" & Factors(X / ArrTemp(2)) End If End Function
相关文章推荐
- 如何编写和使用自定义的 Shell 函数和函数库
- 如何编写和使用自定义的 Shell 函数和函数库
- 提高代码质量:如何编写函数
- ThinkPHP模版下面如何使用php函数或者自定义函数
- Matlab中如何将(自定义)函数作为参数传递给另一个函数
- Linux 多线程应用中如何编写安全的信号处理函数
- 【编程之法】如何最快的判断出短字符串b中的所有字符是否都在长字符串a中?编写函数bool StringContain(string&b,string&a)实现此功能。
- Linux 多线程应用中如何编写安全的信号处理函数【转】
- 如何编写一个线程安全的程序或者函数库?
- DedeCMS_如何加入自定义函数?
- 如何利用自定义函数把阳历转换成阴历
- 属性动画资料文件如何编写?property-animation资源文件 属性动画如何自定义TypeEvaluator
- C#编码简单性之函数篇(如何编写简短的C#代码,随时更新)
- 提高代码质量:如何编写函数
- django “如何”系列4:如何编写自定义模板标签和过滤器
- django “如何”系列4:如何编写自定义模板标签和过滤器
- 如何在VS2013+QT5.3环境下使用自定义信号与槽函数
- 如何在windows批处理中添加自定义函数
- 如何用VB编写自己的DLL文件,并调用其中的函数
- Linux 多线程应用中如何编写安全的信号处理函数