Question

VB 一张单据上有一个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 Su