VB命令按钮不能执行代码，代码如下：Text3.Text=Val(Text1.Text)+Val(Text2.Text) 单击命令按钮不能执行。_百度知道
VB命令按钮不能执行代码，代码如下：Text3.Text=Val(Text1.Text)+Val(Text2.Text) 单击命令按钮不能执行。
发现里面的Command1的那个按钮竟然可以用鼠标移动; &quot.Text)End SubPrivate Sub qingchu_Click()Text1;Text3，这是怎么回事啊？Private Sub jisuan_Click()Text3.Text = &quot.Text = &quot.Text = Val(Text1; &quot.Text) + Val(Text2.Text = & &Text2编写完代码以后，启动程序
提问者采纳
事件名中的控件名称写错了！
抱歉，没有写错
看看所有控件的index属性，如果有值得就清空，估计是控件数组闹的
全部没有数值
那就是你的text1和text2没有输入了,否则,这么简单的东西不会出错的了,呵呵
我编写完代码，启动程序，发现那个命令按钮竟然可以移动
你把dragmode属性设置为manual,那就是自动拖动了,改了就行了
谢谢太漂亮了
提问者评价
其他类似问题
为您推荐：
其他6条回答
此句代码没有任何问题！你把完整的代码贴出来看下。问题可能在其它语句上。张志晨
代码没有问题，怎么按钮不能执行命令，贴出来了
再试下这个代码：Private Sub jisuan_Click()Text1.Text = 55Text2.Text = 45Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub qingchu_Click()Text1.Text = & &Text2.Text = & &Text3.Text = & &End SubPrivate Sub tuichu_Click()EndEnd Sub
还是不行，是不是别的地方出问题了？
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。如果 text1=&1xsa2&
text2=”2das3“text3=1+2=3十六进制 八进制 可以认识
其余两个按钮都可以执行代码，我这个代码应该没有错误啊。
换成一个msgbox看有没有弹出窗口，还不行的话，先复制事件里面的代码，然后删掉这个事件，然后重新双击按钮生成事件，粘贴代码，继续
很明显是你的控件名称写错了。我自己建立的控件，用你的代码运行没有任何问题。
真够扯得，Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub我发现了一个问题，我编写代码以后，启动程序，发现Command1的那个按钮竟然还能用鼠标拽动，这应该就是问题的根本所在，代码没有问题，是不是别的地方出现问题了。
编程输入字符格式很重要，字母，标点符号建议在英文模式下输入。按F8一步一步执行看哪里有问题。 你说的不能执行代码什么意思？是不反回结果还是报错？
不返回结果
我开始的回答呢！！~······ 你第一句就错了。。。。。。Private Sub jisuan_Click() jisuan_Click()。 应该是Command1_Click()。 你对控件的caption（可能拼错——好久没用了）属性修改只是修改的显示。本质还是Command。
我先把名称修改了，再编写代码的，其余两个按钮也是这样的
把val去掉Text3.Text=Text1.Text+Text2.Text
晕，Val是一个函数
命令按钮的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB中添加工程1 ，2，和3。在工程1中添加一个命令按钮 点击他后运行工程2怎么写COMMOND1的代码啊，急！！！_百度知道
VB中添加工程1 ，2，和3。在工程1中添加一个命令按钮 点击他后运行工程2怎么写COMMOND1的代码啊，急！！！
提问者采纳
:\ 运行程序2;程序1，并放在“d;d可以先编译工程2.exe&”下:&#92, 1)
&#39。则工程1下的command1代码中只要这样写就可了：Dim RetValRetVal = Shell(&quot，假如编译后的文件名为“程序2.exe”
其他类似问题
为您推荐：
您可能关注的推广
命令按钮的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb 3个text,一个按钮，怎么设定a=1，b=2,然后在text1，text2中输入a和b，点击按钮实现a+b并text3出现3_百度知道
vb 3个text,一个按钮，怎么设定a=1，b=2,然后在text1，text2中输入a和b，点击按钮实现a+b并text3出现3
实现text3输出3.定义a=1...,b=2，text1输入字母a,text2输入字母b，text3输出4,text2输入字母c... text1输入字母a。,c=3.
提问者采纳
Option ExplicitPrivate Const a As Long = 1Private Const b As Long = 2Private Const c As Long = 3Private Function GetValue(ByVal Value As String) As Long
Select Case LCase(Trim(Value))
Case &quot: GetValue = 0
End Select
End FunctionPrivate Sub Command1_Click()
Text3: GetValue = b
Case &b&quot.Text) + GetValue(Text2: GetValue = c
Case E;a&c&quot: GetValue = a
Case &.Text = GetValue(Text1
提问者评价
其他类似问题
为您推荐：
其他1条回答
Private Sub Command1_Click()a = 1b = 2Text1 = aText2 = bText3 = a + bEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb实现两个数相加的问题举个例子：四个按钮上分别是1，2，+和=。还有一个文本框1.我想通过按以上按钮在文本框内显示1+22.我想在代码中用一个变量代替这个加号，然后计算出文本框里式_百度作业帮
拍照搜题，秒出答案
用vb实现两个数相加的问题举个例子：四个按钮上分别是1，2，+和=。还有一个文本框1.我想通过按以上按钮在文本框内显示1+22.我想在代码中用一个变量代替这个加号，然后计算出文本框里式
用vb实现两个数相加的问题举个例子：四个按钮上分别是1，2，+和=。还有一个文本框1.我想通过按以上按钮在文本框内显示1+22.我想在代码中用一个变量代替这个加号，然后计算出文本框里式子的结果。按等号后，在文本框里显示出结果来。我是个菜鸟，我想我应该表达清楚了，请高手赐教emmett_08你好：我是想实现一个计算器的功能。就是在文本框里写上运算式子（包括基本四则运算、小括号和一些基本函数），然后在代码中将文本框里的式子中的以上因素分别转化成可以进行运算的数字、运算符号和函数。但我是个初学者，对vb了解的还不太深。能否对我的编程过程做出修改，谢谢
text1.text=1text2.text=2文本框结果:text3=trim(text1.text)+trim(text2.text)
你去试验吧，下面的代码，肯定比你的想的要求还要好Option ExplicitDim a As IntegerDim b As IntegerPrivate Sub Command1_Click()Text1.Text = Text1.Text + Command1.Captiona = a * 10 + Command1.Caption...
恩 计算器么？1.text1.text=text1.text & 你单击那个按钮的Caption2.代替加号可以在加号的单击事件中赋予变量一个值 再在等号的单击事件中用select case语句或if then语句判断就可以了
Private Sub Command3_Click()Text1.Text = Command1.Caption & Command3.Caption & Command2.Caption & "="End SubPrivate Sub Command4_Click()Text1.Text = Command1.Caption & Command3.Cap...vb购物车程序，有list1和list2，点击按钮1，将列表一的东西加入到列表2，一里的那个消失，_百度知道
vb购物车程序，有list1和list2，点击按钮1，将列表一的东西加入到列表2，一里的那个消失，
点击按钮2！，一里的那个消失，表2进入表1，2里的消失。求代码，将列表一的东西加入到列表2vb购物车程序，有list1和list2！谢谢，点击按钮1
提问者采纳
//f;Error&Resume&List2;List1.To&商品&Resume&nbsp.RemoveItem&Resume&List1_Click()On&1&nbsp.ClearEnd&10List1;SubPrivate&NextList1代码如下;NextList1;Sub&nbsp.Error&List2_Click()On&(List1.hiphotos.jpg" esrc="Sub界面如下;NextList2;=&(List2.ListIndex)End&iList2.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.ListIndex)/zhidao/pic/item/810a19d8bc3eba51ea8d3fc1f4497.AddItem&iNext&nbsp.ListIndex)List1;SubPrivate&nbsp.ClearFor&nbsp://f;i&nbsp.RemoveItem&Form_Load()On&nbsp：<a href="http.AddItem&&&quot.ListIndex)List2.List(/zhidao/wh%3D600%2C800/sign=08f2ddc799397bcbd7d5/810a19d8bc3eba51ea8d3fc1f4497;Error&nbsp：Private&nbsp.AddItem&nbsp://f;Sub&nbsp./zhidao/wh%3D450%2C600/sign=01b64d61f8edabca19d8bc3eba51ea8d3fc1f4497;Sub&&amp.baidu.&nbsp
谢谢！请问如果商品是一开始属性里弄的代码怎么改一下？
开始的时候，在：List1.AddItem 添加商品啊，有多少添加多少啊。一行一个。如：List1.AddItem “苹果”List1.AddItem “梨子”
哦！谢谢！
提问者评价
太给力了，你的回答完美的解决了我的问题！
其他类似问题
为您推荐：
其他1条回答
SubPrivate&List2;&To&To&&List1;-&Sub&nbsp.RemoveItem&For&=&List2.AddItem&1&Form_Load()&Sub&&&i&&&1&&&Command1_Click()&Next&nbsp.ClearEnd&&&iEnd&nbsp.List(List1;List2;List1;i&&0&&&9&For&nbsp.AddItem&&i&SubPrivate&List1_Click()&i&=&&&&&nbsp.ListCount&List1;Sub&&&nbsp.AddItem&List1;List2;&nbsp.List(i)&nbsp.ListIndexEnd&&&&List1;Next&nbsp.ListIndex)&nbspPrivate&nbsp
购物车的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁