1樓：匿名_熱心網友
樓主這個程式不完整，另對j壓根沒有交待，這裡應該是個雙迴圈。另外，如果陣列裡值要有0的話，這個程式會執行long long time，所以隨機數我選取了1—17，vb6環境下測試成功
private sub form_click()
dim i as integer, j as integer,x as integer, f as boolean,
dim a(16) as integer
randomize 『初始化隨機數種子
for i = 0 to 16
x = int(rnd * 17) + 1 '首先讓x這個臨時變數隨機得到1~17中的一個數值
f = false '判斷前初始判斷標誌f為false
for j = 0 to i－1 '這個for迴圈讓x與陣列中已經存在的數值進行逐一比對
if x = a(j) then 『如果x的值已經在陣列中存在，那麼就跳出for迴圈，並置f的值為true
f = true
exit for
end if
next j
第一次如何使用優盤，第一次怎麼用U盤
下的東西轉盤裡，插電腦上開啟，往下拔的時候點下安全刪除，在右下角，這樣對u盤好。新u盤第一次用要格式化,最好格式化成ntfs，如果不能用ntfs格式化說明u盤是假的。這也是檢測u盤真假的一種方法 xp預設在圖形介面下不能格式化ntfs要到命令列下面去，用命令。這個無所謂了，u盤不比硬碟，新的需要格式...
紫砂杯第一次怎麼用，紫砂杯第一次使用要怎麼清洗
紫砂杯要不要和紫砂壺一樣新買的壺要進行開壺呢，其實紫砂杯沒有紫回砂壺開壺那樣的步驟，比較簡便答。因為剛出窯的紫砂杯裡會有一些放置物，還有一些紫砂的小顆粒什麼的，所以最簡單的方法就是將杯子洗乾淨後，根據你以後要喝什麼茶，就用什麼茶葉連杯子跟茶放到一起煮，水開五分鐘，冷卻，如此反覆即可。具體的步驟如下 ...
麥飯石鍋第一次怎麼養鍋，第一次使用麥飯石鍋用熱水燙對嗎
1 用熱水泡就可以了,很容易就可以洗乾淨,千萬不要用鋼絲球刷,會把鍋子刷壞,如果是鋁鍋刷了以後再用來煮飯吃了對身體很不好。2 山裡紅可去糊鍋底 燒飯 炒菜如果鍋底糊了，可把幾個山裡紅放鍋裡，加少許涼水燒開 不要燒乾 鍋的糊底很快就會去掉。3 西紅柿去糊鍋底 幾個不是很好的西紅柿方在鍋裡煮，自然就會掉...