把500中所有 带7并且和7除余数得0 用循环语句怎么做啊 要代码
来源:百度知道 编辑:UC知道 时间:2024/05/19 18:30:11
Private Sub Command1_Click()
Cls
m = 0
For i = 1 To 500
t = Str(i)
If i Mod 7 = 0 Or InStr(t, "7") <> 0 Then
m = m + 1
Print i;
If m Mod 10 = 0 Then
Print
End If
End If
Next
End Sub
for(i>0;i<501;i++)
{
if i%7=0,cout<<i;
}