Do While x & lt26

i = 0

When I was < 9

i = i + 1

T = Cint(CStr(x)+"0"+CStr(i)) // digits are connected by characters, and then the plastic data is returned.

MsgBox t // output test data

ring

x = x + 1

ring

If you have a good mathematical foundation, you can judge each number directly.