//連番打ち込み
FOR i = 1 TO 200
rst = FORMAT(i, 3) // 数値を文字列3つに変換
rst = REPLACE(rst, " ", "0") // 1,2桁の場合空白を0に変換
r = VAL(COPY(rst,1,1))　　　　　//100の位の数字を数値に変換
s = VAL(COPY(rst,2,1))　　　　　　//10の位の数字を数値に変換
t = VAL(COPY(rst,3,1))　　　　　　　//1の位の数字を数値に変換
key1 = 48 + r
key2 = 48 + s
key3 = 48 + t
KBD(key1,CLICK)
KBD(key2,CLICK)
KBD(key3,CLICK)
KBD(VK_RETURN,CLICK)
NEXT