用公式求答案 用VB语言表示

来源：百度知道 编辑：UC知道 时间：2024/06/14 16:41:29
log pA = 6.03055 -1211.033/(t + 220.79)
log pB = 6.1030 -1431.05/(t + 217.55)
Xa= (101.325- pB)/(pA- pB)
Ya = pA*Xa/101.325
M =Ya(1-Xa)/Xa(1-Ya)

要求 ：我输入不同的t得到不同的pA,pB
要求 ：我输入不同的pA,pB求出Xa ，Ya
要求：我输入不同的Xa ，Ya求出不同的M

最好是按命令键值就被打印出来。且顺序为pA,pB,Xa ，Ya,M

速度快加分，谢谢了！！急用。在线等。
两位的运行起来都有问题，t 的范围是80.1 ---131.8摄氏度

取t=82.1把你们的结果帮忙补充上来。谢谢

另外， 不只是Command1的代码，还有文本框的，你写了就一起补充来。麻烦二位了。

Private Sub Command1_Click()
Dim t As Single, pA As Single, pB As Single, Xa As Single, Ya As Single, M As Single
Do
t = Val(InputBox("请输入t（≠220.79，≠217.55）："))
Loop Until Abs(t - 220.79) > 0.00005 And Abs(t - 217.55) > 0.00005 '保证分母不接近零
pA = 6.03055 - 1211.033 / (t + 220.79)
pB = 6.103 - 1431.05 / (t + 217.55)
Xa = (101.325 - pB) / (pA - pB)
Ya = pA * Xa / 101.325
M = Ya(1 - Xa) / Xa(1 - Ya)
Print "pA="; pA
Print "pB="; pB
Print "Xa="; Xa
Print "Ya="; Ya
Print "M="; M
End Sub

答案补充：
Private Sub Command1_Click()
Dim t As Single, pA As Single, pB As Single, Xa As Single, Ya As Single, M As Single
Do
t = Val(InputBox("请输入t（80.1 ---131.8）："))
Loop Until t >= 80.1 And t <= 131.8 '保证在范围内
pA = 6.03055 - 1211.033 / (t + 220.79)
pB = 6.103 - 1431.05 / (t + 217.55)
Xa = (101.325 -