1、FORM1Private Sub Command1_Click() Form1.HideForm2.ShowEnd SubFORM2Private Sub Command1_Click() a = 4.2 b = 3.93 c = 1.96Text1(0).Text = aText1(1).Text = aText1(2).Text = cText1(3).Text = cText1(4).Text = aText1(5).Text = aText2(0).Text = aText2(1).Text = aText2(2).Text = aText2(3).Text = aText2(4).T

2、ext = bText2(5).Text = bEnd SubPrivate Sub Command2_Click() d = 50Text3.Text = dEnd SubPrivate Sub Command3_Click()Text4(0).Text = Text1(0) / Text3 * 60Text4(1).Text = Text1(1) / Text3 * 60Text4(2).Text = Text1(2) / Text3 * 60Text4(3).Text = Text1(3) / Text3 * 60Text4(4).Text = Text1(4) / Text3 * 60

3、Text4(5).Text = Text1(5) / Text3 * 60Text5(0).Text = Text2(0) / Text3 * 60Text5(1).Text = Text2(1) / Text3 * 60Text5(2).Text = Text2(4) / Text3 * 60Text5(3).Text = Text2(5) / Text3 * 60Text5(4).Text = Text2(2) / Text3 * 60Text5(5).Text = Text2(3) / Text3 * 60 End SubPrivate Sub Command4_Click() e =

4、600Text6 = eEnd SubPrivate Sub Command5_Click() Text7(1).Text = 200Text7(2).Text = 200Text7(3).Text = 500Text7(4).Text = 200Text7(6).Text = 500Text7(7).Text = 100Text7(8).Text = 200Text7(9).Text = 500Text7(11).Text = 250Text7(12).Text = 500Text7(13).Text = 100Text7(14).Text = 250 End SubPrivate Sub

5、Command6_Click() Form2.HideForm3.ShowEnd SubPrivate Sub Form_Load()End SubFORM3Public i, jPrivate Sub Command3_Click() Form3.HideForm2.ShowEnd SubPrivate Sub Command4_Click() Form3.HideForm4.ShowEnd SubPrivate Sub Form_Load()i = 0j = 0End SubPrivate Sub Command2_Click()i = i + 1If i = 1 ThenCommand2

6、.Caption = 分配 AB 后的交通量Command1.Caption = 求分配 AB 后的阻抗Text3(0).Text = 155Text3(1).Text = 0Text3(2).Text = 168Text3(3).Text = 0Text3(4).Text = 0Text3(5).Text = 45Text3(6).Text = 13Text3(7).Text = 0Text3(8).Text = 32Text3(9).Text = 0Text3(10).Text = 45Text3(11).Text = 0Text3(12).Text = 32Text3(13).Text

7、= 0Text3(14).Text = 0Text3(15).Text = 0Text3(16).Text = 0Text3(17).Text = 0Text3(18).Text = 0Text3(19).Text = 0Text3(20).Text = 0Text3(21).Text = 0Text3(22).Text = 0Text3(23).Text = 0Text3(0).Text = 155Text3(1).Text =168Text3(2).Text =168Text3(3).Text =155Text3(4).Text =32Text3(5).Text =45Text3(6).T

8、ext =26Text3(7).Text =0Text3(8).Text =32Text3(9).Text =45Text3(10).Text45Text3(11).Text32Text3(12).Text32Text3(13).Text =45Text3(14).Text =0Text3(15).Text =0Text3(16).Text =0Text3(17).Text =0Text3(18).Text =0Text3(19).Text =0Text3(20).Text =0Text3(21).Text =0Text3(22).Text =0Text3(23).Text =0ElseIf

9、i = 3 ThenCommand2.Caption = 分配 AC 后的交通量Command1.Caption = 求分配 AC 后的阻抗Text3(0).Text = 155Text3(1).Text = 168Text3(2).Text = 168Text3(3).Text = 155Text3(4).Text = 32Text3(5).Text = 245Text3(6).Text = 26Text3(7).Text = 0Text3(8).Text = 32Text3(16).Text = 0Text3(17).Text = 0Text3(18).Text = 0Text3(19).

10、Text = 0Text3(20).Text = 0Text3(21).Text = 0Text3(22).Text = 0Text3(23).Text = 0ElseIf i = 4 ThenCommand2.Caption = 分配 CA 后的交通量Command1.Caption = 求分配 CA 后的阻抗Text3(0).Text = 155Text3(1).Text = 168Text3(2).Text = 168Text3(3).Text = 155Text3(4).Text = 232Text3(5).Text = 245Text3(6).Text = 26Text3(7).Te

11、xt = 0Text3(8).Text = 32Text3(9).Text = 45Text3(10).Text = 45Text3(11).Text = 32Text3(12).Text = 32Text3(13).Text = 45Text3(14).Text = 200Text3(15).Text = 200Text3(16).Text = 0Text3(17).Text = 0Text3(18).Text = 0Text3(19).Text = 0Text3(20).Text = 0Text3(21).Text = 0Text3(22).Text = 0Text3(23).Text =

12、 0Text3(0).Text = 345Text3(1).Text = 168Text3(2).Text= 230Text3(3).Text= 155Text3(4).Text= 232Text3(5).Text= 555Text3(6).Text= 26Text3(7).Text= 128Text3(8).Text= 32Text3(9).Text= 107Text3(10).Text= 355Text3(11).Text= 32Text3(12).Text= 344Text3(13).Text= 45Text3(14).Text= 200Text3(15).Text= 200Text3(

13、16).Text= 0Text3(17).Text= 126Text3(18).Text= 0Text3(19).Text= 374Text3(20).Text= 0Text3(21).Text= 0Text3(22).Text= 126Text3(23).Text= 0ElseIf i = 6 ThenCommand2.Caption = 分配 DA 后的交通量Command1.Caption = 求分配 DA 后的阻抗Text3(0).Text = 345Text3(1).Text = 294Text3(2).Text = 230Text3(3).Text = 155Text3(4).Te

14、xt = 232Text3(5).Text = 555Text3(6).Text = 152Text3(7).Text = 128Text3(8).Text = 32Text3(9).Text = 107Text3(21).Text = 62Text3(22).Text = 126Text3(23).Text = 191ElseIf i = 7 ThenCommand2.Caption = 分配 CB 后的交通量Command1.Caption = 求分配 CB 后的阻抗Text3(0).Text = 345Text3(1).Text = 294Text3(2).Text = 357Text3

15、(3).Text = 155Text3(4).Text = 232Text3(5).Text = 555Text3(6).Text = 279Text3(7).Text = 128Text3(8).Text = 405Text3(9).Text = 107Text3(10).Text = 663Text3(11).Text = 344Text3(12).Text = 655Text3(13).Text = 354Text3(14).Text = 570Text3(15).Text = 200Text3(16).Text = 259Text3(17).Text = 126Text3(18).Te

16、xt = 371Text3(19).Text = 374Text3(20).Text = 192Text3(21).Text = 62Text3(22).Text = 188Text3(23).Text = 191Text3(0).Text = 345Text3(1).Text = 351Text3(7).Text = 262Text3(8).Text = 405Text3(9).Text = 416Text3(10).Text = 663Text3(11).Text = 658Text3(12).Text = 655Text3(13).Text = 663Text3(14).Text = 5

17、70Text3(15).Text = 571Text3(16).Text = 259Text3(17).Text = 255Text3(18).Text = 371Text3(19).Text = 374Text3(20).Text = 192Text3(21).Text = 191Text3(22).Text = 188Text3(23).Text = 191ElseIf i = 9 ThenCommand2.Caption = 分配 BD 后的交通量Command1.Caption = 求分配 BD 后的阻抗Text3(0).Text = 345Text3(1).Text = 351Tex

18、t3(2).Text = 357Text3(3).Text = 346Text3(4).Text = 608Text3(5).Text = 612Text3(6).Text = 279Text3(7).Text = 262Text3(8).Text = 405Text3(9).Text = 516Text3(22).Text = 188Text3(23).Text = 191ElseIf i = 10 ThenCommand2.Caption = 分配 DB 后的交通量Command1.Caption = 求分配 DB 后的阻抗Text3(0).Text = 345Text3(1).Text

19、= 351Text3(2).Text = 357Text3(3).Text = 346Text3(4).Text = 608Text3(5).Text = 612Text3(6).Text = 279Text3(7).Text = 262Text3(8).Text = 505Text3(9).Text = 516Text3(10).Text = 663Text3(11).Text = 658Text3(12).Text = 655Text3(13).Text = 663Text3(14).Text = 570Text3(15).Text = 571Text3(16).Text = 259Tex

20、t3(17).Text = 255Text3(18).Text = 471Text3(19).Text = 474Text3(20).Text = 192Text3(21).Text = 191Text3(22).Text = 188Text3(23).Text = 191Text3(0).Text = 345Text3(1).Text = 351Text3(2).Text = 357Text3(8).Text = 505Text3(9).Text = 516Text3(10).Text = 663Text3(11).Text = 658Text3(12).Text = 655Text3(13

21、).Text = 663Text3(14).Text = 570Text3(15).Text = 571Text3(16).Text = 259Text3(17).Text = 255Text3(18).Text = 471Text3(19).Text = 474Text3(20).Text = 192Text3(21).Text = 441Text3(22).Text = 188Text3(23).Text = 441ElseIf i = 12 ThenCommand2.Caption = 分配 CD 后的交通量Command1.Caption = 分配 CD 后的阻抗Text3(0).Te

22、xt = 345Text3(1).Text = 351Text3(2).Text = 357Text3(3).Text = 346Text3(4).Text = 608Text3(5).Text = 612Text3(6).Text = 279Text3(7).Text = 262Text3(8).Text = 505Text3(9).Text = 516Text3(10).Text = 663Text3(23).Text = 441Form3.ShowForm2.HideEnd IfEnd SubPrivate Sub Command1_Click()Dim a(3) As StringTe

23、xt1(0).Text = Form2.Text4(0)Text1(1).Text = Form2.Text4(1)Text1(2).Text = Form2.Text4(2)Text1(3).Text = Form2.Text4(3)Text1(4).Text = Form2.Text4(4)Text1(5).Text = Form2.Text4(5)Text2(0).Text = Form2.Text5(0)Text2(1).Text = Form2.Text5(1)Text2(2).Text = Form2.Text5(2)Text2(3).Text = Form2.Text5(3)Te

24、xt2(4).Text = Form2.Text5(4)Text2(5).Text = Form2.Text5(5)j = j + 1If j = 1 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15 *(Val(Text3(0).Text) + Val(Text3(1).Text) /600)4),3)Text1(1).Text = Round(Val(Text1(1).Text)*(1+0.15 *(Val(Tex t3(2).Tex t) + Val(Tex t3(3).Tex t) / 600)八 4), 3)Text1(2).T

25、ext = Round(Val(Text1(2).Text)*(1+0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/600)4),3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15*(Val(Text3(12).Text) + Val(Text3(13).Text)/600)4),3)Text1(4).Text = Round(Val(Text1(4).Text)*(1+0.15*(Val(Text3(20).Text) + Val(Text3(21).Text)/600)4),3)Text1(5

26、).Text = Round(Val(Text1(5).Text)*(1+0.15*(Val(Text3(22).Text) + Val(Text3(23).Text)/600)4),3) TOC o 1-5 h z Text2(0).Text = Round(Val(Text2(0).Text) *(1+0.15*(Val(Tex t3(4).Tex t) + Val(Tex t3(5).Tex t) / 600)八4),3)Text2(1).Text = Round(Val(Text2(1).Text) *(1+0.15*(Val(Tex t3(14).Tex t) + Val(Tex t

27、3(15).Tex t) / 600)八 4), 3)Text2(2).Text = Round(Val(Text2(2).Text)*(1+0.15*(Val(Tex t3(6).Tex t) + Val(Tex t3(7).Tex t) /600)八4),3)Text2(3).Text = Round(Val(Text2(3).Text)*(1+0.15*(Val(Tex t3(16).Tex t) + Val(Tex t3(17).Tex t) / 600)八 4), 3)Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Tex

28、t3(8).Tex t) + Val(Tex t3(9).Tex t) /600)八4),3)Text2(5).Text = Round(Val(Text2(5).Text)*(1+0.15*(Val(Tex t3(18).Tex t) + Val(Tex t3(19).Tex t) / 600)八 4), 3)Command2.Caption = 根據初始阻抗求分配 AB 后的交通量ElseIf j = 2 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15*(Val(Tex t3(0).Tex t) + Val(Tex t3(l).Te

29、x t) /600)八4),3)Text1(1).Text = Round(Val(Text1(1).Text)*(1+0.15*(Val(Tex t3(2).Tex t) + Val(Tex t3(3).Tex t) /600)八4),3)Text1(2).Text = Round(Val(Text1(2).Text)*(1+0.15*(Val(Tex t3(10).Tex t) + Val(Tex t3(ll).Tex t) / 600)八 4), 3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15*(Val(Tex t3(12).Tex

30、t) + Val(Tex t3(13).Tex t) / 600)八 4), 3)Text1(4).Text=Round(Val(Text1(4).Text)*(1+0.15*(Val(Tex t3(20).Tex t) + Val(Tex t3(21).Tex t) / 600)八 4), 3)Text1(5).Text=Round(Val(Text1(5).Text)*(1+0.15*(Val(Tex t3(22).Tex t) + Val(Tex t3(23).Tex t) / 600)八 4), 3)Text2(0).Text=Round(Val(Text2(0).Text)*(1+0

31、.15*(Val(Tex t3(4).Tex t)+ Val(Tex t3(5).Tex t) /600)八 4),3)Text2(1).Text=Round(Val(Text2(1).Text)*(1+0.15*(Val(Tex t3(14).Tex t) + Val(Tex t3(15).Tex t) / 600)八 4), 3)Text2(2).Text = Round(Val(Text2(2).Text)*(1+0.15*(Val(Tex t3(6).Tex t) + Val(Tex t3(7).Tex t) /600)八4),3)Text2(3).Text = Round(Val(T

32、ext2(3).Text)*(1+0.15*(Val(Tex t3(16).Tex t) + Val(Tex t3(17).Tex t) / 600)八 4), 3)Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Tex t3(8).Tex t) + Val(Tex t3(9).Tex t) /600)八4),3)Text2(5).Text = Round(Val(Text2(5).Text)*(1+0.15*(Val(Tex t3(18).Tex t) + Val(Tex t3(19).Tex t) / 600)八 4), 3)Co

33、mmand2.Caption =根據分配A一B后的阻抗求分配A一C后交通量 Commandl.Caption =分配 A一B 后的阻抗ElseIf j = 3 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15*(Val(Text3(0).Text) + Val(Text3(1).Text) /600)八4)3)Text1(1).Text = Round(Val(Text1(1).Text)*(1+0.15*(Val(Text3(2).Text) + Val(Text3(3).Text) /600)八4)3)Text1(2).Text =

34、Round(Val(Text1(2).Text)*(1+0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/ 600)4)3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15*(Val(Text3(12).Text) + Val(Text3(13).Text)/ 600)4)3)Text1(4).Text = Round(Val(Text1(4).Text)*(1+0.15*(Val(Text3(20).Text) + Val(Text3(21).Text)/ 600)4)3)Text1(5).Text

35、 = Round(Val(Text1(5).Text)*(1+0.15*(Val(Text3(22).Text) + Val(Text3(23).Text)/ 600)4)3)Text2(0).Text = Round(Val(Text2(0).Text)*(1+0.15*(Val(Text3(4).Text) + Val(Text3(5).Text) /600)八4)3)Text2(1).Text = Round(Val(Text2(1).Text)*(1+0.15*(Val(Text3(14).Text) + Val(Text3(15).Text)/ 600)4)3)Text2(2).Te

36、xt = Round(Val(Text2(2).Text)*(1+0.15*(Val(Text3(6).Text) + Val(Text3(7).Text) /600)八4)3)Text2(3).Text = Round(Val(Text2(3).Text)*(1+0.15*(Val(Text3(16).Text) + Val(Text3(17).Text)/ 600)4)3)Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Text3(8).Text) + Val(Text3(9).Text) /600)八4)3)Text2(5).T

37、ext = Round(Val(Text2(5).Text)*(1+0.15*(Val(Text3(18).Text) + Val(Text3(19).Text)/ 600)4)3)Command2.Caption = 根據分配 AC 后的阻抗求分配 AD 后交通量Command1.Caption = 分配 AC 后的阻抗ElseIf j = 4 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15*(Val(Text3(0).Text) + Val(Text3(1).Text) / 600)4),3)Text1(1).Text = Roun

38、d(Val(Text1(1).Text)*(1+0.15*(Val(Tex t3(2).Tex t) + Val(Tex t3(3).Tex t) / 600)八 4), 3) TOC o 1-5 h z Text1(2).Text = Round(Val(Text1(2).Text) *(1+0.15*(Val(Tex t3(10).Tex t) + Val(Tex t3(ll).Tex t) / 600)八 4), 3)Text1(3).Text=Round(Val(Text1(3).Text)*(1+0.15*(Val(Tex t3(12).Tex t) + Val(Tex t3(13)

39、.Tex t) / 600)八 4), 3)Text1(4).Text=Round(Val(Text1(4).Text)*(1+0.15*(Val(Tex t3(20).Tex t) + Val(Tex t3(21).Tex t) / 600)八 4), 3)Text1(5).Text = Round(Val(Text1(5).Text)*(1+0.15*(Val(Tex t3(22).Tex t) + Val(Tex t3(23).Tex t) / 600)八 4), 3)Text2(0).Text = Round(Val(Text2(0).Text)*(1+0.15*(Val(Tex t3

40、(4).Tex t) + Val(Tex t3(5).Tex t) /600)八4),3)Text2(1).Text = Round(Val(Text2(1).Text)*(1 +0.15*(Val(Text3(14).Text) + Val(Text3(15).Text)/ 600)八 4), 3)Text2(2).Text = Round(Val(Text2(2).Text)*(1 +0.15*(Val(Text3(6).Text) + Val(Text3(7).Text) /600)八4), 3)Text2(3).Text = Round(Val(Text2(3).Text)*(1 +0

41、.15*(Val(Tex t3(16).Tex t) + Val(Tex t3(17).Tex t) / 600)八 4), 3) TOC o 1-5 h z Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Tex t3(8).Tex t) + Val(Tex t3(9).Tex t) /600)八4),3)Text2(5).Text = Round(Val(Text2(5).Text)*(1+0.15*(Val(Tex t3(18).Tex t) + Val(Tex t3(19).Tex t) / 600)八 4), 3)Comma

42、nd2.Caption = 根據分配 AD 后的阻抗求分配 BA 后交通量Command1.Caption = 分配 AD 后的阻抗ElseIf j = 5 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15*(Val(Text3(0).Text) + Val(Text3(1).Text) /600)八4)3)Text1(1).Text = Round(Val(Text1(1).Text)*(1+0.15*(Val(Text3(2).Text) + Val(Text3(3).Text) /600)八4)3)Text1(2).Text = R

43、ound(Val(Text1(2).Text)*(1+0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/ 600)4)3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15*(Val(Text3(12).Text) + Val(Text3(13).Text)/ 600)4)3)Text1(4).Text = Round(Val(Text1(4).Text)*(1+0.15*(Val(Text3(20).Text) + Val(Text3(21).Text)/ 600)4)3)Text1(5).Text

44、= Round(Val(Text1(5).Text)*(1+0.15*(Val(Text3(22).Text) + Val(Text3(23).Text)/ 600)4)3)Text2(0).Text = Round(Val(Text2(0).Text)*(1+0.15*(Val(Text3(4).Text) + Val(Text3(5).Text) /600)八4)3)Text2(1).Text = Round(Val(Text2(1).Text)*(1+0.15*(Val(Text3(14).Text) + Val(Text3(15).Text)/ 600)4)3)Text2(2).Tex

45、t = Round(Val(Text2(2).Text)*(1+0.15*(Val(Text3(6).Text) + Val(Text3(7).Text) /600)八4)3)Text2(3).Text = Round(Val(Text2(3).Text)*(1+0.15*(Val(Text3(16).Text) + Val(Text3(17).Text)/ 600)4)3)Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Text3(8).Text) + Val(Text3(9).Text) /600)八4)3)Text2(5).Te

46、xt = Round(Val(Text2(5).Text)*(1+0.15*(Val(Text3(18).Text) + Val(Text3(19).Text)/ 600)4)3)Command2.Caption = 根據分配 BA 后的阻抗分配 BC 后交通量Command1.Caption = 分配 BA 后的阻抗ElseIf j = 6 ThenText1(0).Text = Round(Val(Text1(0).Text)*(1+0.15*(Val(Text3(0).Text) + Val(Text3(1).Text) /600)八4),3)Text1(1).Text = Round(

47、Val(Text1(1).Text)*(1+0.15*(Val(Text3(2).Text) + Val(Text3(3).Text) /600)八4),3)Text1(2).Text = Round(Val(Text1(2).Text)*(1+0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/ 600)4), 3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15*(Val(Text3(12).Text) + Val(Text3(13).Text)/ 600)4), 3)Text1(4).Text =

48、 Round(Val(Text1(4).Text)*(1+0.15*(Val(Text3(20).Text) + Val(Text3(21).Text)/ 600)4), 3)Text1(5).Text = Round(Val(Text1(5).Text)*(1+0.15*(Val(Text3(22).Text) + Val(Text3(23).Text)/ 600)4), 3)Text2(0).Text = Round(Val(Text2(0).Text)*(1+0.15*(Val(Text3(4).Text) + Val(Text3(5).Text) /600)八4),3)Text2(1)

49、.Text = Round(Val(Text2(1).Text)*(1+0.15*(Val(Text3(14).Text) + Val(Text3(15).Text)/ 600)4), 3)Text2(2).Text = Round(Val(Text2(2).Text)*(1+0.15*(Val(Text3(6).Text) + Val(Text3(7).Text) /600)八4),3)Text2(3).Text = Round(Val(Text2(3).Text)*(1+0.15*(Val(Text3(16).Text) + Val(Text3(17).Text)/ 600)4), 3)T

50、ext2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Text3(8).Text) + Val(Text3(9).Text) /600)八4),3)Text2(5).Text = Round(Val(Text2(5).Text)*(1+0.15*(Val(Text3(18).Text) + Val(Text3(19).Text)/ 600)4), 3)Command2.Caption = 根據分配 BC 后的阻抗求分配 BD 后交通量Command1.Caption = 分配 BC 后的阻抗ElseIf j = 7 ThenText1(0).

51、Text =Round(Val(Text1(0).Text)*(1 +0.15*(Val(Text3(0).Text)+ Val(Text3(1).Text) /600)八4), 3)Text1(1).Text =Round(Val(Text1(1).Text)*(1 +0.15*(Val(Text3(2).Text)+ Val(Text3(3).Text) /600)八4), 3)Text1(2).Text =Round(Val(Text1(2).Text)*(1 +0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/ 600)八 4), 3)Te

52、xt1(3).Text =Round(Val(Text1(3).Text)*(1 +0.15*(Val(Text3(12).Text) + Val(Text3(13).Text)/ 600)八 4), 3)Text1(4).Text =Round(Val(Text1(4).Text)*(1 +0.15*(Val(Text3(20).Text) + Val(Text3(21).Text)/ 600)八 4), 3)Text1(5).Text =Round(Val(Text1(5).Text)*(1 +0.15*(Val(Text3(22).Text) + Val(Text3(23).Text)/

53、 600)八 4), 3)Text2(0).Text =Round(Val(Text2(0).Text)*(1 +0.15*(Val(Text3(4).Text)+ Val(Text3(5).Text) /600)八4), 3)Text2(1).Text =Round(Val(Text2(1).Text)*(1 +0.15* TOC o 1-5 h z (Val(Tex t3(14).Tex t) + Val(Tex t3(15).Tex t) / 600)八 4), 3) Text2(2).Text = Round(Val(Text2(2).Text)*(1+0.15*(Val(Tex t3

54、(6).Tex t) + Val(Tex t3(7).Tex t) /600)八4),3)Text2(3).Text = Round(Val(Text2(3).Text)*(1+0.15*(Val(Tex t3(16).Tex t) + Val(Tex t3(17).Tex t) / 600)八 4), 3)Text2(4).Text = Round(Val(Text2(4).Text)*(1+0.15*(Val(Tex t3(8).Tex t) + Val(Tex t3(9).Tex t) /600)八4),3)Text2(5).Text = Round(Val(Text2(5).Text)

55、*(1+0.15*(Val(Tex t3(18).Tex t) + Val(Tex t3(19).Tex t) / 600)八 4), 3)Command2.Caption =根據分配B一D后的阻抗求分配C一A后交通量 Commandl.Caption =分配 B一D 后的阻抗ElseIf j = 8 ThenTextl(0).Text = Round(Val(Textl(0).Text)*(l+0.l5*(Val(Text3(0).Text) + Val(Text3(l).Text) /600)八4)3)Textl(l).Text= Round(Val(Textl(l).Text)*(l+0

56、.l5*(Val(Text3(2).Text) + Val(Text3(3).Text) /600)八4)3)Textl(2).Text = Round(Val(Textl(2).Text)*(l+0.l5*(Val(Text3(l0).Text) + Val(Text3(ll).Text)/ 600)4)3)Textl(3).Text = Round(Val(Textl(3).Text)*(l+0.l5*(Val(Text3(l2).Text) + Val(Text3(l3).Text)/ 600)4)3)Textl(4).Text = Round(Val(Textl(4).Text)*(l

57、+0.l5*(Val(Text3(20).Text) + Val(Text3(2l).Text)/ 600)4)3)Textl(5).Text = Round(Val(Textl(5).Text)*(l+0.l5*(Val(Text3(22).Text) + Val(Text3(23).Text)/ 600)4)3)Text2(0).Text = Round(Val(Text2(0).Text)*(l+0.l5*(Val(Text3(4).Text) + Val(Text3(5).Text) /600)八4)3)Text2(l).Text = Round(Val(Text2(l).Text)*

58、(l+0.l5*(Val(Text3(l4).Text) + Val(Text3(l5).Text)/ 600)4)3)Text2(2).Text = Round(Val(Text2(2).Text)*(l+0.l5*(Val(Text3(6).Text) + Val(Text3(7).Text) /600)八4)3)Text2(3).Text = Round(Val(Text2(3).Text)*(l+0.l5*(Val(Text3(l6).Text) + Val(Text3(l7).Text)/ 600)4)3)Text2(4).Text = Round(Val(Text2(4).Text

59、)*(l+0.l5*(Val(Text3(8).Text) + Val(Text3(9).Text) /600)八4)3)Text2(5).Text = Round(Val(Text2(5).Text)*(l+0.l5*(Val(Text3(l8).Text) + Val(Text3(l9).Text)/ 600)4)3)Command2.Caption =根據分配C一A后的阻抗求分配C一B后交通量Commandl.Cap tion =分配 C一A 后的阻抗ElseIf j = 9 ThenTextl(0).Text = Round(Val(Textl(0).Text) * (l +0.l5*

60、(Val(Text3(0).Text) + Val(Text3(1).Text) /600)八4)3)Text1(1).Text = Round(Val(Text1(1).Text)*(1+0.15*(Val(Text3(2).Text) + Val(Text3(3).Text) /600)八4)3)Text1(2).Text = Round(Val(Text1(2).Text)*(1+0.15*(Val(Text3(10).Text) + Val(Text3(11).Text)/ 600)4)3)Text1(3).Text = Round(Val(Text1(3).Text)*(1+0.15