正文

c转vb.net下载 vb60转net

IP云
IP云V管理员/7 阅读
04/08
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

C语言转换为VB.NET

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 输入数据时一行一个

y=CInt(Console.ReadLine())

m=CInt(Console.ReadLine())

t=CInt(Console.ReadLine())

If y

200 Then

Console.WriteLine("ERROR")

goto begin

End If

pr(y,m,t)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

Function pr(y As Integer,m As Integer,t As Integer) As Integer

Dim ye,[Me],i As Integer

ye=CInt((m+t-2)/12+y)

[Me]=(m+t-2) Mod 12+1

End If

End Function

Function mday(y As Integer,m As Integer) As Integer

Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}

Dim ad As I

相关问答

Q1: 哪位高手能帮把c转换成vb

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

A1=98.282; B1=77.822; C1=-14.853; D1=E1=0;

H1=mix(A1,B1,C1,D1,E1,T0)-mix(A1,B1,C1,D1,E1,298);

printf("H1=%f\n",H1);

A2=31.376; B2=-16.393; C2=-3.607; D2=20.753; E2=0;

H2=mix(A2,B2,C2,D2,E2,T0)-mix(A2,B2,C2,D2,E2,298);

printf("H2=%f\n",H2);

A3s=150.021; B3s=12.390; C3s=E3s=D3s=0;

H31=mix(A3s,B3s,C3s,D3s,E3s,Tm3)-mix(A3s,B3s,C3s,D3s,E3s,298);

printf("H31=%f\n",H31);

A4s1=103.851; B4s1=26.267; C4s1=-29.091; D4s1=E4s1=0;

H41=mix(A4s1,B4s1,C4s1,D4s1,E4s1,T4)-mix(A4s1,B4s1,C4s1,D4s1,E4s1,298);

printf("H41=%f\n",H41);

A4s2=120.516; B4s2=9.192; C4s2=-48.367; D4s2=E4s2=0;

H42=mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tm4)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

printf("H42=%f\n",H42);

H5=mix(A4s1,B4s1,C4s1,D4s1,E4s1,T0)-mix(A4s1,B4s1,C4s1,D4s1,E4s1,298);

printf("H5=%f\n",H5);

for(x=0;x=11.5;x+=0.01)

{fprintf(fp,"%f",x);

for(Tad1=300;Tad1=4000;Tad1+=100)

{ A3l=154.8765; B3l=C3l=D3l=E3l=0;

H32=mix(A3l,B3l,C3l,D3l,E3l,Tad1)-mix(A3l,B3l,C3l,D3l,E3l,Tm3);

A4l=144.863; B4l=C4l=D4l=E4l=0;

H43=mix(A4l,B4l,C4l,D4l,E4l,Tad1)-mix(A4l,B4l,C4l,D4l,E4l,Tm4);

if(Tad1Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+H43+Hm4;

else H4=H41+H42+H43+m1*(Hm4);

}

else if(Tad1==Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+Hm4;

else H4=H41+H42+m1*(Hm4);

}

else if(Tad1Tm4Tad1Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad1)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+H32+Hm3;

else H3=H31+H32+m2*(Hm3);

}

else if(Tad1==Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad1)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+Hm3;

else H3=H31+m2*(Hm3);

}

else { H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad1)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

H3=mix(A3s,B3s,C3s,D3s,E3s,Tad1)-mix(A3s,B3s,C3s,D3s,E3s,298);

}

F=(2*(H3)+(3+x)*(H4))-(3*(H1)+8*(H2)+x*(H5)-H298);

if(F=0) break;

}

Tad2=Tad1;

for(Tad2=Tad1;Tad2=350;Tad2-=10)

{ A3l=154.8765; B3l=C3l=D3l=E3l=0;

H32=mix(A3l,B3l,C3l,D3l,E3l,Tad2)-mix(A3l,B3l,C3l,D3l,E3l,Tm3);

A4l=144.863;B4l=C4l=D4l=E4l=0;

H43=mix(A4l,B4l,C4l,D4l,E4l,Tad2)-mix(A4l,B4l,C4l,D4l,E4l,Tm4);

if(Tad2Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+H43+Hm4;

else H4=H41+H42+H43+m1*(Hm4);

}

else if(Tad2==Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+Hm4;

else H4=H41+H42+m1*(Hm4);

}

else if(Tad2Tm4Tad2Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad2)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+H32+Hm3;

else H3=H31+H32+m2*(Hm3);

}

else if(Tad2==Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad2)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+Hm3;

else H3=H31+m2*(Hm3);

}

else { H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad2)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

H3=mix(A3s,B3s,C3s,D3s,E3s,Tad2)-mix(A3s,B3s,C3s,D3s,E3s,298);

}

F=(2*(H3)+(3+x)*(H4))-(3*(H1)+8*(H2)+x*(H5)-H298);

if(F0) break;

}

Tad3=Tad2;

for(Tad3=Tad2;Tad3=4000;Tad3++)

{ A3l=154.8765;B3l=C3l=D3l=E3l=0;

H32=mix(A3l,B3l,C3l,D3l,E3l,Tad3)-mix(A3l,B3l,C3l,D3l,E3l,Tm3);

A4l=144.863;B4l=C4l=D4l=E4l=0;

H43=mix(A4l,B4l,C4l,D4l,E4l,Tad3)-mix(A4l,B4l,C4l,D4l,E4l,Tm4);

if(Tad3Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+H43+Hm4;

else H4=H41+H42+H43+m1*(Hm4);

}

else if(Tad3==Tm4)

{ H3=H31+Hm3+H32;

m1=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H3)+(3+x)*(H41+H42)))/((3+x)*(Hm4));

if(m1=1) H4=H41+H42+Hm4;

else H4=H41+H42+m1*(Hm4);

}

else if(Tad3Tm4Tad3Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad3)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+H32+Hm3;

else H3=H31+H32+m2*(Hm3);

}

else if(Tad3==Tm3)

{ H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad3)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

m2=((3*(H1)+8*(H2)+x*(H5)-H298)-(2*(H31)+(3+x)*(H4)))/(2*(Hm3));

if(m2=1) H3=H31+Hm3;

else H3=H31+m2*(Hm3);

}

else { H4=H41+mix(A4s2,B4s2,C4s2,D4s2,E4s2,Tad3)-mix(A4s2,B4s2,C4s2,D4s2,E4s2,T4);

H3=mix(A3s,B3s,C3s,D3s,E3s,Tad3)-mix(A3s,B3s,C3s,D3s,E3s,298);

}

F=(2*(H3)+(3+x)*(H4))-(3*(H1)+8*(H2)+x*(H5)-H298);

if(F=0) break;

}

Tad=Tad3;

if(Tad=Tm4)

fprintf(fp," %f m1=%f\n",Tad,m1);

else if(TadTm4Tad=Tm3)

fprintf(fp," %f m2=%f\n",Tad,m2);

else fprintf(fp," %f\n",Tad);

printf(" x=%f ",x);

printf(" Tad=%f ",Tad);

if(Tad=Tm4)

printf(" m1=%f\n",m1);

else if(TadTm4Tad=Tm3)

printf(" m2=%f\n",m2);

}

fclose(fp);

}

Q2: 谁有VB程序下载网址

VB新势力-vb下载 vb6下载 vb教程 vb源码 vb试题 vb源代码 vb控件 vb源程序 vb书籍 vb工具 vb6.0下载vb.net教程vb.net源码

测试过c转vb.net下载，可以下载

Q3: vb.net的下载地址是什么？？？

下载地址：

网页地址：;displaylang=zh-cn

自己到网上找注册码

c转vb.net下载的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb60转net、c转vb.net下载的信息别忘了在本站进行查找喔。