条件,请写出代码 Dim Text, T, G, S For T = 0 To 99 G = T Mod 10 S = Int(T / 10)
If (G + S) = 10 and Text <> \，\ ElseIf (G + S) = 10 and Text = \ End If Next
MsgBox \以内所有个位数加十位数等于10的数：\64, \程序·提示\EndScript
'五：4、写一个函数，已知一段坐标信息的字符串为：\，计算得出离185,246坐标最近的一组坐标。提示：For循环与数组应用。 TracePrint 坐标最近判断(\EndScript
Function 坐标最近判断(信息, 坐标)
Dim Arr, Str, StrX, StrY, Ping, a, b, c, i
Arr = Split(信息, \ '信息分离 Str = Split(坐标, \ '坐标分离
StrX = Clng(Str(0)) : StrY = Clng(Str(1)) '提取坐标X与Y值
For i = 0 To UBound(Arr) '勾股定理计算每个坐标到指定坐标的平方值 If i = 0 Then
Ping = (Abs(Clng(Split(Arr(i), \- StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), \ Else
Ping = Ping & \& (Abs(Clng(Split(Arr(i), \- StrX)) ^ 2 + (Abs(Clng(Split(Arr(i), \ End If Next
TracePrint Ping
b = Split(Ping, \ TracePrint c
For i = 1 To UBound(b)
TracePrint \
If Clng(b(i)) < Clng(c) Then : c = b(i) : a = i : End If Next
坐标最近判断 = Arr(a) End Function
'五：5、写一个算法可以将十进制的字符串转成八进制的字符串.例如\请写出代码
Dim 十进数
十进数 = InputBox(\输入你想转换的十进制数字\十转八进制·算法\
MsgBox \十进制数：\十进数 & \ → 八进制数：\十转八进制算法(十进数), 64, \程序·提示\EndScript
Function 十转八进制算法(十进数) 十转八进制算法 = \ While 十进数 > 0
十转八进制算法 = 十进数 Mod 8 & 十转八进制算法 十进数 = 十进数 \\ 8 Wend End Function
'四：1、切换所有标题包含\的窗口,请写出代码 Dim HwndEx, MyArray, i HwndEx = \
HwndEx = Plugin.Window.Search(\If HwndEx <> \
MyArray = Split(HwndEx, \
For i = 0 To UBound(MyArray) - 1 '模糊搜索最后一个值是空的所以忽略 Call Plugin.Window.Top(Clng(MyArray(i)), 0)
Call Plugin.Msg.Tips(\当前共有\& UBound(MyArray) & \个窗口包含“Internet Explorer”\切换为第\个窗口\ Delay 1500
Call Plugin.Window.Top(Clng(MyArray(i)), 1) Next Else
Call Plugin.Msg.Tips(\当前没有包含“Internet Explorer”的窗口\End If EndScript
'四：2、规定区域内随机输出一个日期,例如 \到\之间的某一天,请给出代码 Do
TracePrint \随机日期=\随机产生日期(\ Delay 1500 loop
EndScript
Function 随机产生日期(起始年月日, 终止年月日) Dim 间隔, 随机数
间隔 = DateDiff(\起始年月日, 终止年月日) 随机数 = Int((间隔 + 1) * Rnd)
随机产生日期 = DateAdd(\随机数, 起始年月日) End Function
'四：3、生成[2,6]个[65，90]之间的偶数,并将生成的数转为与指定的ANSI 字符代码相对应的字符,最终合并结果MessageBox 弹出。请给出代码。
Dim 字母个数 Do
Randomize
字母个数 = Int((6 - 3 + 1) * Rnd + 3)
MessageBox 随机偶数ANSI码(字母个数, 65, 90) Delay 500 loop
EndScript
Function 随机偶数ANSI码(字符数, 下限, 上限) Dim 随机数值, 字母Asc Randomize For 字符数
随机数值 = int((上限 - 下限 + 1) * Rnd + 下限)
If 随机数值 mod 2 = 1 Then 随机数值 = 随机数值 - 1 If 随机数值 = 64 Then 随机数值 = 66 字母Asc = 字母Asc & Chr(随机数值) Next
随机偶数ANSI码 = 字母Asc End Function
'三：1、写出用goto命令循环十次的过程 Dim a1 a1 = 10
Rem 从这里开始
TracePrint \倒计次了！\a1 = a1 - 1
If a1 > 0 Then Goto 从这里开始 EndScript
'三：2、(前台)依次按下\四个键,中间延迟100毫秒,循环10次 Dim p
For p = 1 To 10 KeyPress 65, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 74, 1 Delay 100 KeyPress 76, 1 Delay 100 Next
EndScript
'三：3、有数字 a 和 数字 b ,分别弹出其 加减乘除 四个结果.(假设a=4,b=2),请给出代码 Dim a, b a = 4 : b = 2
MessageBox a + b MessageBox a - b MessageBox a * b MessageBox a / b
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 以下是2、3、4级部分选择题 较乱没有整理
按键精灵支持jpg 格式截屏 按键精灵可以调用VBS 8常数 VbOk 的值为? msgbox函数有以下返回值 常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否
11、UserVar Var1=DropList{\选项1\值1\选项2\值2\选项3\值3\选项4\值4\设置内容\，问初始参数Var1=\值2\时，n是多少？
解释://格式: UserVar 变量=DropList{选项0:值0|选项1:值1|选项2:值2}=默认显示的选项编号 {注释}
这个命令预先设定多个变量值，用户可在基面通过下拉方式进行选择 ， 特别提醒：默认显示的选项编号从0开始。 14、以下命令可以获取当前窗口所在屏幕位置精确坐标的是？GetClientRect字符串型，客户区大小注 返回为：客户区窗口左角X坐标|客户区窗口左上角Y坐标|客户区窗口宽度|客户区窗口高度
15、假如a=\，b=\，c=\，d=\，以下返回值正确的是？
17、以下哪一个函数返回值数据类型与其他三个不一样?
18、关于自定义变量的描述以下哪一个是正确的?
19、Join命令的参数类型是? Join(list[，delimiter])
list 必选。包含要联接的子字符串一维数组。
delimiter 可选。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 (\。
如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。
20、选出返回值与其他三种不一样的选项。
21、True的值是?
TracePrint True -1 TracePrint False 0 TracePrint CBool(- 1 ) -1 TracePrint CBool(1) -1 TracePrint CBool(0) 0 TracePrint CBool(2) -1 TracePrint CBool(- 2 ) -1
true,false是bool布尔型.个人认为这两个是代表对立的两面,如汉字的真,假.你说真假是几?
实体书上说true输出值-1,false是0
22、下列语句中无法达到无限循环效果的是？
24、由RGB分量分别为(50,50,50)的颜色值得到的16进制颜色值为? Color = Plugin.Color.GetRGB(50, 50, 50) msgbox \得到16进制颜色值:\323232
3、Set 语句的含义是? D. 将对象引用赋给变量或属性 4、以下命令哪个不属于按键命令？ D. StopScript 6、以下无法获取句柄的命令是？b A. Foreground B. Active C. Search
D. MousePoint
9、False的值是? A. 0
14、返回已添加指定时间间隔的日期应使用下列哪一个函数?c A. DatePart 函数 返回给定日期的指定部分。 B. DateDiff 函数 返回两个日期之间的时间间隔 C. DateAdd 函数 返回已添加指定时间间隔的日期 D. Date 函数 返回表达式，此表达式已被转换为 Date 子类型的 Variant
7、以下哪1个返回值是字符串 b A len(\