作业帮 > 综合 > 作业

找出能被3,5,7除,余数为1的最小正整数的VB代码怎么写?

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 05:24:09
找出能被3,5,7除,余数为1的最小正整数的VB代码怎么写?
Private Sub Command1_Click()
Dim x As Integer,tag As Boolean
For x = 2 To 1000
tag = False
If x Mod 3 = 1 And x Mod 5 = 1 And x Mod 7 = 1 Then tag = True:Exit For
Next x
If tag = True Then
Print x
End If
End Su