沥青混合料配合比设计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) '将合成级配由数组表示转化为非数组表示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() '数据保存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() '数据恢复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