类别

Vb6 & Vb.Net

Delphi

C#

语法

不区分大小写

不区分大小写

区分大小写

数据类型

数据     关键字    占用字节      类型符

整型          integer                      

长整型        long                     

单精度型      single           

双精度型      double        

货币型        currency        

字节型        byte              

字节型        string          

布尔型        boolean

日期型        date     

8对象型       object        

变体型        variant  

定义变量/初始化变量

Dim intA as Integer

Dim strA as String

Dim lngA as Long

Dim strA As String = "Hello World"

Dim intS As Integer = 1

Dim douA() As Double = { 3.00, 4.00, 5.00 }

Var

intA:Integer;

strA:String;

lngA:Long;

var

strA: String;

intA: Integer;

douA: array of double = {3.00, 4.00, 5.00}

Int intA

String strA

Long lngA

String strA = "Hello World";

int intA = 1

double[] douA = { 3.00, 4.00, 5.00 };

运算符

+ &

Chr13 chr10

数组应用

Dim a(3) As String

a(0) = "1"

a(1) = "2"

a(2) = "3"

Dim a(3,3) As String

a(0,0) = "1"

a(1,0) = "2"

a(2,0) = "3"

Dim a(2) As Integer

a(0) = 0

a(1) = 1

For i = 0 To 2 Step 1

    Print a(i)

Next i

var

a[0..2]: string

a[0..2,0..2]: String

begin

a[0] := ‘1’;

a[1] := ‘2’;

a[2] := ‘3’;

a[0,0] := ‘1’;

a[1,0] := ‘2’;

a[2,0] := ‘3’;

End;

String[] a = new String[3];

a[0] = "1";

a[1] = "2";

a[2] = "3”;

String[][] a = new String[3][3];

a[0][0] = "1";

a[1][0] = "2";

a[2][0] = "3";　

定义数据集

Public Property Name As String

Get

...

Return ...;

End Get

Set

... = Value;

End Set

End Property

Public Record Name: String;

Function GetName: String; Begin

  ...;

  Result := …;

End;

Procedure SetName(Value: String); Begin

  … := Value;

End;

End

public String name

{

get{

...

return ...;

}

set{

... = value;

}

}　

对象的操作

Dim bj As MyObject = Session("Some Value")

Dim iObj As IMyObject = CType(obj, IMyObject)

var

bj: MyObject;

iObj: IMyObject;

begin

obj := Session(‘Some Value’);

iObj = Obj as IMyObject;

end;

MyObject obj = (MyObject)Session["Some Value"];

IMyObject iObj = obj;

字符串操作

Dim s1, s2 As String

s2 = "hello"

s2 &= " world"

s1 = s2 & " !!!"　

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

var

s1, s2: String;

begin

s2 := ‘hello’;

s2 := s2 + ‘world’;

s1 := s2 + ‘!!!’;

End;

String s1;

String s2 = "hello";

s2 += " world";

s1 = s2 + " !!!";

类型转换&

Format

Dim i As Integer = 3

Dim s As String = i.ToString()

Dim d As Double = Double.Parse(s):

var

i: Integer;

s: String;

d: Double;

begin

i := 3;

s = i.ToString();

d := Double.Parse(s);

end;

int i = 3;

String s = i.ToString();

double d = Double.Parse(s);

代码注释

‘ 2013-06-07 商超 添加申请单函数

‘================================

‘取报告内容，得到电子申请单

‘================================

折叠代码

#Region “读取数据列表”

#End Region

// 2013-06-07 商超 添加申请单函数　　　　

/* 取得内容

得到电子申请单*/

// 2013-06-07 商超 添加申请单函数　　　　　

/* 取得内容

得到电子申请单*/

输入输出或提示内容

Dim n as long

N= Val(InputBox("请输入一个数："))

    Dim n

    n = MsgBox("是：添加项目 否：删除项目", 52, "提示信息")

    If n = vbYes Then

        Dim Add As String

        Add = InputBox("请输入添加项目并点击确定后继续", "添加项目")

        If Add = "" Then

            Exit Sub

        End If

Msgbox (“您好！”)

Debug.print (“您好！”)

Console.writeline(“您好！”)

showMessage(“您好！”);

MessageBox(Handle, PChar(‘不能备份到该目录 ‘ + path), PChar(MDialogMsg), MB_ICONINFORMATION or MB_OK)

If语句

‘判断是否为空或者指定值

‘判断按键

Dim strUser as string

If strUser=”管理员” then

   Msgbox “您是”+strUser

End if

If Not (Request.QueryString = Null)

 ...

End If　

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

if a > 3 then

    msgbox "a"

end if

if a = "" then

    msgbox "a"   

else

    msgbox "b"   

end if

if a ="" then

    msgbox "a"   

elseif

    msgbox "b"   

else

    msgbox "c"   

end if

strUser:string;

If (strUser=’管理员’) then

Showmessage(‘您是’+strUser);

If Not (Request.QueryString = Null) then

begin

...

End;

//测试If Then语句//

procedure TForm1.Button6Click(Sender: TObject);

var

  strSql: string;

begin

  strSql := ‘Select‘;

  if strSql = ‘Select‘ then

    showmessage(PChar(strSql))

  else

    showmessage(‘Sql语句不对!‘)

end;

//输入值后按回车//

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_RETURN) then

  begin

    Button7Click(Sender); //直接调用Button1的事件处理程序完成相同的功能

  end;

end;

begin

   if key = #8 then

      exit;

   if not ((key >= ‘0‘) and (key <= ‘9‘)) then

      key := #0;

end;

if (Request.QueryString != null)

{

...

}　

If Else 语句

Case语句

Select (FirstName)

case "John" :

...

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

case "Paul" :

...

case "Ringo" :

...

End Select

select case index

       case  0

            msgbox "a"

       case  1

            msgbox "b"

end select

Case FirstName of

‘John’:

...

‘Paul’:

…

‘Ringo’:

…

End

//测试Case语句//

procedure TForm1.Button5Click(Sender: TObject);

var

  i: ShortInt;

begin

  i := random(3);

  case i of

    //0:showmessage(‘测试零‘)；; 符号错误

    0: showmessage(‘测试一‘);

    1: showmessage(‘测试二‘);

    2: showmessage(‘测试三‘);

  else

    showmessage(‘测试完成‘);

  end

end;

switch (FirstName){

case "John" :

  ...

  break;

case "Paul" :

  ...

  break;

case "Ringo" :

  ...

  break;

}

For循环

Dim I As Integer

For I = 0 To 2

　a(I) = "test"

Next

for i = 0 to list.count - 1 step  0

    msgbox  list(i)

Next

Var

I: Integer;

Begin

For I := 0 to 2 do

A[i] := ‘test’;

End;

//测试For循环//

procedure TForm1.Button2Click(Sender: TObject);

var

  I: Integer;

  Tot: Integer;

begin

  I := 0;

  Tot := 0;

  for i := 0 to 10 do

  begin

    Tot := Tot + i

  end;

  showMessage(IntToStr(Tot));

end;

procedure TForm1.btn1Click(Sender: TObject);

var 

i:Integer;

begin  

for i:=0 to lst1.Count-1 do  

begin    

ShowMessage(lst1.Items[i]);  

end;  

lst1.Items.Clear;

end;

for (int i=0; i<3; i++)

 a(i) = "test";

While循环

Dim I As Integer

I = 0

Do While I < 3

Console.WriteLine(i.ToString());

I = I + 1

Loop

Var

I: Integer;

Begin

I := 0;

While i< 3 do

Begin

Console.WriteLen(i.ToString());

I := I + 1;

End;

End;

//测试While语句//

procedure TForm1.Button3Click(Sender: TObject);

var

  i: ShortInt;

begin

  i := 0;

  while i < 10 do

  begin

    i := i + 1;

    showmessage(IntToStr(i));

  end;

end;

int i = 0;

while (i<3)

{

Console.WriteLine(i.ToString());

i += 1;

}

With语句

With list

.list(0)=”是我的”

.Add

End with

    rs.Open "man", cn, adOpenKeyset, adLockOptimistic

    With rs

        .AddNew

        .Fields("标题") = Trim(Text1.Text)

        .Fields("类别") = Trim(Combo1(2).Text)

        .Fields("类型") = Trim(Combo1(0).Text)

        If Check2.Value = http://www.mamicode.com/1 Then

            .Fields("内容") = Trim(RichTextBox1.Text)

            .Fields("内容2") = Trim(RichTextBox1.TextRTF)

        Else

            .Fields("内容") = Trim(RichTextBox1.Text)

            .Fields("内容2") = Null

        End If

        .Fields("日期") = Format(DTPicker1.Value, "short date") ‘CStr(Format(DTPicker1.Value, "YYYY-MM-DD "))

        .Update

    End With

  with TOpenPictureDialog.Create(nil) do

  begin

    Filter:=‘*.bmp|*.bmp‘;

    if Execute then

       image1.Picture.LoadFromFile(filename);

    Free;

  end;

防错语句

on error goto Err:

Try

Castch

End try

    try

edtIP.text:=iniinfo.readstring(‘Size‘,‘dbIP‘,‘‘);

    Finally

     freeAndNil(IniInfo);

end;

//测试Repeat语句//

procedure TForm1.Button4Click(Sender: TObject);

var

  i: ShortInt;

begin

  i := 0;

  repeat

    i := i + 1;

    showmessage(IntToStr(i))

  until i = 10;

end;

退出和关闭

Exit sub

Eixt Function

Close

End

exit;

Self.Close;

过程及函数调用

‘调用面积计算过程

Private Sub Add_Click()

    Call subcompute(txtLength, txtWidth)  

End Sub

‘定义一个计算面积的函数，有两个参数，返回计算结果

Private Function subcomputearea(Length As Long, Width As Long)      ‘length,width都是形式参数

    subcomputearea = Length * Width

End Function

‘调用计算面积函数

Private Sub Add_Click()

    txtResult.Text = F(Val( txtResults.Text))

End Sub

‘面积计算函数

Function F(n As Integer) As Single

    If n > 1 And n <= 30 Then

        F = n * F(n - 1)

    Else

        F = 1

    End If

End Function

递归过程

Private Sub Command8_Click()

    Text2.Text = F(Val(Text1.Text))

End Sub

Function F(n As Integer) As Single

    If n > 1 And n <= 30 Then

        F = n * F(n - 1)

    Else

        F = 1

    End If

End Function

interface //单元的接口部分可在接口部分声明变量、常量、数据类型、过程、函数，结束于implementation的开始部分//

{

//一个简单的函数//

function GetAverage(num:integer;total:Double):Double;

begin

  GetAverage := total / num;  //Result := total / num;

end;

//一个简单的过程//

procedure GetResult()      //procedure SetDate(Year: Integer; Month: Integer; Day: Integer); or procedure SetDate(Year, Month, Day: Integer);

begin

    GetResult:=3*3;

end;

常用内部函数(字符串函数)

-字符串函数

Mid

Right

Left

Trim

Rtrim

Ltrim

len

Instr

Squit

-转换函数

Char

Val

asc

char

-日期时间函数

Date

Now

Timer

Year/month/day

Hour/minute/second

-判断函数

Isnull

isnumberic

-随机函数

Rnd

-格式化函数

Copy:　　

S := ’’I Love China!’’;

　　//下面将获取I Love China中的“Love”字符串。

　　MyStr := Copy(S, 3, 4);

Concat:

S1 := Concat(’’A’’, ’’B’’); // 连接两个字符串，S1变量等于AB。

　　S := ’’I Like Reading CPCW.’’;

　　// 下面的代码将删除S变量中的“C”字符。

Delete:

　　Delete(S, 16, 1);

　　end;

　　此时S变量则是I Like Reading PCW.(“C”已经不存在了)。

LeftStr   

Length

MidStr 

Pos:

　　nPos: Integer; // 用于保存查找的字符所在位置

　　begin

　　nPos := Pos(’’Like’’, ’’I Like Reading!’’);

RightStr:

A := RightStr(S, 3); // 从最右边开始，获取右边的三个字符。因此A变量则等于ger。

Trim

TrimLeft

TrimRight

UpperCase

LowerCase

Low

High

Insert

类的定义和继承

Imports System

Namespace MySpace

Public Class Foo : Inherits Bar

Dim x As Integer

Public Sub New() ‘构造函数

  MyBase.New()

  x = 4

End Sub

Public Sub Add(x As Integer)

  Me.x = Me.x + x

End Sub

Public Function GetNum() As Integer

  Return x

End Function

End Class

End Namespace

‘ vbc /out:libraryvb.dll /t:library library.vb　

unit MySpace

interface

uses  System;

type

  Foo = Class(Bar)

  private

    x: integer;

  public

    procedure Create; override; //构造函数

    procedure Add(x: Integer);

    function GetNum: Integer;

  end;

implementation

procedure Foo.Create;

begin

  inherited;  x := 4;

end;

procedure Foo.Add(x: Integer); begin

Self.x := Self.x + x;

end;

function Foo.GetNum: Integer; begin

Result := x;

end;

end;

using System;

namespace MySpace

{

public class Foo : Bar

{

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

int x;

public Foo() {x = 4; } //构造函数

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

public void Add(int x) { this.x += x; }

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

public int GetNum() { return x; }

<!--[if !supportlinebreaknewline]-->

<!--[endif]-->

}

}

// csc /out:librarycs.dll /t:library library.cs

事件处理

Sub Button1_Click(Sender As Object, E As EventArgs)

...

End Sub

‘ByVal 在VB中对象是是缺省参数传递方式

procedure Button1OnClick(Sender: Object;E: EventArgs);

begin

...

end;

‘ByRef 在Pascal中对象是缺省参数传递方式

btnSearchClick(Sender); //直接调用Button1的事件处理程序完成相同的功能

void Button1_Click(Object sender, EventArgs E)

{

...

}　

‘ByRef 在C#中对象是是缺省参数传递方式

操作数据库的增删改查应用

(Access Sql Mysql Oracle )

   try

      conADOConn.Connectionstring :=

        ‘Provider=SQLOLEDB.1;Password=itpschina;Persist Security Info=True;User ID=sa;Initial Catalog=Study;Data Source=.‘;

      conADOConn.Open;

      //Showmessage(‘连接数据库成功！‘);

      qryAdoQ.SQL.Clear;

      qryAdoQ.SQL.Add(‘select * from Man‘);

      qryAdoQ.Open;

    except

      Showmessage(‘无法连接数据库！‘);

      exit;

    end;

日志记录函数

//写入日志文件//

procedure WriteLog(ErrStr:String);

var

  LogFilename: String;

  LogFile: TextFile;

begin

  LogFilename:=ExtractFilePath(ParamStr(0)) + ‘LOG_‘ + FormatDateTime(‘yyyymmdd‘,Now) + ‘.LOG‘;

  AssignFile(LogFile, LogFilename);

  if FileExists(LogFilename) then Append(LogFile)

  else Rewrite(LogFile);

  Writeln(Logfile,DateTimeToStr(now)+‘: ‘+ErrStr);

  CloseFile(LogFile);

end;

Ini的读写

Txt的读写

var

  iniinfo:TIniFile;

getdir(0,dir); //获取程序所在路径地址

iniInfo:=TInIFile.Create(dir+‘\Size.INI‘);

edtIP.text:=iniinfo.readstring(‘Size‘,‘dbIP‘,‘‘);

    iniInfo.WriteString(‘Size‘,‘dbIp‘,edtIp.Text);

加密解密字符串

//字符串加密与解密函数//

//解密字符串//

function E_code(S:string):String;

var

  n,i:integer;

  str:string;

begin

  n:=length(s);

  str:=‘‘;

  for i:=1 to n do

  begin

    str:=str+char(Ord(s[i])+2);

  end;

  E_code:=str;

end;

//加密字符串//

function D_code(s:string):String;

var

  n,i:integer;

  str:string;

begin

  n:=length(s);

  str:=‘‘;

  for i:=1 to n do

  begin

    str:=str+char(ord(S[i])-2);

  end;

  D_code:=str;

end;

Xml文件的读写

本地文件读写、打开文件选择框

‘///导出文件///

Private Sub Command8_Click()

    Dim A As String

    A = Text1.Text

    Dim n

    n = MsgBox("是否导出？", 52, "提示信息")

    If n = vbYes Then

        Open "D:\\" & A & ".rtf" For Output As #1 ‘新建文件

        Print #1, RichTextBox1.Text

        Close #1

        MsgBox "文件已经存储在D:\,文件名为" & A & "", 64, "提示信息"

    ElseIf n = vbNo Then

        MsgBox "操作取消", 64, "提示信息"

        Exit Sub

    End If

End Sub

‘///导入文件///

Private Sub Command9_Click()

    Open "D:\给疯狂下资料的朋友们提个醒！.txt" For Input As #1

    Dim A

    Do While EOF(1) = False

        Line Input #1, A

        RichTextBox1 = RichTextBox1 & A & vbCrLf                            ‘这样就好了，要把数据连接起来，否则text只等于最后一行

    Loop

    Close

End Sub

‘///导入文件///

Private Sub mnuOpen_Click()

    CommonDialog1.FileName = ""

    CommonDialog1.Filter = "*.txt|*.txt|*.rtf|*.rtf|*.*|*.*"

    CommonDialog1.DialogTitle = "打开文件"

    CommonDialog1.CancelError = True                        ‘捕获 取消 错误时得先设置为true 然后再showsave

    On Error GoTo ErrorHandler

    CommonDialog1.ShowOpen

    Text1.Text = Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)

    RichTextBox1.LoadFile CommonDialog1.FileName, 1

ErrorHandler:

    Exit Sub

End Sub

‘///选择数据库///

Private Sub SelData_Click()

    CommonDialog1.FileName = ""

    CommonDialog1.InitDir = App.Path                        ‘设置缺省路径

    CommonDialog1.Filter = "*.mdb|*.mdb|"

    CommonDialog1.DialogTitle = "选择数据库"

    CommonDialog1.CancelError = True                        ‘捕获 取消 错误时得先设置为true 然后再showsave

    On Error GoTo ErrorHandler

    CommonDialog1.ShowOpen

    entry$ = Trim(CommonDialog1.FileName)

    dataname = Trim(CommonDialog1.FileName)

    R = WritePrivateProfileString("数据库", "库名", entry, iniPath)

    If R <> 1 Then MsgBox "写入出错！"

    If selectdate = True Then

        Combo1(0).Clear

        Call Form_Load

    Else

        Call Main

    End If

ErrorHandler:

    Exit Sub

End Sub

  with TOpenPictureDialog.Create(nil) do

  begin

    Filter:=‘*.bmp|*.bmp‘;

    if Execute then

       image1.Picture.LoadFromFile(filename);

    Free;

  end;

文件路径操作

Dir

App.path

无边框窗体移动

颜色值函数

屏幕位置分辨率

类别

delphi.net语法

vb.net 语法(语法不区分大小写)

c#.net 语法

java

语法

不区分大小写

不区分大小写

区分大小写

区分大小写

定义变量

Var
x: Integer;

s: string;

s1, s2: string;

o: TObject;

obj: TObject; obj := TObject.Create;

Public property name: String;

Dim x As Integer

Dim s As String

Dim s1, s2 As String

Dim o ‘Implicitly Object

Dim obj As New Object()

Public name As String　

int x;

String s;

String s1, s2;　　　　　　

Object o;

Object obj = new Object();

public String name;

int x;

String s;

String s1, s2;　　　　　　

Object o;

Object obj = new Object();

public String name;

输出内容

Response.write(‘foo’);

Response.Write("foo")

Debug.print ("foo")

Response.Write("foo");

Response.Write("foo");

注释

// This is a comment　　　　　

/* This is a 
multi-line 
comment */

‘ This is a comment
‘ This is a

‘ multi-line
‘ comment

// This is a comment

/* This is a 
multi-line 
comment */

// This is a comment

/* This is a 
multi-line 
comment */

读取数据集合数组 
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

var

s, value: String

begin

s := Request.QueryString[‘Name’];

Value := Request.Cookies(‘Key’).Value;

end;

Dim s as String = Request.QueryString("Name")

Dim value As String = Request.Cookies("Key")
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

String s=Request.QueryString["Name"];

String value=http://www.mamicode.com/Request.Cookies["key"];　

String s = request. getParameter("Name");

String value;

Cookie ck = null;

Cookie args[] = Request.getCookies();

for(int i = 0; i<args.length; i++){

    ck = args[i];

    if(ck.getName().equals("key "))

        value = http://www.mamicode.com/ck.getValue();

}

字符串操作

var

s1, s2: String;

begin

s2 := ‘hello’;

s2 := s2 + ‘world’;

s1 := s2 + ‘!!!’;

End;

Dim s1, s2 As String 
s2 = "hello" 
s2 &= " world" 
s1 = s2 & " !!!"　
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

String s1; 
String s2 = "hello"; 
s2 += " world"; 
s1 = s2 + " !!!";

String s1; 
String s2 = "hello"; 
s2 += " world"; 
s1 = s2 + " !!!";

类别

delphi.net语法

vb.net 语法(语法不区分大小写)

c#.net 语法

java

初始化变量

var

s: String;

I: Integer;

A: array of double = {3.00, 4.00, 5.00}

Dim s As String = "Hello World" 
Dim i As Integer = 1 
Dim a() As Double = { 3.00, 4.00, 5.00 }　

String s = "Hello World"; 
int i = 1 
double[] a = { 3.00, 4.00, 5.00 };

String s = "Hello World"; 
int i = 1 
double[] a = new double[]{ 3.00, 4.00, 5.00 };

定义简单数据集

Public Record Name: String;

Function GetName: String; Begin

  ...;

  Result := …;

End;

Procedure SetName(Value: String); Begin

  … := Value;

End;

End

Public Property Name As String

Get 
... 
Return ...; 
End Get

Set

... = Value; 
End Set

End Property　

public String name

{ 
get{
... 
return ...; 
}

set{
... = value; 
}

}　

private String name;

public String getName(){

return name;

}

public void setName(String name){

this.name = name;

}

数组

var

a[0..2]: string

a[0..2,0..2]: String

begin

a[0] := ‘1’;

a[1] := ‘2’;

a[2] := ‘3’;

a[0,0] := ‘1’;

a[1,0] := ‘2’;

a[2,0] := ‘3’;

End;

Dim a(3) As String 
a(0) = "1" 
a(1) = "2" 
a(2) = "3" 
Dim a(3,3) As String 
a(0,0) = "1" 
a(1,0) = "2" 
a(2,0) = "3"

String[] a = new String[3]; 
a[0] = "1"; 
a[1] = "2"; 
a[2] = "3”;
String[][] a = new String[3][3]; 
a[0][0] = "1"; 
a[1][0] = "2"; 
a[2][0] = "3";　

String[] a = new String[3];

a[0] = "1";

a[1] = "2";

a[2] = "3";

String[][] a = new String[3][3];

a[0][0] = "1";

a[1][0] = "2";

a[2][0] = "3";

对象操作

var

bj: MyObject;

iObj: IMyObject;

begin

obj := Session(‘Some Value’);

iObj = Obj as IMyObject;

end;

Dim bj As MyObject = Session("Some Value")

Dim iObj As IMyObject = CType(obj, IMyObject)

MyObject obj = (MyObject)Session["Some Value"];
IMyObject iObj = obj;

MyObject obj = (MyObject)Session.getItem ("Some Value");
IMyObject iObj = obj;

类型转换

var

i: Integer;

s: String;

d: Double;

begin

i := 3;

s = i.ToString();

d := Double.Parse(s);

end;

Dim i As Integer = 3

Dim s As String = i.ToString()

Dim d As Double = Double.Parse(s):

int i = 3; 
String s = i.ToString(); 
double d = Double.Parse(s);

int i = 3; 
String s = Integer.valueof(i).toString();

double d = Double.valueof(s);

类别

delphi.net语法

vb.net 语法(语法不区分大小写)

c#.net 语法

java

If 结构

If Not (Request.QueryString = Null) then

begin

...

End;

If Not (Request.QueryString = Null)
 ... 
End If　
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

if (Request.QueryString != null)

{
... 
}　

if (Request.QueryString != null)

{
... 
}　

Case 结构

Case FirstName of

‘John’:

...

‘Paul’:

…

‘Ringo’:

…

End

Select (FirstName)
case "John" :

... 
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

case "Paul" :
...
case "Ringo" :
...
End Select

switch (FirstName){
case "John" :
  ... 
  break; 
case "Paul" : 
  ... 
  break; 
case "Ringo" : 
  ...
  break; 
}

int flag = 1;

switch (flag){

case 1:

    ...

        break;

case 2:

    ...

        break;

}

For 循环

Var

I: Integer;

Begin

For I := 0 to 2 do

A[i] := ‘test’;

End;

Dim I As Integer

For I = 0 To 2
　a(I) = "test"
Next

for (int i=0; i<3; i++)

 a(i) = "test";

for (int i=0; i<3; i++)

 a[i] = "test";

While 循环

Var

I: Integer;

Begin

I := 0;

While i< 3 do

Begin

Console.WriteLen(i.ToString());

I := I + 1;

End;

End;

Dim I As Integer
I = 0

Do While I < 3

Console.WriteLine(i.ToString());

I = I + 1
Loop

int i = 0; 
while (i<3)

{
Console.WriteLine(i.ToString());
i += 1;

}

int i = 0; 
while (i<3)

{
System.out.println(i);
i += 1;

}

类别

delphi.net语法

vb.net 语法(语法不区分大小写)

c#.net 语法

java

类定义和继承

unit MySpace

interface

uses  System;

type

  Foo = Class(Bar)

  private

    x: integer;

  public

    procedure Create; override; //构造函数

    procedure Add(x: Integer);

    function GetNum: Integer;

  end;

implementation

procedure Foo.Create;

begin

  inherited;  x := 4;

end;

procedure Foo.Add(x: Integer); begin

Self.x := Self.x + x;

end;

function Foo.GetNum: Integer; begin

Result := x;

end;

end;

Imports System

Namespace MySpace

Public Class Foo : Inherits Bar 
Dim x As Integer 

Public Sub New() ‘构造函数
  MyBase.New() 
  x = 4 
End Sub

Public Sub Add(x As Integer) 
  Me.x = Me.x + x 
End Sub

Public Function GetNum() As Integer 
  Return x 
End Function

End Class

End Namespace 
‘ vbc /out:libraryvb.dll /t:library library.vb　

using System;

namespace MySpace

{

public class Foo : Bar

{
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

int x;

 
public Foo() {x = 4; } //构造函数
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

public void Add(int x) { this.x += x; }
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

public int GetNum() { return x; } 
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

}

}
// csc /out:librarycs.dll /t:library library.cs

import java.lang.*;

package MySpace;

public class Foo extends Bar{

private int x; //私有变量

 
public Foo() {x = 4; } //构造函数
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

public void Add(int x) { this.x += x; } //过程
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

public int getNum() { return x; } //函数
<!--[if !supportlinebreaknewline]-->
<!--[endif]-->

}

事件处理

procedure Button1OnClick(Sender: Object;E: EventArgs);

begin

...

end;

‘ByRef 在Pascal中对象是缺省参数传递方式

Sub Button1_Click(Sender As Object, E As EventArgs)

... 
End Sub

‘ByVal 在VB中对象是是缺省参数传递方式

void Button1_Click(Object sender, EventArgs E)

{
... 
}　
‘ByRef 在C#中对象是是缺省参数传递方式

            jButton1.addMouseListener(new java.awt.event.MouseAdapter() {

public void mouseClicked(java.awt.event
.MouseEvent evt) {

Button1_Click(evt);

}

});

private void Button1_Click(java.awt. event
.MouseEvent evt) {

}