《VB编程链传动工况系数KA查询.docx》由会员分享，可在线阅读，更多相关《VB编程链传动工况系数KA查询.docx（3页珍藏版）》请在三一办公上搜索。
1、VB编程链传动工况系数KA查询VB编程查询链传动工作情况系数 1、题目：用VB编写一段程序用来查找链传动在实际工作情况下的工况系数。链传动的工作情况系数KA如下表所示： 链传动工作情况系数KA 工作机 平稳运转 中等冲击 严重冲击 原动机 平稳运转 10 14 18 轻微冲击 11 15 19 中等冲击 13 17 21 2、编程过程：在VB软件中新建一个工程，文件名称为“链传动工况系数.vbp”，在其中添加一个窗体，文件名称为“链传动工作情况系数KA查询”，在窗体上设置输入和输出控件，如下图所示： 窗口名称：frmka 组合框名称：cbogjqk 组合框名称：cboyjqk 标签名称：lbl
2、ka 命令按钮名称：cmdkscx 查询工作由命令按钮cmdkscx的Click事件过程完成： 首先分别用一维数组gjqksz和yjqksz存储表中所有的工作机情况系数和原动机工作情况数据，用一维数组kaywsz存储工作情况系数，而后用双重For循环将kaywsz的赋值给二维数组kaewsz； 通过控件把实际工作机和原动机情况赋给参数gj和yj； 用For循环嵌套If语句确定实际工作机和原动机情况在表中的行位置x和列位置y。 最后得到查询结果为kaewsz(x,y)，把它显示到窗体控件上。 3、相关程序如下： Option Explicit: Option Base 1 Private Sub
3、 cmdkscx_Click Dim gjqk As String, yjqk As String, ka As Single, gjqksz, yjqksz, kaywsz 定义各种变量 Dim kaewsz(4, 4) As Single, x As Integer, y As Integer, js As Integer gjqk = Trim(cbogjqk.Text) 为变量gjqk,yiqk赋值 yjqk = Trim(cboyjqk.Text) gjqksz = Array(平稳运转, 中等冲击, 严重冲击) 为变量gjqksz, yjqksz, kaywsz赋值 yjqksz
4、= Array(平稳运转, 轻微冲击, 中等冲击) kaywsz = Array(1#, 1.1, 1.3, 1.4, 1.5, 1.7, 1.8, 1.9, 2.1) js = 0 For x = 1 To UBound(gjqksz) 用双重For循环将kaywsz的值赋值给二维数组kaewsz For y = 1 To UBound(yjqksz) js = js + 1 kaewsz(x, y) = kaywsz(js) Next y Next x For x = 1 To UBound(gjqksz) 确定实际工作机和原动机情况在表中的行位置x和列位置y If gjqk = gjqksz(x) Then Exit For Next x For y = 1 To UBound(yjqksz) If yjqk = yjqksz(y) Then Exit For Next y ka = kaewsz(x, y) lblka.Text = ka End Sub Private Sub form_Initialize 为对象赋初值 cbogjqk.Text = cbogjqk.List(0) cboyjqk.Text = cboyjqk.List(0) lblka.Text = End Sub 4、运行结果：
