按键精灵数据递加输出问题

声明三个变量l,h,k,这三个变量都通过文本框设定数值,比如,l设初值10,h设初值100,k设初值50

启动脚本一次输入10,再启动一次10加1,依次,11,12,,,直到遇到设置的中间量k,停止,请问怎么才能实现。

Dim i
i = 10
Do
If WaitKey = 13 Then ‘按回车键+1,你启动才加+1,不需要h’k值
TracePrint i
MessageBox i
i=i+1
End If
Delay 200
Loop

我的回答希望对你有帮助.你的好评,是我帮助有疑问朋友的动力..
温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-01-21
Dim i
i = 10
Do
If WaitKey = 13 Then ‘按回车键+1,你启动才加+1,不需要h’k值
TracePrint i
MessageBox i
i=i+1
End If
Delay 200
Loop

我的回答希望对你有帮助.你的好评,是我帮助有疑问朋友的动力..
第2个回答  2015-06-10
没懂起。启动脚本 后三个变量要怎么变化。追问

其实这三个变量时通过三个文本输入框获取的,就是始终等于文本框的数据,看,变量就是一个中断值运行到这里结束即大于等于L小于等于H,不知道说明白了没

其实这三个变量时通过三个文本输入框获取的,就是始终等于文本框的数据,看,变量就是一个中断值运行到这里结束即大于等于L小于等于H,不知道说明白了没

追答

l = 10
h = 100
k = 50
//可以把这三个变量等于文本框
Do
l = l + 1
If l > k Then //如果L>K就停止脚本
EndScript
End If
Delay 100
TracePrint l //输出L的值
Loop

追问

此程序无法执行,怎么回事,改为saystring可以输出但是无限循环K值管不住循环

追答

怎么会,这是最新版按键精灵做出来的脚本。可以正常调试。

追问

Dim l, k
l = Form1.InputBox1.Text - 1
k = Form1.InputBox2.Text
Do
l = l + 1
If l > k Then //如果L>K就停止脚本
EndScript
End If
Delay 100
SayString l //输出L的值
Loop
你帮我看下为什么K取不到文本框的值,L可以

相似回答