| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 9933 人关注过本帖
标题:[原创]多功能计算器程序(附源代码)
只看楼主 加入收藏
静夜嘶
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-7-2
收藏
得分:0 
这东西帅呆了

2007-07-08 02:16
babynirvana
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-3-14
收藏
得分:0 
大家共同学习共同进步啊,肯定要顶上去啦
2008-03-14 16:28
babynirvana
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-3-14
收藏
得分:0 
兄弟,我发现了一个问题,我也是正在为这个问题而烦恼啊

比如输入一个数,然后按Sin后得到结果,然后你随便输入一个数字,合理的话是先把原来显示的
内容清除后显示我们后来输入的内容
而你的也是那个问题,在原来的显示出来的结果后面跟着我们新输入的数字?
一起想想怎么样解决啊
2008-03-14 16:31
ruanguohan
Rank: 2
等 级:论坛游民
帖 子:67
专家分:21
注 册:2007-10-28
收藏
得分:0 
ding  ding

淘宝小店:http://shop62973352.
2008-03-14 20:18
babynirvana
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-3-14
收藏
得分:0 
LZ,我所提出的问题,我自己解决了,
比如在输入数字后点SIN的时候,
我们加一个条件... 在公布部分声明下 DIM K AS B..
Private Sub Command6_Click() 'Sin计算
K = True
op1 = Round(Sin(Text1.Text * pi / 180), 2)
Text1.Text = op1
End Sub

然后在输入0~~9的程序那部分的开头加上

If K Then
        Text1.Text = ""
        K = False
End If

这样就解决了问题...

如果有更好的解决方法,大家分享一下吧
2008-03-15 14:39
a414556593
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-3-28
收藏
得分:0 
有这样,已经很不错了
2008-03-28 22:23
sunhai1979
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-3-30
收藏
得分:0 
支持一下,挺 可以的。
2008-03-31 12:44
湖边的树叶
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-3-31
收藏
得分:0 
看看去,,高手啊
2008-03-31 13:52
heiye520
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-4-29
收藏
得分:0 
支持一下,但是我看不懂啊.刚刚来的新手
2008-03-31 15:35
学习来的
Rank: 1
等 级:新手上路
帖 子:64
专家分:0
注 册:2008-3-26
收藏
得分:0 
七楼那个啊叔是高手的吗?看你说话好像挺专业的!不知道 C + + 你会不会?

付出也是一种美...
2008-04-01 22:32
快速回复:[原创]多功能计算器程序(附源代码)
数据加载中...
 
   



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

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