這個程式，是小弟剛學VB所做的
所做的功能有單發、及全發
附件有原程式碼、執行檔
不妨下載試試看，有BUG等等還望大大指點
02.zip是原程式碼，Project1.zip是執行檔




Dim B As Integer
Dim Q As Integer
Dim I As Integer
Dim Y(52)

Private Sub Command1_Click()




I = I + 1


Do

X = Val(Round(Rnd * 51))
Y(I) = X
R = True
For J = 1 To I - 1

If X = Y(J) Then

R = False

Exit For

End ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

很不錯唷~此程式看的出來樓主設計的很用心再次給予肯定