C和VB语法对照表

---摘自《ChinaAsp网络》(文/讨饭猫)ASP+内置支持3种语言：C#，VisualBasic（注意不是VBScript），JScript。下面列出一个简单的C#和VB语法对照表，看看你到底喜欢那个？C#语法VB语法定义变量intx;DimxAsIntegerStrings;DimsAsStringStrings1,s2;Dims1,s2AsStringObjecto;Dimo'ImplicitlyObjectObjectobj=newObject();DimobjAsNewObject()publicStringname;PublicnameAsString输出内容Response.Write("foo");Response.Write("foo")注释'Thisisacomment'This//Thisisacomment'is/*Thisisamulti-linecomment*/'a'multi-line'comment读取数据集合数组Dims,valueAsStrings=Request.QueryString("Name")Strings=Request.QueryString["Name"];value=Request.Cookies("Key").ValueStringvalue=Request.Cookies["key"];'Notethatdefaultnon-indexedproperties'mustbeexplicitlynamedinVB定义简单数据集publicStringname{PublicPropertyNameAsStringget{Get......return...;Return...;}EndGetset{Set...=value;...=Value;}EndProperty}EndProperty数组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结构if(Request.QueryString!=null){...}IfNot(Request.QueryString=Null)...EndIfCase结构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循环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中是省缺参数对象操作MyObjectobj=(MyObject)Session["SomeValue"];IMyObjectiObj=objDimbjAsMyObjectDimiObjAsIMyObjectobj=Session("SomeValue")iObj=CType(obj,IMyObject)DimiAsIntegerDimiAsIntegerDimsAsStringDimdAsDoublei=3s=i.ToString()d=CDbl(s)'参见CDbl(...),CStr(...),...类型转换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