刪除數組重復成員的代碼
.版本 2.支持庫 spec.程序集 窗口程序集1.程序集變量 數組, 整數型, , "0".子程序 __啟動窗口_創建完畢置隨機數種子 ().計次循環首 (10, ) 加入成員 (數組, 取隨機數 (1, 5)).計次循環尾 ()調試輸出 (數組).子程序 _去重按鈕_被單擊.局部變量 計次1, 整數型.局部變量 計次2, 整數型.計次循環首 (取數組成員數 (數組), 計次1) .如果真 (計次1 > 取數組成員數 (數組)) 跳出循環 () .如果真結束 .計次循環首 (取數組成員數 (數組) - 計次1, ) 計次2 = 計次2 + 1 .如果真 (數組 [計次1] = 數組 [計次1 + 計次2]) 刪除成員 (數組, 計次1 + 計次2, ) 計次2 = 計次2 - 1 .如果真結束 .如果真 (計次1 + 計次2 = 取數組成員數 (數組)) 計次2 = 0 跳出循環 () .如果真結束 .計次循環尾 ().計次循環尾 ()調試輸出 (數組)
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
|
新聞熱點
疑難解答