沥青混合料配合比设计VB6.0程序代码.doc

form1: Private Sub Command1_Click() Form2.Show End Sub Private Sub Command3_Click() Unload Me End Sub form2: Public I, J As Integer Public K As String Private Sub Command1_Click() I = Text1 If I 2 And I 8 Then If J 6 Then Form4.Show End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() I = Text1 Form5.Show End Sub Private Sub Form_Load() I = 0 J = 0 Text1 = End Sub Private Sub Option1_Click() J = 13 K = AC-30I Text1.SetFocus End Sub Private Sub Option2_Click() J = 13 K = AC-30II Text1.SetFocus End Sub Private Sub Option3_Click() J = 12 K = AC-25I Text1.SetFocus End Sub Private Sub Option4_Click() J = 12 K = AC-25II Text1.SetFocus End Sub Private Sub Option5_Click() J = 11 K = AC-20I Text1.SetFocus End Sub Private Sub Option6_Click() J = 11 K = AC-20II Text1.SetFocus End Sub Private Sub Option7_Click() J = 10 K = AC-16I Text1.SetFocus End Sub Private Sub Option8_Click() J = 10 K = AC-16II Text1.SetFocus End Sub Private Sub Option9_Click() J = 9 K = AC-13I Text1.SetFocus End Sub Private Sub Option10_Click() J = 9 K = AC-13II Text1.SetFocus End Sub Private Sub Option11_Click() J = 8 K = AC-10I Text1.SetFocus End Sub Private Sub Option12_Click() J = 8 K = AC-10II Text1.SetFocus End Sub Private Sub Option13_Click() J = 7 K = AC-5I Text1.SetFocus End Sub Private Sub Option14_Click() J = 10 K = AK-16 Text1.SetFocus End Sub Private Sub Option15_Click() J = 9 K = AK-13A Text1.SetFocus End Sub Private Sub Option16_Click() J = 9 K = AK-13B Text1.SetFocus End Sub form3 Private Sub Command1_Click() Dim jg00, jg11, jg22, jg33, jg44, jg55, jg66, jg77, jg88, jg99, jg100, jg110, jg120 As Integer Dim II, JJ As Integer Dim KK As String Dim Shangxian() As Single Dim Xiaxian() As Single Dim Zhongzhi() As Single Dim jgg() As Single II = Form2.I JJ = Form2.J KK = Form2.K Text1 = KK If KK = AC-30I Then 上下限与中值 ReDim Shangxian(12) As Single ReDim Xiaxian(12) As Single ReDim Zhongzhi(12) As Single Shangxian(0) = 7: Shangxian(1) = 13: Shangxian(2