Visual Studio 是微软公司推出的开发环境。是目前最流行的 Windows 平台应用程序开发环境。目前已经开发到 9.0 版本，也就是 Visual Studio 2008。

Visual Studio 可以用来创建 Windows 平台下的 Windows 应用程序和网络应用程序，也可以用来创建网络服务、智能设备应用程序和 Office 插件。

1998 年，微软公司发布了 Visual Studio 6.0。所有开发语言的开发环境版本均升至 6.0。这也是 Visual Basic 最后一次发布，从下一个版本 (7.0) 开始，Microsoft Basic 进化成了一种新的面向对象的语言：Microsoft Basic.NET。由于微软公司对于 Sun 公司 Java 语言扩充导致与 Java 虚拟机不兼容而 Sun 被告上法庭，微软在后续的 Visual Studio 中不再包括面向 Java 虚拟机的开发环境。

2002 年，随着 .NET 口号的提出与 Windows XP / Office XP 的发布，微软发布了 Visual Studio .NET（内部版本号为 7.0）。在这个版本的 Visual Studio 中，微软剥离了 Visual FoxPro 作为一个单独的开发环境以 Visual FoxPro 7.0 单独销售，同时取消了 Visual InterDev。与此同时，微软引入了建立在 .NET 框架上（版本1.0）的托管代码机制以及一门新的语言 C# （读作 C Sharp，意为 C++++）。C# 是一门建立在 C++ 和 Java 基础上的现代语言，是编写 .NET 框架的语言。

.NET 的通用语言框架机制（Common Language Runtime, CLR），其目的是在同一个项目中支持不同的语言所开发的组件。所有 CLR 支持的代码都会被解释成为 CLR 可执行的机器代码然后运行。

Visual Basic、Visual C++ 都被扩展为支持托管代码机制的开发环境，且 Visual Basic .NET更是从 Visual Basic 脱胎换骨，彻底支持面向对象的编程机制。而 Visual J++ 也变为 Visual J#。后者仅语法同 Java 相同，但是面向的不是 Java 虚拟机，而是 .NET Framework。

2003 年，微软对 Visual Studio 2002 进行了部分修订，以 Visual Studio 2003 的名义发布（内部版本号为 7.1）。Visio 作为使用统一建模语言（UML）架构应用程序框架的程序被引入，同时被引入的还包括移动设备支持和企业模版。.NET 框架也升级到了 1.1。

2005 年，微软发布了 Visual Studio 2005。.NET 字眼从各种语言的名字中被抹去，但是这个版本的 Visual Studio 仍然还是面向 .NET 框架的（版本2.0）。它同时也能开发跨平台的应用程序，如开发使用微软操作系统的手机的程序等。总体来说是一个非常庞大的软件，甚至包含代码测试功能。

这个版本的 Visual Studio 包含有众多版本，分别面向不同的开发角色。同时还永久提供免费的 Visual Studio Express 版本。

随着即将发布的 Windows Vista （内部名称：Longhorn) 和 Office 2007，Visual Studio 9 也渐渐浮出水面。Visual Studio 9 目前可以确定的是支持建立于 DHTML 基础上的 AJax 技术，这种微软在 Visual InterDev 时代提出的基于异步的客户端动态网页技术在当年并没有像微软预期中的那么流行起来，反而随着 GMail 等应用而东山再起，渐渐成为主流网络应用之一。同时 Visual Studio 9 会强化对于数据库的支持以及微软新的基于工作流（Workflow）的编程模型。预计为了保持与 Office 系列的统一，Visual Studio 9 的名称为 Visual Studio 2008。

20xx年，Visual Studio9也就是Visual Studio 2008将和Windows Server 2008同时发布

创建满足关键性要求的多层次的智能客户端、Web、移动或基于Microsoft Office的应用程序。 使用Visual Studio 2005, 专业开发人员能够：

使用改进后的可视化设计工具、编程语言和代码编辑器，享受高效率的开发环境

在统一的开发环境中，开发并调试多层次的服务器应用程序

使用集成的可视化数据库设计和报告工具，创建SQL Server 2005解决方案

使用Visual Studio SDK创建可以扩展Visual Studio IDE的工具

Microsoft为单独工作或在小型团队中的专业开发人员提供了两种选择，Visual Studio 2005 Professional Edition和用于Microsoft Office系统的Visual Studio 2005工具。每种版本都在标准版的特性上进行了扩展，包括用于远程服务程序开发和调试、SQL Server2005开发的工具，以及完整的、没有限制的开发环境。每种产品都可以单独购买或打包定购。

 

第二篇：微软 Visual Studio 20xx基础教程

微软 Visual Studio 2008基础教程

Visual Studio2008发布后，有大量的VB.net爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行，所以到现在为止还有一部分人处于观望中，并没有转向这个平台。然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。本篇文章将主要介绍怎样利用VB.net去编写一个计算器程序，程序虽然不复杂，但是其中所运用的知识和代码非常具有代表性，在平时开发中也是经常需要用到的。希望对VB.net2008的初学者带来帮助。

打开 Visual Studio 2008。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。单击确定 (OK)。

在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性设置请查看以下的表格。

详细的界面请查看图1

图1

好了基本的界面已经设计好了，接下来我们来添加相应的代码了，首先进行必要的声明事件。

Public Class Form1

Dim strdx() As String = {"0", "0", "0"} '声明一个字符串，用以存取数值

Dim calcount1 As String = "0"

Dim calcount2 As String = "0"

Dim strvalue As Boolean = False

然后需要进入Button1.Click事件中.代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If strdx(0) = "0" Then

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "0"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "0"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button2.Click事件中.代码如下

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

strvalue = True

strdx(0) = strdx(0) & "."

TextBox1.Text = strdx(0)

End Sub

进入Button3.Click事件中.代码如下

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

strdx(0) = "0"

strdx(1) = "0"

strdx(2) = "0"

calcount1 = "0"

calcount2 = "0"

strvalue = False

TextBox1.Text = "0."

End Sub

进入Button5.Click事件中.代码如下

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If strdx(2) = "0" Then

Select Case calcount1

Case "+"

TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case "-"

TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case "*"

TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case "/"

If strdx(0) = "0" Then

TextBox1.Text = "error!"

Else

TextBox1.Text = Str(Val(strdx(1)) /

Val(strdx(0)))

End If

End Select

ElseIf calcount2 = "*" Then

strdx(0) = Str(Val(strdx(0)) * Val(strdx(2)))

Select Case calcount1

Case "+"

TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case "-"

TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case "*"

TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))

Case "/"

If strdx(0) = "0" Then

TextBox1.Text = "error!"

Else

TextBox1.Text = Str(Val(strdx(1)) /

Val(strdx(0)))

End If

End Select

Else : calcount2 = "/"

strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))

Select Case calcount1

Case "+"

TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0))) Case "-"

TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0))) Case "*"

TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0))) Case "/"

If strdx(0) = "0" Then

TextBox1.Text = "error!"

Else

TextBox1.Text = Str(Val(strdx(1)) /

Val(strdx(0)))

End If

End Select

End If

End Sub

进入Button6.Click事件中.代码如下

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If strdx(0) = "0" Then

strdx(0) = "1"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "1"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "1"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button7.Click事件中.代码如下

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If strdx(0) = "0" Then

strdx(0) = "2"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "2"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "2"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button8.Click事件中.代码如下

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If strdx(0) = "0" Then

strdx(0) = "3"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "3"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "3"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button9.Click事件中.代码如下

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

If calcount1 = "0" Then

calcount1 = "+"

strdx(1) = strdx(0)

strdx(0) = "0"

Else : Select Case calcount1

Case "+"

strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = "0"

calcount1 = "+"

Case "-"

strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = "0"

calcount1 = "+"

Case "*"

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"

calcount1 = "+"

Case "/"

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"

calcount1 = "+"

End Select

End If

End Sub

进入Button10.Click事件中.代码如下

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If calcount1 = "0" Then

calcount1 = "-"

strdx(1) = strdx(0)

strdx(0) = "0"

Else : Select Case calcount1

Case "+"

strdx(1) = Str(Val(strdx(0)) + Val(strdx(1))) strdx(0) = "0"

calcount1 = "-"

Case "-"

strdx(1) = Str(Val(strdx(1)) - Val(strdx(0))) strdx(0) = "0"

calcount1 = "-"

Case "*"

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"

calcount1 = "-"

Case "/"

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"

calcount1 = "-"

End Select

End If

End Sub

进入Button11.Click事件中.代码如下

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

If strdx(0) = "0" Then

strdx(0) = "4"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "4"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "4"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button12.Click事件中.代码如下

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

If strdx(0) = "0" Then

strdx(0) = "5"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "5"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "5"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button13.Click事件中.代码如下

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

If strdx(0) = "0" Then

strdx(0) = "6"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "6"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "6"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button14.Click事件中.代码如下

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

If calcount1 = "0" Then

calcount1 = "*"

strdx(1) = strdx(0)

strdx(0) = "0"

Else : Select Case calcount1

Case "+"

calcount2 = "*"

strdx(2) = strdx(0)

strdx(0) = "0"

Case "-"

calcount2 = "*"

strdx(2) = strdx(0)

strdx(0) = "0"

Case "*"

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"

calcount1 = "*"

Case "/"

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"

calcount1 = "*"

End Select

End If

End Sub

进入Button15.Click事件中.代码如下

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

If calcount1 = "0" Then

calcount1 = "/"

strdx(1) = strdx(0)

strdx(0) = "0"

Else : Select Case calcount1

Case "+"

calcount2 = "/"

strdx(2) = strdx(0)

strdx(0) = "0"

Case "-"

calcount2 = "/"

strdx(2) = strdx(0)

strdx(0) = "0"

Case "*"

strdx(1) = Str(Val(strdx(0)) * Val(strdx(1))) strdx(0) = "0"

calcount1 = "/"

Case "/"

strdx(1) = Str(Val(strdx(1)) / Val(strdx(0))) strdx(0) = "0"

calcount1 = "/"

End Select

End If

End Sub

进入Button16.Click事件中.代码如下

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

If strdx(0) = "0" Then

strdx(0) = "7"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "7"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "7"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button17.Click事件中.代码如下

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

If strdx(0) = "0" Then

strdx(0) = "8"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "8"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "8"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button18.Click事件中.代码如下

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

If strdx(0) = "0" Then

strdx(0) = "9"

TextBox1.Text = strdx(0) & "."

ElseIf strvalue = False Then

strdx(0) = strdx(0) & "9"

TextBox1.Text = strdx(0) & "."

Else

strdx(0) = strdx(0) & "9"

TextBox1.Text = strdx(0)

End If

End Sub

进入Button19.Click事件中.代码如下

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

TextBox1.Text = "0."

End Sub

进入Button20.Click事件中.代码如下

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

Me.Close()

End Sub

最后的代码如图2:

图2

程序代码输入完成，接下来我们来运行一下程序，进行测试。最后程序运行效果如图

3

图3

程序运行稳定能够进行正常的加减乘除等，如果你觉得功能不够，你还可以再去添加一些新的功能。