算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2
所寻找之数位满足某类条件的自然数,此条件是它除以3余2,除以5余3,除以7余2,程序将从自然数1开始依次寻找,逐一判断某一自然数是否满足全部条件,直至在指定范围内找到满足条件的所有自然数,并将其输出,请将下列程序补充完整.
PrivateSubCommand1_Click()
DimsumAsInteger,maxAsInteger
sun=0
max=Val(Text1.Text)
Fori=Tomax
If_____________________Then
Printi
_____________'统计个数
EndIf
NextI
Printsum
EndSub