Private Sub Command1_Click() Dim C1 As Single, C2 As Single, C3 As Single, C4 As Single, C5 As Single, C6 As Single, C7 As Single, C8 As Single, _ S1 As Single, S2 As Single, S3 As Single, S4 As Single, S5 As Single, S6 As Single, S7 As Single, S8 As Single, _ T1 As Single, T2 As Single, T3 As Single, T4 As Single, T5 As Single, T6 As Single, T7 As Single, T8 As Single, _ E1 As Single, E2 As Single, E3 As Single, E4 As Single, E5 As Single, E6 As Single, E7 As Single, E8 As Single, _ F1 As Single, F2 As Single, F3 As Single, F4 As Single, F5 As Single, F6 As Single, F7 As Single, F8 As Single, _ M1 As Single, M2 As Single, M3 As Single, M4 As Single, M5 As Single, M6 As Single, M7 As Single, M8 As Single, _ L1 As Single, L2 As Single, L3 As Single, L4 As Single, L5 As Single, L6 As Single, L7 As Single, L8 As Single, _ R As Single, b As Single, _ A1 As Single, A2 As Single, A3 As Single, A4 As Single, A5 As Single, A6 As Single, A7 As Single, A8 As Single, _ B1 As Single, B2 As Single, B3 As Single, B4 As Single, B5 As Single, B6 As Single, B7 As Single, B8 As Single, _ n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As Double, n7 '定义各种物料氧化钙、二氧化硅，碳，氧化亚铁，三氧化二铁， As Double, n8 As Double 镁，三氧化二铝的含量；碱度，配碳比，方程系数，各物料配入的质量 C1 = Val(Text1.Text) C2 = Val(Text16.Text) C3 = Val(Text31.Text) C4 = Val(Text46.Text) C5 = Val(Text61.Text) C6 = Val(Text76.Text) C7 = Val(Text91.Text) C8 = Val(Text106.Text) S1 = Val(Text2.Text) S2 = Val(Text17.Text) S3 = Val(Text32.Text) S4 = Val(Text47.Text) S5 = Val(Text62.Text) S6 = Val(Text77.Text) S7 = Val(Text92.Text) S8 = Val(Text107.Text) T1 = Val(Text3.Text) T2 = Val(Text18.Text) 

T3 = Val(Text33.Text) T4 = Val(Text48.Text) T5 = Val(Text63.Text) T6 = Val(Text78.Text) T7 = Val(Text93.Text) T8 = Val(Text108.Text) E1 = Val(Text5.Text) E2 = Val(Text20.Text) E3 = Val(Text35.Text) E4 = Val(Text50.Text) E5 = Val(Text65.Text) E6 = Val(Text80.Text) E7 = Val(Text95.Text) E8 = Val(Text110.Text) F1 = Val(Text6.Text) F2 = Val(Text21.Text) F3 = Val(Text36.Text) F4 = Val(Text51.Text) F5 = Val(Text66.Text) F6 = Val(Text81.Text) F7 = Val(Text96.Text) F8 = Val(Text111.Text) M1 = Val(Text4.Text) M2 = Val(Text19.Text) M3 = Val(Text34.Text) M4 = Val(Text49.Text) M5 = Val(Text64.Text) M6 = Val(Text79.Text) M7 = Val(Text94.Text) M8 = Val(Text109.Text) L1 = Val(Text7.Text) L2 = Val(Text22.Text) L3 = Val(Text37.Text) L4 = Val(Text52.Text) L5 = Val(Text67.Text) L6 = Val(Text82.Text) L7 = Val(Text97.Text) L8 = Val(Text112.Text) R = Val(Text129.Text) b = Val(Text130.Text) A1 = C1 - R * S1 A2 = C2 - R * S2 A3 = C3 - R * S3 A4 = C4 - R * S4 

A5 = C5 - R * S5 A6 = C6 - R * S6 A7 = C7 - R * S7 A8 = C8 - R * S8 B1 = 12 / 72 * b * E1 + 36 / 160 * b * F1 - T1 B2 = 12 / 72 * b * E2 + 36 / 160 * b * F2 - T2 B3 = 12 / 72 * b * E3 + 36 / 160 * b * F3 - T3 B4 = 12 / 72 * b * E4 + 36 / 160 * b * F4 - T4 B5 = 12 / 72 * b * E5 + 36 / 160 * b * F5 - T5 B6 = 12 / 72 * b * E6 + 36 / 160 * b * F6 - T6 B7 = 12 / 72 * b * E7 + 36 / 160 * b * F7 - T7 B8 = 12 / 72 * b * E8 + 36 / 160 * b * F8 - T8 Dim Arr(1 To 2, 1 To 8) As Double Arr(1, 1) = A1 Arr(1, 2) = A2 Arr(1, 3) = A3 Arr(1, 4) = A4 Arr(1, 5) = A5 Arr(1, 6) = A6 Arr(1, 7) = A7 Arr(1, 8) = A8 Arr(2, 1) = B1 Arr(2, 2) = B2 Arr(2, 3) = B3 Arr(2, 4) = B4 Arr(2, 5) = B5 Arr(2, 6) = B6 Arr(2, 7) = B7 Arr(2, 8) = B8 Dim t As Double, i As Integer, j As Integer, k As Integer, p As Integer 将矩阵转化成阶梯型 For i = 1 To 2 Step 1 p = i If Arr(i, p) = 0 Then For j = i + 1 To 8 Step 1 If Arr(i, j) <> 0 Then p = j Exit For End If If j = 8 And Arr(i, j) = 0 Then GoTo qq Next j If Arr(i, p) <> 1 And Arr(i, p) <> 0 Then t = 1 / Arr(i, p) 

For j = 0 To 8 Step 1 Arr(i, j) = Arr(i, j) * t Next j End If If Arr(i, p) = 1 Then For j = i - 1 To 0 Step -1 If Arr(j, p) <> 0 Then t = Arr(j, p) / Arr(i, p) For k = p To 8 Step 1 Arr(j, k) = Arr(j, k) - Arr(i, k) * t Next k End If Next j End If If Arr(i, p) <> 0 Then t = 1 / Arr(i, p) For j = 0 To 8 Step 1 Arr(i, j) = Arr(i, j) * t Next j End If For j = i - 1 To 0 Step -1 If Arr(j, p) <> 0 Then t = Arr(j, p) / Arr(i, p) For k = p To 8 Step 1 Arr(j, k) = Arr(j, k) - Arr(i, k) * t Next k End If Next j End If Next i Text121.Text = Arr(1, 1) Text122.Text = Arr(1, 2) Text123.Text = Arr(1, 3) Text124.Text = Arr(1, 4) Text125.Text = Arr(1, 5) Text126.Text = Arr(1, 6) Text127.Text = Arr(1, 7) Text128.Text = Arr(1, 8) Text131.Text = Arr(2, 1) Text132.Text = Arr(2, 2) Text133.Text = Arr(2, 3) 

Text134.Text = Arr(2, 4) Text135.Text = Arr(2, 5) Text136.Text = Arr(2, 6) Text137.Text = Arr(2, 7) Text138.Text = Arr(2, 8) End Sub Private Sub Command2_Click() End End Sub