你這樣讀法可能一秒鐘就讀了幾百次硬碟，一分鐘就讀了一萬多次硬碟！ ！ ！
你可以試試下面的陣列方式，應該會好一點！
.版本 2
.支援庫 EdirectX
.程序集 視窗程序集1
.組件變數 螢幕， 螢幕
.組件變數 頁面， 頁面， ， ＂0＂
.程式集變數 橫座標， 整數型， ， ＂0＂
.程式集變數 縱座標， 整數型， ， ＂0＂
.組件變數 後台， 頁面
.程式集變數 記錄數， 整數型
.子程式 __啟動視窗_建立完畢
.局部變數 n， 整數型
螢幕.建立全螢幕模式 （取視窗句柄 （）， 800, 600, 32，假）
後台 = 螢幕.取後台頁面 （）
開啟 （取運行目錄 （） “\data\地圖1.edb”, , , , , , )
記錄數 = 取記錄數 （）
重定義陣列 （頁面， 假， 記錄數）
重定義陣列 （橫座標， 假， 記錄數）
重定義陣列 （縱座標， 假， 記錄數）
到首記錄 （）
.計次循環首 （記錄數， n）
頁面 [n].建位圖頁 （螢幕， 取運行目錄 （） 讀 （「名稱」）， ）
橫座標 [n] = 讀 （「橫座標」） ' 依理資料庫中的型別對應的話是不用再轉換的
縱座標 [n] = 讀 （「縱座標」）
跳過 （）
.計次循環尾 （）
關閉 （）
時鐘1.時脈週期=100
.子程式 _時脈1_週期事件
.局部變數 n， 整數型
時鐘1.時鐘週期=0'此兩句可以去掉
後台.填滿頁面 （#白色）
.計次循環首 （記錄數， n）
頁 [n]. 區塊複製 （後台， 橫座標 [n]， 縱座標 [n], ）
.計次循環尾 （）
螢幕.交換頁面 （假， 假， 假）
時鐘1.時鐘週期=100'此兩句可以去掉
直接上易語言程式碼，漢字程式語言程式碼就是不一般呀。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
.版本 2
.資料類型 取電腦cpu訊息， ， system_info
.成員 dwoemid， 整數型， ， ， 標識符
.成員 dwpagesize， 整數型， ， ， 分頁大小
.成員 lpminimumapplicationaddress， 整數型， ， ， 最小尋址空間
.成員 lpmaximumapplicationaddress， 整數型， ， ， 最大尋址空間
.成員 dwactiveprocessormask， 整數型， ， ， 處理器遮罩
.成員 dwnumberorfprocessors， 整數型， ， ， 處理器數目
.成員 dwprocessortype， 整數型， ， ， 處理器類型
.成員 dwallocationgranularity， 整數型， ， ， 虛擬記憶體空間的粒度
.成員 dwreserved， 整數型， ， ， 保留
.資料型態 memorystatusex
#.成員 dwlength， 整數型， ， ， 64
.成員 dwmemoryload， 整數型
.成員 ulltotalphys， 長整數型
.成員 ullavailphys， 長整數型
.成員 ulltotalpagefile， 長整數型
.成員 ullavailpagefile， 長整數型
.成員 ulltotalvirtual， 長整數型
.成員 ullavailvirtual， 長整數型
.成員 ullavailextendedvirtual， 長整數型
.版本2.支援庫spec.組件視窗組件_啟動視窗.子程式__啟動視窗_建立完畢偵錯輸出（取記憶體條資訊（））.子程式取記憶體條訊息，文字型.局部變數指針， memorystatusex指針.dwlength = 64globalmemorystatusex （指針）返回（“總物理記憶體：” 到文字（四捨五入（指針.ulltotalphys ÷ 1048576, ）) “mb” #換行符“可用物理內存：五入文本中五舍” 到文本（五舍五舍” （指針.ullavailphys ÷ 1048576, ）) “mb” #換行符“虛擬內存：” 到文本（四捨五入（指針.ulltotalvirtual ÷ 1048576, ）) “mb” #換行符“可用虛擬內存：” 到文本（四捨五入（指標.ullavailvirtual ÷ 1048576, ）) “mb” #換行符“總頁面文件：” 到文本（四捨五入（指針.ulltotalpagefile ÷ 1048576, ）) “mb” #換行符“可用頁面文件：” 到文本（四捨五入（指標.ullavailpagefile ÷ 1048576, )) “mb” #換行符“電腦記憶體佔用：” 到文字（指標.dwmemoryload） “%”)
以上是易語言的計數循環導致CPU使用率過高的詳細內容。更多資訊請關注PHP中文網其他相關文章！
