poter

很简单的

@echo off
setlocal enableDelayedExpansion
set /p b=输入：
for /l %%j in (1,1,!b!) do (
	set str1=
	for /l %%i in (1,1,12) do (
		set /a a=!random!%%10
		set str1=!str1!!a!
	)
	echo 1!str1!
)
复制代码

poter

回复 10# apang


    刚才没看到楼主提的新要求，用VBS做了一个

option explicit
dim a, b, c, d, e, f, g, forwriting
d = inputbox("") + 0
forwriting = 2
set f = createobject("scripting.filesystemobject")
set g = f.createtextfile("123.txt", forwriting)
for a = 0 to d -1
g.writeline func1(d)
next

function func1(str1)
	dim str
	str = "358"
	Randomize
	do
		b = Int(((3 - 0 + 1) * Rnd ) + 0)
	loop until b > 0
	do
	c= 1 & mid(str, b, 1)
	e = int(((999999999 - 0 + 1) * rnd ) + 0)
	loop until len(e) = 9
	func1 = c & e
end function
复制代码