能被17和37整除的数

PrivateSub Command1_Click()

 

 Dimindex As Integer

 Forindex = 1000 To 2000 Step 1

  IfIs17and37ZhengChu(index) = True Then

 

 Print Str(index)

End If

 

 Next index

 

End Sub

Function Is17and37ZhengChu(N As Integer) AsBoolean

   If N Mod 17 = 0 And N Mod 37 = 0 Then

      Is17and37ZhengChu = True

   Else

      Is17and37ZhengChu = False

   End If

      

End Function

          这是一个让我们自己设计的程序，但我还是没有设计出来。这答案都是在同学的讲解下才写出来的，问题还有许多，我会更加努力学习的，我相信总有一天我能通过自己的能力设计出完美的VB程序。