如何用代码解决如下问题？？

fyupeng

判断一个数A，如果该数加1或减1能够被5整除，则将其随机分为两个数B和C，B+C=A，且B和C也应该符合加1或减1不能够被5整除的条件。例如：49，可以将其分为：1或48、2或47、22或27等等

andymark

Function NumMod(intNum As Integer) As Boolean

Dim RadNumA As Integer
Dim RadNumB As Integer
Dim TF As Integer

TF = 0

If ((intNum + 1) Mod 5 = 0) Or ((intNum - 1) Mod 5 = 0) Then
   
        Do Until TF = 1
   
               RadNumA = Int((intNum * Rnd) + 1)
   
               RadNumB = intNum - RadNumA
     
              If (((RadNumA + 1) Mod 5 <> 0) Or ((RadNumA - 1) Mod 5 <> 0)) And (((RadNumB + 1) Mod 5 <> 0) Or ((RadNumB - 1) Mod 5 <> 0)) Then
  
                   TF = 1
   
                   NumMod = True
     
                   Debug.Print RadNumA
                   Debug.Print RadNumB
   
                End If
   
         Loop
     
  Else
   
   NumMod = False
  
End If
   
  
End Function

fyupeng

好像不行,得出的数字不符合条件，用4测试，得出4、0，用49测试会得出15、34等数字

[此贴子已经被作者于2006-7-14 10:47:30编辑过]

andymark

是B和C也应该符合加1或减1不能够被5整除???

那49分解出来15 34 同时减一 是不被5整除呀,是一个加一　一个减一，还是同加同减?

4 0 是没有排除负数减一的问题，修改一下应可以排除

fyupeng

可能我没有说清楚，分成的两个数字，必须单个判断加1减1不能够被5整除,不能同加同减，但看版主的代码又好像没错

andymark

增加一个条件: 减一 后要大于等于零的，就可以排除4 0的情况

fyupeng

关键还在于生成的两个数的分别判断，因为4按代码应该只能拆成2、2，不能拆成0、4或1、3，因为4加1或减1还是会被5整除，不符合条件（1-1 mod 5=0，1也不行）。只要两个数判断成功，就不会出现0。

[此贴子已经被作者于2006-7-14 13:59:09编辑过]

andymark

以下是引用fyupeng在2006-7-14 13:55:00的发言：


关键还在于生成的两个数的分别判断，因为4按代码应该只能拆成2、2，不能拆成0、4或1、3，因为4加1或减1还是会被5整除，不符合条件（1-1 mod 5=0，1也不行）。只要两个数判断成功，就不会出现0。

        那是加一减一都不能被5整除, 你再测试一下

Function NumMod(intNum As Integer) As Boolean

Dim RadNumA As Integer
Dim RadNumB As Integer
Dim TF As Integer

TF = 0

If ((intNum + 1) Mod 5 = 0) Or ((intNum - 1) Mod 5 = 0) Then
   
        Do Until TF = 1
   
               RadNumA = Int((intNum * Rnd) + 1)
   
               RadNumB = intNum - RadNumA
     
              If ((RadNumA + 1) Mod 5 <> 0 And (RadNumB + 1) Mod 5 <> 0) And ((RadNumA - 1) Mod 5 <> 0 And (RadNumB - 1) Mod 5 <> 0) Then
  
                   TF = 1
   
                   NumMod = True
     
                   Debug.Print RadNumA
                   Debug.Print RadNumB
   
                End If
   
         Loop
     
  Else
   
   NumMod = False
  
End If
   
  
End Function

[此贴子已经被作者于2006-7-14 14:18:03编辑过]

sgrshh29

这样可以吗?

Function cfsz(intm As Integer)
If (intm + 1) Mod 5 = 0 Or (intm - 1) Mod 5 = 0 Then
For i = 1 To intm
If (i + 1) Mod 5 <> 0 And (i - 1) Mod 5 <> 0 Then
j = intm - i
If (j + 1) Mod 5 <> 0 And (j - 1) Mod 5 <> 0 Then
Debug.Print i; j; intm
End If
End If
Next
End If
End Function

fyupeng

可以了，多谢两位