已解決VB的設計問題~！急

提問者：紅排魚  |  瀏覽次  |  提問時間：2017-01-14  |  回答數量：4

這是我們的課程設計，計算一個偏差因子，我運行時老是出錯，麻煩幫我看一下嘛Private Sub Command1_Click()Dim r!, P!, T!, e!, ρpr!, ρpro!, Tpc!, Ppc!, Tpr!, Ppr!, Zo!, Z!, f!, A1!, A2!, A3!, A4!, A5!, A6!, A7!, A8!, f1!, i!, n As Integer'已知數據A1 = 0.31506A2 = -1.04671A3 = -0.57833A4 = 0.53531A5 = -0.61232A6 = -0.10489A7 = 0.68157A8 = 0.68447r = Val(InputBox(\"請輸入相對密度rg:\"))P = Val(InputBox(\"請輸入P/Mp:\"))T = Val(InputBox(\"請輸入T/k:\"))Tpc = 93.333 + 180.556 * r - 6.944 * r ^ 2Ppc = 4.6627 + 0.1034 * r - 0.2586 * r ^ 2Tpr = T / Tpc