沥青混合料配合比设计VB60程序代码.docx
- 文档编号:11541714
- 上传时间:2023-03-19
- 格式:DOCX
- 页数:37
- 大小:21.17KB
沥青混合料配合比设计VB60程序代码.docx
《沥青混合料配合比设计VB60程序代码.docx》由会员分享,可在线阅读,更多相关《沥青混合料配合比设计VB60程序代码.docx(37页珍藏版)》请在冰豆网上搜索。
沥青混合料配合比设计VB60程序代码
form1:
PrivateSubCommand1_Click()
Form2.Show
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSub
form2:
PublicI,JAsInteger
PublicKAsString
PrivateSubCommand1_Click()
I=Text1
IfI>2AndI<8Then
IfJ>6Then
Form4.Show
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
I=Text1
Form5.Show
EndSub
PrivateSubForm_Load()
I=0
J=0
Text1=""
EndSub
PrivateSubOption1_Click()
J=13
K="AC-30I"
Text1.SetFocus
EndSub
PrivateSubOption2_Click()
J=13
K="AC-30II"
Text1.SetFocus
EndSub
PrivateSubOption3_Click()
J=12
K="AC-25I"
Text1.SetFocus
EndSub
PrivateSubOption4_Click()
J=12
K="AC-25II"
Text1.SetFocus
EndSub
PrivateSubOption5_Click()
J=11
K="AC-20I"
Text1.SetFocus
EndSub
PrivateSubOption6_Click()
J=11
K="AC-20II"
Text1.SetFocus
EndSub
PrivateSubOption7_Click()
J=10
K="AC-16I"
Text1.SetFocus
EndSub
PrivateSubOption8_Click()
J=10
K="AC-16II"
Text1.SetFocus
EndSub
PrivateSubOption9_Click()
J=9
K="AC-13I"
Text1.SetFocus
EndSub
PrivateSubOption10_Click()
J=9
K="AC-13II"
Text1.SetFocus
EndSub
PrivateSubOption11_Click()
J=8
K="AC-10I"
Text1.SetFocus
EndSub
PrivateSubOption12_Click()
J=8
K="AC-10II"
Text1.SetFocus
EndSub
PrivateSubOption13_Click()
J=7
K="AC-5I"
Text1.SetFocus
EndSub
PrivateSubOption14_Click()
J=10
K="AK-16"
Text1.SetFocus
EndSub
PrivateSubOption15_Click()
J=9
K="AK-13A"
Text1.SetFocus
EndSub
PrivateSubOption16_Click()
J=9
K="AK-13B"
Text1.SetFocus
EndSub
form3
PrivateSubCommand1_Click()
Dimjg00,jg11,jg22,jg33,jg44,jg55,jg66,jg77,jg88,jg99,jg100,jg110,jg120AsInteger
DimII,JJAsInteger
DimKKAsString
DimShangxian()AsSingle
DimXiaxian()AsSingle
DimZhongzhi()AsSingle
Dimjgg()AsSingle
II=Form2.I
JJ=Form2.J
KK=Form2.K
Text1=KK
IfKK="AC-30I"Then'上下限与中值
ReDimShangxian(12)AsSingle
ReDimXiaxian(12)AsSingle
ReDimZhongzhi(12)AsSingle
Shangxian(0)=7:
Shangxian
(1)=13:
Shangxian
(2)=18:
Shangxian(3)=25:
Shangxian(4)=32:
Shangxian(5)=42
Shangxian(6)=52:
Shangxian(7)=63:
Shangxian(8)=72:
Shangxian(9)=77:
Shangxian(10)=82:
Shangxian(11)=92
Shangxian(12)=100
Xiaxian(0)=3:
Xiaxian
(1)=5:
Xiaxian
(2)=8:
Xiaxian(3)=13:
Xiaxian(4)=18:
Xiaxian(5)=25:
Xiaxian(6)=32
Xiaxian(7)=43:
Xiaxian(8)=52:
Xiaxian(9)=59:
Xiaxian(10)=66:
Xiaxian(11)=79:
Xiaxian(12)=90
Zhongzhi(0)=5:
Zhongzhi
(1)=9:
Zhongzhi
(2)=13:
Zhongzhi(3)=19:
Zhongzhi(4)=25:
Zhongzhi(5)=33.5
Zhongzhi(6)=42:
Zhongzhi(7)=53:
Zhongzhi(8)=62:
Zhongzhi(9)=68:
Zhongzhi(10)=74:
Zhongzhi(11)=85.5
Zhongzhi(12)=95
EndIf
IfKK="AC-30II"Then
ReDimShangxian(12)AsSingle
ReDimXiaxian(12)AsSingle
ReDimZhongzhi(12)AsSingle
Shangxian(0)=5:
Shangxian
(1)=7:
Shangxian
(2)=11:
Shangxian(3)=14:
Shangxian(4)=20:
Shangxian(5)=28
Shangxian(6)=38:
Shangxian(7)=50:
Shangxian(8)=58:
Shangxian(9)=65:
Shangxian(10)=70:
Shangxian(11)=85
Shangxian(12)=100
Xiaxian(0)=1:
Xiaxian
(1)=2:
Xiaxian
(2)=3:
Xiaxian(3)=4:
Xiaxian(4)=8:
Xiaxian(5)=12:
Xiaxian(6)=18
Xiaxian(7)=30:
Xiaxian(8)=38:
Xiaxian(9)=45:
Xiaxian(10)=52:
Xiaxian(11)=65:
Xiaxian(12)=90
Zhongzhi(0)=3:
Zhongzhi
(1)=4.5:
Zhongzhi
(2)=7:
Zhongzhi(3)=9:
Zhongzhi(4)=12:
Zhongzhi(5)=20
Zhongzhi(6)=28:
Zhongzhi(7)=40:
Zhongzhi(8)=48:
Zhongzhi(9)=55:
Zhongzhi(10)=61:
Zhongzhi(11)=75
Zhongzhi(12)=95
EndIf
IfKK="AC-25I"Then
ReDimShangxian(11)AsSingle
ReDimXiaxian(11)AsSingle
ReDimZhongzhi(11)AsSingle
Shangxian(0)=7:
Shangxian
(1)=13:
Shangxian
(2)=18:
Shangxian(3)=25:
Shangxian(4)=32:
Shangxian(5)=42
Shangxian(6)=52:
Shangxian(7)=63:
Shangxian(8)=73:
Shangxian(9)=80:
Shangxian(10)=90:
Shangxian(11)=100
Xiaxian(0)=3:
Xiaxian
(1)=5:
Xiaxian
(2)=8:
Xiaxian(3)=13:
Xiaxian(4)=18:
Xiaxian(5)=25
Xiaxian(6)=32:
Xiaxian(7)=43:
Xiaxian(8)=53:
Xiaxian(9)=62:
Xiaxian(10)=75:
Xiaxian(11)=95
Zhongzhi(0)=5:
Zhongzhi
(1)=8.5:
Zhongzhi
(2)=13:
Zhongzhi(3)=19:
Zhongzhi(4)=25:
Zhongzhi(5)=33.5
Zhongzhi(6)=42:
Zhongzhi(7)=53:
Zhongzhi(8)=63:
Zhongzhi(9)=71:
Zhongzhi(10)=82.5:
Zhongzhi(11)=97.5
EndIf
IfKK="AC-25II"Then
ReDimShangxian(11)AsSingle
ReDimXiaxian(11)AsSingle
ReDimZhongzhi(11)AsSingle
Shangxian(0)=5:
Shangxian
(1)=8:
Shangxian
(2)=12:
Shangxian(3)=16:
Shangxian(4)=23:
Shangxian(5)=30
Shangxian(6)=40:
Shangxian(7)=52:
Shangxian(8)=62:
Shangxian(9)=70:
Shangxian(10)=85:
Shangxian(11)=100
Xiaxian(0)=2:
Xiaxian
(1)=3:
Xiaxian
(2)=4:
Xiaxian(3)=6:
Xiaxian(4)=9:
Xiaxian(5)=13
Xiaxian(6)=20:
Xiaxian(7)=32:
Xiaxian(8)=42:
Xiaxian(9)=52:
Xiaxian(10)=65:
Xiaxian(11)=90
Zhongzhi(0)=3.5:
Zhongzhi
(1)=5.5:
Zhongzhi
(2)=8:
Zhongzhi(3)=11:
Zhongzhi(4)=16:
Zhongzhi(5)=21.5
Zhongzhi(6)=30:
Zhongzhi(7)=42:
Zhongzhi(8)=52:
Zhongzhi(9)=61:
Zhongzhi(10)=75:
Zhongzhi(11)=95
EndIf
IfKK="AC-20I"Then
ReDimShangxian(10)AsSingle
ReDimXiaxian(10)AsSingle
ReDimZhongzhi(10)AsSingle
Shangxian(0)=8:
Shangxian
(1)=14:
Shangxian
(2)=20:
Shangxian(3)=27:
Shangxian(4)=34:
Shangxian(5)=46
Shangxian(6)=58:
Shangxian(7)=72:
Shangxian(8)=80:
Shangxian(9)=90:
Shangxian(10)=100
Xiaxian(0)=4:
Xiaxian
(1)=6:
Xiaxian
(2)=10:
Xiaxian(3)=15:
Xiaxian(4)=20:
Xiaxian(5)=28
Xiaxian(6)=38:
Xiaxian(7)=52:
Xiaxian(8)=62:
Xiaxian(9)=75:
Xiaxian(10)=95
Zhongzhi(0)=6:
Zhongzhi
(1)=10:
Zhongzhi
(2)=15:
Zhongzhi(3)=21:
Zhongzhi(4)=27:
Zhongzhi(5)=37
Zhongzhi(6)=48:
Zhongzhi(7)=62:
Zhongzhi(8)=71:
Zhongzhi(9)=82.5:
Zhongzhi(10)=97.5
EndIf
IfKK="AC-20II"Then
ReDimShangxian(10)AsSingle
ReDimXiaxian(10)AsSingle
ReDimZhongzhi(10)AsSingle
Shangxian(0)=5:
Shangxian
(1)=9:
Shangxian
(2)=13:
Shangxian(3)=18:
Shangxian(4)=25:
Shangxian(5)=33
Shangxian(6)=45:
Shangxian(7)=60:
Shangxian(8)=70:
Shangxian(9)=85:
Shangxian(10)=100
Xiaxian(0)=2:
Xiaxian
(1)=3:
Xiaxian
(2)=4:
Xiaxian(3)=7:
Xiaxian(4)=11:
Xiaxian(5)=16
Xiaxian(6)=26:
Xiaxian(7)=40:
Xiaxian(8)=52:
Xiaxian(9)=65:
Xiaxian(10)=90
Zhongzhi(0)=3.5:
Zhongzhi
(1)=6:
Zhongzhi
(2)=8.5:
Zhongzhi(3)=12.5:
Zhongzhi(4)=18:
Zhongzhi(5)=24.5
Zhongzhi(6)=35.5:
Zhongzhi(7)=50:
Zhongzhi(8)=61:
Zhongzhi(9)=75:
Zhongzhi(10)=95
EndIf
IfKK="AC-16I"Then
ReDimShangxian(9)AsSingle
ReDimXiaxian(9)AsSingle
ReDimZhongzhi(9)AsSingle
Shangxian(0)=8:
Shangxian
(1)=15:
Shangxian
(2)=21:
Shangxian(3)=28:
Shangxian(4)=37
Shangxian(5)=50:
Shangxian(6)=63:
Shangxian(7)=78:
Shangxian(8)=90:
Shangxian(9)=100
Xiaxian(0)=4:
Xiaxian
(1)=7:
Xiaxian
(2)=11:
Xiaxian(3)=16:
Xiaxian(4)=22
Xiaxian(5)=32:
Xiaxian(6)=42:
Xiaxian(7)=58:
Xiaxian(8)=75:
Xiaxian(9)=95
Zhongzhi(0)=6:
Zhongzhi
(1)=11:
Zhongzhi
(2)=16:
Zhongzhi(3)=22:
Zhongzhi(4)=29.5
Zhongzhi(5)=41:
Zhongzhi(6)=52.5:
Zhongzhi(7)=68:
Zhongzhi(8)=82.5:
Zhongzhi(9)=97.5
EndIf
IfKK="AC-16II"Then
ReDimShangxian(9)AsSingle
ReDimXiaxian(9)AsSingle
ReDimZhongzhi(9)AsSingle
Shangxian(0)=5:
Shangxian
(1)=9:
Shangxian
(2)=14:
Shangxian(3)=19:
Shangxian(4)=26
Shangxian(5)=35:
Shangxian(6)=50:
Shangxian(7)=70:
Shangxian(8)=85:
Shangxian(9)=100
Xiaxian(0)=2:
Xiaxian
(1)=3:
Xiaxian
(2)=4:
Xiaxian(3)=7:
Xiaxian(4)=12
Xiaxian(5)=18:
Xiaxian(6)=30:
Xiaxian(7)=50:
Xiaxian(8)=65:
Xiaxian(9)=90
Zhongzhi(0)=3.5:
Zhongzhi
(1)=6:
Zhongzhi
(2)=9:
Zhongzhi(3)=13:
Zhongzhi(4)=19
Zhongzhi(5)=26.5:
Zhongzhi(6)=40:
Zhongzhi(7)=60:
Zhongzhi(8)=75:
Zhongzhi(9)=95
EndIf
IfKK="AC-13I"Then
ReDimShangxian(8)AsSingle
ReDimXiaxian(8)AsSingle
ReDimZhongzhi(8)AsSingle
Shangxian(0)=8:
Shangxian
(1)=16:
Shangxian
(2)=22:
Shangxian(3)=30:
Shangxian(4)=41
Shangxian(5)=53:
Shangxian(6)=68:
Shangxian(7)=88:
Shangxian(8)=100
Xiaxian(0)=4:
Xiaxian
(1)=8:
Xiaxian
(2)=12:
Xiaxian(3)=18:
Xiaxian(4)=24
Xiaxian(5)=36:
Xiaxian(6)=48:
Xiaxian(7)=70:
Xiaxian(8)=95
Zhongzhi(0)=6:
Zhongzhi
(1)=12:
Zhongzhi
(2)=17:
Zhongzhi(3)=24:
Zhongzhi(4)=32.5
Zhongzhi(5)=44.5:
Zhongzhi(6)=58:
Zhongzhi(7)=79:
Zhongzhi(8)=97.5
EndIf
IfKK="AC-13II"Then
ReDimShangxian(8)AsSingle
ReDimXiaxian(8)AsSingle
ReDimZhongzhi(8)AsSingle
Shangxian(0)=6:
Shangxian
(1)=10:
Shangxian
(2)=14:
Shangxian(3)=20:
Shangxian(4)=28
Shangxian(5)=38:
Shangxian(6)=52:
Shangxian(7)=80:
Shangxian(8)=100
Xiaxian(0)=2:
Xiaxian
(1)=3:
Xiaxian
(2)=5:
Xiaxian(3)=8:
Xiaxian(4)=14
Xiaxian(5)=22:
Xiaxian(6)=34:
Xiaxian(7)=60:
Xiaxian(8)=90
Zhongzhi(0)=4:
Zhongzhi
(1)=6.5:
Zhongzhi
(2)=9.5:
Zhongzhi(3)=14:
Zhongzhi(4)=21
Zhongzhi(5)=30:
Zhongzhi(6)=43:
Zhongzhi(7)=70:
Zhongzhi(8)=95
EndIf
IfKK="AC-10I"Then
ReDimShangxian(7)AsSingle
ReDimXiaxian(7)AsSingle
ReDimZhongzhi(7)AsSingle
Shangxian(0)=9:
Shangxian
(1)=16:
Shangxian
(2)=24:
Shangxian(3)=33
Shangxian(4)=43:
Shangxian(5)=58:
Shangxian(6)=75:
Shangxian(7)=100
Xiaxian(0)=4:
Xiaxian
(1)=6:
Xiaxian
(2)=10:
Xiaxian(3)=17
Xiaxian(4)=26:
Xiaxian(5)=38:
Xiaxian(6)=55:
Xiaxian(7)=95
Zhongzhi(0)=6.5:
Zhongzhi
(1)=11:
Zhongzhi
(2)=17:
Zhongzhi(3)=25
Zhongzhi(4)=34.5:
Zhongzhi(5)=48:
Zhongzhi(6)=65:
Zhongzhi(7)=97.5
EndIf
IfKK="AC-10II"Then
ReDimShangxian(7)AsSingle
ReDimXiaxian(7)AsSingle
ReDimZhongzhi(7)AsSingle
Shangxian(0)=6:
Shangxian
(1)=10:
Shangxian
(2)=15:
Shangxian(3)=22
Shangxian(4)=30:
Shangxian(5)=40:
Shangxian(6)=60:
S
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 沥青 混合 配合 设计 VB60 程序代码
![提示](https://static.bdocx.com/images/bang_tan.gif)