《VB编程链传动工况系数KA查询》由会员分享，可在线阅读，更多相关《VB编程链传动工况系数KA查询（3页珍藏版）》请在金锄头文库上搜索。
1、VB编程查询链传动工作情况系数1、题目：用VB编写一段程序用来查找链传动在实际工作情况下的工况系数。链传动的工作情况系数KA如下表所示：链传动工作情况系数ka工作机原动机平稳运转轻微冲击中等冲击平稳运转1.01.11.3中等冲击1.41.51.7严重冲击1.81.92.12、编程过程:在VB软件中新建一个工程，文件名称为“链传动工况系数.vbp”在其中添加一个窗体，文件名称为“链传动工作情况系数KA查询”在窗体上设置输入和输出控件，如下图所示：窗口名称：frmka组合框名称：cbogjqk组合框名称：cboyjqk标签名称：lblka命令按钮名称：cmdkscx查询工作由命令按钮cmdkscx
2、的Click事件过程完成：（1）首先分别用一维数组gjqksz和yjqksz存储表中所有的工作机情况系数（3个）和原动机工作情况数据（3个），用一维数组kaywsz存储工作情况系数(逐行储存)，而后用双重For循环将kaywsz的赋值给二维数组kaewsz；(2)通过控件把实际工作机和原动机情况赋给参数gj和yj；3)用For循环嵌套If语句确定实际工作机和原动机情况在表中的行位置x和列位置y。(4)最后得到查询结果为kaewsz(x,y)，把它显示到窗体控件上。3、相关程序如下：OptionExplicit:OptionBase1PrivateSubcmdkscx_Click()Dimgjq
3、kAsString,yjqkAsString,kaAsSingle,gjqksz,yjqksz,kaywsz定义各种变量Dimkaewsz(4,4)AsSingle,xAsInteger,yAsInteger,jsAsIntegergjqk=Trim(cbogjqk.Text)为变量gjqk,yiqk赋值yjqk=Trim(cboyjqk.Text)gjqksz=Array(”平稳运转,中等冲击，严重冲击)为变量gjqksz,yjqksz,kaywsz赋值yjqksz=Array(平稳运转,轻微冲击，中等冲击)kaywsz=Array(1#,1.1,1.3,1.4,1.5,1.7,1.8,1.
4、9,2.1)js=0Forx=1ToUBound(gjqksz)用双重For循环将kaywsz的值赋值给二维数组kaewszFory=1ToUBound(yjqksz)js=js+1kaewsz(x,y)=kaywsz(js)NextyNextxForx=1ToUBound(gjqksz)确定实际工作机和原动机情况在表中的行位置x和列位置yIfgjqk=gjqksz(x)ThenExitForNextxFory=1ToUBound(yjqksz)Ifyjqk=yjqksz(y)ThenExitForNextyka=kaewsz(x,y)lblka.Text=kaEndSubPrivateSubform_Initialize()为对象赋初值cbogjqk.Text=cbogjqk.List(0)cboyjqk.Text=cboyjqk.List(0)lblka.Text=EndSub4、运行结果：
