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