批处理之家 » VBS原创&转载 » vbs学习习题 - 百元买百鸡问题

shelluserwlb 发表于 2014-11-23 16:50

vbs学习习题 - 百元买百鸡问题

[i=s] 本帖最后由 shelluserwlb 于 2014-11-23 17:03 编辑 [/i]

[code]'100元钱买100只鸡，小鸡1元3只，公鸡3元1只，母鸡5元1只。有多少种买法？(每种鸡至少买1只)
Option Explicit
Dim i,j,k
Dim intSum,strResult
intSum = 1
For i = 1 To 276
        For j = 1 To 31
                For k = 1 To 19
                        If k=100-(i+j) And ((1/3)*i)+(3*j)+(5*k)=100 Then
                                strResult = strResult & cstr(intSum) & _
                                                        ": 小鸡：" & i & "只，公鸡"& j &  _
                                                        "只，母鸡" & k & "只。" & Chr(10)
                                intSum = intSum + 1
                        End if
                Next
        Next
Next
MsgBox strResult[/code]

apang 发表于 2014-11-29 16:33

买半只鸡如何？[code]Option Explicit
Dim i,j,k,money
Dim intSum,s
For i = 1 To 98 step 0.5
        For j = 1 To 98 step 0.5
                k = 100 - (i + j)
                money = i/3 + j*3 + k*5
                If k > 0 And money = 100 Then
                        intSum = intSum + 1
                        s = s & intSum & ": 小鸡 " & i & " 只，"
                        s = s & "公鸡 " & j & " 只，"
                        s = s & "母鸡 " & k & " 只" & vbLf
                End If
        Next
Next
WScript.Echo s[/code]

CrLf 发表于 2014-11-29 16:38

我觉得简化成 step 100/N 比较合理

apang 发表于 2014-11-29 16:55

[b]回复 [url=http://www.bathome.net/redirect.php?goto=findpost&pid=158422&ptid=33027]3#[/url] [i]CrLf[/i] [/b]


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

凡凡之呗 发表于 2015-3-15 16:51

[code]dim i,j,k
for i=0 to 20
   for j=0 to 33
      for k=0 to 100
         if i+j+k=100 and 5*i+3*j+k/3=100 then
             str=str & i & " "& j & " "& k & " "
             str= str & vbCrlf
         end if
      next
   next
next
msgbox str
         
         
      
[/code]这不是很简单吗

北极狐 发表于 2015-7-19 05:51

1
主题

1364
帖子

2万
积分

终身vip会员


积分25937 .

. 发消息
.

7#



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






好好学习，天天向上

北极狐 发表于 2015-7-19 05:52

看看就看看！






好好学习，天天向上

marqqer 发表于 2015-12-5 23:28

谢谢分享,支持一下

查看完整版本: vbs学习习题 - 百元买百鸡问题