建立如圖所標元件，3個標籤元件，2個編輯框元件，2個按鈕元件 插入視窗元件，並且新增如圖所標元件，1個圖片框元件，1個時鐘元件。 啟動視窗程式集寫入以下程式碼 在視窗1程式集寫入以下程式碼 .版本 2 .程式集 視窗程式集_視窗1 .程式集變數 a1, 文字型, , "0" .程式集變數 a2, 整數型 .程式集變數 a3, 整數型 .子程式 _視窗1_建立完畢 a2 ＝ 1 子程式1 () 移動 (0, 0, 取螢幕寬度 (), 取螢幕高度 ()) 圖片框1.圖片 ＝ 讀入檔案 (a1 [1]) 時鐘1.時鐘週期 ＝ 到數值 (_啟動視窗.編輯框2.內容) × 1000 .子程式 子程式1 .區域性變數 檔名, 文字型 .區域性變數 檔案目錄, 文字型 .區域性變數 a, 文字型 檔案目錄 ＝ _啟動視窗.編輯框1.內容 .如果真 (檔案目錄 ≠ “”) 檔案目錄 ＝ 選擇 (取文字右邊 (檔案目錄, 1) ≠ “”, 檔案目錄 ＋ “”, 檔案目錄) 檔名 ＝ 尋找檔案 (檔案目錄 ＋ “*.*”, 32) .判斷迴圈首 (檔名 ≠ “”) .如果真 (檔名 ≠ “.” 且 檔名 ≠ “..”) a ＝ 到小寫 (取文字右邊 (檔名, 3)) .如果真 (a ＝ “jpg” 或 a ＝ “gif” 或 a ＝ “bmp”) 加入成員 (a1, 檔案目錄 ＋ 檔名) .如果真結束 .如果真結束 檔名 ＝ 尋找檔案 (, ) .判斷迴圈尾 () .如果真結束 .子程式 _視窗1_尺寸被改變 圖片框1.移動 (0, 0, 取使用者區寬度 (), 取使用者區高度 ()) .子程式 _視窗1_將被銷燬 _啟動視窗.可視 ＝ 真 .子程式 _視窗1_按下某鍵, 邏輯型 .引數 鍵程式碼, 整數型 .引數 功能鍵狀態, 整數型 .如果真 (鍵程式碼 ＝ #Esc鍵) _啟動視窗.可視 ＝ 真 銷燬 () .如果真結束 .子程式 _時鐘1_週期事件 a2 ＝ a2 ＋ 1 a3 ＝ 取陣列成員數 (a1) .如果 (a2 ≤ a3) 圖片框1.圖片 ＝ 讀入檔案 (a1 [a2]) .否則 a2 ＝ 0 .如果結束 .子程式 _圖片框1_被雙擊, 邏輯型 .引數 橫向位置, 整數型 .引數 縱向位置, 整數型 .引數 功能鍵狀態, 整數型 _啟動視窗.可視 ＝ 真 銷燬 () 如果按照提示的方法操作失敗，或者出現錯誤，請下載下面附件。