算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2
算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2
所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2,程序将从自然数1开始依次寻找,逐一判断某一自然数是否满足全部条件,直至在指定范围内找到满足条件的所有自然数,并将其输出,请将下列程序补充完整.
Private Sub Command1_Click()
Dim sum As Integer,max As Integer
sun=0
max=Val(Text1.Text)
For i = To max
If_____________________Then
Print i
_____________'统计个数
End If
Next I
Print sum
End Sub