算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以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
答
Private Sub Command1_Click()
Dim sum As Integer, max As Integer
sun = 0
max = Val(Text1.Text)
For i = 1 To max
If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then
Print i
sun = sun + 1
End If
Next i
Label1.Caption = Str(sun)
End Sub
这个程序我用print sun打印不出来,我把这句改了,加了一个label自己在摸索着吧.我也不是很会才学两个月.多指教!