| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 10381 人关注过本帖
标题:VB加法计算怎么写?
只看楼主 加入收藏
AESON
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-25
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:13 
VB加法计算怎么写?
一个文本框
2个按钮,一个加号,一个等于号,效果要像系统计算器那样,怎么写的?
搜索更多相关主题的帖子: 加法 
2010-03-18 00:05
Dev1il
Rank: 2
等 级:论坛游民
帖 子:36
专家分:45
注 册:2010-3-15
收藏
得分:10 
Public a As Integer, b As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
Text1.Text = ""
End Sub
 
Private Sub Command2_Click()
b = Text1
Text1 = a + b
End Sub
我也是个新手,这是我想的期待高手解答
2010-03-18 12:13
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
收藏
得分:0 
你写这个已经很不错了,不需要再解答了。

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-03-18 16:14
AESON
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-25
收藏
得分:0 
谢谢楼上,如果按加号也要有等于号的效果呢?就像计算器那样的
2010-03-18 16:27
Dev1il
Rank: 2
等 级:论坛游民
帖 子:36
专家分:45
注 册:2010-3-15
收藏
得分:0 
我也想不出来,但我写了个,但不能实现你那功能
Option Explicit
Public a As Integer, b As Integer
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
Text1 = ""  '这里每次单击都要清空,所以后面的不能实现,我想到用个if来判断前面执行,但也不行
If (Not Text1 = "") Then
b = Val(Text1)
Text1 = a + b
End If
End Sub

Private Sub Command2_Click()
b = Text1
Text1 = a + b
End Sub
呵呵,期待高手
2010-03-18 17:55
dydsdyds
Rank: 6Rank: 6
来 自:Java
等 级:侠之大者
帖 子:217
专家分:457
注 册:2010-2-14
收藏
得分:0 
回复 4楼 AESON
把等于按钮的代码复制到加号按钮中就可以实现。

c语言刚开一学期,就换开VB...
2010-03-18 22:29
VBhere
Rank: 2
等 级:论坛游民
帖 子:21
专家分:19
注 册:2010-3-9
收藏
得分:5 
这是我看了网上的资料,自己理解以后,照猫画虎做的个计算器,欢迎专家给提意见。
计算器.rar (3.12 KB)
2010-03-18 23:30
AESON
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-25
收藏
得分:0 
回复 6楼 dydsdyds
我试过了,可是不行才问的
2010-03-19 00:15
AESON
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-2-25
收藏
得分:0 
回复 7楼 VBhere
谢谢
2010-03-19 00:26
luyaohui
Rank: 1
来 自:浙江宁波
等 级:新手上路
帖 子:19
专家分:1
注 册:2010-3-20
收藏
得分:0 
Dim a as Integer,b as Integer
private sub command1_click()  'command1为加号命令按钮
a=val(text1.text)
text1.text=""
end sub
private sub command2_click() ''command1为等号命令按钮
b=a+val(text1.text)
text1.text=b
end sub
这道题最主要的还是变量附值的知识,以及变量的定义

哥编的不是程序,是寂寞!
2010-03-20 12:02
快速回复:VB加法计算怎么写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017326 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved