VB编程查询链传动工作情况系数
1、题目：用VB编写一段程序用来查链传动在实际工作情况下的工况系数。链传动的工作情况系数KA如下表所示：
    链传动工作情况系数KA
工作机
原动机
平稳运转
轻击
中等冲击
平稳运转
1．0
1．1
1．3
中等冲击
1．4
1．5
1．7
严重冲击
1．8
1．9
2．1
2、编程过程：在VB软件中新建一个工程，文件名称为“链传动工况系数.vbp”，在其中添加一个窗体，文件名称为“链传动工作情况系数KA查询”，在窗体上设置输入和输出控件，如下图所示：
窗口名称：frmka
       
       
组合框名称：cbogjqk
组合框名称：cboyjqk
   
标签名称：lblka
   
命令按钮名称：cmdkscx
查询工作由命令按钮cmdkscx的Click事件过程完成：
（1） 首先分别用一维数组gjqksz和yjqksz存储表中所有的工作机情况系数（3个）和原动机工作情况数据（3个），用一维数组kaywsz存储工作情况系数（逐行储存），而后用双重For循环将kaywsz的赋值给二维数组kaewsz；
（2） 通过控件把实际工作机和原动机情况赋给参数gj和yj；
（3） 用For循环嵌套If语句确定实际工作机和原动机情况在表中的行位置x和列位置y。
（4） 最后得到查询结果为kaewsz(x,y)，把它显示到窗体控件上。
3、相关程序如下：
Option Explicit: Option Base 1
Private Sub 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 = 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()    '为对象赋初值
js 二维数组      cbogjqk.Text = cbogjqk.List(0)
      cboyjqk.Text = cboyjqk.List(0)
      lblka.Text = ""
End Sub
4、运行结果：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。