VBS的学习笔记及作业(20090721)

最近在学习VBS,发现了一个入门级的帖子

一个在黑客界引起轰动的菜鸟教材---跟我学编程系列跟我学编程系列原黑白新区记忆碎片的帖子！

有兴趣的朋友可以GOOGLE一下,在此不转述,此贴比较容易懂,大部分作业也是比较简单的东西,就不贴了

作业:百钱买百鸡(公鸡5钱一只, 母鸡3钱一只, 小鸡1钱2只)

Dim i,j,m,s,n
n=0
For i=1 To 20
 For j=1 To 33
  For m=1 To 200
  s=i*5+j*3+m*0.5
  If s=100 Then
'  str="公鸡"&i&"只，母鸡"&j&"只，小鸡"&m&"只."
'  MsgBox(str)
  n=n+1
  End if
  Next
 Next
Next
MsgBox "一共有"&n&"种购买方法"

上面的方法前提是三种鸡都要买,而不是只买其中一种或两种