1到500之见能把含有7 而且和7除 余数等于0 用VB 编程 代码是什么啊

Private Sub Command1_Click()
Form1.AutoRedraw = True 'Form1自动重绘
Form1.Cls 'Form1清屏
For i = 1 To 500
If InStr(CStr(i), "7") > 0 And i Mod 7 = 0 Then Print i
Next
End Sub

for i = 1 to 500
for j = 1 to len(cstr(i))
if cint(mid(i,j,1))=7 and i mod 7 =0 then
print i
exit for
end if
next
next

Private Sub Command1_Click()
For i = 1 To 500
If InStr(CStr(i), "7") And i Mod 7 = 0 Then Print i
Next
End Sub