huifather1 发表于 2024-2-1 15:33

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

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

Rem 次数加一
a = a + 1

If a >< zThen
Goto 次数加一

Else
MessageBox "结束"

End If

huifather1 发表于 2024-2-1 15:34

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

少年持剑 发表于 2024-2-1 16:16

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

huifather1 发表于 2024-2-1 16:28

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

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

tanglikecuan 发表于 2024-2-1 16:40

Dim z, a
z = InputBox1.Text
a = 0

Rem 次数加一
a = a + 1

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

tanglikecuan 发表于 2024-2-1 16:41

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

huifather1 发表于 2024-2-1 16:49

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


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

TXT2BIN 发表于 2024-2-1 17:10

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

bmp 发表于 2024-2-1 17:30

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

Yifan2007 发表于 2024-2-1 19:45

符号错了吧,然后换成全局变量
页: [1] 2 3
查看完整版本: 按键精灵中变量之间比较不了