| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1585 人关注过本帖
标题:谁帮我看下,一个计算器。只有一种运算,代码错了。不知道错在那里?
只看楼主 加入收藏
zyal
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2008-6-23
收藏
 问题点数:0 回复次数:12 
谁帮我看下,一个计算器。只有一种运算,代码错了。不知道错在那里?
这是我写的响应代码,一个加法计算器
Private Sub RuaCommand_Click()
Dim Number1 As Single, Number2 As Single, Result As Single

Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)

If AddOption.Value = True Then
Result = Number1 + Number2
End If
End Sub
系统说实时错误“424”
要求对象“                  空白         ”
代码应该怎么写?

[[it] 本帖最后由 zyal 于 2008-6-26 14:09 编辑 [/it]]
搜索更多相关主题的帖子: 计算器 运算 
2008-06-26 14:08
冰镇柠檬汁儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:北京
等 级:版主
威 望:120
帖 子:8069
专家分:6657
注 册:2005-11-7
收藏
得分:0 
不知道

本来无一物,何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!
2008-06-26 14:11
chunxue2002
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-26
收藏
得分:0 
正确,你的编译器有问题!!
正确,你的编译器有问题!!
2008-06-26 17:27
zyal
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2008-6-23
收藏
得分:0 
我运行了。但还是运行不了。郁闷的很
连简单的1+1都算不了。。。。烦啊。。。
2008-06-26 23:35
ptmwvbzf
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2008-6-27
收藏
得分:0 
偷偷问下楼上嘀这个M意思:AddOption.Value = True
2008-06-27 14:35
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
对象应该指的是“AddOption”,
我觉得:
1、可以加一个AddOption单击的事件,在事件中写:
If AddOption.Value = True Then
AddOperation=true
End If
2、在模块级中声明:private AddOperation as Boolean
3、在RuaCommand_Click事件中:
Private Sub RuaCommand_Click()
Dim Number1 As Single, Number2 As Single, Result As Single

Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)

If AddOperation = True Then
Result = Number1 + Number2
End If
End Sub

还有一种,就是建立类模块。

2008-06-27 14:55
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
最好将Single改为double

2008-06-27 14:57
烤野猪
Rank: 1
来 自:绍兴
等 级:新手上路
帖 子:25
专家分:0
注 册:2008-6-25
收藏
得分:0 
看不太懂

奋斗吧,呵呵
2008-06-27 18:10
zyal
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2008-6-23
收藏
得分:0 
改了几天终于对了。但是计算的结果都是0。汗
Private Sub RuaCommand_Click()
Dim Number1 As Single, Number2 As Single, Result As Single

Number1 = Val(InputText1)
Number2 = Val(InputText2)

If AddOption = True Then
Result = Number1 + Number2
End If
OutputText.Text = Result
End Sub
2008-06-28 11:58
ptmwvbzf
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2008-6-27
收藏
得分:0 
你addoption=true时才执行计算,addoption又没见你赋值,肯定是不计算Result = Number1 + Number2
那result肯定等于零喽
2008-06-28 13:43
快速回复:谁帮我看下,一个计算器。只有一种运算,代码错了。不知道错在那里?
数据加载中...
 
   



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

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