高一信息题目，写VB

空：一张票据上有一个 5位数的号码，并输出该票据

[1]_________

[2] __________________

[3] ___i=i+1

根据流程图，（1*4*7），但是，写出VB 程序代码，知道这个 5位数能被 57 或 67整除。请找出该票据所有可能的号码，其千位和十位上的数字已经模糊不清了

1填 j=0 2填j<=9 3 填 i=i+1
程序：
for i=0 to 9
for j=0 to 9
X=10407+1000*i + 10*j
if X mod 57 = 0 OR X mod 67 = 0 then
print x
end if
next
next

vb历届上机题目下载

http://www.ibook8.com/software/catalog13/6646.html

下载点这里

Sub EchoNum() Dim i As Long, j As Long, s As Long For i = 0 To 9 For j = 0 To 9 s = 10000 + i * 1000 + 400 + j * 10 + 7 If (s Mod 57) = 0 Or (s Mod 67) = 0 Then messagebox s exit for Next next End Sub