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（"
升级会员 