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