C和VB語(yǔ)法對(duì)照表

---摘自《ChinaAsp網(wǎng)絡(luò)》(文/討飯貓)ASP+內(nèi)置支持3種語(yǔ)言：C#，VisualBasic（注意不是VBScript），JScript。下面列出一個(gè)簡(jiǎn)單的C#和VB語(yǔ)法對(duì)照表，看看你到底喜歡那個(gè)？C#語(yǔ)法VB語(yǔ)法定義變量intx;DimxAsIntegerStrings;DimsAsStringStrings1,s2;Dims1,s2AsStringObjecto;Dimo'ImplicitlyObjectObjectobj=newObject();DimobjAsNewObject()publicStringname;PublicnameAsString輸出內(nèi)容Response.Write("foo");Response.Write("foo")注釋'Thisisacomment'This//Thisisacomment'is/*Thisisamulti-linecomment*/'a'multi-line'comment讀取數(shù)據(jù)集合數(shù)組Dims,valueAsStrings=Request.QueryString("Name")Strings=Request.QueryString["Name"];value=Request.Cookies("Key").ValueStringvalue=Request.Cookies["key"];'Notethatdefaultnon-indexedproperties'mustbeexplicitlynamedinVB定義簡(jiǎn)單數(shù)據(jù)集publicStringname{PublicPropertyNameAsStringget{Get......return...;Return...;}EndGetset{Set...=value;...=Value;}EndProperty}EndProperty數(shù)組String[]a=newString[3];Dima(3)AsStringa[0]="1";a(0)="1"a[1]="2";a(1)="2"a[2]="3";a(2)="3"String[][]a=newString[3][3];Dima(3,3)AsStringa[0][0]="1";a(0,0)="1"a[1][0]="2";a(1,0)="2"a[2][0]="3";a(2,0)="3"'Arrayofunspecifiedbounds(NAinC#)Dima()AsStringa(0,0)="1"a(1,0)="2"a(2,0)="3"Dima(,)AsStringa(0,0)="1"a(1,0)="2"a(2,0)="3"初始化變量Strings="HelloWorld";DimsAsString="HelloWorld"inti=1DimiAsInteger=1double[]a={3.00,4.00,5.00};Dima()AsDouble={3.00,4.00,5.00}If結(jié)構(gòu)if(Request.QueryString!=null){...}IfNot(Request.QueryString=Null)...EndIfCase結(jié)構(gòu)switch(FirstName){Select(FirstName)case"John":case"John":......break;case"Paul":case"Paul":.....case"Ringo"break;...case"Ringo":EndSelect...break;}DimIAsIntegerForI=0To2DimIAsIntegerForI=0To2a(I)="test"Nextfor(inti=0;i<3;i++)a(i)="test";While循環(huán)DimIAsIntegerDimIAsIntegerI=0DoWhileIinti=0;while(i<3){Console.WriteLine(i.ToString());i+=1;}Dims1,s2AsStrings2="hello"Dims1,s2AsStrings2="hello"s2&="world"s1=s2&"!!!"Strings1;Strings2="hello";s2+="world";s1=s2+"!!!";事件處理voidMyButton_Click(Objectsender,EventArgsE){...}SubMyButton_Click(SenderAsObject,EAsEventArgs)...EndSub注意ByVal在VB中是省缺參數(shù)對(duì)象操作MyObjectobj=(MyObject)Session["SomeValue"];IMyObjectiObj=objDimbjAsMyObjectDimiObjAsIMyObjectobj=Session("SomeValue")iObj=CType(obj,IMyObject)DimiAsIntegerDimiAsIntegerDimsAsStringDimdAsDoublei=3s=i.ToString()d=CDbl(s)'參見CDbl(...),CStr(...),...類型轉(zhuǎn)換inti=3;Strings=i.ToString();doubled=Double.Parse(s);類定義和繼承usingSystem;namespaceMySpace{publicclassFoo:Bar{intx;publicFoo(){x=4;}publicvoidAdd(intx){this.x+=x;}publicintGetNum(){returnx;}}}//csc/out:librarycs.dll/t:librarylibrary.csImportsSystemNamespaceMySpacePublicClassFoo:InheritsBarDimxAsIntegerPublicSubNew()MyBase.New()x=4EndSubPublicSubAdd(xAsInteger)Me.x=Me.x+xEndSubPublicFunctionGetNum()AsIntegerReturnxEndFunction