to:jlt2000(红尘牛仔)
有没有其他方法,当生成的数目太多时,会影响到速度吧!
有没有其他方法,当生成的数目太多时,会影响到速度吧!
解决方案 »
- 数据集为空时,报错
- dir() 能否找到W2K局域网内服务器已共享的文件名?
- ---------------------------------VB使用jmail发送邮件一问,代码如下-------------------------------
- bmp转换为jpg,并能够减小图片大小
- 一个简单但莫名其妙的问题?请高手解决。
- 版本兼容性问题
- 如果读取各硬件详细信息(如BIOS信息).急啊
- WINDOWS9X(ME,XP)中开放了那些网络端口?
- 请问网页上给控件传递参数的问题?
- 当在输入窗体中输入一个新纪录或更改纪录时,怎样同步刷新MSHFlexGrid 中的数据?
- 有关SQL语句查询...
- 关于连接数据库ado
有没有其他方法,当生成的数目太多时,会影响到速度吧!
100:
Close #1
Open App.Path + "\cj.txt" For Input As #1
a(i) = Int(L_hs * Rnd) + 1
For j = 0 To i - 1
If a(i) = a(j) And i <> j Then
DoEvents
GoTo 100
End If
Next j
For c = 0 To a(i)
Line Input #1, inputdata '顺序取一行
Next c
b(i) = Trim$(inputdata)
lbe.AddItem b(i)
Close #1
Next i
刚刚得到
看看行不??
这样好象不行啊
dim b() as long
dim i as long
dim k as long '随机数的个数k = 100 '设 k 为100redim b(k-1)
randomize
for i=0 to k-1
do
b(i)=int(rnd*100000)
loop until not a(b(i))
a(b(i)) = true
next i
我们一直在用它
您瞅准了“…………”
没问题的
我正在写这个东西
1分钟执行一遍