人因工程课程设计报告模板

『壹』 求个人因工程课程设计，

工程课程设计高手解答！着急帮你做.

『贰』 谁有人因工程学的课程设计（带产品设计三视图），急！！！

面对机械那方面的人因工程设计啊？

『叁』 课程设计报告怎么写

欢迎看一下我的计算器， 有程序界面， 你可以参考一下，添加运算功能。 http://hi..com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html 说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型 Private Sub Text1_Change()End SubPrivate Sub Command1_Click() txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command2_Click() txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command3_Click() txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command4_Click() txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中 End Sub Private Sub Command5_Click() Dim a, b, c As Integer a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b If txtfuhao.Text = "+" Then '运算过程 c = a + b '运算过程 ElseIf txtfuhao.Text = "-" Then '运算过程 c = a - b '运算过程 ElseIf txtfuhao.Text = "÷" Then '运算过程 c = a / b '运算过程 ElseIf txtfuhao.Text = "×" Then '运算过程 c = a * b '运算过程 Else j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息") End If txtc.Text = c '将运算结果c输出到文本框txtc中 End SubPrivate Sub Command6_Click() txta.Text = "" '将空字符输入到文本框内（刷新） txtb.Text = "" '将空字符输入到文本框内（刷新） txtc.Text = "" '将空字符输入到文本框内（刷新） txtfuhao.Text = "" '将空字符输入到文本框内（刷新） End SubPrivate Sub Command7_Click() End '结束程序 End SubPrivate Sub Form_Load()End Sub