第10节  用穷举法解方程

例1：用穷举法求满足条件  3A x 8256 = A3 x 6528  中的数字A。并将满足条件的数字A在字母A所在的文本框Text1和Text2中显示。

l     界面设计

l     程序的运行结果

Private Sub Command1_Click()

   For A = 0 To 9

     If  (30 + A) * 8256 = (A * 10 + 3) * 6528   Then

        Label2.Caption = A

        Label4.Caption = A 

     End If 

   Next A

End Sub

例2：

根据题意可列出方程组如下：

    设x为鸡的只数，y为兔的只数。

例3：一个炊事员上街采购,用500元钱买了100只  鸡.，其中公鸡15元一只，母鸡13元一只，小鸡3元一只，正好把钱花完。问公鸡、母鸡、小鸡各买了多少只。

以上问题可列出方程组如下：

    其中x为公鸡的只数，y为母鸡的只数，z为小鸡的只数。

分析：500元最多可买公鸡33只，最多可买母鸡38只，当在范围内选定 一组公鸡和母鸡的数值时，每种组合的小鸡数可由方程组的（1）式求得。将方程组解的可能组合依次带入方程组（2）式检验，如果是方程组的解就将其输出。

根据分析编写的程序如下：

Private Sub Form_Activate()

　For x = 1 To 33

　　For y = 1 To 38

　　　z = 100 - x – y

　　　If  15 * x + 13 * y + 3 * z = 500  Then  Print x,y,z 

　　Next y 

　 Next x

End Sub