求高手解答VB编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/11 19:49:38
我要做一个程序，界面已经弄好（地址我在下面补充），求高手帮忙写出程序，使用VB编的。以前都是笔算，但是每来的料都不一样，每次都要重算，想做一个程序，下次直接输入就能计算出结果的。
1。在输入来料宽度为Q，980.0<=Q<=1200.0,（取一位小数），
2。从列表中选择：左边裁掉P1（从3.0-5.0），右边同样为P2（3.0-5.0），〈这时来料宽度变为：K=Q-P1-P2，再将K裁成4种宽度不同的模版（103，112，122，203），则剩余材料为：Z=K-103*X1-122*X2-122*X3-203*X4。求MIN Z时（剩余最小）的X1，X2，X3，X4的值〉
3。点击计算，右边出现剩余材料Z最小值和相应的X1，X2，X3，X4的值。X为非负整数。
4。点击重置，全部清零！

这题简单，没有考虑高度，用递归

(VB6代码)将以下内容保存为 a.frm

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3330
ClientLeft = 60
ClientTop = 345
ClientWidth = 5085
LinkTopic = "Form1"
ScaleHeight = 3330
ScaleWidth = 5085
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 2655
Left = 2640
MultiLine = -1 'True
TabIndex = 8
Top = 360
Width = 2175
End
Begin VB.Frame Frame1
Height = 2775
Left = 240
TabIndex = 0
Top = 240
Width = 2175
Begin VB.CommandButton Command1
Caption = "计算"