【文章內容簡介】 D. Asc(n) = Mod 2 ,那么a的值為? 0(,5)返回值為什么？(3\2)返回值等于多少？ Int(3/2)? DateAdd 函數=Split(1,2,3,4,5,6,7,8,9, ,)，問arr(5)等于多少？“6”,以下哪一個命令會新建立文本? C. WriteFileEx？C. For i = True To True : Next 以下命令無法改變窗口大小的是？Call (Hwnd, 100, 100)1選出下列非鍵鼠操作的命令。2以下關于按鍵抓抓描述錯誤的是？當n=*1，以下語句返回值是絕對值的是？B. Abs(n)以下哪一個變量不可能是數組? Const MyArray=2假如a=123abc456，b=abc123def，c=abc，d=123，以下返回值正確的是？IsNumeric(d) = Truearr=array(1,2,3,4,5,6,7,8,9)，問CStr(arr(5))等于多少？A 6在腳本開頭中加入代碼 Msgbox Ture ,彈出的值為? 為空QUI輸入框控件返回值的變量類型是? 字符串1arr=array(0,1,2,3,4,5,6,7,8,9)，問Clng(arr(9))等于多少？B. 91Round(,5)返回值為什么？1GetCursorShape(0)該命令返回值類型為？整數類型1執(zhí)行Call (Command, Val, 內容, .\)命令后，IsFile = (.\)返回值是？truePrintScreen命令支持那種格式截圖。D jpg以下命令哪個不屬于按鍵命令？StopScriptFindMutiColor命令的顏色特征點最少為幾個？2個？ 3個錯以下哪一個命令會出錯? TracePrint Cint(32768)以下哪一個命令輸出的值與其他三個不同? TracePrint fix()Erase 語句的含義是? 重新初始化固定大小數組的元素，并釋放動態(tài)數組的存儲空間以下命令無法正常獲取句柄的是？BError! Reference source not found.A. Hwnd = (未命名 畫圖)Error! Reference source not found.B. Hwnd = (32770, 1)Error! Reference source not found.C. Hwnd = (MSPaintApp, 未命名 畫圖)Error! Reference source not found.D. Hwnd = (, 未命名 畫圖)關于自定義變量的描述以下哪一個是正確的? 自定義變量可以是數字或者字符串A. 自定義變量可以是數組D. 自定義變量可以是類關于后臺坐標的描述哪一個是不正確的? 后臺坐標在窗體內是不會變化的A. 后臺坐標只針對窗體內生效B. 后臺坐標是由后臺橫坐標和后臺縱坐標構成的1選出下列命令參數格式錯誤的選項。PutAttachment \,*.*1Hex函數的返回值類型是? 字符串2以下哪一個命令可以定義常數? Const2以下不屬于鍵鼠命令的是？Call (Hwnd, 0)前半部分為問答題 后半部分為選擇題問答題只需要復制單道題到按鍵精靈中后調試就會看到效果了選擇題是搜索的其他資料 并沒有進行整理(緊供參考)只有自己讀懂每句代碼的含義后再答題 這樣不僅完成答題 還能豐富自己的知識━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━問答題部分39。六、寫一個子程序,可以改變窗口內的某個子窗口的大小為特定值,子窗口大小隨頂層窗口變化而比例變化(提示:改變頂層窗口,判斷子窗口大小),請寫出代碼Dim 父窗口句柄, 子窗口句柄, 客戶區(qū)大小大小Call RunApp() Delay 1000 父窗口句柄 = (Notepad, 0)子窗口句柄 = (父窗口句柄, 0, Edit, 0)TracePrint 查找到的父窗口句柄為： amp。 父窗口句柄TracePrint 查找到的子窗口句柄為： amp。 子窗口句柄Call 比例大小(父窗口句柄, 子窗口句柄, )EndScript Sub 比例大小(父窗口句柄, 子窗口句柄, 比例) Dim 父邊框, 父左1, 父左2, 父右1, 父右2 父邊框 = (父窗口句柄) 父左1 = Clng(Split(父邊框, |)(0)) : 父左2 = Clng(Split(父邊框, |)(1)) 父右1 = Clng(Split(父邊框, |)(2)) : 父右2 = Clng(Split(父邊框, |)(3)) Call (子窗口句柄, (父右1 父左1) * 比例, (父右2 父左2) * 比例) End Sub39。隨機生N(N也為隨機數)個字母,將N個字母分別賦值到數組中,39。六、隨即輸出10個50到100正整數，并從大到小排列(冒泡排序),請寫出代碼Dim 隨即Int(9), i1, j, Cache, bSwapRandomizeFor i1 = 0 To 9 隨即Int(i1) = Int((100 50 + 1) * Rnd + 50) TracePrint i1 amp。 ： amp。 隨即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 39。若是遞增，則將 改為 Cache = 隨即Int(i1) 隨即Int(i1) = 隨即Int(i1 + 1) 隨即Int(i1 + 1) = Cache bSwap = True End If Next If bSwap = False Then Exit ForNextTracePrint 【冒泡排序后輸出】For i1 = 0 To UBound(隨即Int) TracePrint i1 amp。 ： amp。 隨即Int(i1)NextEndScript 39。六、利用文本(TXT)模擬一個數據庫,數據庫儲存人物信息(編號|姓名|年齡|身高),需有對應的函數實現 查詢/搜索/刪除/增加 等功能(偽數據庫),請寫出代碼Dim 數據庫路徑, InputHome, Input查詢, Input搜索, Input刪除, Input增加, 查詢結果, 搜索返回, 搜索結果, Show搜索, 刪除結果數據庫路徑 = C:\InputHome = InputBox(退出：Q 主頁：H amp。 vbcrlf amp。 vbcrlf amp。 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應字符進行相關操作)Do While InputHome Q And InputHome q If InputHome = H Or InputHome = h Then InputHome = InputBox(退出：Q 主頁：H amp。 vbcrlf amp。 vbcrlf amp。 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應字符進行相關操作) ElseIf InputHome = 1 Then Do 查詢結果 = Input查詢 = InputBox(退出：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 查詢結果 = 查詢(數據庫路徑, Input查詢) End If If 查詢結果 Then MsgBox 查詢結果, 65, 查詢結果 Loop ElseIf InputHome = 2 Then Do 搜索返回 = : Show搜索 = Input搜索 = InputBox(退出：Q 主頁：H amp。 vbcrlf amp。 vbcrlf amp。 可模糊搜索到編號、姓名、年齡、身高字段, 搜索請輸入關鍵字進行搜索, 關鍵字) If Input搜索 = Q Or Input搜索 = q Then : InputHome = Q : Exit Do ElseIf Input搜索 = H Or Input搜索 = h Then : InputHome = H : Exit Do Else 搜索返回 = 搜索(數據庫路徑, Input搜索) End If If 搜索返回 Then 搜索結果 = Split(搜索返回, ,) For i = UBound(搜索結果) 1 To 0 Step 1 Show搜索 = Show搜索 amp。 搜索結果(i) amp。 vbCrLf Next MsgBox Show搜索, 65, 搜索結果 End If Loop ElseIf InputHome = 3 Then Do 查詢結果 = : 刪除結果 = Input刪除 = InputBox(退出：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 查詢結果 = 查詢(數據庫路徑, Input刪除) End If If 查詢結果 Then 刪除結果 = MsgBox(查詢結果, 68, 確定要刪除此條數據？) If 刪除結果 = 6 Then 刪除 數據庫路徑, Input刪除 Loop ElseIf InputHome = 4 Then Do Input增加 = InputBox(退出：Q 主頁：H amp。 vbcrlf amp。 vbcrlf amp。 格式：姓名|年齡|身高 amp。 vbcrlf amp。 例如：李雷|18|, 增加請輸入要增加的一條數據) 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 增加 數據庫路徑, Input增加 End If loop ElseIf InputHome = Q Or InputHome q Then : Exit Do Else InputHome = InputBox(退出：Q 主頁：H amp。 vbcrlf amp。 vbcrlf amp。 查詢：1 搜索：2 刪除：3 增加：4, 主頁請輸入對應字符進行相關操作) End IfLoopEndScriptFunction 查詢(文本路徑, 編號) Dim fso, myfil