VB 求满足要求的最小数

来源：百度知道 编辑：UC知道 时间：2024/06/01 13:01:27
单击窗体，求一个数，它除以3余2、除以5余3、除以7余2，求满足要求的最小数，并将该数输出在窗体上。 详细些 谢谢

Private Sub Form_Click()
a = 10000 '定义一个足够大的数
For i = 1 To a '从一到这个数开始循环
If 2 = i Mod 3 Then '如果它除以三等于2，继续
If 3 = i Mod 5 Then '如果它除以五余3，再继续
If 2 = i Mod 7 Then '如果它除以7余2
Print i '打印在屏幕上
Exit For '退出for循环
End If
End If
End If
Next
End Sub

简单的几行代码就完成了,干嘛如此复杂

n = 0
Do While n <> -1
If n Mod 3 = 2 And n Mod 5 = 3 And n Mod 7 = 2 Then Exit Do
n = n + 1
Loop
MsgBox n

23