【正文】 = Then : Text = T End IfNextMsgBox 100以內(nèi)所有個(gè)位數(shù)加十位數(shù)等于10的數(shù)： amp。 VbCrlf amp。 VbCrlf amp。 Text, 64, 程序提示EndScript 39。五：寫一個(gè)函數(shù)，已知一段坐標(biāo)信息的字符串為：260,270|290,260|310,230|320,200,10|300,150|280,150,10|270,130|250,130，計(jì)算得出離185,246坐標(biāo)最近的一組坐標(biāo)。提示：For循環(huán)與數(shù)組應(yīng)用。 TracePrint 坐標(biāo)最近判斷(260,270|290,260|310,230|320,200|300,150|280,150|270,130|250,130, 185,246)EndScript Function 坐標(biāo)最近判斷(信息, 坐標(biāo)) Dim Arr, Str, StrX, StrY, Ping, a, b, c, i Arr = Split(信息, |) 39。信息分離 Str = Split(坐標(biāo), ,) 39。坐標(biāo)分離 StrX = Clng(Str(0)) : StrY = Clng(Str(1)) 39。提取坐標(biāo)X與Y值 For i = 0 To UBound(Arr) 39。勾股定理計(jì)算每個(gè)坐標(biāo)到指定坐標(biāo)的平方值 If i = 0 Then Ping = (Abs(Clng(Split(Arr(i), ,)(0)) StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ,)(1)) StrY)) ^ 2 Else Ping = Ping amp。 / amp。 (Abs(Clng(Split(Arr(i), ,)(0)) StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), ,)(1)) StrY)) ^ 2 End If Next TracePrint Ping b = Split(Ping, /) : a = 0 : c = b(0) TracePrint c For i = 1 To UBound(b) TracePrint b( amp。 i amp。 )= amp。 b(i) If Clng(b(i)) Clng(c) Then : c = b(i) : a = i : End If Next 坐標(biāo)最近判斷 = Arr(a)End Function39。五：810,請(qǐng)寫出代碼Dim 十進(jìn)數(shù)十進(jìn)數(shù) = InputBox(輸入你想轉(zhuǎn)換的十進(jìn)制數(shù)字, 十轉(zhuǎn)八進(jìn)制算法, )MsgBox 十進(jìn)制數(shù)：amp。十進(jìn)數(shù) amp。 → 八進(jìn)制數(shù)： amp。 十轉(zhuǎn)八進(jìn)制算法(十進(jìn)數(shù)), 64, 程序提示EndScript Function 十轉(zhuǎn)八進(jìn)制算法(十進(jìn)數(shù)) 十轉(zhuǎn)八進(jìn)制算法 = While 十進(jìn)數(shù) 0 十轉(zhuǎn)八進(jìn)制算法 = 十進(jìn)數(shù) Mod 8 amp。 十轉(zhuǎn)八進(jìn)制算法 十進(jìn)數(shù) = 十進(jìn)數(shù) \ 8 WendEnd Function39。四：切換所有標(biāo)題包含Internet Explorer的窗口,請(qǐng)寫出代碼Dim HwndEx, MyArray, iHwndEx = HwndEx = (Internet Explorer)If HwndEx Then MyArray = Split(HwndEx, |) For i = 0 To UBound(MyArray) 1 39。模糊搜索最后一個(gè)值是空的所以忽略 Call (Clng(MyArray(i)), 0) Call (當(dāng)前共有 amp。 UBound(MyArray) amp。 個(gè)窗口包含“Internet Explorer” amp。 VbCrlf amp。 切換為第 amp。 i + 1 amp。 個(gè)窗口) Delay 1500 Call (Clng(MyArray(i)), 1) Next Else Call (當(dāng)前沒(méi)有包含“Internet Explorer”的窗口)End IfEndScript39。四：規(guī)定區(qū)域內(nèi)隨機(jī)輸出一個(gè)日期,例如 20050101到20120331之間的某一天,請(qǐng)給出代碼Do TracePrint 隨機(jī)日期= amp。 隨機(jī)產(chǎn)生日期(20050101, 20120331) Delay 1500loopEndScriptFunction 隨機(jī)產(chǎn)生日期(起始年月日, 終止年月日) Dim 間隔, 隨機(jī)數(shù) 間隔 = DateDiff(d, 起始年月日, 終止年月日) 隨機(jī)數(shù) = Int((間隔 + 1) * Rnd) 隨機(jī)產(chǎn)生日期 = DateAdd(d, 隨機(jī)數(shù), 起始年月日)End Function39。四：生成[2,6]個(gè)[65，90]之間的偶數(shù),并將生成的數(shù)轉(zhuǎn)為與指定的ANSI 字符代碼相對(duì)應(yīng)的字符,最終合并結(jié)果MessageBox 彈出。請(qǐng)給出代碼。Dim 字母?jìng)€(gè)數(shù)Do Randomize 字母?jìng)€(gè)數(shù) = Int((6 3 + 1) * Rnd + 3) MessageBox 隨機(jī)偶數(shù)ANSI碼(字母?jìng)€(gè)數(shù), 65, 90) Delay 500loopEndScriptFunction 隨機(jī)偶數(shù)ANSI碼(字符數(shù), 下限, 上限) Dim 隨機(jī)數(shù)值, 字母Asc Randomize For 字符數(shù) 隨機(jī)數(shù)值 = int((上限 下限 + 1) * Rnd + 下限) If 隨機(jī)數(shù)值 mod 2 = 1 Then 隨機(jī)數(shù)值 = 隨機(jī)數(shù)值 1 If 隨機(jī)數(shù)值 = 64 Then 隨機(jī)數(shù)值 = 66 字母Asc = 字母Asc amp。 Chr(隨機(jī)數(shù)值) Next 隨機(jī)偶數(shù)ANSI碼 = 字母AscEnd Function39。三：寫出用goto命令循環(huán)十次的過(guò)程Dim a1a1 = 10Rem 從這里開(kāi)始TracePrint 倒計(jì)次了！ amp。 a1a1 = a1 1If a1 0 Then Goto 從這里開(kāi)始EndScript39。三：(前臺(tái))依次按下AJJL四個(gè)鍵,中間延遲100毫秒,循環(huán)10次Dim pFor p = 1 To 10 KeyPress 65, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 76, 1 Delay 100NextEndScript39。三：有數(shù)字 a 和 數(shù)字 b ,分別彈出其 加減乘除 四個(gè)結(jié)果.(假設(shè)a=4,b=2),請(qǐng)給出代碼Dim a, ba = 4 : b = 2MessageBox a + bMessageBox a bMessageBox a * bMessageBox a / b━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━以下是4級(jí)部分選擇題 較亂沒(méi)有整理按鍵精靈支持jpg 格式截屏 按鍵精靈可以調(diào)用VBS8常數(shù) VbOk 的值為?msgbox函數(shù)有以下返回值常數(shù) 值 按鈕 vbOK 1 確定 vbCancel 2 取消 vbAbort 3 放棄 vbRetry 4 重試 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 1UserVar Var1=DropList{選項(xiàng)1:值1|選項(xiàng)2:值2|選項(xiàng)3:值3|選項(xiàng)4:值4}=n 設(shè)置內(nèi)容，問(wèn)初始參數(shù)Var1=值2時(shí)，n是多少？解釋://格式: UserVar 變量=DropList{選項(xiàng)0:值0|選項(xiàng)1:值1|選項(xiàng)2:值2}=默認(rèn)顯示的選項(xiàng)編號(hào) {注釋} 這個(gè)命令預(yù)先設(shè)定多個(gè)變量值，用戶可在基面通過(guò)下拉方式進(jìn)行選擇 ， 特別提醒：默認(rèn)顯示的選項(xiàng)編號(hào)從0開(kāi)始。1以下命令可以獲取當(dāng)前窗口所在屏幕位置精確坐標(biāo)的是？GetClientRect字符串型，客戶區(qū)大小注返回為：客戶區(qū)窗口左角X坐標(biāo)|客戶區(qū)窗口左上角Y坐標(biāo)|客戶區(qū)窗口寬度|客戶區(qū)窗口高度1假如a=123abc456，b=abc123def，c=abc，d=123，以下返回值正確的是？1以下哪一個(gè)函數(shù)返回值數(shù)據(jù)類型與其他三個(gè)不一樣?1關(guān)于自定義變量的描述以下哪一個(gè)是正確的?1Join命令的參數(shù)類型是? Join(list[，delimiter])list 必選。包含要聯(lián)接的子字符串一維數(shù)組。 delimiter 可選。在返回字符串中用于分隔子字符串的字符。如果省略，將使用空字符 ()。 如果 delimiter 是零長(zhǎng)度字符串，則在同一列表中列出全部項(xiàng)，沒(méi)有分界符。 選出返回值與其他三種不一樣的選項(xiàng)。2True的值是? TracePrint True 1TracePrint False 0TracePrint CBool( 1 ) 1TracePrint CBool(1) 1TracePrint CBool(0) 0TracePrint CBool(2) 1TracePrint CBool( 2 ) 1true,如漢字的真,?實(shí)體書上說(shuō)true輸出值1,false是02下列語(yǔ)句中無(wú)法達(dá)到無(wú)限循環(huán)效果的是？2由RGB分量分別為(50,50,50)的顏色值得到的16進(jìn)制顏色值為? Color = (50, 50, 50) msgbox 得到16進(jìn)制顏色值: amp。 color323232Set 語(yǔ)句的含義是? D. 將對(duì)象引用賦給變量或?qū)傩?以下命令哪個(gè)不屬于按鍵命令？ D. StopScript 以下無(wú)法獲取句柄的命令是？b A. Foreground B. Active C. Search D. MousePoint False的值是? A. 0 1返回已添加指定時(shí)間間隔的日期應(yīng)使用下列哪一個(gè)函數(shù)?c A. DatePart 函數(shù) 返回給定日期的指定部分。 B. DateDiff 函數(shù) 返回兩個(gè)日期之間的時(shí)間間隔 C. DateAdd 函數(shù) 返回已添加指定時(shí)間間隔的日期 D. Date 函數(shù) 返回表達(dá)式，此表達(dá)式已被轉(zhuǎn)換為 Date 子類型的 Variant以下哪1個(gè)返回值是字符串 b A len(anjian) b anjianamp。vrbrothers c 101 d clng(520) 以下無(wú)法獲取句柄的命令是？ c A. MousePoint 得到鼠標(biāo)指向的窗口句柄返 回 值 整數(shù)型，窗口句柄 B. Search 遍歷符合窗口標(biāo)題的句柄保存到數(shù)值串里返 回 值 字符串型，句柄數(shù)值串 C. Active 激活窗口 返 回 值 無(wú) D. Foreground得到當(dāng)前最前面的窗口句柄返 回 值 整數(shù)型，窗口句柄 = (Command, Val, C:) 2 以下哪一個(gè)命令的功能是設(shè)置屏幕分辨率? A. SetCLB 設(shè)置剪切板內(nèi)容 B. GetScRY 獲得屏幕分辨率高度 C. SetSc 命令功能 設(shè)置屏幕分辨率/顏色質(zhì)量 D. GetScDep 命令功能 獲得屏幕色深度(顏色質(zhì)量) TracePrint IsNumeric (VrBrothers)返回 Boolean 值指明表達(dá)式的值是否為數(shù)字。 0 flase TracePrint IsNumeric (VrBrothers) 1MyTime1 = Second(Time)MyTime2=Hour(Time)MyTime3 = Minute(Time)MyTime4 = Now(Time) now無(wú)效MsgBox MyTime1MsgBox MyTime2MsgBox MyTime3 4,以下哪個(gè)事件是最先響應(yīng)的? A. OnScriptLoad 加載 B. 角本不加載完成如何能實(shí)現(xiàn)界面點(diǎn)擊后響應(yīng)你的腳本你的腳本代碼呢 C. OnScriptExit D. OnThreadExit 5,PrintScreen命令支持那種格式截圖。A