[已解决]VB编写一个函数过程

vbyou127

VB编写一个函数过程:

判断一个已知数m是否完数(完数是指该数本身等于它各个因子之和,如6=1+2+3,6就是一个完数;

主调程序调用此函数求出1000以内的所有完数，并把所求完数显示出来

函数形式为：function ws(byval m%) as boolean

最佳答案

月排行榜 / 总排行榜

橘子红

2016-3-2 10:21

不是要返回数字么  as 布尔值的话就返回true  false了

1. Function ws(ByVal m%) '=ws(row(a1)) 下拉
   
2. Dim x%, y%, z%, r%, arr()
   
3. For x = 1 To 1000
   
4.     z = 0
   
5.     For y = 1 To x \ 2
   
6.         If x Mod y = 0 Then z = z + y
   
7.     Next
   
8.     If x = z Then
   
9.          r = r + 1
   
10.          ReDim Preserve arr(1 To 1, 1 To r)
    
11.          arr(1, r) = x
    
12.     End If
    
13. Next
    
14. ws = arr(1, m)
    
15. End Function
    

复制代码

跳转到最佳答案楼层

橘子红

不是要返回数字么  as 布尔值的话就返回true  false了

1. Function ws(ByVal m%) '=ws(row(a1)) 下拉
   
2. Dim x%, y%, z%, r%, arr()
   
3. For x = 1 To 1000
   
4.     z = 0
   
5.     For y = 1 To x \ 2
   
6.         If x Mod y = 0 Then z = z + y
   
7.     Next
   
8.     If x = z Then
   
9.          r = r + 1
   
10.          ReDim Preserve arr(1 To 1, 1 To r)
    
11.          arr(1, r) = x
    
12.     End If
    
13. Next
    
14. ws = arr(1, m)
    
15. End Function
    

复制代码