中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-03 21:44
48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » 百钱买百鸡,共有几种买法
可打印版本  2,736 / 16
第16楼 anqing 发表于 2007-02-15 08:01
高级用户 发帖 413 积分 859
For i = 1 To 19 Step 2
For j = 1 To 34 Step 2
k = 100 - i - j

If k / 2 + 3 * j + 5 * i = 100 Then
n = i & "+" & j & "+" & k
s = s & n & vbCrLf
End If

Next
Next

MsgBox s

12楼的代码,精简了,一个for,效率大增。加分
第17楼 6622186 发表于 2007-03-22 11:18
高级用户 发帖 411 积分 894
为什么会有0呢? 不应该都大于0?
上一页  1 2
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023