你这个程序编写的还不是最好,不过估计可以算出来c的范围还可以小点
我用VB弄了一个
先创建标准exe 程序,添加控件-command改名为Calculate
以下为程序代码
Private Sub Calculate_Click()
Dim x, y, z As Integer
For x = 0 To 100
For z = 0 To 33
y = 100 - x - z
If (x + y + z = 100) And (x + 0.4 * y + z = 73) And (0.2 * x + 0.4 * y + z = 33) Then
Print "number1分=" & x, "number2分=" & y, "number5分=" & z
End If
Next z
Next x
End Sub
以下附调试结果
Winxp sp2+Visual basic6.0调试通过
[ 本帖最后由 xryj 于 2008-5-26 19:10 编辑 ]
附件: 您所在的用户组无法下载或查看附件