算法程序:所寻找之数位满足某类条件的自然数,此条件是它除以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
dick2612 1年前 已收到1个回答 举报

风行海南 幼苗

共回答了24个问题采纳率:91.7% 举报

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自己在摸索着吧.我也不是很会才学两个月.多指教!

1年前

3
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.028 s. - webmaster@yulucn.com