| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 654 人关注过本帖
标题:[求助]vb写的小计算器,有点毛病,来看看哈
只看楼主 加入收藏
xyjchinese
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-10-3
收藏
 问题点数:0 回复次数:1 
[求助]vb写的小计算器,有点毛病,来看看哈

具体代码如下,毛病就是点=的时候不出结果啊,大家看看哪错了. Dim tf As Boolean Dim op1, op2 Dim i As Byte Private Sub Command1_Click(i As Integer) If Not tf Then Label1.Caption = Label1.Caption & i Else Label1.Caption = i tf = False End If End Sub

Private Sub Form_Load()

tf = False End Sub

Private Sub oper_Click(char As Integer) op1 = Label1.Caption i = char Label1.Caption = "" tf = False End Sub

Private Sub result_Click() op2 = Label1.Caption Select Case i Case i = "0" Label1.Caption = op1 + op2 Case i = "1" Label1.Caption = op1 - op2 Case i = "2" Label1.Caption = op1 * op2 Case i = "3" Label1.Caption = op1 / op2 End Select tf = True End Sub

搜索更多相关主题的帖子: 计算器 Sub 毛病 Private End 
2005-10-03 16:34
atomhdp
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2005-10-2
收藏
得分:0 
我不知道,我也没运行,不过看你的程序好像是select case i 错了.因为当你按 = 时,i是你输入op2时最后一位数了.这样不是使i 得到你不想要的值了吗?  还有 case i="0", 应该是 case i=0 吧.    还有, 要是你这样做计算器的话,那么你就能输入000000000  这样的数了.    你不该有个选择语句吗?判断label1中是不是只有一个0.你的label1在初始化时它的caption 是空吧.     怎么也该写个0上去啊.

2005-10-06 08:23
快速回复:[求助]vb写的小计算器,有点毛病,来看看哈
数据加载中...
 
   



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

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