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]);

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