作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/20 05:18:36
分别使用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