函数与sin函数应用。 Call 画漩涡(420, 280) EndScript
Function 画漩涡(起点X, 起点Y) Dim HX, HY, n n = 1
While HX < 600
MoveTo HX, HY : Delay 3
HX = 起点X + cos(n) + n * sin(n) HY = 起点Y + sin(n) - n * cos(n) n = n + 0.1 Wend End Function
'五：2、随机生成一个1~100之间的整数,玩家可以通过函数InputBox命令输入数字来猜测那未知的随机数字，猜对则退出游戏，猜错则提示答案的范围(猜数游戏)，请写出代码： Dim 随机, 猜测, 下限, 上限, 次数 Randomize
随机 = Int(100 * Rnd + 1) TracePrint \随机=\随机 下限 = 1 : 上限 = 100
猜测 = Cint(InputBox(\请输入你的猜测\猜数字游戏\For 次数 = 1 To 99 : Delay 100
If 猜测 < 随机 and 猜测 > 下限 Then : 下限 = 猜测 ElseIf 猜测 > 随机 and 猜测 < 上限 Then : 上限 = 猜测 ElseIf 猜测 = 随机 Then
MsgBox \总共\& 次数 & \次猜中了 八戒 看来今年你又要涨价了！\64, \程序·提示\
Exit For End If
猜测 = Cint(InputBox(\答案范围为：\下限 & \上限, \程序·提示 还可再猜\100 - 次数 & \次 \Next
EndScript
'五：3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码
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的数：\& VbCrlf & VbCrlf & Text, 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), \- StrY)) ^ 2 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