想要把一些數字固定隨機抽取出來（從1-19，和33、34、35），并且在第二次隨機時不在抽取第一次隨機抽取到的數字，第三次隨機不會抽取前兩次抽到的數字，一次類推。該怎么做啊？ 求教，謝謝啦！！
uj5u.com熱心網友回復：
將這些數字放入一個listbox，隨機取一個下標，得到一個數字，洗掉它，然后重復這個程序。uj5u.com熱心網友回復：
用陣列、字典等等都很簡單的參考：
Sub Test()
Dim bDic As New Dictionary, i As Integer
For i = 1 To 19
bDic(CStr(i)) = i
Next
For i = 33 To 35
bDic(CStr(i)) = i
Next
Randomize
Do While bDic.Count > 0
i = Int(Rnd * bDic.Count) ''隨機取一個
Debug.Print bDic.Keys(i)
bDic.Remove bDic.Keys(i) ''用過了就洗掉
Loop
End Sub
...
uj5u.com熱心網友回復：
試著用了一下，報錯“用戶型別未定義”，請問是什么愿意啊？uj5u.com熱心網友回復：
Dim arr(9), k, r
Private Sub Command1_Click()
If Command1.Caption = "停止" Then Command1.Caption = "抽出" Else Command1.Caption = "停止"
If arr(0) = 0 Then
For i = 0 To 9
arr(i) = i + 1
Next
' MsgBox "10個初始化完成"
End If
Randomize
While Command1.Caption = "停止"
r = Int(Rnd * (10 - k)) + k
If Rnd > 0.2 Then
TextBox1.Text = "000"
Else
TextBox1.Text = Right("00" & arr(r), 3)
End If
DoEvents
Wend
If Command1.Caption = "抽出" Then
t = arr(r): arr(r) = arr(k): arr(k) = t: k = k + 1
TextBox1.Text = Right("00" & t, 3)
End If
If k > 9 Then
If Command1.Caption <> "抽出" Then k = 0
Command1.Caption = Join(arr, "-") & vbLf & "已全抽出，下一輪"
Else
Command1.Caption = Left(Join(arr, "-"), k * 2) & vbLf & "已抽第 " & k & " 個，下一個"
End If
End Sub
Sub OnSlideShowPageChange()
Command1.Caption = "開始"
打開.Caption = "打開"
TextBox1.Text = "000"
End Sub
Private Sub 打開_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide (TextBox1.Text + 1)
End Sub
這個要怎么改成我要的那種成果呢？？求賜教！
uj5u.com熱心網友回復：
上面的有點錯誤。i應該從0開始。 另外CurrentMaxIndex變數是多余的，完全可以利用i。下面重發下。Private Sub Command1_Click()
Dim s$, v, i%, rndIndex%
'將要處理的資料處理放到陣列v
For i = 1 To 19
s = s & i & " "
Next
For i = 33 To 35
s = s & i & " "
Next
v = Split(Trim(s), " ")
Randomize
For i = 0 To UBound(v)
rndIndex = Int(Rnd * (UBound(v) - i))
Debug.Print i & vbTab & "隨機結果:" & v(rndIndex) & vbTab & "對應當前索引:" & rndIndex
v(rndIndex) = v(UBound(v) - i) '將回圈范圍的末資料拿到隨機的索引位置
Next
End Sub
處理結果（每次都不同）：
0 隨機結果:4 對應當前索引:3
1 隨機結果:13 對應當前索引:12
2 隨機結果:3 對應當前索引:2
3 隨機結果:5 對應當前索引:4
4 隨機結果:7 對應當前索引:6
5 隨機結果:6 對應當前索引:5
6 隨機結果:9 對應當前索引:8
7 隨機結果:19 對應當前索引:4
8 隨機結果:10 對應當前索引:9
9 隨機結果:35 對應當前索引:3
10 隨機結果:1 對應當前索引:0
11 隨機結果:12 對應當前索引:0
12 隨機結果:16 對應當前索引:8
13 隨機結果:15 對應當前索引:4
14 隨機結果:34 對應當前索引:3
15 隨機結果:17 對應當前索引:5
16 隨機結果:33 對應當前索引:2
17 隨機結果:18 對應當前索引:2
18 隨機結果:14 對應當前索引:2
19 隨機結果:11 對應當前索引:0
20 隨機結果:8 對應當前索引:0
21 隨機結果:2 對應當前索引:0
uj5u.com熱心網友回復：
這個是不能類推的,類推的結果就是第n次抽取的時候,前n-1次抽到的數字都不會被抽取到,
要符合這樣的條件的話,就相當于洗牌,先把數字打亂存進陣列里,取數的時候依次取就可以了,問題是當結束n次抽取后將會重復前一輪的回圈.
就像這樣一個函式
Public Function GetRnd(Optional ByVal DataList As String = "") As String
Static Data() As String, Index As Integer
Dim I As Integer, J As Integer, S As String
If Len(DataList) > 0 Then
Randomize
Index = 0
Data = Split(DataList, ",")
For I = 0 To UBound(Data)
J = Rnd * (UBound(Data) + 1)
S = Data(I)
Data(I) = Data(J)
Data(J) = S
Next
End If
GetRnd = Data(Index)
Index = (Index + 1) Mod (UBound(Data) + 1)
End Function
第一次呼叫 GetRnd("1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,33,34,35")
后續呼叫 GetRnd()
uj5u.com熱心網友回復：
謝謝，謝謝。。 請問能有數字滾動的效果嗎？
uj5u.com熱心網友回復：
你沒有參考字典物件吧（字典可是個好東西！）
microsoft scripting runtime
uj5u.com熱心網友回復：
是直接創建嗎？？
uj5u.com熱心網友回復：
要滾動效果？樓主是做抽獎程式吧？可以弄幾個picturebox，讓他不停顯示資料好了。參考：http://blog.csdn.net/sysdzw/article/details/50668310
uj5u.com熱心網友回復：
謝了，以參考！！
uj5u.com熱心網友回復：
隨機必然有重復，所謂“不重復的隨機”實際上是洗牌。洗牌演算法參考下面：#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int d[6];
int i,n,a,b,t;
int c,j;
void main() {
srand(time(NULL));
printf("shuffle 0..n-1 demo\n");
for (n=1;n<=5;n++) {/* 測驗1～5個元素 */
printf("_____n=%d_____\n",n);
j=1;
for (c=1;c<=n;c++) j=j*c;/* j為n! */
j*=n*2;
for (c=1;c<=j;c++) {/* 測驗n*2*n!次 */
for (i=0;i<n;i++) d[i]=i;/* 填寫0～n-1 */
for (i=n;i>0;i--) {/* 打亂0～n-1 */
a=i-1;b=rand()%i;
if (a!=b) {t=d[a];d[a]=d[b];d[b]=t;}
}
printf("%04d:",c);
for (i=0;i<n;i++) printf("%d",d[i]);
printf("\n");
}
}
printf("shuffle 1..n demo\n");
for (n=1;n<=5;n++) {/* 測驗1～5個元素 */
printf("_____n=%d_____\n",n);
j=1;
for (c=1;c<=n;c++) j=j*c;/* j為n! */
j*=n*2;
for (c=1;c<=j;c++) {/* 測驗n*2*n!次 */
for (i=1;i<=n;i++) d[i]=i;/* 填寫1～n */
for (i=n;i>1;i--) {/* 打亂1～n */
a=i;b=rand()%i+1;
if (a!=b) {t=d[a];d[a]=d[b];d[b]=t;}
}
printf("%04d:",c);
for (i=1;i<=n;i++) printf("%d",d[i]);
printf("\n");
}
}
}
uj5u.com熱心網友回復：
VBA怎么現實呢請問，，uj5u.com熱心網友回復：
將這幾句for (i=1;i<=n;i++) d[i]=i;/* 填寫1～n */
for (i=n;i>1;i--) {/* 打亂1～n */
a=i;b=rand()%i+1;
if (a!=b) {t=d[a];d[a]=d[b];d[b]=t;}
}
對應翻譯成VBA
uj5u.com熱心網友回復：
謝謝了，試試，，，
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79550.html
標籤：VBA