人因工程課程設計報告模板

『壹』 求個人因工程課程設計，

工程課程設計高手解答！著急幫你做.

『貳』 誰有人因工程學的課程設計（帶產品設計三視圖），急！！！

面對機械那方面的人因工程設計啊？

『叄』 課程設計報告怎麼寫

歡迎看一下我的計算器， 有程序界面， 你可以參考一下，添加運算功能。 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