哈合....楼上的不是随机的...

两千条用了42分钟！！！！！！！！！！！！！

哈哈...你试试看要用多长时间...看清楚题目再写程序哦!

可能是你无知...
呵呵...

试一试下面这一个程序，应该是几秒吧
Private Sub Command3_Click()
Dim i%, j%, k%
Dim fNm%
Dim strBuf$, sStr$
Dim fName$

Const co = 999999999999999#
fNm = FreeFile
fName = "C:\Test.txt"
Open fName For Output As fNm

For i = 1 To 5000
strBuf = CStr(Int(Rnd * co))
strBuf = strBuf & String(16 - Len(strBuf), Right(CStr(i), 1)) & "#100#"
Write #fNm, strBuf
Next

For i = 5001 To 8000
strBuf = CStr(Int(Rnd * co))
strBuf = strBuf & String(16 - Len(strBuf), Right(CStr(i), 1))
For j = 1 To 16
sStr = Trim(sStr) & Chr(Asc(Mid(strBuf, j, 1)) + 17)
Next
sStr = Trim(sStr) & "#200"

Write #fNm, sStr
sStr = ""
Next
For i = 8001 To 10000
strBuf = CStr(Int(Rnd * co))
strBuf = strBuf & String(16 - Len(strBuf), Right(CStr(i), 1))
For j = 1 To 16
sStr = Trim(sStr) & Chr(Asc(Mid(strBuf, j, 1)) + 49)
Next
sStr = Trim(sStr) & "#300"

Write #fNm, sStr
sStr = ""
Next
Close fNm
End Sub

哈哈...不合乎要求你的
看清楚出需求再写程序吧老兄!

这个问题有点意思,不过不应该向楼上说的那样离谱吧,42分,那还要程序员干什么呀?!

我回去写一个试试,不信用那么久!!

本来不想写的，冲你这句，也写了一个，下载后自己运行看看吧。

默认是产生十万条一个文件。用你的话估计也得花上一天一夜的时间吧。

[此贴子已经被作者于2007-4-6 20:35:39编辑过]

iEiGDHcK4MADCQAG#100
iFiGEHcL4MADCRAG#200
iFiGEHcL5MADCRAG#100
iFiHEHcL5NAECRAG#500
iFiHEHcL5NAECRAH#200
iFiHEIcL5NAEDRAH#100
jFjHEIdL5NAEDRAH#100
jGjHFIdM5NAEDSAH#200
jGjHFIdM6NAEDSAH#500
jGjIFIdM6OAFDSAH#100
jGjIFIdM6OAFDSAI#100
jGjIFJdM6OAFESAI#200
kGkIFJeM6OAFESAI#100
kHkIGJeN6OAFETAI#500
kHkIGJeN7OAFETAI#200
kHkJGJeN7PAGETAI#100
kHkJGJeN7PAGETAJ#100
kHkJGKeN7PAGFTAJ#200
lHlJGKfN7PAGFTAJ#500
lIlJHKfO7PAGFUAJ#100
lIlJHKfO8PAGFUBJ#100
lIlKHKfO8QAHFUBJ#200
lIlKHKfO8QAHFUBK#100
lIlKHLfO8QAHGUBK#500
mImKHLgO8QAHGUBK#200
mJmKILgP8QAHGVBK#100
mJmKILgP9QAHGVCK#100
mJmLILgP9RAIGVCK#200
mJmLILgP9RBIGVCL#500
mJmLIMgP9RBIHVCL#100
nJnLIMhP9RBIHVCL#100
nKnLJMhQ9RBIHWCL#200
nKnLJMhQARSIHWKL#100
nKnMJMhQASSJHWKL#500
nKnMJMhQASTJHWKM#200
nKnMJNhQASTJIWKM#100

这些是你程序生成的数据.这叫随机么问问楼主这合乎他的要求不!

这些是我程序生成的数据..看看和你的有什么不同!
我改进了我的程序.现在不能42分钟了!
4Yu58qq169BS7lb7#500
DxHietavRjJekHXd#100
eELUsfMfiSvu9Sto#500
EgiwhR9nt7wtWQvY#100
fca5l5mn5GM1AAhM#500
gM3tVMevuG2o5hHY#100
hTyfcFpHMqV1UeJ3#200
m7KeMnYvJCSLycty#200
NDkSP842AdjfF6ZR#100
OpYujUekaCjkAx3C#500
q2yapARi3KonyluN#200
SqAi9Q3S68FdCkxr#500
TWhX05cX6CO7hyJ9#200
TZWPbPtoWGmirueS#500
Ue374C7VNNbQGgvo#100
VfIt6KxkkkZBcD5Z#200
XIgjtW3hvK6jFqvM#200
yJGBexEeL0woRcrX#100
ZoSvD4QgAghqyrPd#200