哪位高手能帮把c转换成vb
来源:百度知道 编辑:UC知道 时间:2024/09/12 22:47:39
#include <stdio.h>
#include <math.h>
#define Tm3 1803
#define Tm4 2327
#define T4 800
#define H298 -2683261
#define Hm3 56928
#define Hm4 118407
#define T0 533
float mix(float A,float B,float C,float D,float E,float T)
{ float H;
H=A*(T)+B*(T)*(T)/2000-C*100000/(T)+D*(T)*(T)*(T)/3000000-E*50000000/((T)*(T));
return(H);
}
main()
{
float A1,B1,C1,D1,E1,H1;
float A2,B2,C2,D2,E2,H2;
float A3s,B3s,C3s,D3s,E3s,H31;
float A3l,B3l,C3l,D3l,E3l,H32;
float H3;
float H5;
float A4s1,B4s1,C4s1,D4s1,E4s1,H41;
float A4s2,B4s2,C4s2,D4s2,E4s2,H42;
float A4l,B4l,C4l,D4l,E4l,H43;
float H4;
float x,Tad1,Tad2,Tad3,Tad,F,m1,m2;
FILE *fp;
fp=fopen("temp-Al2O3.txt","w");
if((fp=fopen("temp-Al2O3.txt","w"))==NULL)
exit(0);