x=1
Do While x < 26
i = 0
Do While i < 9
i = i + 1
t = Cint(CStr(x)+"0"+CStr(i)) // 数字各位数通过字符型连接 再返回整形数据
MsgBox t //输出 t 数据
Loop
x = x + 1
Loop
你如果数学功底好可以直接取数字的每位进行判断
内容全部来源于网络收集，如有侵权，请联系网站删除!