按键精灵中变量之间比较不了

huifather1

Dim z,a
z = 次数.InputBox1.text
a = 0

Rem 次数加一
a = a + 1

If a >< z  Then
Goto 次数加一

Else
MessageBox "结束"

End If

huifather1

我输入框内输入10，可是等a加到10后还是不会结束，还会继续运行

少年持剑

没用过按键精灵 ，不过你这里
z = 次数.InputBox1.text  z可能接受的是文本类型，需要转为整数在比较吧

huifather1

少年持剑 发表于 2024-2-1 16:16
没用过按键精灵 ，不过你这里
z = 次数.InputBox1.text  z可能接受的是文本类型，需要转为整数在比较吧

我也猜到可能是这个问题，但是就是不懂怎么转~望大牛指点

tanglikecuan

Dim z, a  
z = InputBox1.Text  
a = 0  
  
Rem 次数加一  
a = a + 1  
  
If a >= z Then  
    MsgBox "结束"  
Else  
    Goto 次数加一 ' 如果需要再次循环，可以使用Goto语句。否则，可以省略此行。  
End If

tanglikecuan

你的符号错了，是 >=，不是><

huifather1

tanglikecuan 发表于 2024-2-1 16:40
Dim z, a  
z = InputBox1.Text  
a = 0  

我输入框内输入3，可是循环三次后a的值是3，但是还是不成立，是不是一个是文本一个是数值所以无法比较，有什么解决方法吗

TXT2BIN

z = CInt(InputBox1.Text)
试试？不知道你说的是哪个按键精灵。看一下官方例子？

bmp

好多年没摸过按键精灵了，也不敢说啥，但最简单的就是跳过输入框的赋值，直接   z=10 ，然后每步(循环)输出当前a的当前值，再调试看看

Yifan2007

符号错了吧，然后换成全局变量