vb 怎么实现以下C语言代码?
来源:百度知道 编辑:UC知道 时间:2024/05/16 20:12:59
main()
{
float A[5],B[5],C[5] ,x[5],p,t,t1;
float K[10],m,e,r;
int i,n,d;
printf("输入组分数:\nn=");
scanf("%d",&n);
printf("输入压力的初值:\np=");
scanf("%f",&p);
for(i=0;i<n;i++)
{
printf("输入第%d种组分的摩尔比率x和安托尼方程参数ABC:\n",i+1);
scanf("%f%f%f%f",&x[i],&A[i],&B[i],&C[i]);
{
float A[5],B[5],C[5] ,x[5],p,t,t1;
float K[10],m,e,r;
int i,n,d;
printf("输入组分数:\nn=");
scanf("%d",&n);
printf("输入压力的初值:\np=");
scanf("%f",&p);
for(i=0;i<n;i++)
{
printf("输入第%d种组分的摩尔比率x和安托尼方程参数ABC:\n",i+1);
scanf("%f%f%f%f",&x[i],&A[i],&B[i],&C[i]);
Dim A(5) as Single,B(5) as Single,C(5) as Single,x(5) as Single,p as Single,t as Single,t1 as Single
Dim K(10) as Single,m as Single,e as Single,r as Single
Dim i as Integer,n as Integer,d as Integer
n=Val(InputBox("输入组分数:"+chr(13)+"n="))
p=Val(InputBox("输入压力的初值:"+chr(13)+"p="))
for i=0 to n
x(i)=Val(InputBox("输入第"+str(i+1)+"种组分的摩尔比率x"))
A(i)=Val(InputBox("输入第"+str(i+1)+"种组分的安托尼方程参数A"))
B(i)=Val(InputBox("输入第"+str(i+1)+"种组分的安托尼方程参数B"))
C(i)=Val(InputBox("输入第"+str(i+1)+"种组分的安托尼方程参数C"))
next