Sub setFireDelay() Dim key While True key=WaitKey() If key=37 iFD=iFD-1 //缩小开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=39 //方向键 右 iFD=iFD+1 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=38 //方向键 右 iFD=iFD+5 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=40 //方向键 右 iFD=iFD-5 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) End If Wend End Sub