按鍵精靈1--6級答案

1、以下哪一個不是按鍵精靈的產(chǎn)品? 按鍵箱子錄制的腳本沒有以下哪個功能? 記錄鼠標(biāo)特征碼下列哪一個命令不屬于全部命令? 內(nèi)核命令按鍵精靈自帶的抓圖工具是? 按鍵抓抓哪一種方法能夠找到命令的幫助說明? 在全部命令中搜索命令,點擊后幫助說明會出現(xiàn)在編輯器下方.按鍵精靈不可以在以下哪個系統(tǒng)中使用? Linux可以使用神盾功能的程序是? 小精靈商業(yè)版舊版本的腳本導(dǎo)入到新版本中,以下哪種方法不可以糾正語法錯誤? 使用自動縮進功能WaitClick命令的含義是? 按任意鼠標(biāo)鍵繼續(xù)哪一類腳本程序是按鍵精靈官方授予銷售權(quán)的? 小精靈商業(yè)版只要在編輯腳本，切換輸入法時，按鍵精靈就卡住了,可能是下列哪一個原因? Pl

2、ugin目錄下裝有不是官方提供的插件引起的關(guān)于加密腳本的描述，下列是錯誤的是? 只有會員輸入密碼可以解開加密腳本GetLastClick命令的含義是? 檢測上次按過的鼠標(biāo)鍵按鍵精靈生成的小精靈程序的后綴名是? EXE按鍵精靈會員不能享受的論壇權(quán)限是? 可以訪問按鍵精靈“版版家園”專區(qū)享受版主資源網(wǎng)頁按鍵精靈是下列哪一個程序? wqm.exe按鍵精靈的產(chǎn)品包括以下哪一個? 按鍵盒子按鍵精靈是下列哪一個程序? 按鍵精靈9.exe按鍵精靈會員卡注冊碼,沒有以下哪一種? 天卡(1天)UnlockMouse命令的含義是? 解除鎖定鼠標(biāo)位置按鍵精靈會員不能享受的資源是? 免費小精靈的源代碼RightUp命

3、令的含義是? 右鍵彈起按鍵精靈的功能不包括? 自動發(fā)明汽車、飛機、火箭等機器按鍵精靈能兼容下列哪一種語言? VBS不能用抓抓工具直接獲取的是? PID關(guān)于按鍵精靈的描述，以下正確的是? 按鍵精靈是一款綠色的模擬鍵盤鼠標(biāo)操作的軟件腳本編輯界面上沒有的按鈕是?啟動與取色判斷命令沒有直接關(guān)系的參數(shù)是? 按鍵碼以下哪種方式可以在腳本編輯界面中獲取到新的插件? 點擊資源庫按鈕,然后導(dǎo)入需要的插件LeftClick命令的含義是? 左鍵單擊按鍵精靈官方網(wǎng)站的網(wǎng)址是? RestoreMousePos命令的含義是? 恢復(fù)上次保存的鼠標(biāo)位置如果按鍵精靈在某些環(huán)境失效,可以使用下列哪個工具? 神盾SaveMouse

4、Pos命令的含義是? 保存當(dāng)前鼠標(biāo)所在位置GetCursorPos命令的含義是? 得到鼠標(biāo)位置坐標(biāo)鍵盤命令的類型不包括? 鎖定按鍵精靈里運算符乘號是? *KeyPress命令的含義是? 按鍵MiddleClick命令的含義是? 中鍵單擊LockMouse命令的含義是? 鎖定鼠標(biāo)位置按鍵精靈會員不能享受的功能是? 腳本編寫服務(wù)GetCursorShape命令的含義是? 得到鼠標(biāo)形狀按鍵精靈自帶的用戶界面叫做什么? QUI界面RightClick命令的含義是? 右鍵單擊按鍵精靈里運算符減號是? -按鍵精靈默認的啟動熱鍵是? F10屬于全部命令的是? 我的命令庫“錄制”功能不能錄制的內(nèi)容是? 記錄鼠

5、標(biāo)指向的窗口句柄按鍵抓抓是下列哪一個程序? picker.exe想要知道腳本是否存在錯誤,應(yīng)該使用下列哪個功能? 調(diào)試以下哪種方式不可以獲得論壇銀幣? 發(fā)布大量無內(nèi)容的主題貼按鍵精靈里運算符除號是? /按鍵精靈會員不能享受的技術(shù)支持是? 技術(shù)人員上門服務(wù)按鍵精靈自帶的功能不包括以下哪一個? 路由功能GetLastKey命令在獲取一次ANSI字符代碼后繼續(xù)循環(huán)執(zhí)行返回值是？0變量的定義，以下哪個是正確的? dim a下列哪一種方法不能夠正確輸入命令? 鼠標(biāo)右鍵單擊命令按鍵精靈的功能是？模擬鼠標(biāo)鍵盤操作的工具MoveR命令的含義是? 相對移動關(guān)于小精靈去廣告的描述，下列正確的是? 會員用戶在“制作

6、按鍵小精靈”界面上-更多設(shè)置-選擇會員去廣告（是）即可按鍵精靈里運算符加號是? +對小精靈的描述，以下是正確的? 按鍵小精靈是把按鍵精靈的腳本打包成一個可單獨執(zhí)行的EXE程序，便于傳播以及提供給新手使用。LeftDown命令的含義是? 左鍵按下鍵鼠的模擬方式不包括以下哪一個? 虛擬模擬3、區(qū)域找圖的命令是? FindPic4、按鍵精靈語言大小寫的描述哪一個是正確的? 按鍵精靈不區(qū)分大小寫7、KeyPress命令有幾個參數(shù)? 213、不能實現(xiàn)鍵盤按下A鍵的命令是? KeyPressW A,115、下列哪一個不是循環(huán)命令? Select Case顏色值為000000是什么顏色? 黑色以下哪一個不屬

7、于按鍵精靈的全部命令? 遠程嗅探命令20、下列RGB顏色值，書寫正確的是? DD23、GetPixelColor命令有幾個參數(shù)? 225、以下哪一段命令能正確執(zhí)行如果(70,416)的顏色等于FFFFFF則鼠標(biāo)移動到點(100,200)?IfColor 70, 416, FFFFFF, 0 Then:MoveTo 100,200:End If26、以下哪一個寫法不能點擊shift鍵? KeyPress 60, 128、下列哪一個不是邏輯運算符? Const33、FindColorEx命令有幾個參數(shù)? 936、下列哪一段代碼不能輸出L鍵? Keyup L, 144、SetSimMode 1 的實

8、際意義是? 使用硬件模擬1、鼠標(biāo)所在位置為(50,50),經(jīng)過命令 MoveTo 50,100 后鼠標(biāo)所在位置為：D50,1002、F10的按鍵碼是? B. 1213、下列哪一個不是鍵盤命令?A KeyClick4、循環(huán)可以使用下列哪個語句? B. For語句5、回車鍵的按鍵碼是? A. 136、默認情況下某些特定窗口模擬按鍵可能失效,以下哪種方法可能可以解決? D. 在腳本開頭增加代碼:SetSimMode 27、如何退出For循環(huán)的命令? D. Exit For8、得到一個按鍵的按鍵碼,以下哪一個方法是完全正確的? 在按鍵精靈編輯界面的基本命令的鍵盤命令部分查詢9、鼠標(biāo)右鍵按下的命令是?

9、RightDown10、以下哪一個命令不會暫停腳本? for.next11、下列哪一個是鍵盤命令? KeyPress12、鼠標(biāo)所在位置為(50,50),經(jīng)過命令 MoveR 50,100 后鼠標(biāo)所在位置為：100,15013、鼠標(biāo)左鍵按下的命令是? LeftDown14、解除鼠標(biāo)鎖定是下列哪一個命令? UnlockMouse15、組合鍵CTRL+C的正確按鍵順序是? 按下CTRL,點擊C,彈起CTRL16、下列屬于鼠標(biāo)命令的是? RightClick17、以下哪一種方式不能無限循環(huán)? 在腳本開頭加入For 10000,腳本尾部加入Next18、WaitKey命令有幾個參數(shù)? 019、如何退出D

10、o循環(huán)的命令? Exit Do20、下列哪一個是鼠標(biāo)命令? LeftClick21、下列RGB顏色值，書寫錯誤的是? FFFFFFFF22、以下哪一個KeyPress命令的路? 檢測血條上某一點,如果此點不是血條的顏色則執(zhí)行加血操作23、FindColor命令有幾個參數(shù)? 724、哪一種不能正確調(diào)用KeyPress命令? KeyPress FA,125、延時的命令是? Delay26、取指定點顏色的命令是? GetPixelColor27、延遲2小時,以下哪一句代碼是正確的? Delay 1000*60*60*228、以下哪一個是自動打怪的思路? 檢測怪物血條上某一點,如果此點是血條的顏色則執(zhí)

11、行打怪操作29、EndScript命令的意義是? 腳本停止運行30、以下哪一個是循環(huán)命令? for.next31、SetSimMode命令有幾個參數(shù)? 132、鼠標(biāo)所在位置為(100,50),經(jīng)過命令 MoveToS 50+50,100 后鼠標(biāo)所在位置為? 100,10033、區(qū)域找色的命令是? FindColor34、FindPic命令有幾個參數(shù)? 835、按鍵精靈找圖命令需要的圖片格式是下列哪一個? *.BMP36、腳本停止運行命令是哪一個? EndScript37、延遲1天,以下哪一句代碼是正確的? Delay 1000*60*60*24*138、下列哪一個命令會暫停腳本? WaitCl

12、ick39、不能正確調(diào)用KeyPress命令的寫法是? KeyPress FB,140、鼠標(biāo)所在位置為(0,50),經(jīng)過命令 MoveTo 50+50,100 后鼠標(biāo)所在位置為? 100,10041、代碼KeyPress A，1 調(diào)試后提示出錯,錯誤的原因是? 逗號使用了全角符號無法識別導(dǎo)致錯誤42、鎖定鼠標(biāo)位置是下列哪一個命令? LockMouse43、下面哪一個命令會暫停腳本? MsgBox44、鼠標(biāo)左鍵單擊的命令是? LeftClick45、鼠標(biāo)左鍵雙擊的命令是? LeftDoubleClick46、文本內(nèi)容和數(shù)字連接在一起(連接符)應(yīng)使用下列哪一個符號? &47、以下哪一個命令能夠延時

13、1個小時? delay 1000*60*6048、按鍵碼105是下列哪一個按鍵? NUM 949、指定句柄進行截圖，以下哪種情況不會導(dǎo)致截到的圖是黑色？窗口標(biāo)題動態(tài)變化50、空格鍵的按鍵碼是? 324、以下哪一個函數(shù)返回值的數(shù)據(jù)類型與其他三個的不一樣? Filter A. Instr B. Ubound C. Clng D. Filter5、以下哪一個函數(shù)返回值的數(shù)據(jù)類型與其他三個不一樣? A. Array 錯 B. Filter 錯 C. Split D. Replace18、以下哪一個返回值是字符串?C A. clng(520) B. 10-1 C. anjian&vrbrothers D

14、. len(anjian)Msgbox anjian&1 將會彈出什么內(nèi)容? anjian1以下哪一個命令可以將表達式轉(zhuǎn)化為字符串：Cstr10、假如“神盾”圖像存在，以下無法識別到圖像的命令是？FindPic 0, 0, 1024, 768, 神盾.jpg, 0.9, intX, intY11、IsNumeric(n)，當(dāng)n等于VrBrothers時返回什么？False12、Redim 命令的作用對象是? 數(shù)組1、關(guān)于 GetLastKey 命令的描述哪一個是錯誤的? D. 返回值是字符串2. 以下不屬于按鍵命令的是？ OnThreadLoad3. 假如MyDate = October 19

15、, 1962: YourDate = #10/19/62#: NoDate = Hello，返回值為False的是？ D. IsDate(NoDate)4. 字符串Vrbrothers的長度為? 105. GetOSType()返回值描述正確的是？返回當(dāng)前系統(tǒng)類型6. Text = Plugin.File.ReadINI(小節(jié)名, 鍵值, 文件路徑)，讀取文件格式為？A. *.ini7. 常數(shù) VbOk 的值為? 18. 以下語句無法返回時間信息的是？B. MyTime=Now(Time)9. 下列哪一個函數(shù)可以取數(shù)組最大可用下標(biāo)? Ubound10. 以下對函數(shù)的描述哪一個是錯誤的? 函數(shù)一

16、定有返回值11. 以下命令哪個可以終止所有線程運行并停止腳本。ExitScript12. ExitOS命令中，以下描述錯誤的是？可執(zhí)行待機13. 關(guān)于自定義變量的描述以下哪一個是錯誤的? 可以是數(shù)字或者字符串 錯 數(shù)組？14. 以下哪一個函數(shù)的功能是指明表達式的值是否為數(shù)字?IsNumeric 15、Set 語句的含義是? 將對象引用賦給變量或?qū)傩?6.選出下列命令參數(shù)格式錯誤的選項。PutAttachment , *.*？17.后臺取色命令需要的參數(shù)為? 句柄和坐標(biāo)18. 以下命令可以獲取當(dāng)前窗口所在屏幕位置精確坐標(biāo)的是？Text = Plugin.Window.GetWindowRect(

17、Hwnd)19. 選出以下命令參數(shù)錯誤的。 Import Window20.MsgBox命令最多可以使用幾個參數(shù)? 5個21. GetLastKey命令在獲取一次ANSI字符代碼后繼續(xù)循環(huán)執(zhí)行返回值是？ 022. 以下選項中不符合調(diào)用規(guī)則的是？Asc(F1)23. 以下關(guān)于按鍵抓抓描述錯誤的是？支持后臺找色找圖效果測試24.Media.Play命令不支持哪個文件格式。Mp425.數(shù)組MyArray(5)的最大可用下標(biāo)為?Ubound 5 26.數(shù)組MyArray(5)包含的元素個數(shù)為?627.字符串&H22用Clng命令轉(zhuǎn)換后除以2再用Cstr命令轉(zhuǎn)換,最后結(jié)果為? 1729.由RGB分量分別

18、為(50,50,50)的顏色值得到的16進制顏色值為? 32323230.當(dāng)str = (1+2*3-1)/2，Eval(str)返回值為？331.RGB值分解為紅綠藍分量,分量值的范圍是? 0-25532.Call Plugin.Window.Close(參數(shù))命令需要以下哪種參數(shù)？窗口句柄33.True的值是? -134.以下哪一個是類型轉(zhuǎn)換函數(shù)? clng35.使用WQM的腳本代碼第一步應(yīng)該做什么? 綁定WQM36.以下對子程序和函數(shù)的描述哪一個是正確的? 函數(shù)可以代替子程序37.以下命令無法正常獲取句柄的是？Active 38.myarray=Array(1,2,3,4,5),那么my

19、array(4)的值為? 539.如果有多個重復(fù)標(biāo)題的窗口,以下哪個命令能夠直接獲取到所有對應(yīng)窗口的句柄?HwndEx = Plugin.Window.Search(記事本)HwndEx = Plugin.Window.SearchEx(0,記事本,0)40.DateDiff命令有幾個必選參數(shù)？且返回值類型是？3個 41.FindMutiColorEx命令有幾個參數(shù)？842.myarray=Array(1,2,3,4,5),那么Ubound(myarray)的值為?443.Xor 運算符描述正確的是? ：用于對兩個表達式進行邏輯異或運算。44.GetLastKey：檢測上次按鍵，返回數(shù)字，鍵碼

20、45.Const 語句 ：定義常量46. 以下哪一個命令不能用于調(diào)試內(nèi)容輸出?：beep47.關(guān)于事件描述錯誤的是：事件子程序的參數(shù)可以是任意多個48.以下哪個命令需要綁定WQM使用：Call Plugin.Web.ScrollTo(0,0)49.常數(shù)vbok的值為：150.以下哪種情況可能導(dǎo)致獲取不到網(wǎng)頁元素：網(wǎng)頁未完全加載51.Join命令的參數(shù)類型是?：數(shù)組52.VarType 函數(shù)：返回指示變量子類型的值53.下列對按鍵精靈變量描述正確的是?：不定義可以直接使用變量54.以下哪個不是數(shù)學(xué)函數(shù)：ccur55.以下哪個的值是true：not（false）56. a=34,b=&H22,下列

21、描述哪一個是錯誤的?：cstr（b）的值為“&H22”57.vbcrlf-回車換行符58. 以下哪一個命令可以得到變量的類型?：VarType59. 關(guān)于延時命令描述錯誤的是?：可以停止腳本60.str=Clng(Mid(234,2,1),那么str的值為? 361. 以下哪個方法不能關(guān)閉窗體?：sWindow = Plugin.Window.IsWindow(Hwnd)62.雙引號的ANSI 字符代碼是?：3463.關(guān)于找圖找色描述錯誤的是? 找圖比找色更準(zhǔn)確錯誤：從思路上來說找圖等同于找多點顏色64.大型腳步中不推薦使用：goto命令65.發(fā)送字符串：sendstring66.以下對子程序

22、的描述哪一個是正確的?：子程序沒有返回值67. 對于按鍵精靈與VBS的描述正確的是?：按鍵可以直接調(diào)用VBS命令68. 132 Mod 13 的值為?:269.變量名稱不合法：1MyArray70.str=mid(234,2,1)：371.哪個事件最先響應(yīng)：onscriptload72.以下哪一個命令的功能是設(shè)置屏幕分辨率?：setsc73.QUI輸入框控件返回值的變量類型是?：字符串74.按鍵精靈的產(chǎn)品包括以下哪一個? ：按鍵盒子75.哪一種方法能夠找到命令的幫助說明?：在全部命令中搜索命令,點擊后幫助說明會出現(xiàn)在編輯器下方.76.關(guān)于加密腳本的描述，下列是錯誤的是?：只有會員輸入密碼可以解

23、開加密腳本77.鼠標(biāo)所在位置為(50,50),經(jīng)過命令 MoveTo 50,100 后鼠標(biāo)所在位置為：50,10078.WaitKey命令有幾個參數(shù)?答案：079.vbCrLf的值為?A Chr(13) & Chr(10)80.選出下列返回值類型不一樣的選項。C A. InStr(str,str) B. Len(n) C. Join(arr) D. Asc(n)81.a = 10.05 Mod 2 ,那么a的值為? 082.Round(3.141592,5)返回值為什么？3.1415983.Int(32)返回值等于多少？ Int(3/2)84.返回已添加指定時間間隔的日期應(yīng)使用下列哪一個函數(shù)?

24、 DateAdd 函數(shù)85.arr=Split(1,2,3,4,5,6,7,8,9, ,)，問arr(5)等于多少？“6”86.文本不存在,以下哪一個命令會新建立文本? C. WriteFileEx87.下列語句中無法達到無限循環(huán)效果的是？C. For i = True To True : Next 6、以下命令無法改變窗口大小的是？Call Plugin.Window.Move(Hwnd, 100, 100)18、選出下列非鍵鼠操作的命令。22、以下關(guān)于按鍵抓抓描述錯誤的是？1、當(dāng)n=3.141592*-1，以下語句返回值是絕對值的是？B. Abs(n)4、以下哪一個變量不可能是數(shù)組? Co

25、nst MyArray=25、假如a=123abc456，b=abc123def，c=abc，d=123，以下返回值正確的是？IsNumeric(d) = True6、arr=array(1,2,3,4,5,6,7,8,9)，問CStr(arr(5)等于多少？A 68、在腳本開頭中加入代碼 Msgbox Ture ,彈出的值為? 為空9、QUI輸入框控件返回值的變量類型是? 字符串11、arr=array(0,1,2,3,4,5,6,7,8,9)，問Clng(arr(9)等于多少？B. 912、Round(3.141592,5)返回值為什么？3.1415913、GetCursorShape(0

26、)該命令返回值類型為？整數(shù)類型17、執(zhí)行Call Plugin.File.WriteINI(Command, Val, 內(nèi)容, .Config.ini)命令后，IsFile = Plugin.File.IsFileExit(.Config.ini)返回值是？true1、PrintScreen命令支持那種格式截圖。D jpg2、以下命令哪個不屬于按鍵命令？StopScript10、FindMutiColor命令的顏色特征點最少為幾個？2個？ 3個錯20、以下哪一個命令會出錯? TracePrint Cint(32768)9、以下哪一個命令輸出的值與其他三個不同? TracePrint fix(3

27、.5)Erase 語句的含義是? 重新初始化固定大小數(shù)組的元素，并釋放動態(tài)數(shù)組的存儲空間5、以下命令無法正常獲取句柄的是？BError! Reference source not found.A. Hwnd = Plugin.Window.Search(未命名 - 畫圖)Error! Reference source not found.B. Hwnd = Plugin.Window.Find(#32770, -1)Error! Reference source not found.C. Hwnd = Plugin.Window.Find(MSPaintApp, 未命名 - 畫圖)Error!

28、 Reference source not found.D. Hwnd = Plugin.Window.Find(, 未命名 - 畫圖)7、關(guān)于自定義變量的描述以下哪一個是正確的? 自定義變量可以是數(shù)字或者字符串A. 自定義變量可以是數(shù)組D. 自定義變量可以是類10、關(guān)于后臺坐標(biāo)的描述哪一個是不正確的? 后臺坐標(biāo)在窗體內(nèi)是不會變化的A. 后臺坐標(biāo)只針對窗體內(nèi)生效B. 后臺坐標(biāo)是由后臺橫坐標(biāo)和后臺縱坐標(biāo)構(gòu)成的16、選出下列命令參數(shù)格式錯誤的選項。PutAttachment ,*.*17、Hex函數(shù)的返回值類型是? 字符串21、以下哪一個命令可以定義常數(shù)? Const23、以下不屬于鍵鼠命令的是？

29、Call Plugin.Bkgnd.SendString(Hwnd, 0)前半部分為問答題 后半部分為選擇題問答題只需要復(fù)制單道題到按鍵精靈中后調(diào)試就會看到效果了選擇題是搜索的其他資料 并沒有進行整理(緊供參考)只有自己讀懂每句代碼的含義后再答題 這樣不僅完成答題 還能豐富自己的知識問答題部分六、1、寫一個子程序,可以改變窗口內(nèi)的某個子窗口的大小為特定值,子窗口大小隨頂層窗口變化而比例變化(提示:改變頂層窗口,判斷子窗口大小),請寫出代碼Dim 父窗口句柄, 子窗口句柄, 客戶區(qū)大小大小Call RunApp(notepad.exe) Delay 1000 父窗口句柄 = Plugin.Win

30、dow.Find(Notepad, 0)子窗口句柄 = Plugin.Window.FindEx(父窗口句柄, 0, Edit, 0)TracePrint 查找到的父窗口句柄為： & 父窗口句柄TracePrint 查找到的子窗口句柄為： & 子窗口句柄Call 比例大小(父窗口句柄, 子窗口句柄, 0.9)EndScript Sub 比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父邊框, 父左1, 父左2, 父右1, 父右2 父邊框 = Plugin.Window.GetWindowRect(父窗口句柄) 父左1 = Clng(Split(父邊框, |)(0) : 父左2 = Cln

31、g(Split(父邊框, |)(1) 父右1 = Clng(Split(父邊框, |)(2) : 父右2 = Clng(Split(父邊框, |)(3) Call Plugin.Window.Size(子窗口句柄, (父右1 - 父左1) * 比例, (父右2 - 父左2) * 比例) End Sub隨機生N(N也為隨機數(shù))個字母,將N個字母分別賦值到數(shù)組中,數(shù)組的大小以最節(jié)省空間為標(biāo)準(zhǔn)生成.請寫出代碼六、1、隨即輸出10個50到100正整數(shù)，并從大到小排列(冒泡排序),請寫出代碼Dim 隨即Int(9), i1, j, Cache, bSwapRandomizeFor i1 = 0 To 9

32、 隨即Int(i1) = Int(100 - 50 + 1) * Rnd + 50) TracePrint i1 & ： & 隨即Int(i1)NextFor j = 0 To UBound(隨即Int) - 1 bSwap = False For i1 = 0 To UBound(隨即Int) - 1 If 隨即Int(i1) 隨即Int(i1 + 1) Then 若是遞增，則將 Cache = 隨即Int(i1) 隨即Int(i1) = 隨即Int(i1 + 1) 隨即Int(i1 + 1) = Cache bSwap = True End If Next If bSwap = False

33、 Then Exit ForNextTracePrint 【冒泡排序后輸出】For i1 = 0 To UBound(隨即Int) TracePrint i1 & ： & 隨即Int(i1)NextEndScript 六、2、利用文本(TXT)模擬一個數(shù)據(jù)庫,數(shù)據(jù)庫儲存人物信息(編號|姓名|年齡|身高),需有對應(yīng)的函數(shù)實現(xiàn) 查詢/搜索/刪除/增加 等功能(偽數(shù)據(jù)庫),請寫出代碼Dim 數(shù)據(jù)庫路徑, InputHome, Input查詢, Input搜索, Input刪除, Input增加, 查詢結(jié)果, 搜索返回, 搜索結(jié)果, Show搜索, 刪除結(jié)果數(shù)據(jù)庫路徑 = C:檔案.txtInputH

34、ome = InputBox(退出：Q 主頁：H & vbcrlf & vbcrlf & 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應(yīng)字符進行相關(guān)操作)Do While InputHome Q And InputHome q If InputHome = H Or InputHome = h Then InputHome = InputBox(退出：Q 主頁：H & vbcrlf & vbcrlf & 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應(yīng)字符進行相關(guān)操作) ElseIf InputHome = 1 Then Do 查詢結(jié)果 = Input查詢 = InputBo

35、x(退出：Q 主頁：H, 查詢請輸入編號進行查詢, 編號) If Input查詢 = Q Or Input查詢 = q Then : InputHome = Q : Exit Do ElseIf Input查詢 = H Or Input查詢 = h Then : InputHome = H : Exit Do ElseIf IsNumeric(Input查詢) = True Then 查詢結(jié)果 = 查詢(數(shù)據(jù)庫路徑, Input查詢) End If If 查詢結(jié)果 Then MsgBox 查詢結(jié)果, 65, 查詢結(jié)果 Loop ElseIf InputHome = 2 Then Do 搜索返回

36、 = : Show搜索 = Input搜索 = InputBox(退出：Q 主頁：H & vbcrlf & vbcrlf & 可模糊搜索到編號、姓名、年齡、身高字段, 搜索請輸入關(guān)鍵字進行搜索, 關(guān)鍵字) If Input搜索 = Q Or Input搜索 = q Then : InputHome = Q : Exit Do ElseIf Input搜索 = H Or Input搜索 = h Then : InputHome = H : Exit Do Else 搜索返回 = 搜索(數(shù)據(jù)庫路徑, Input搜索) End If If 搜索返回 Then 搜索結(jié)果 = Split(搜索返回, ,

37、) For i = UBound(搜索結(jié)果) - 1 To 0 Step - 1 Show搜索 = Show搜索 & 搜索結(jié)果(i) & vbCrLf Next MsgBox Show搜索, 65, 搜索結(jié)果 End If Loop ElseIf InputHome = 3 Then Do 查詢結(jié)果 = : 刪除結(jié)果 = Input刪除 = InputBox(退出：Q 主頁：H, 刪除請輸入編號進行刪除, 編號) If Input刪除 = Q Or Input刪除 = q Then : InputHome = Q : Exit Do ElseIf Input刪除 = H Or Input刪除

38、= h Then : InputHome = H : Exit Do ElseIf IsNumeric(Input刪除) = True Then 查詢結(jié)果 = 查詢(數(shù)據(jù)庫路徑, Input刪除) End If If 查詢結(jié)果 Then 刪除結(jié)果 = MsgBox(查詢結(jié)果, 68, 確定要刪除此條數(shù)據(jù)？) If 刪除結(jié)果 = 6 Then 刪除 數(shù)據(jù)庫路徑, Input刪除 Loop ElseIf InputHome = 4 Then Do Input增加 = InputBox(退出：Q 主頁：H & vbcrlf & vbcrlf & 格式：姓名|年齡|身高 & vbcrlf & 例如：李

39、雷|18|1.52, 增加請輸入要增加的一條數(shù)據(jù)) If Input增加 = Q Or Input增加 = q Then : InputHome = Q : Exit Do ElseIf Input增加 = H Or Input增加 = h Then : InputHome = H : Exit Do ElseIf UBound(Split(Input增加, |) = 2 Then 增加 數(shù)據(jù)庫路徑, Input增加 End If loop ElseIf InputHome = Q Or InputHome q Then : Exit Do Else InputHome = InputBox(

40、退出：Q 主頁：H & vbcrlf & vbcrlf & 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應(yīng)字符進行相關(guān)操作) End IfLoopEndScriptFunction 查詢(文本路徑, 編號) Dim fso, myfile, i, flag, tempp flag = 1 Set fso = CreateObject(scripting.FileSystemObject) If fso.FileExists(文本路徑) Then Set myfile = fso.openTextFile(文本路徑, 1, false) Else flag = 0 End If For

41、 i = 1 To 編號 - 1 If Not myfile.AtEndOfLine Then myfile.SkipLine tempp = myfile.Line End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then 查詢 = myfile.ReadLine Else 查詢 = 編號不存在！ End If myfile.close Else 查詢 = 文件不存在！ End If Set fso = NothingEnd FunctionFunction 搜索(文本路徑, 關(guān)鍵字) Dim ForReading, ForWri

42、ting ForReading = 1 : ForWriting = 2 : 搜索 = Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject(Scripting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路徑, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If Instr(1, strLine, 關(guān)鍵字) 0 Then 搜索 = strLine & , &

43、 搜索 TracePrint 搜索= & 搜索 strNewFile = strNewFile & strLine & vbcrlf Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路徑, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = NothingEnd FunctionSub 刪除(文本路徑, 編號) Dim ForReading ,ForWriting ForReading = 1 ForWriting = 2 Dim objFSO,objFil

44、e,strLine,strNewFile Set objFSO = CreateObject(Scripting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路徑,ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline If CInt(編號) = objFile.Line - 1 or CInt(編號) = 0 Then strNewFile = strNewFile Else strNewFile = strNewFile & strLine &

45、 vbcrlf End If Loop objFile.Close Set objFile = objFSO.OpenTextFile(文本路徑,ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = NothingEnd SubSub 增加(文本路徑, 文本內(nèi)容) Dim ForReading ,ForWriting ForReading = 1 : ForWriting = 2 Dim objFSO, objFile, strLine, strNewFile Set objFSO = CreateObject(Scri

46、pting.FileSystemObject) Set objFile = objFSO.OpenTextFile(文本路徑, ForReading) Do Until objFile.AtEndOfStream strLine = objFile.Readline strNewFile = strNewFile & strLine & vbcrlf Loop TracePrint objFile.Line strNewFile = strNewFile & objFile.Line & | & 文本內(nèi)容 & vbcrlf objFile.Close Set objFile = objFSO.

47、OpenTextFile(文本路徑, ForWriting) objFile.Write strNewFile objFile.Close Set objFSO = NothingEnd SubEndScript 六、3、動態(tài)監(jiān)控文本內(nèi)容,當(dāng)文本內(nèi)容增加時(文本內(nèi)容不會減少)自動輸出增加的內(nèi)容到所有標(biāo)題包含接收關(guān)鍵字的文本(批量消息發(fā)送器),請寫出代碼六、4、寫一個子程序,可以改變窗口內(nèi)的某個子窗口的大小為特定值,子窗口大小隨頂層窗口變化而比例變化(提示:改變頂層窗口,判斷子窗口大小),請寫出代碼六、5、利用函數(shù)輸出楊輝三角,需要的參數(shù)為楊輝三角的行數(shù),請寫出代碼六、楊輝三角百度說明:五：1、

48、寫出三種計算顏色相似度的算法,函數(shù)返回值為相似度.請寫出代碼MsgBox 顏色相似度1(Fffffa, FFFFFF),64,顏色相似度1MsgBox 顏色相似度2(Fffffa, FFFFFF),64,顏色相似度2MsgBox 顏色相似度3(Fffffa, FFFFFF),64,顏色相似度3Function 顏色相似度1(當(dāng)前顏色, 對比顏色) Call Plugin.Color.ColorToRGB(當(dāng)前顏色, R1, G1, B1) Call Plugin.Color.ColorToRGB(對比顏色, R2, G2, B2) 顏色相似度1 = 1 - round(abs(R1 - R2)

49、 / 255) + abs(G1 - G2) / 255) + abs(B1 - B2) / 255) / 3, 3)End FunctionFunction 顏色相似度2(當(dāng)前顏色, 對比顏色) Call Plugin.Color.ColorToRGB(當(dāng)前顏色, R1, G1, B1) Call Plugin.Color.ColorToRGB(對比顏色, R2, G2, B2) 顏色相似度2 = 1 - round(abs(R1 - R2) + abs(G1 - G2) + abs(B1 - B2) / 255 / 3, 3)End FunctionFunction 顏色相似度3(當(dāng)前顏色, 對比顏色) Call Plugin.Color.ColorToRGB(當(dāng)前顏色, R1, G1, B1) Call Plugin.Color.ColorToRGB(對比顏色, R2, G2, B2) 顏色相似度3 = 1 - round(abs(R1 / 255 - R2 / 255) + abs(G1 / 255 - G2 / 255) + abs(B1 / 255 - B2 / 255) / 3, 3)End Function五：2、(前臺)區(qū)域范圍為(100,150)到(200,300)內(nèi)的所有點是否均為FFFFFF,是則彈出對話框沒有其他顏色,否則彈出第一