VB一张单据上有一个5位数的编号求代码1.一张单据上有一个5位数的编号,万位数是1,千位数是5,百位数是2,个位数是6,十位数已经模糊不清,只知道该5位数是57或67的倍数,找出所有满足这些条件

Question

VB 一张单据上有一个5位数的编号 求代码
1.一张单据上有一个5位数的编号,万位数是1,千位数是5,百位数是2,个位数是6,十位数已经模糊不清,只知道该5位数是57或67的倍数,找出所有满足这些条件的5位数并输出.【求单据的编号】

Answer 1

Private Sub Command1_Click()
Dim i As Integer,a As Integer
For i = 0 To 9
a = CInt("152" & i & "6")
If a Mod 57 = 0 Or a Mod 67 = 0 Then
Print a & vbCrLf
End If
Next
End Sub