200到500之间的第一个能被3,5,7整除的数是? VB

Dim i As Integer
For i = 200 To 500
If i Mod (3 * 5 * 7) = 0 Then
MessageBox.Show(i)
Exit For
End If
Next

Private Sub Form_Load()
Dim i As Integer
For i = 200 To 500
If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then MsgBox "200到500之间的第一个能被3,5,7整除的数是" & i: Exit For
Next i
End Sub

Dim i As Integer
For i = 200 To 500
If i Mod 3 = 0 And i Mod 5 = 0 And i Mod 7 = 0 Then
Label2.Text = Label2.Text + i.ToString()
End If
Next

label2是一个用来输出的标签 可以换成你想要的

dim i as integer,s as integer
s=3*5*7
for i=1 to 500\s
if i*s>200 then
print "200到500之间的第一个能被3,5,7整除的数是";i*s
exit for
end if
next i