分别使用while 循环、for循环写显示500以内所有包含7以及能被7整除的数字的程序

'自己拆分
Dim i
i = 1
Print "while"
While i 0 And i Mod 7 = 0 Then Print i
i = i + 1
Wend
Print "for"
For i = 1 To 500
If InStr(CStr(i),"7") > 0 And i Mod 7 = 0 Then Print i
Next