设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS原创&转载 › vbs学习习题 - 百元买百鸡问题
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 26942|回复: 7

[原创] vbs学习习题 - 百元买百鸡问题

[复制链接]
shelluserwlb
发表于 2014-11-23 16:50:19 | 显示全部楼层 |阅读模式
本帖最后由 shelluserwlb 于 2014-11-23 17:03 编辑
  1. '100元钱买100只鸡，小鸡1元3只，公鸡3元1只，母鸡5元1只。有多少种买法？(每种鸡至少买1只)
  2. Option Explicit
  3. Dim i,j,k
  4. Dim intSum,strResult
  5. intSum = 1
  6. For i = 1 To 276
  7.         For j = 1 To 31
  8.                 For k = 1 To 19
  9.                         If k=100-(i+j) And ((1/3)*i)+(3*j)+(5*k)=100 Then
  10.                                 strResult = strResult & cstr(intSum) & _
  11.                                                         ": 小鸡：" & i & "只，公鸡"& j &  _
  12.                                                         "只，母鸡" & k & "只。" & Chr(10)
  13.                                 intSum = intSum + 1
  14.                         End if
  15.                 Next
  16.         Next
  17. Next
  18. MsgBox strResult
复制代码
回复

举报

apang
发表于 2014-11-29 16:33:01 | 显示全部楼层
买半只鸡如何？
  1. Option Explicit
  2. Dim i,j,k,money
  3. Dim intSum,s
  4. For i = 1 To 98 step 0.5
  5.         For j = 1 To 98 step 0.5
  6.                 k = 100 - (i + j)
  7.                 money = i/3 + j*3 + k*5
  8.                 If k > 0 And money = 100 Then
  9.                         intSum = intSum + 1
  10.                         s = s & intSum & ": 小鸡 " & i & " 只，"
  11.                         s = s & "公鸡 " & j & " 只，"
  12.                         s = s & "母鸡 " & k & " 只" & vbLf
  13.                 End If
  14.         Next
  15. Next
  16. WScript.Echo s
复制代码
回复

举报

CrLf
发表于 2014-11-29 16:38:10 | 显示全部楼层
我觉得简化成 step 100/N 比较合理
回复

举报

apang
发表于 2014-11-29 16:55:27 | 显示全部楼层
回复 3# CrLf


    嗯，有道理，一般人一顿吃不了那么多
回复

举报

凡凡之呗
发表于 2015-3-15 16:51:17 | 显示全部楼层
  1. dim i,j,k
  2. for i=0 to 20
  3.    for j=0 to 33
  4.       for k=0 to 100
  5.          if i+j+k=100 and 5*i+3*j+k/3=100 then
  6.              str=str & i & " "& j & " "& k & " "
  7.              str= str & vbCrlf
  8.          end if
  9.       next
  10.    next
  11. next
  12. msgbox str
  13.          
  14.          
  15.       
复制代码
这不是很简单吗
回复

举报

北极狐
发表于 2015-7-19 05:51:15 | 显示全部楼层
1
主题

1364
帖子

2万
积分

终身vip会员


积分25937 .

. 发消息
.

7#



发表于 3 天前 | 只看该作者






好好学习，天天向上
回复

举报

北极狐
发表于 2015-7-19 05:52:33 | 显示全部楼层
看看就看看！






好好学习，天天向上
回复

举报

marqqer
发表于 2015-12-5 23:28:29 | 显示全部楼层
谢谢分享,支持一下
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 22:03 , Processed in 0.019323 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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