例5.16 百元买百鸡问题.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 34 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "例5.16 百元买百鸡问题"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
  Dim x%, y%, z%
  Cls
  For x = 1 To 33
     For y = 1 To 50
        For z = 1 To 100
           If 3 * x + 2 * y + 0.5 * z = 100 And x + y + z = 100 Then
              Print "母鸡："; x; " 只,  ";
              Print "公鸡："; y; " 只,  ";
              Print "小鸡："; z; " 只"
           End If
        Next z
     Next y
  Next x
End Sub