。裝配窗裝配1
。子程序_ _開始窗口_已創建
列表框1。添加項目(“海南”，)
列表框1。添加項目(“山東”)
列表框1。添加項目("福建"，)
列表框1。添加項目("深圳"，)
。子例程_添加按鈕_被單擊。
。局部變量a，整數類型
局部變量查找，邏輯類型
發現=假
。計數循環頭(列表框1。取物品的數量()，a)
如果為真(列表框1。取項目文本(A-1) =編輯框1。內容)
信息框("現有"+編輯框1。內容+“此項目不能添加！”, 0, )
Find = true
跳出循環()
如果真的結束了。
。計數周期尾部()
如果為真(發現=假)
列表框1。添加項目(編輯框1。目錄，列表框1。取項數())
如果真的結束了。
。子程序_按鈕2_被點擊
設置隨機數種子()
編輯框2。內容=列表框1。取項目文本(取隨機數(0，列表框1。取物品編號()-1))