引用 | 编辑
三仙
2010-08-12 21:46 |
楼主
▼ |
||
x0
请参考ebolaman大的 "其实有另外一种方法更简单,用类似 ListBox 的变数 (VB6 中叫做 Collection)......" 在下用 2008把它实做一次与大家分享 感觉说明的部份比程式码还多 [ 此文章被三仙在2010-08-12 21:46 .. 访客只能看到部份内容,免费 加入会员 x1
|
引用 | 编辑
ebolaman
2010-08-13 16:13 |
1楼
▲ ▼ |
||||||||||
哦哦,差不多就是这种意思~
这样从资料数 0 到全部加满,速度会从快到慢 我也来贴一下我的写法~(不过我的是 VB6 ...),这样就颠倒过来是从慢到快 不知哪种速度比较快呢? 譬如 25 RndSeedS 是 "/1/2/3/4/5......./25/" 第一个乱数位置(RndN) 譬如 4 就用 UserInstr 找到第 4 个 斜线的位置,结果取出来就是 "4" 第二个乱数位置譬如 5 但是取出来就是 6 了因为 RndSeedS 经过上一次取出已经变成 "/1/2/3/5/6/7..../25/" (4 不见了) 最后 RndSeedS 就剩下例如 "/19/" 乱数位置肯定是 1 就取到 19 这时 RndSeedS 就变成 "/" 取光光了~ 底下需要 3 个元件: TextBox 名称 TB1 ListBox 名称 LB1 CommandButton 名称 CMD_Proc 复制程式 Option Explicit Dim RndSeedS As String Private Sub CMD_Proc_Click() Dim RndN As Long, Ct As Long, i As Long, k1 As Long, k2 As Long Dim tempS As String Dim LastTimer As Double LastTimer = Timer '------- Ini. Var. & Obj. ------- Ct = Val(TB1.Text) If Ct <= 0 Then Exit Sub LB1.Clear '------- Ini. Randomized Seed -------- RndSeedS = "/" For i = 1 To Ct RndSeedS = RndSeedS & i & "/" Next i '------ Start Proc. > Select Rnd Num In RndSeedS Then Delete ------- Do RndN = Fix((Ct) * Rnd + 1) 'Find Pos. of Slash k1 = UserInstr(RndN) '/x/ < 1st slash k2 = InStr(k1 + 1, RndSeedS, "/") '/x/ < 2nd slash tempS = Mid(RndSeedS, k1 + 1, k2 - k1 - 1) RndSeedS = Left(RndSeedS, k1) & Right(RndSeedS, Len(RndSeedS) - k2) LB1.AddItem tempS Ct = Ct - 1 Loop While Ct <> 0 '-------- Show The Time ------ LastTimer = Timer - LastTimer 'Label_C(1).Caption = "Time : " & Format(LastTimer, "0.0000") & " s" End Sub Public Function UserInstr(ByVal Ti As Long) As Long 'Find String (Instr) In RndSeedS Continuously Dim m As Long m = 0 Do Ti = Ti - 1 m = InStr(m + 1, RndSeedS, "/") If m = 0 Then UserInstr = Len(RndSeedS): Exit Function If Ti = 0 Then UserInstr = m: Exit Function Loop End Function 我也来附上我的小程式,也来玩玩看吧,我做了一个 Scan 功能(好像有点无聊..):
x2 |