VB查表 英文版文档格式.docx
- 文档编号:7555207
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:25
- 大小:1.71MB
VB查表 英文版文档格式.docx
《VB查表 英文版文档格式.docx》由会员分享,可在线阅读,更多相关《VB查表 英文版文档格式.docx(25页珍藏版)》请在冰点文库上搜索。
二.Therawdatatable
Thetabledatacomefrom《机械设计》(第八版),濮良贵等,高等教育出版社P152表8-4a。
单根普通Z型V带的基本额定功率P0/kw
小齿轮的基准直径d/mm
小齿轮转速n/(r/min)
400
700
800
950
1200
1450
1600
2000
2400
2800
50
0.06
0.09
0.10
0.12
0.14
0.16
0.17
0.20
0.22
0.26
56
0.11
0.19
0.25
0.30
0.33
63
0.08
0.13
0.15
0.18
0.27
0.32
0.37
0.41
71
0.23
0.39
0.46
0.50
80
0.35
0.44
0.56
90
0.24
0.28
0.36
0.40
0.48
0.54
0.60
三.Look-uptableproceduredesignprocess
1.OpentheMicrosoftVisualBasic6.0,thenewlycreatedexeprojects,suchasfigure3-1.
figure3-1
2.Afterestablishingengineering,showninfigure3-2.
figure3-2
3.Renametheobjectwindow,asshowninfigure3-3.
figure3-3
4.Interfacedesign,suchasfigure3-4asshownin.
figure3-4
5.Double-clicktheOKbuttontoprogramdesign,suchasfigure3-5,3-6and3-7.
figure3-5
figure3-6
figure3-7
6.Carryoutaphasedprogramtocheck,suchasshowninfigure3-8and3-9.
figure3-8
figure3-9
7.Step6Afterthesuccesstocontinuetheprogramdesign,asshowninfigure3-10.
figure3-10
8.Step7iscompleted,pressCtrl+Tab,theinterfaceswitching,double-clicktheexitbuttontoprogramdesign,suchasfigure3-11and3-12.
figure3-11
figure3-12
9.Aftercompletionoftheprogramdesign,run,debug,suchasfigure3-13,3-14,3-15asshownin.
figure3-13
figure3-14
figure3-15
Bycomparisonwiththeoriginalformofdata,itisreasonableprogramdesign;
10.Exittheprogram,suchasshowninfigure3-16.
figure3-16
10.Saveandgeneratethenie.exeapplications,suchasfigure3-17figure3-18asshown.
figure3-17
figure3-18
四.Runthedemo
Opentheasfigure4-1,beausesomoredata,soonlychoicesomeofthem.
figure4-1
Choosetheinputparameters,andclickOKtogeneratethequeryresults,andthe"
two"
intheoriginalTabletoverifythatthecorrectprocedureisasfollowsfigure4-2and4-3.
figure4-2
figure4-3
五.sourceprogram
PrivateSubCommand1_Click()
DimaAsDouble
Dimxz1(0To5)AsString'
定义数组
Dimxz2(0To9)AsString
xz1(0)="
50"
'
下拉索引
xz1
(1)="
56"
xz1
(2)="
63"
xz1(3)="
71"
xz1(4)="
80"
xz1(5)="
90"
xz2(0)="
400"
xz2
(1)="
700"
xz2
(2)="
800"
xz2(3)="
950"
xz2(4)="
1200"
xz2(5)="
1450"
xz2(6)="
1600"
xz2(7)="
2000"
xz2(8)="
2400"
xz2(9)="
2800"
Dimindata(6,10)AsDouble
Dimzj1AsString'
定义中间变量
Dimzj2AsString
'
获取文件
DimFileNoAsInteger
FileNo=FreeFile()'
获取一个未使用的文件号
DimstrAsString'
用来记录最终的值
Open"
C:
\Users\Administrator\Documents\nie\nie.txt"
ForInputAs#FileNo
Fori=0To5
Forj=0To9
Input#FileNo,indata(i,j)
Nextj
Nexti
Close#FileNo
zj1=Combo1.Text
zj2=Combo2.Text
If(zj1=xz1(0))Then
If(zj2=xz2(0))Then
a=indata(0,0)
EndIf
If(zj2=xz2
(1))Then
a=indata(0,1)
If(zj2=xz2
(2))Then
a=indata(0,2)
If(zj2=xz2(3))Then
a=indata(0,3)
If(zj2=xz2(4))Then
a=indata(0,4)
If(zj2=xz2(5))Then
a=indata(0,5)
If(zj2=xz2(6))Then
a=indata(0,6)
If(zj2=xz2(7))Then
a=indata(0,7)
If(zj2=xz2(8))Then
a=indata(0,8)
If(zj2=xz2(9))Then
a=indata(0,9)
If(zj1=xz1
(1))Then
a=indata(1,0)
a=indata(1,1)
a=indata(1,2)
a=indata(1,3)
a=indata(1,4)
a=indata(1,5)
a=indata(1,6)
a=indata(1,7)
a=indata(1,8)
a=indata(1,9)
If(zj1=xz1
(2))Then
a=indata(2,0)
a=indata(2,1)
a=indata(2,2)
a=indata(2,3)
a=indata(2,4)
a=indata(2,5)
a=indata(2,6)
a=indata(2,7)
a=indata(2,8)
a=indata(2,9)
If(zj1=xz1(3))Then
a=indata(3,0)
a=indata(3,1)
a=indata(3,2)
a=indata(3,3)
a=indata(3,4)
a=indata(3,5)
a=indata(3,6)
a=indata(3,7)
a=indata(3,8)
a=indata(3,9)
If(zj1=xz1(4))Then
a=indata(4,0)
a=indata(4,1)
a=indata(4,2)
a=indata(4,3)
a=indata(4,4)
a=indata(4,5)
a=indata(4,6)
a=indata(4,7)
a=indata(4,8)
a=indata(4,9)
If(zj1=xz1(5))Then
a=indata(5,0)
a=indata(5,1)
a=indata(5,2)
a=indata(5,3)
a=indata(5,4)
a=indata(5,5)
a=indata(5,6)
a=indata(5,7)
a=indata(5,8)
a=indata(5,9)
Text1.Text="
0"
&
a
EndSub
PrivateSubCommand2_Click()
End
PrivateSubForm_Load()
Combo1.Clear
Combo1.AddItem("
)
Combo2.Clear
Combo2.AddItem("
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB查表 英文版 VB 英文
![提示](https://static.bingdoc.com/images/bang_tan.gif)