线性规划VB求解2.docVIP

Rem 定义动态数组 Dim a As Single, c As Single, b As Single, cb As Single Dim aa As Single, cba As Single, xcb As Integer, xb As Integer Dim m As Integer, n As Integer, l As Integer, k As Integer, cc As Integer, cm As Integer, ka As Integer Dim qq As Single, tt As Single, z As Single Private Sub Command1_Click Show n Val InputBox 请输入线性规划典范型方程变量的个数 N ?, 输入数据, 0 m Val InputBox 请输入线性规划典范型方程约束条件的个数 M ?, 输入数据, 0 Rem 给数组分配空间 ReDim a 0 To m + 1, 0 To n + 2 ReDim aa 1 To m + 1, 1 To n + 2 ReDim c n ReDim b m ReDim cb m ReDim cba n ReDim xcb n ReDim xb m Rem 对线性规划约束方程增广矩阵A（）进行归零计算 For i 0 To m + 1 For j 0 To n + 2 a i, j 0 Next j Next i Rem 输入线性规划约束方程系数矩阵A（） For i 1 To m For j 1 To n a i, j Val InputBox 请输入典范型方程约束条件矩阵的系数 a Str i , Str j ：, 输入数据, 0 Next j Next i Rem 输入线性规划约束方程右端常数B（） For i 1 To m b i Val InputBox 请输入典范型方程约束条件右端的常数 b Str i ：, 输入数据, 0 Next i Rem 把右端常数写入增广矩阵A（）中 For i 1 To m a i, n + 1 b i Next i Rem 输入线性规划目标函数的系数C（） For i 1 To n c i Val InputBox 请输入典范型方程目标函数的系数 c Str i ：, 输入数据, 0 Next i Rem 把目标函数的系数写入增广矩阵A（）中 For i 1 To n a 0, i c i Next i Rem 输入线性规划单纯形初始表中基变量在目标函数中的系数CB（） For i 1 To m cb i Val InputBox 请输入线性规划单纯形初始表中基变量在目标函数中的系数CB（ Str i ：, 输入数据, 0 Next i Rem 把基变量目标函数的系数写入增广矩阵A（）中 For i 1 To m a i, 0 cb i Next i Rem 记录基变量下标值 For i 1 To m xb i Val InputBox 请输入典范型方程第 Str i 行，基变量的下标：, 输入数据, 0 Next i Rem 检验数的累积数归零并计算检验数 For i 1 To n cba i 0 Next i For i 1 To n For j 1 To m cba i cba i + a j, 0 * a j, i Next j a m + 1, i a 0, i - cba i Next i Rem 计算目标函数值 z 0 For i 1 To m z z + a i, 0 * a i, n + 1 Next i a m + 1, n + 1 z Rem 打印增广矩阵A（） For i 0 To m + 1 For j 0 To n + 2 Print a i, j ; Next j Print Next i Print Rem 判断所有检验数是否都小于等于零 cc 0 For i 1 To n If a m + 1, i 0 Then cc cc + 1 End If Next i Rem 统计检验数为零的个数 cm 0 For i 1 To n If a m + 1, i 0 Then cm cm + 1 End If Next i Print cc ;