vb帮忙解一个白痴级问题~~~

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:41:34
帮忙借一个白痴级问题~~~
一个数1( )4( )7,其中十位数和千位数不知道,不过这个数可以被57或67整除,输出所有符合的数. 请大家帮忙写一下伪代码~~~拜托!!!
要输出所有符合的数，最好用循环模式~~~拜托~~

楼上的大概不小心错啦，
a=1000+i*100+40+j*10+7 这句应该为a=10000+i*1000+400+j*10+7
呵呵~

-------------------------------
更新：

我晕。 不会不知道For...Next 是个循环吧？！
把全部代码都给你算了。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 9 '与下面的Next i构成一个循环
For j = 0 To 9 '与下面的Next j构成另一个循环
a = 10000 + i * 1000 + 400 + j * 10 + 7 '这个地方一楼写错了
If (a Mod 57 = 0) Or (a Mod 67 = 0) Then '注意：这个地方是Or而不是And
Print a
End If
Next j
Next i
End Sub

For i = 0 To 9
For J = 0 To 9
a=1000+i*100+40+j*10+7
if (a mod 57=0) and (a mod 67 ) then print a

Next J
Next i

For i = 0 To 9
For J = 0 To 9
a=1000+i*100+40+j*10+7
if (a mod 57=0) and (a mod 67 ) then print a

Next J
Next ia=1000+i*100+40+j*10+7 这句应该为a=10000+i*1000+400+j*10+7
呵呵~

*

*#06#