隨機生成10個能被3整除而不能被5整除的三位整數
uj5u.com熱心網友回復：
Option Explicit
Private Sub Command1_Click()
Dim aryResult(9) As Long
Dim aryCount As Long
Dim lngTmp As Long
Dim blnExists As Boolean
Dim i As Integer
Do
lngTmp = 100 + Rnd(Now()) * 900 '隨機三位數
If lngTmp / 3 <> lngTmp \ 3 And lngTmp / 5 <> lngTmp \ 5 Then '既不為3整除也不為5整除
blnExists = False
For i = LBound(aryResult) To UBound(aryResult) '判斷是否已經存在的答案
If aryResult(i) = lngTmp Then
blnExists = True
End If
Next
If Not blnExists Then '如果不是重復結果那么記錄該結果
aryResult(aryCount) = lngTmp
aryCount = aryCount + 1
End If
End If
Loop While aryCount < 10 '當結果夠10個的時候退出
For i = LBound(aryResult) To UBound(aryResult) '輸出結果
Debug.Print aryResult(i)
Next
End Sub
uj5u.com熱心網友回復：
大佬，我照著這個弄不行啊，一直輸不出來uj5u.com熱心網友回復：
代碼如下:
Option Explicit
Private Sub Form_Load()
Dim colNumbers As New Collection
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 And i Mod 5 <> 0 Then
colNumbers.Add i
End If
Next
For i = 1 To 10
Randomize
Dim j As Integer
j = Int(Rnd * colNumbers.Count) + 1
Debug.Print colNumbers(j)
colNumbers.Remove j
Next
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1lkvgL7tx0xu3gAMg5bhcAA
提取碼：hvid
uj5u.com熱心網友回復：
是VB6.0太落后了嗎？還是不行啊
uj5u.com熱心網友回復：
立即視窗沒有資料?uj5u.com熱心網友回復：
你是在哪里輸的代碼?是主表單中輸入的嗎?uj5u.com熱心網友回復：
“落后”的不是編程語言，而是人的水平…………
uj5u.com熱心網友回復：
是啊，輸過去就什么都沒有??
uj5u.com熱心網友回復：
我的水平確實低，但是照著那個代碼輸，還是不行啊，我的意思是那個代碼是不是在VB6.0上不行uj5u.com熱心網友回復：
你要是不會,可以下載代碼,運行VB工程啊.我發的第一個回復有下載地址啊,你找找.
uj5u.com熱心網友回復：
他們給你的代碼，輸出結果在“立即視窗”中。
你要打開立即視窗，才能看到輸出的資料。
（不知道你是否又明白VB6的“立即視窗”是什么嗎…………）
如果不知道，問一下你的老師或同學。
還有，運行VB6，新建一個“標準EXE工程”后，視窗中畫個按鈕，
在表單代碼視窗中粘貼上1樓的代碼，
然后把第26行的 Debug.Print 改成 me.print
運行程式，點一下那個按鈕，就看到結果了。
uj5u.com熱心網友回復：
好的，麻煩你了，謝謝啦
uj5u.com熱心網友回復：
按'ctrl+G'可以調出立即視窗.uj5u.com熱心網友回復：
嗯嗯，謝謝你，我知道了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35141.html
標籤：VB基礎類
上一篇：VB用矩形法求定積分
下一篇：mscomm控制元件