按键精灵5级考试问答 求两题答案

是这样吗？

题一

Const 监视间隔 = 50'设置鼠标监视间隔. 单位毫秒.
Const 记录时间 = 10'录制多少时间,单位秒
Dim x, y, x1, y1, 分割, 数量, i, 时间与坐标, 用时
Dim 开始时间, sTime, sTime1, 记录
GetCursorPos x, y
开始时间 = time
sTime = Plugin.Sys.GetTime()
记录=""
Do
    GetCursorPos x1, y1
    If x1 <> x or y1 <> y Then 
        sTime1 = Plugin.Sys.GetTime()
        记录 = 记录 & sTime1 - sTime & "," & x1 & "," & y1 & "|"
        x = x1 : y = y1
        sTime = sTime1
    End If
    Delay 监视间隔
Loop Until DateDiff("s", 开始时间, time) >= 记录时间
MessageBox "鼠标录制结束" & vbcr & "确定后开始逆步骤执行鼠标移动"
LockMouse
分割 = split(记录, "|")
数量 = UBound(分割)
For i = 数量 - 1 To 0 Step - 1 
    时间与坐标 = split(分割(i), ",")
    用时 = 时间与坐标(0) : x = 时间与坐标(1) : y = 时间与坐标(2)
    MoveTo x, y
    Delay 用时
Next
Sub OnScriptExit()
    UnlockMouse
    MessageBox "脚本已经停止！"
End Sub

题二

Dim 圆心坐标X, 圆心坐标Y, 圈数, 角度, 圆半径, 弧度, FX, FY
圆心坐标X = 300 : 圆心坐标Y = 280
圈数 = 4
For 角度 = 0 To 360 * 圈数
    圆半径 = 10 + int(角度/15) '每次增加角度,半径也会增加
    Call 画圆(圆心坐标X, 圆心坐标Y, 圆半径, 角度)
Next
Sub 画圆(圆心坐标X, 圆心坐标Y, 圆半径, 角度)
    弧度 = 3.1416 / 180 * 角度
    FX = cint(圆心坐标X - 圆半径 * sin(弧度))
    FY = cint(圆心坐标Y + 圆半径 * cos(弧度))
    MoveTo FX, FY
    Delay 1
    LeftDown 1
End Sub
Sub OnScriptExit()
    LeftUp 1
    MessageBox "脚本已经停止！"
End Sub