按键精灵中变量之间比较不了
Dim z,az = 次数.InputBox1.text
a = 0
Rem 次数加一
a = a + 1
If a >< zThen
Goto 次数加一
Else
MessageBox "结束"
End If 我输入框内输入10,可是等a加到10后还是不会结束,还会继续运行 没用过按键精灵 ,不过你这里
z = 次数.InputBox1.textz可能接受的是文本类型,需要转为整数在比较吧 少年持剑 发表于 2024-2-1 16:16
没用过按键精灵 ,不过你这里
z = 次数.InputBox1.textz可能接受的是文本类型,需要转为整数在比较吧
我也猜到可能是这个问题,但是就是不懂怎么转~望大牛指点 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:40
Dim z, a
z = InputBox1.Text
a = 0
我输入框内输入3,可是循环三次后a的值是3,但是还是不成立,是不是一个是文本一个是数值所以无法比较,有什么解决方法吗 z = CInt(InputBox1.Text)
试试?不知道你说的是哪个按键精灵。看一下官方例子? 好多年没摸过按键精灵了,也不敢说啥,但最简单的就是跳过输入框的赋值,直接 z=10 ,然后每步(循环)输出当前a的当前值,再调试看看 符号错了吧,然后换成全局变量