瀝青混合料配合比設計VB6.0程序代碼課件

1、form1:Private Sub Command1_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()Unload MeEnd Subform2:Public I, J As IntegerPublic K As StringPrivate Sub Command1_Click()I = Text1If I > 2 And I < 8 ThenIf J > 6 ThenForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPriv

2、ate Sub Command3_Click()I = Text1Form5.ShowEnd SubPrivate Sub Form_Load()I = 0J = 0Text1 = ""End SubPrivate Sub Option1_Click()J = 13K = "AC-30I"Text1.SetFocusEnd SubPrivate Sub Option2_Click()J = 13K = "AC-30II"Text1.SetFocusEnd SubPrivate Sub Option3_Click()J = 12K =

3、"AC-25I"Text1.SetFocusEnd SubPrivate Sub Option4_Click()J = 12K = "AC-25II"Text1.SetFocusEnd SubPrivate Sub Option5_Click()J = 11K = "AC-20I"Text1.SetFocusEnd SubPrivate Sub Option6_Click()J = 11K = "AC-20II"Text1.SetFocusEnd SubPrivate Sub Option7_Click()J =

4、10K = "AC-16I"Text1.SetFocusEnd SubPrivate Sub Option8_Click()J = 10K = "AC-16II"Text1.SetFocusEnd SubPrivate Sub Option9_Click()J = 9K = "AC-13I"Text1.SetFocusEnd SubPrivate Sub Option10_Click()J = 9K = "AC-13II"Text1.SetFocusEnd SubPrivate Sub Option11_Click

5、()J = 8K = "AC-10I"Text1.SetFocusEnd SubPrivate Sub Option12_Click()J = 8K = "AC-10II"Text1.SetFocusEnd SubPrivate Sub Option13_Click()J = 7K = "AC-5I"Text1.SetFocusEnd SubPrivate Sub Option14_Click()J = 10K = "AK-16"Text1.SetFocusEnd SubPrivate Sub Option15_C

6、lick()J = 9K = "AK-13A"Text1.SetFocusEnd SubPrivate Sub Option16_Click()J = 9K = "AK-13B"Text1.SetFocusEnd Subform3Private Sub Command1_Click()Dim jg00, jg11, jg22, jg33, jg44, jg55, jg66, jg77, jg88, jg99, jg100, jg110, jg120 As IntegerDim II, JJ As IntegerDim KK As StringDim Sh

7、angxian() As SingleDim Xiaxian() As SingleDim Zhongzhi() As SingleDim jgg() As SingleII = Form2.IJJ = Form2.JKK = Form2.KText1 = KKIf KK = "AC-30I" Then '上下限與中值ReDim Shangxian(12) As SingleReDim Xiaxian(12) As SingleReDim Zhongzhi(12) As SingleShangxian(0) = 7: Shangxian(1) = 13: Shang

8、xian(2) = 18: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 72: Shangxian(9) = 77: Shangxian(10) = 82: Shangxian(11) = 92Shangxian(12) = 100Xiaxian(0) = 3: Xiaxian(1) = 5: Xiaxian(2) = 8: Xiaxian(3) = 13: Xiaxian(4) = 18: Xiaxian(5) = 25:

9、 Xiaxian(6) = 32Xiaxian(7) = 43: Xiaxian(8) = 52: Xiaxian(9) = 59: Xiaxian(10) = 66: Xiaxian(11) = 79: Xiaxian(12) = 90Zhongzhi(0) = 5: Zhongzhi(1) = 9: Zhongzhi(2) = 13: Zhongzhi(3) = 19: Zhongzhi(4) = 25: Zhongzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 62: Zhongzhi(9) = 68: Zho

10、ngzhi(10) = 74: Zhongzhi(11) = 85.5Zhongzhi(12) = 95End IfIf KK = "AC-30II" ThenReDim Shangxian(12) As SingleReDim Xiaxian(12) As SingleReDim Zhongzhi(12) As SingleShangxian(0) = 5: Shangxian(1) = 7: Shangxian(2) = 11: Shangxian(3) = 14: Shangxian(4) = 20: Shangxian(5) = 28Shangxian(6) = 3

11、8: Shangxian(7) = 50: Shangxian(8) = 58: Shangxian(9) = 65: Shangxian(10) = 70: Shangxian(11) = 85Shangxian(12) = 100Xiaxian(0) = 1: Xiaxian(1) = 2: Xiaxian(2) = 3: Xiaxian(3) = 4: Xiaxian(4) = 8: Xiaxian(5) = 12: Xiaxian(6) = 18Xiaxian(7) = 30: Xiaxian(8) = 38: Xiaxian(9) = 45: Xiaxian(10) = 52: Xi

12、axian(11) = 65: Xiaxian(12) = 90Zhongzhi(0) = 3: Zhongzhi(1) = 4.5: Zhongzhi(2) = 7: Zhongzhi(3) = 9: Zhongzhi(4) = 12: Zhongzhi(5) = 20Zhongzhi(6) = 28: Zhongzhi(7) = 40: Zhongzhi(8) = 48: Zhongzhi(9) = 55: Zhongzhi(10) = 61: Zhongzhi(11) = 75Zhongzhi(12) = 95End IfIf KK = "AC-25I" ThenRe

13、Dim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 7: Shangxian(1) = 13: Shangxian(2) = 18: Shangxian(3) = 25: Shangxian(4) = 32: Shangxian(5) = 42Shangxian(6) = 52: Shangxian(7) = 63: Shangxian(8) = 73: Shangxian(9) = 80: Shangxian(10) = 90: Shangxian(1

14、1) = 100Xiaxian(0) = 3: Xiaxian(1) = 5: Xiaxian(2) = 8: Xiaxian(3) = 13: Xiaxian(4) = 18: Xiaxian(5) = 25Xiaxian(6) = 32: Xiaxian(7) = 43: Xiaxian(8) = 53: Xiaxian(9) = 62: Xiaxian(10) = 75: Xiaxian(11) = 95Zhongzhi(0) = 5: Zhongzhi(1) = 8.5: Zhongzhi(2) = 13: Zhongzhi(3) = 19: Zhongzhi(4) = 25: Zho

15、ngzhi(5) = 33.5Zhongzhi(6) = 42: Zhongzhi(7) = 53: Zhongzhi(8) = 63: Zhongzhi(9) = 71: Zhongzhi(10) = 82.5: Zhongzhi(11) = 97.5End IfIf KK = "AC-25II" ThenReDim Shangxian(11) As SingleReDim Xiaxian(11) As SingleReDim Zhongzhi(11) As SingleShangxian(0) = 5: Shangxian(1) = 8: Shangxian(2) =

16、12: Shangxian(3) = 16: Shangxian(4) = 23: Shangxian(5) = 30Shangxian(6) = 40: Shangxian(7) = 52: Shangxian(8) = 62: Shangxian(9) = 70: Shangxian(10) = 85: Shangxian(11) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 6: Xiaxian(4) = 9: Xiaxian(5) = 13Xiaxian(6) = 20: Xiaxian(7) = 3

17、2: Xiaxian(8) = 42: Xiaxian(9) = 52: Xiaxian(10) = 65: Xiaxian(11) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 5.5: Zhongzhi(2) = 8: Zhongzhi(3) = 11: Zhongzhi(4) = 16: Zhongzhi(5) = 21.5Zhongzhi(6) = 30: Zhongzhi(7) = 42: Zhongzhi(8) = 52: Zhongzhi(9) = 61: Zhongzhi(10) = 75: Zhongzhi(11) = 95End IfIf KK

18、= "AC-20I" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 8: Shangxian(1) = 14: Shangxian(2) = 20: Shangxian(3) = 27: Shangxian(4) = 34: Shangxian(5) = 46Shangxian(6) = 58: Shangxian(7) = 72: Shangxian(8) = 80: Shangxian(9) = 90: Shan

19、gxian(10) = 100Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xiaxian(3) = 15: Xiaxian(4) = 20: Xiaxian(5) = 28Xiaxian(6) = 38: Xiaxian(7) = 52: Xiaxian(8) = 62: Xiaxian(9) = 75: Xiaxian(10) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 10: Zhongzhi(2) = 15: Zhongzhi(3) = 21: Zhongzhi(4) = 27: Zhongzhi(5) =

20、37Zhongzhi(6) = 48: Zhongzhi(7) = 62: Zhongzhi(8) = 71: Zhongzhi(9) = 82.5: Zhongzhi(10) = 97.5End IfIf KK = "AC-20II" ThenReDim Shangxian(10) As SingleReDim Xiaxian(10) As SingleReDim Zhongzhi(10) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 13: Shangxian(3) = 18: Shangxian

21、(4) = 25: Shangxian(5) = 33Shangxian(6) = 45: Shangxian(7) = 60: Shangxian(8) = 70: Shangxian(9) = 85: Shangxian(10) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 4: Xiaxian(3) = 7: Xiaxian(4) = 11: Xiaxian(5) = 16Xiaxian(6) = 26: Xiaxian(7) = 40: Xiaxian(8) = 52: Xiaxian(9) = 65: Xiaxian(10) =

22、90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 8.5: Zhongzhi(3) = 12.5: Zhongzhi(4) = 18: Zhongzhi(5) = 24.5Zhongzhi(6) = 35.5: Zhongzhi(7) = 50: Zhongzhi(8) = 61: Zhongzhi(9) = 75: Zhongzhi(10) = 95End IfIf KK = "AC-16I" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim

23、 Zhongzhi(9) As SingleShangxian(0) = 8: Shangxian(1) = 15: Shangxian(2) = 21: Shangxian(3) = 28: Shangxian(4) = 37Shangxian(5) = 50: Shangxian(6) = 63: Shangxian(7) = 78: Shangxian(8) = 90: Shangxian(9) = 100Xiaxian(0) = 4: Xiaxian(1) = 7: Xiaxian(2) = 11: Xiaxian(3) = 16: Xiaxian(4) = 22Xiaxian(5)

24、= 32: Xiaxian(6) = 42: Xiaxian(7) = 58: Xiaxian(8) = 75: Xiaxian(9) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 11: Zhongzhi(2) = 16: Zhongzhi(3) = 22: Zhongzhi(4) = 29.5Zhongzhi(5) = 41: Zhongzhi(6) = 52.5: Zhongzhi(7) = 68: Zhongzhi(8) = 82.5: Zhongzhi(9) = 97.5End IfIf KK = "AC-16II" ThenReDim S

25、hangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 5: Shangxian(1) = 9: Shangxian(2) = 14: Shangxian(3) = 19: Shangxian(4) = 26Shangxian(5) = 35: Shangxian(6) = 50: Shangxian(7) = 70: Shangxian(8) = 85: Shangxian(9) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2

26、) = 4: Xiaxian(3) = 7: Xiaxian(4) = 12Xiaxian(5) = 18: Xiaxian(6) = 30: Xiaxian(7) = 50: Xiaxian(8) = 65: Xiaxian(9) = 90Zhongzhi(0) = 3.5: Zhongzhi(1) = 6: Zhongzhi(2) = 9: Zhongzhi(3) = 13: Zhongzhi(4) = 19Zhongzhi(5) = 26.5: Zhongzhi(6) = 40: Zhongzhi(7) = 60: Zhongzhi(8) = 75: Zhongzhi(9) = 95En

27、d IfIf KK = "AC-13I" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 8: Shangxian(1) = 16: Shangxian(2) = 22: Shangxian(3) = 30: Shangxian(4) = 41Shangxian(5) = 53: Shangxian(6) = 68: Shangxian(7) = 88: Shangxian(8) = 100Xiaxian(0) = 4: X

28、iaxian(1) = 8: Xiaxian(2) = 12: Xiaxian(3) = 18: Xiaxian(4) = 24Xiaxian(5) = 36: Xiaxian(6) = 48: Xiaxian(7) = 70: Xiaxian(8) = 95Zhongzhi(0) = 6: Zhongzhi(1) = 12: Zhongzhi(2) = 17: Zhongzhi(3) = 24: Zhongzhi(4) = 32.5Zhongzhi(5) = 44.5: Zhongzhi(6) = 58: Zhongzhi(7) = 79: Zhongzhi(8) = 97.5End IfI

29、f KK = "AC-13II" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 14: Shangxian(3) = 20: Shangxian(4) = 28Shangxian(5) = 38: Shangxian(6) = 52: Shangxian(7) = 80: Shangxian(8) = 100Xiaxian(0) = 2: Xiaxi

30、an(1) = 3: Xiaxian(2) = 5: Xiaxian(3) = 8: Xiaxian(4) = 14Xiaxian(5) = 22: Xiaxian(6) = 34: Xiaxian(7) = 60: Xiaxian(8) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 6.5: Zhongzhi(2) = 9.5: Zhongzhi(3) = 14: Zhongzhi(4) = 21Zhongzhi(5) = 30: Zhongzhi(6) = 43: Zhongzhi(7) = 70: Zhongzhi(8) = 95End IfIf KK = &qu

31、ot;AC-10I" ThenReDim Shangxian(7) As SingleReDim Xiaxian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 9: Shangxian(1) = 16: Shangxian(2) = 24: Shangxian(3) = 33Shangxian(4) = 43: Shangxian(5) = 58: Shangxian(6) = 75: Shangxian(7) = 100Xiaxian(0) = 4: Xiaxian(1) = 6: Xiaxian(2) = 10: Xi

32、axian(3) = 17Xiaxian(4) = 26: Xiaxian(5) = 38: Xiaxian(6) = 55: Xiaxian(7) = 95Zhongzhi(0) = 6.5: Zhongzhi(1) = 11: Zhongzhi(2) = 17: Zhongzhi(3) = 25Zhongzhi(4) = 34.5: Zhongzhi(5) = 48: Zhongzhi(6) = 65: Zhongzhi(7) = 97.5End IfIf KK = "AC-10II" ThenReDim Shangxian(7) As SingleReDim Xiax

33、ian(7) As SingleReDim Zhongzhi(7) As SingleShangxian(0) = 6: Shangxian(1) = 10: Shangxian(2) = 15: Shangxian(3) = 22Shangxian(4) = 30: Shangxian(5) = 40: Shangxian(6) = 60: Shangxian(7) = 100Xiaxian(0) = 2: Xiaxian(1) = 4: Xiaxian(2) = 6: Xiaxian(3) = 9Xiaxian(4) = 15: Xiaxian(5) = 24: Xiaxian(6) =

34、40: Xiaxian(7) = 90Zhongzhi(0) = 4: Zhongzhi(1) = 7: Zhongzhi(2) = 10.5: Zhongzhi(3) = 15.5Zhongzhi(4) = 22.5: Zhongzhi(5) = 33: Zhongzhi(6) = 50: Zhongzhi(7) = 95End IfIf KK = "AC-5I" ThenReDim Shangxian(6) As SingleReDim Xiaxian(6) As SingleReDim Zhongzhi(6) As SingleShangxian(0) = 10: S

35、hangxian(1) = 18: Shangxian(2) = 28: Shangxian(3) = 40Shangxian(4) = 55: Shangxian(5) = 75: Shangxian(6) = 100Xiaxian(0) = 5: Xiaxian(1) = 7: Xiaxian(2) = 12: Xiaxian(3) = 20Xiaxian(4) = 35: Xiaxian(5) = 55: Xiaxian(6) = 95Zhongzhi(0) = 7.5: Zhongzhi(1) = 12.5: Zhongzhi(2) = 20: Zhongzhi(3) = 30Zhon

36、gzhi(4) = 45: Zhongzhi(5) = 65: Zhongzhi(6) = 97.5End IfIf KK = "AK-16" ThenReDim Shangxian(9) As SingleReDim Xiaxian(9) As SingleReDim Zhongzhi(9) As SingleShangxian(0) = 7: Shangxian(1) = 10: Shangxian(2) = 13: Shangxian(3) = 18: Shangxian(4) = 25Shangxian(5) = 35: Shangxian(6) = 45: Sha

37、ngxian(7) = 70: Shangxian(8) = 82: Shangxian(9) = 100Xiaxian(0) = 3: Xiaxian(1) = 4: Xiaxian(2) = 6: Xiaxian(3) = 8: Xiaxian(4) = 10Xiaxian(5) = 15: Xiaxian(6) = 25: Xiaxian(7) = 45: Xiaxian(8) = 60: Xiaxian(9) = 90Zhongzhi(0) = 5: Zhongzhi(1) = 7: Zhongzhi(2) = 9.5: Zhongzhi(3) = 13: Zhongzhi(4) =

38、17.5Zhongzhi(5) = 25: Zhongzhi(6) = 35: Zhongzhi(7) = 57.5: Zhongzhi(8) = 72: Zhongzhi(9) = 95End IfIf KK = "AK-13A" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 8: Shangxian(1) = 12: Shangxian(2) = 18: Shangxian(3) = 23: Shangxian(4)

39、= 30Shangxian(5) = 40: Shangxian(6) = 53: Shangxian(7) = 80: Shangxian(8) = 100Xiaxian(0) = 4: Xiaxian(1) = 5: Xiaxian(2) = 7: Xiaxian(3) = 10: Xiaxian(4) = 15Xiaxian(5) = 20: Xiaxian(6) = 30: Xiaxian(7) = 60: Xiaxian(8) = 90Zhongzhi(0) = 6: Zhongzhi(1) = 8.5: Zhongzhi(2) = 12.5: Zhongzhi(3) = 16.5:

40、 Zhongzhi(4) = 22.5Zhongzhi(5) = 30: Zhongzhi(6) = 41.5: Zhongzhi(7) = 70: Zhongzhi(8) = 95End IfIf KK = "AK-13B" ThenReDim Shangxian(8) As SingleReDim Xiaxian(8) As SingleReDim Zhongzhi(8) As SingleShangxian(0) = 6: Shangxian(1) = 9: Shangxian(2) = 12: Shangxian(3) = 15: Shangxian(4) = 22

41、Shangxian(5) = 30: Shangxian(6) = 40: Shangxian(7) = 70: Shangxian(8) = 100Xiaxian(0) = 2: Xiaxian(1) = 3: Xiaxian(2) = 3: Xiaxian(3) = 5: Xiaxian(4) = 8Xiaxian(5) = 10: Xiaxian(6) = 18: Xiaxian(7) = 50: Xiaxian(8) = 85Zhongzhi(0) = 4: Zhongzhi(1) = 6: Zhongzhi(2) = 7.5: Zhongzhi(3) = 10: Zhongzhi(4

42、) = 15Zhongzhi(5) = 20: Zhongzhi(6) = 29: Zhongzhi(7) = 60: Zhongzhi(8) = 92.5End Ifjg00 = Form4.jg0: jg11 = Form4.jg1jg22 = Form4.jg2: jg33 = Form4.jg3jg44 = Form4.jg4: jg55 = Form4.jg5jg66 = Form4.jg6If JJ > 7 Then jg77 = Form4.jg7If JJ > 8 Then jg88 = Form4.jg8If JJ > 9 Then jg99 = Form4

43、.jg9If JJ > 10 Then jg100 = Form4.jg10If JJ > 11 Then jg110 = Form4.jg11If JJ = 13 Then jg120 = Form4.jg12ReDim jgg(JJ - 1) As Singlejgg(0) = jg00: jgg(1) = jg11jgg(2) = jg22: jgg(3) = jg33jgg(4) = jg44: jgg(5) = jg55jgg(6) = jg66If JJ > 7 Then jgg(7) = jg77If JJ > 8 Then jgg(8) = jg88If

44、 JJ > 9 Then jgg(9) = jg99If JJ > 10 Then jgg(10) = jg100If JJ > 11 Then jgg(11) = jg110If JJ = 13 Then jgg(12) = jg120Picture1.Scale (0, 100)-(13, 0) '定義坐標For x = 0 To 100 Step 10 '畫橫線Picture1.Line (0, x)-(13, x)NextFor x = 0 To 13 Step 1 '畫豎線Picture1.Line (x, 0)-(x, 100)NextFo

45、r x = 1 To JJ - 1 Step 1 '畫上限Picture1.Line (x - 1, Shangxian(x - 1)-(x, Shangxian(x)NextFor x = 1 To JJ - 1 Step 1 '畫下限Picture1.Line (x - 1, Xiaxian(x - 1)-(x, Xiaxian(x)NextFor x = 1 To JJ - 1 Step 1 '畫中值Picture1.Line (x - 1, Zhongzhi(x - 1)-(x, Zhongzhi(x)NextFor x = 1 To JJ - 1 Step 1

46、 '畫合成級配Picture1.Line (x - 1, jgg(x - 1)-(x, jgg(x)NextEnd SubPrivate Sub Command2_Click()Unload MeEnd Subform4:Public III, JJJ As IntegerPublic KKK As StringPublic jg0, jg1, jg2, jg3, jg4, jg5, jg6, jg7, jg8, jg9, jg10, jg11, jg12 As IntegerDim Shangxian() As SingleDim Xiaxian() As SingleDim Zho

47、ngzhi() As SingleDim LM() As String 'LM料名Dim SG0() As Single 'SG篩分結果Dim SG1() As SingleDim SG2() As SingleDim SG3() As SingleDim SG4() As SingleDim SG5() As SingleDim SG6() As SingleDim jg() As Single 'JG計算結果Dim BL() As Single 'BI比例Dim wenjianming As StringDim filenumber As IntegerPr

48、ivate Sub Command3_Click()For y = 0 To JJJ Step 1 '級配計算If III = 2 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y)End IfIf III = 3 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y)End IfIf III = 4 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y

49、) + BL(3) * SG3(y) + BL(4) * SG4(y)End IfIf III = 5 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y) + BL(4) * SG4(y) + BL(5) * SG5(y)End IfIf III = 6 Thenjg(y) = BL(0) * SG0(y) + BL(1) * SG1(y) + BL(2) * SG2(y) + BL(3) * SG3(y) + BL(4) * SG4(y) + BL(5) * SG5(y) + BL(6)

50、* SG6(y)End Ifjg(y) = Int(jg(y) * 10 + 0.5) / 10Text11(y) = jg(y)Nextjg0 = jg(0): jg1 = jg(1) '將合成級配由數(shù)組表示轉(zhuǎn)化為非數(shù)組表示jg2 = jg(2): jg3 = jg(3)jg4 = jg(4): jg5 = jg(5)jg6 = jg(6)If JJJ > 6 Then jg7 = jg(7)If JJJ > 7 Then jg8 = jg(8)If JJJ > 8 Then jg9 = jg(9)If JJJ > 9 Then jg10 = jg(10)If

51、 JJJ > 10 Then jg11 = jg(11)If JJJ = 12 Then jg12 = jg(12)End SubPrivate Sub Command4_Click() '顯示級配圖Form3.ShowEnd SubPrivate Sub Command5_Click() '退出Unload MeEnd SubPrivate Sub Command7_Click() '數(shù)據(jù)保存Open wenjianming For Output As #filenumberFor x = 0 To III Step 1If x = 0 ThenWrite #f

52、ilenumber, LM(0)Write #filenumber, BL(0)For y = 0 To JJJ Step 1SG0(y) = Text3(y)Write #filenumber, SG0(y)NextEnd IfIf x = 1 ThenWrite #filenumber, LM(1)Write #filenumber, BL(1)For y = 0 To JJJ Step 1SG1(y) = Text5(y)Write #filenumber, SG1(y)NextEnd IfIf x = 2 ThenWrite #filenumber, LM(2)Write #filen

53、umber, BL(2)For y = 0 To JJJ Step 1SG2(y) = Text6(y)Write #filenumber, SG2(y)NextEnd IfIf x = 3 ThenWrite #filenumber, LM(3)Write #filenumber, BL(3)For y = 0 To JJJ Step 1SG3(y) = Text7(y)Write #filenumber, SG3(y)NextEnd IfIf x = 4 ThenWrite #filenumber, LM(4)Write #filenumber, BL(4)For y = 0 To JJJ

54、 Step 1SG4(y) = Text8(y)Write #filenumber, SG4(y)NextEnd IfIf x = 5 ThenWrite #filenumber, LM(5)Write #filenumber, BL(5)For y = 0 To JJJ Step 1SG5(y) = Text9(y)Write #filenumber, SG5(y)NextEnd IfIf x = 6 ThenWrite #filenumber, LM(6)Write #filenumber, BL(6)For y = 0 To JJJ Step 1SG6(y) = Text10(y)Wri

55、te #filenumber, SG6(y)NextEnd IfNextClose #filenumberEnd SubPrivate Sub Command8_Click() '數(shù)據(jù)恢復Open wenjianming For Input As #filenumberFor x = 0 To III Step 1If x = 0 ThenInput #filenumber, LM(0)Text1(0) = LM(0)Input #filenumber, BL(0)Text2(0) = BL(0)For y = 0 To JJJ Step 1Input #filenumber, SG0

56、(y)Text3(y) = SG0(y)NextEnd IfIf x = 1 ThenInput #filenumber, LM(1)Text1(1) = LM(1)Input #filenumber, BL(1)Text2(1) = BL(1)For y = 0 To JJJ Step 1Input #filenumber, SG1(y)Text5(y) = SG1(y)NextEnd IfIf x = 2 ThenInput #filenumber, LM(2)Text1(2) = LM(2)Input #filenumber, BL(2)Text2(2) = BL(2)For y = 0

57、 To JJJ Step 1Input #filenumber, SG2(y)Text6(y) = SG2(y)NextEnd IfIf x = 3 ThenInput #filenumber, LM(3)Text1(3) = LM(3)Input #filenumber, BL(3)Text2(3) = BL(3)For y = 0 To JJJ Step 1Input #filenumber, SG3(y)Text7(y) = SG3(y)NextEnd IfIf x = 4 ThenInput #filenumber, LM(4)Text1(4) = LM(4)Input #filenumber, BL(4)Text2(4) = BL(4)For y = 0 To JJJ Step 1Input #filenumber, SG4(y)Text8(y) = SG4(y)NextEnd IfIf x = 5 ThenInput #filenumber, LM(5)Text1(5) = LM(5)Input #filenumb