怎样随机批量生成用户数据

Question

因为我的程序渗及用户，但是用手工输入很慢，也不知道要等到何年哪月才能手工输入完毕。比如说，现有三个文件，一个是 "姓.txt" , 一个是 "名.txt" ， 一个是 "生日.txt",在 "姓.txt" 文件中有以下内容：陈
林
池
何
郑在  "名.txt" 文件中有以下内容：小花
小明
小辉
小黄
小军在 "生日.txt" 文件中有以下内容：23,01,1999
02,07,1978
05,06,1983
07,09,1945然后将这三个文件随机数组组合后生成一个新的文件，暂且叫用户数据，在这个数据里可以拥有1000个用户，甚至圣100万的用户生成结果如下：陈小花 23,01,1999
陈小明 02,07,1978
陈小辉 05,06,1983
陈小黄 07,09,1945
陈小军 23,01,1999
林小花 02,07,1978
林小明 05,06,1983
林小辉 07,09,1945一直生到达到数量后自动停止！急用，请各位高手支招，帮忙写个完整的程序代码。本人感激不尽！！

Answer 1

生成完成后，保存为 "用户数据.txt"是文本文件数据，不要Access数据库什么的，谢谢！

Answer 2

Dim x(5), m(5), sr(5) As String
    Dim zh(5, 5, 5) As String
    
    '此处只取少量数据，没有使用文本输入方法，只是个例子，说明一下问题，直接赋值了
    x(1) = "赵"
    x(2) = "钱"
    x(3) = "孙"
    x(4) = "李"
    x(5) = "周"
    
    m(1) = "小明"
    m(2) = "小花"
    m(3) = "小玉"
    m(4) = "小风"
    m(5) = "小亮"
    
    sr(1) = "1988.02.23"
    sr(2) = "1968.01.04"
    sr(3) = "1978.08.24"
    sr(4) = "1984.05.02"
    sr(5) = "1976.08.30"
    
    
    For i = 1 To 5
        For j = 1 To 5
            For k = 1 To 5
                zh(i, j, k) = x(i) & " " & m(j) & " " & sr(k)
                Print zh(i, j, k)
            Next k
        Next j
    Next i

Answer 3

如果要由文本输入及输出，只需要改一下输入输出方式即可：
open app.path & "\AAAAA.txt" for intput as #1
open app.path & "\BBBBB.txt" for intput as #2
open app.path & "\CCCCC.txt" for intput as #3
    '处理代码close #3,#2,#1open app.path & "\DDDDD.txt" for output as #1
     '输出代码
close #1

Answer 4

dim tmp as string,stmp as string
dim str() as string
dim i as integer
 
open app.path & "\姓.txt" for input as #1
while not eof(1)
    line input #1,s
    stmp=stmp & " " & s
wend
close #1str=split(stmp," ")
i=0
open app.path & "\名.txt" for input as #1
while not eof(1)
    line input #1,s
    str(i)=str(i) & s
    i=i+1
wend
close #1i=0
open app.path & "\名.txt" for input as #1
open app.path &"用户数据.txt" for output #2 
while not eof(1)
    line input #1,s
    str(i)=str(i) & " "& s
    print #2,str(i)
    i=i+1
wend
close #1
colse #2随手写的，没测试，就这个道理

Answer 5

把上面的 dim tmp as string 改为　dim s as string

Answer 6

最后一个open app.path & "\名.txt" for input as #1
应该是　open app.path & "\生日.txt" for input as #1晕了，全是错　:(