vb实时错误✀13✀

2025-02-23 21:13:57

推荐回答（4个）

回答1：

我说明一下，在text控件中出入的值永远是字符串的。
你的这里：If Text1 >= 1111111111 Then
这不是将text1里面的字符串拿出来跟一个长整形数据比较吗，所以是错误的。
要改成这样：
If CLng(Text1) >= 1111111111 Then
clng函数用来将某个字符串数据强制转换成长整形，转换完成后在于111111111做比较就是可行的。
所以，上面的程序问题就出现在那2句条件判断上面。
If Text1 >= 1111111111 Then
If Text1 < 1111111111 Then
改成：
If CLng(Text1) >= 1111111111 Then
If CLng(Text1) < 1111111111 Then
即可。

回答2：

If Text1 >= 1111111111 Then
改成
If Val(Text1.Text) >= "1111" Then

回答3：

If Text1 >= 1111111111 Then和If Text1 < 1111111111 Then
改为
If val（Text1） >= 1111111111 Then和If val（Text1） < 1111111111 Then
S = Text1改为S = val（Text1）

回答4：

你再仔细卡那可那