ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 10929|回复: 33

[Excel 程序开发] [开_85]找出两张票的号码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-2-18 05:35 | 显示全部楼层 |阅读模式

我自小就喜欢解逻辑性比较强的题目,下面这个题目是一个典型的逻辑性数学题,看看大家能否用vba计算出来,计算的结果又如何。由于本人对于vba编程技巧掌握甚少,为此此次我也抱着共同学习的态度发贴。同时我也可以学习学习他人的编程方法,虽然我知道答案,但我也会尽量编写出自己的代码给大家批评指正。

题目正文如下:

西索罗教授与一逻辑朋友同乘62路公共汽车。他们买了两张票,票的号码都是五位数,且两张票的号码相连。西索罗教授把两张票上的十个数字加在一起,告诉朋友十个数字之和正好是62。他的朋友问是否其中一张票的五个数字之和恰好是35,西索罗教授如实回答了,然后他的朋友就正确地推算出了两张票的号码。请问,这两个号码是多少?

VogEkwtq.rar (6.35 KB, 下载次数: 84)


答题要求:

1、请按照附件格式将结果输入在规定的单元格内

2、代码需有注释

本题2月19日晚揭晓答案。

[此贴子已经被作者于2006-2-18 16:35:04编辑过]
单选投票, 共有 1 人参与投票

投票已经结束

0.00% (0)
0.00% (0)
0.00% (0)
0.00% (0)
100.00% (1)
您所在的用户组没有投票权限

TA的精华主题

TA的得分主题

发表于 2006-2-18 09:19 | 显示全部楼层
4ADmPfwm.rar (9.14 KB, 下载次数: 61)

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-18 14:29 | 显示全部楼层

结果好像不太对。可能你对题目理解有误。

“他的朋友问是否其中一张票的五个数字之和恰好是35,西索罗教授如实回答了,”不代表你程序中:

If a + b = 62 And (a = 35 Or b = 35) Then '判断
Cells(2, 1) = i '将票号写入单元格
Cells(2, 2) = i + 1 '

如实回答有两种答案:1、其中一张票的五个数字之和是等于35。2、其中一张票的五个数字之和不等于35。

TA的精华主题

TA的得分主题

发表于 2006-2-18 15:47 | 显示全部楼层
2楼的结果应该是对的,只是过程没有考虑全面。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-18 15:51 | 显示全部楼层
以下是引用qlz110在2006-2-18 15:47:48的发言:
2楼的结果应该是对的,只是过程没有考虑全面。

假设朋友问教授其中一个号码的五个数字之和等于35,教授回答的是“不对”呢?那2楼的答案就不对了!

2楼的程序是比较清晰,但我认为在是不是一个号码的五个数字之和等于35的问题上没有做严谨的处理。所以才会导致结果的不对。

TA的精华主题

TA的得分主题

发表于 2006-2-18 16:02 | 显示全部楼层
以下是引用sandyw在2006-2-18 15:51:34的发言:

假设朋友问教授其中一个号码的五个数字之和等于35,教授回答的是“不对”呢?那2楼的答案就不对了!

2楼的程序是比较清晰,但我认为在是不是一个号码的五个数字之和等于35的问题上没有做严谨的处理。所以才会导致结果的不对。

sorry,没看仔细,教授回答的是“不对”时,答案应该是98999,99000

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-18 16:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
但这个题目的答案是唯一的,所以必须判断出教授答的是对还是不对。

TA的精华主题

TA的得分主题

发表于 2006-2-18 16:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用sandyw在2006-2-18 16:04:54的发言:
但这个题目的答案是唯一的,所以必须判断出教授答的是对还是不对。

如果答案是唯一的,那么教授的回答是“不对”,如果是“对”话,答案就不是唯一的了,共有218对答案。

[此贴子已经被作者于2006-2-18 16:24:22编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-18 16:19 | 显示全部楼层

哈、你不能这样倒着推答案是否为唯一呀!

这个题目的答案就是唯一的。

关键是通过题目的条件判断出教授答的是“对”还是“不对”。不能简单的将教授的回答分为“对”或“不对”来计算结果。

[此贴子已经被作者于2006-2-18 16:20:16编辑过]

TA的精华主题

TA的得分主题

发表于 2006-2-18 16:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用sandyw在2006-2-18 16:19:26的发言:

哈、你不能这样倒着推答案是否为唯一呀!

这个题目的答案就是唯一的。

关键是通过题目的条件判断出教授答的是“对”还是“不对”。不能简单的将教授的回答分为“对”或“不对”来计算结果。


那你应该在题目中要求或说明答案是唯一的,否则教授回答是对错都可以算出号码,你也不能说他错了啊。

[此贴子已经被作者于2006-2-18 16:33:55编辑过]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-28 00:08 , Processed in 0.050551 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表