Question

VB命令按钮不能执行代码，代码如下：Text3.Text=Val(Text1.Text)+Val(Text2.Text) 单击命令按钮不能执行。

编写完代码以后，启动程序，发现里面的Command1的那个按钮竟然可以用鼠标移动，这是怎么回事啊？Private Sub jisuan_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub qingchu_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "

End Sub

Private Sub tuichu_Click()
End
End Sub

Answer 1

此句代码没有任何问题！
你把完整的代码贴出来看下。
问题可能在其它语句上。
张志晨

追问

代码没有问题，怎么按钮不能执行命令，贴出来了

追答

再试下这个代码：
Private Sub jisuan_Click()

Text1.Text = 55
Text2.Text = 45
Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub qingchu_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "

End Sub

Private Sub tuichu_Click()
End
End Sub

追问

还是不行，是不是别的地方出问题了？

Answer 2

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。
如果 text1="1xsa2" text2=”2das3“
text3=1+2=3
十六进制 八进制 可以认识

追问

其余两个按钮都可以执行代码，我这个代码应该没有错误啊。

Answer 3

很明显是你的控件名称写错了。我自己建立的控件，用你的代码运行没有任何问题。

追问

真够扯得，Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub
我发现了一个问题，我编写代码以后，启动程序，发现Command1的那个按钮竟然还能用鼠标拽动，这应该就是问题的根本所在，代码没有问题，是不是别的地方出现问题了。

Answer 4

换成一个msgbox看有没有弹出窗口，还不行的话，先复制事件里面的代码，然后删掉这个事件，然后重新双击按钮生成事件，粘贴代码，继续

Answer 5

编程输入字符格式很重要，字母，标点符号建议在英文模式下输入。按F8一步一步执行看哪里有问题。 你说的不能执行代码什么意思？是不反回结果还是报错？

追问

不返回结果

追答

我开始的回答呢！！~······ 你第一句就错了。。。。。。Private Sub jisuan_Click() jisuan_Click()。 应该是Command1_Click()。 你对控件的caption（可能拼错——好久没用了）属性修改只是修改的显示。本质还是Command。

追问

我先把名称修改了，再编写代码的，其余两个按钮也是这样的