基于VB的單纯型法解线性规划代码.docVIP

基于VB的 单纯型法 解 线性规划 代码 1. Form窗体代码： Option Explicit Private Sub Command1_Click() Dim nVariables As Long, nConstraints As Long Dim s As String, c() As Double, a() As Double, x() As Double Dim i As Long, j As Long, items As Variant, items1 As Variant Dim ret As Boolean, stopN As Long stopN = 100 in every stopN, the iteration will be stoped to ask if continue s = max,0.8,2.5,1 for c in max z = cx s = s ; 0.6,-0.1,-0.2,=,1 for a and b (b at the end) in ax = b s = s ; -0.3,0.6,-0.4,=,3 s = s ; -0.1,-0.3,0.8,=,5 s = s