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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 20:57:27
分别使用while 循环、for循环写显示500以内所有包含7以及能被7整除的数字的程序

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

分别使用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