C#与VB7是微软.NET的主要编程工具。本文通过实例比较C#语言与VB7语言及其程序设计，每个程序都先用VB7语言写出，再用C#语言改写，从中看出现在的VB7实际就是C#，而将（不同语言的）编程统一到.NET类函数库就是微软.NET的精髓。

一、变量声明

　　C#与VB7的变量基本上是一致的。与VB6不同，VB7在声明变量的同时可赋初值，不再用Dim x这种没有确定类型的声明，VB7的整型（Integer）变量是4字节（32位整数，-2147483648--2147483647），长整型（Long）是8字节（64位整数，-9,223,372,036,854,775,808--9,223,372,036,854,775,807）。
C#
VB7

int x;

long y

String s;

String s1, s2;

Object o;

Object obj = new Object();

public String name;
Dim x As Integer

Dim y As Long

Dim s As String

Dim s1, s2 As String

  

Dim obj As New Object()

Public name As String


下面的VB7与C#程序编译后运行结果相同：
x=99999999
s= VB7程序设计100例
s1= VB7 Programming , s2 ="VB7程序设计
?
VB7的例程（01_vb.vb）：
Imports System
Public Module LY
Public name As String  
Sub Main()
Dim x As Integer = 99999999
Dim s As String = "VB7程序设计100例"
Dim s1, s2 As String  
注释：一切变量声明都要有As，不许可如：Dim o 的声明；声明变量的同时可赋初值
Dim obj As New Object()  
s1 = "VB7 Programming" : s2 ="VB7程序设计"  
Console.WriteLine("x=",x) 注释：显示变量x
Console.WriteLine("s=",s) 注释：显示变量s
Console.WriteLine("s1=, s2=",s1,s2) 注释：显示变量s1,s2
End Sub
End Module
?  
C#的例程（01_c#.cs）与VB7例程几乎完全相同：
using System;
class LY{
public String name;  
static void Main() {
int x=99999999;
String s= "VB7程序设计100例";  
String s1, s2;  
Object o;  
Object obj = new Object();  
s1 = "VB7 Programming"; s2 ="VB7程序设计";  
Console.WriteLine("x=",x); //显示变量x
Console.WriteLine("s=",s); //显示变量s
Console.WriteLine("s1=, s2=",s1,s2); //显示变量s1,s2
}
}

二、NET类函数库的调用

　　C#与VB7都调用同一个.NET的类函数库，因此，C#与VB7程序调用.NET类函数库的指令完全一样。
下面的例子定义了方法input()实现从键盘输入一个长整数m，方法CalcSqrt(mm As Long)计算并显示m的平方根；用到了.NET类函数库中System的控制台类Console的输入输出方法和数学计算类Math的（求平方根）方法Sqrt；此外，用了类Int64的方法FromString(cc)将数字字符串cc转为长整数。
程序运行结果（假定输入为999，注意，数学函数返回值一般是双精度的）
请键入一个正整数：
计算结果： Sqrt(999)=31.606,961,258,558,215
容易看出，这个C#与VB7程序几乎是完全一样的，写出了VB7程序，很容易就可改为C#程序；将（不同语言的）编程统一到.NET类函数库，这是微软.NET的精髓。
?  
VB7的例程（02_vb.vb）：
Imports System
Public Module LY
Dim m As Long 注释：不区分大小写，Long可写为long, LONG或LoNg
Dim q As Double  
注释：从键盘输入一个长整数m
Public Sub input()
Console.Write("请键入一个正整数：")
Dim cc As string=Console.ReadLine() 注释：得到键盘输入的数字字符串
m=Int64.FromString(cc) 注释：将这个字符串转换为64位整数m
End Sub
注释：计算并显示mm的平方根
Public Sub CalcSqrt(mm As Long)
q=Math.Sqrt(mm) 注释：数学函数Sqrt在System的类Math中，返回Double,不可用Single
Console.Write("计算结果：Sqrt()=",m,q) 注释：显示结果
End Sub
Sub Main()
input
CalcSqrt(m)
End Sub
End Module

查看本文来源

C#的例程（02_c#.cs）与VB7例程几乎完全相同：
using System;
class LY{
static long m; //注意大小写：不可把long写为Long
static double q;
//从键盘输入一个长整数m
public static void input(){
Console.Write("请键入一个正整数：");
string cc =Console.ReadLine(); //得到键盘输入的数字字符串
m=Int64.FromString(cc); //将这个字符串转换为64位整数m
}
//计算并显示mm的平方根q
public static void CalcSqrt(long mm){
q=Math.Sqrt(mm); //数学函数Sqrt在System的类Math中，返回Double,不可用Single
Console.Write("计算结果：Sqrt()=",m,q); //显示结果
}
static void Main(){
input();
CalcSqrt(m);
}
}

三、面向对象编程

　　上面的例子里，定义了方法input()实现从键盘输入一个长整数m，方法CalcSqrt(mm As Long) 计算并显示m的平方根，然后在Main()方法里调用；下面将方法input()与方法CalcSqrt(mm As Long)独立出来放到一个专门的类（LY0）里，然后在类LY的Main()方法中生成实例对象使用：
程序运行结果仍然是与（二）完全相同。
在面向对象的情况下，这个C#与VB7程序也几乎是完全一样的，从这个意义上可以说：VB7就是C#，C#也就是VB7。  
?  
VB7的例程（03_vb.vb）：
Imports System
Class LY0
注释：变量m与q现在封装到类LY0里被保护，因为另一个类LY要引用m，对m加public
Public Dim m As Long  
Dim q As Double  
注释：从键盘输入一个长整数m
Public Sub input()
Console.Write("请键入一个正整数：")
Dim cc As string=Console.ReadLine() 注释：得到键盘输入的数字字符串
m=Int64.FromString(cc) 注释：将这个字符串转换为64位整数m
End Sub
注释：计算并显示mm的平方根
Public Sub CalcSqrt(mm As Long)
q=Math.Sqrt(mm) 注释：数学函数Sqrt在System的类Math中，返回Double,不可用Single
Console.Write("计算结果：Sqrt()=",m,q) 注释：显示结果
End Sub
End Class
Public Module LY
Sub Main()
Dim obj As LY0 = new LY0()
obj.input
obj.CalcSqrt(obj.m)
End Sub
End Module
?  
C#的例程（02_c#.cs）与VB7例程几乎完全相同：
using System;
class LY0{
//变量m与q现在封装到类LY0里被保护，因为另一个类LY要引用m，对m加public
public long m;  
double q;
//从键盘输入一个长整数m
public void input(){
Console.Write("请键入一个正整数：");
string cc =Console.ReadLine(); //得到键盘输入的数字字符串
m=Int64.FromString(cc); //将这个字符串转换为64位整数m
}
//计算并显示mm的平方根q
public void CalcSqrt(long mm){
q=Math.Sqrt(mm); //数学函数Sqrt在System的类Math中，返回Double,不可用Single
Console.Write("计算结果：Sqrt()=",m,q); //显示结果
}
}
class LY{
static void Main(){
LY0 obj = new LY0();
obj.input();
obj.CalcSqrt(obj.m);
}
}

查看本文来源