VB程序-编写-查询表格

China University of Geosciences College of Mechatronic and Engineering CAD/CAMReport About Achieving Look Up Function With VBName:Student NO. : Expect Score: 96Tips: Generally , during a designers design process , when he needs some parameters about a bearing , he will spend lots of time searching reference books , thus lead to low efficiency . While , in order to solve this problem , I write a program with Visual basic . The final goal of this program is to achieve the function of looking up the parameters of Deep Groove Ball Bearing .The software I use is Visual Basic 6.0 .Below is the table I would look up . It is a table of standard parameters of DGBB .轴承型号基本尺寸/mm安装尺寸/mm基本额定负荷/KN极限转速/(r/min)dDBdaminDamaxCrC0r脂润滑油润滑6204204714264112.86.6514000180006205255215314614.07.8812000160006206306216365619.511.59500130006207357217426525.515.28500110006208408018477329.518.08000100006209458519527831.520.5700090006210509020578335.023.26700850062115510021649143.229.260007500621260110226910147.832.856007000621365120237411157.240.050006300621470125247911660.845.048006001. Program:Private Sub CMDCLEAR_Click() 清除按钮程序；LBL5.Caption = LBL6.Caption = LBL14.Caption = LBL15.Caption = LBL16.Caption = LBL17.Caption = LBL18.Caption = Text1.Text = LBL25.Caption = OPT1.Value = FalseOPT2.Value = Falselbl27.Caption = End SubPrivate Sub CMDEXIT_Click() 退出按钮程序；EndEnd SubPrivate Sub CMDOK_Click() 确认按钮程序，用于实现程序功能；Dim D As Integer 定义整数变量D，即轴的直径D = Text1.Text 输入轴的直径 If OPT1.Value = True Then 选择按钮1被选中时；Select Case D 用select case 语句进行查询；Case Is = 20LBL25.Caption = 14000Case Is = 25LBL25.Caption = 12000Case Is = 30LBL25.Caption = 9500Case Is = 35LBL25.Caption = 8500Case Is = 40LBL25.Caption = 8000Case Is = 45LBL25.Caption = 7000Case Is = 50LBL25.Caption = 6700Case Is = 55LBL25.Caption = 6000Case Is = 60LBL25.Caption = 5600Case Is = 65LBL25.Caption = 5000Case Is = 70LBL25.Caption = 4800End Select 结束select 查询语句；End If 结束if 语句；If OPT2.Value = True Then 当按钮2被选中时；Select Case DCase Is = 20LBL25.Caption = 18000Case Is = 25LBL25.Caption = 16000Case Is = 30LBL25.Caption = 13000Case Is = 35LBL25.Caption = 11000Case Is = 40LBL25.Caption = 10000Case Is = 45LBL25.Caption = 9000Case Is = 50LBL25.Caption = 8500Case Is = 55LBL25.Caption = 7500Case Is = 60LBL25.Caption = 7000Case Is = 65LBL25.Caption = 6300Case Is = 70LBL25.Caption = 6000End Select 结束select 查询语句；End If 结束if 语句；Select Case DCase Is = 20LBL5.Caption = 47LBL6.Caption = 14LBL14.Caption = 26LBL15.Caption = 41LBL16.Caption = 12.8LBL17.Caption = 6.65lbl27.Caption = 6204Case Is = 25LBL5.Caption = 52LBL6.Caption = 15LBL14.Caption = 31LBL15.Caption = 46LBL16.Caption = 14#LBL17.Caption = 7.88lbl27.Caption = 6205Case Is = 30LBL5.Caption = 62LBL6.Caption = 16LBL14.Caption = 36LBL15.Caption = 56LBL16.Caption = 19.5LBL17.Caption = 11.5lbl27.Caption = 6206Case Is = 35LBL5.Caption = 72LBL6.Caption = 17LBL14.Caption = 42LBL15.Caption = 65LBL16.Caption = 25.5LBL17.Caption = 15.2lbl27.Caption = 6207Case Is = 40LBL5.Caption = 80LBL6.Caption = 18LBL14.Caption = 47LBL15.Caption = 73LBL16.Caption = 29.5LBL17.Caption = 18#lbl27.Caption = 6208Case Is = 45LBL5.Caption = 85LBL6.Caption = 19LBL14.Caption = 52LBL15.Caption = 78LBL16.Caption = 31.5LBL17.Caption = 20.5lbl27.Caption = 6209Case Is = 50LBL5.Caption = 90LBL6.Caption = 20LBL14.Caption = 57LBL15.Caption = 83LBL16.Caption = 35#LBL17.Caption = 23.2lbl27.Caption = 6210Case Is = 55LBL5.Caption = 100LBL6.Caption = 21LBL14.Caption = 64LBL15.Caption = 91LBL16.Caption = 43.2LBL17.Caption = 29.2lbl27.Caption = 6211Case Is = 60LBL5.Caption = 110LBL6.Caption = 22LBL14.Caption = 69LBL15.Caption = 101LBL16.Caption = 47.8LBL17.Caption = 32.8lbl27.Caption = 6212Case Is = 65LBL5.Caption = 120LBL6.Caption = 23LBL14.Caption = 74LBL15.Caption = 111LBL16.Caption = 57.2LBL17.Caption = 40#lbl27.Caption = 6213Case Is = 70LBL5.Caption = 125LBL6.Caption = 24LBL14.Caption = 79LBL15.Caption = 116LBL16.Caption = 60.8LBL17.Caption = 45lbl27.Caption = 6214Case ElseLBL18.Caption = 您输入的值不是标准值，请输入标准直径!End Select 结束查询操作；End Sub 确认按钮程序结束；Private Sub Form_Load() form程序语句；OPT1.Value = False OPT2.Value = False 设置两个按钮的初始状态；End Sub2. Editting the dialog window . 1). In this dialog window, I use the textbox to input the diameter of shaft , and the label is used to display the parameters and the result . I also call three buttons to complete the function of confirm , clear, exit respectively , Of course , these three buttons are driven by the program above. As figure-1 shows below.2). Programing for each button.As figure-2 and figure-3 shows .3. The running result is as figure-4 and figure-5 shows below.4. Input the standard diameter of shaft . For example ,D=45The running result is as figure-6 shows .When D=70 , the running result is as figure-5shows .5. If you want to input a new numeric values , it would be easy , you could just depress the clear button , then the result will be cleared . As figure-7 shows .6. If