程序1-1 计算机解决问题的过程.pptVIP

1-1 计算机解决问题的过程 赵圣川 1、分析问题 2、设计算法 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer Dim x_max As Integer, y_max As Integer, z_max As Integer Dim f(4, 3, 12) As Single 定义存放函数f (x,y,z)值的数组f Dim f_max As Single For x = 0 To 4 For y = 0 To 3 For z = 0 To 12 If (2 * x + 2 * y + z = 12) And (x + 2 * y + z = 8) Then f(x, y, z) = 4 * x + 3 * y + 2 * z Else f(x, y, z) = 0 End If Next z Next y Next x f_max = 0 For x = 0 To 4 For y = 0 To 3 For z = 0 To 12 If f_max f(x, y, z) Then