求助各位大神，关于按键精灵的问题。 如何让按键精灵输出一个 指定的数字

求助各位大神，关于按键精灵的问题。
如何让按键精灵输出一个 指定的数字比如我指定数字7 。 他要输出 1到100之中含有7和7的倍数的全部数字。
例 指定7 输出 7，14 17 21 27 …… 97

指定数 = 7
For i = 0 To 9
    TracePrint "这里输出所有个位是指定数的数:"& i*10+指定数
Next
i = 1
Do
    倍数 = 指定数*i
    If 倍数 > 100 Then Exit Do
    If Int(Right(倍数, 1)) = 指定数 Then 
    Else 
        TracePrint "这里输出所有指定数的倍数:" & 倍数
    End If
    i=i+1
Loop

找图，选择指定画面中一个特有的图，用if语句来实现。