vs2008入门教程
- 格式：pdf
- 大小：13.13 MB
- 文档页数：94
下载文档原格式
合集下载
VS2008IDE入门
IDE 快速入门自从开始开发软件以来，就需要使用工具来帮助我们编写、编译和调试应用程序。
Microsoft Visual Studio 2008是最佳组合的集成开发环境(Intergrated Development Environment ，IDE)继续演化的下一个版本。
如果这是您第一次使用Visual Studio ，本章就是一个很好的起点。
即使您使用过Visual Studio 的以前版本，也应快速浏览本章。
本章介绍Visual Studio 2008的用户操作，并学习使用各种菜单、工具栏和窗口。
作为IDE 的快速入门，本章不会详细列举每一个可以更改的设置，也不会介绍如何自定义IDE 的布局，这些话题会在后面的章节讨论。
1.1 入门每次启动Visual Studio 时，都会显示Microsoft Visual Studio 2008闪屏。
与大多数闪屏一样，Microsoft Visual Studio 2008闪屏也显示了该产品的版本、已得到授权的用户等信息，如图1-1所示。
图 1-1更重要的是，Visual Studio 闪屏包含一个已安装的主组件列表。
如果安装了第三方插件，这些产品就会显示在这个列表中。
第 章 1第Ⅰ部分集成开发环境4第一次运行Visual Studio 2008时，闪屏仅显示一会儿，之后屏幕就会提示选择默认的环境设置。
让没有使用过某产品的人想象一下如何使用该产品是不可能的。
Microsoft把许多语言和技术都融入到了一个IDE中，所以该IDE必须要考虑到开发人员在工作方式上的微妙(有时不那么微妙)区别。
如果花点时间看看图1-2中所列出的各个选项；就会发现受影响的环境设置包括各个窗口、菜单、工具栏、快捷键的位置和可见性。
例如，如果选择General Development Settings选项作为默认设置，该屏幕就会描述将要被应用的这个改变。
图1-2使用Visual Studio以前版本的Visual Basic .NET开发人员要注意，不要使用Visual Basic Development Settings选项，这个选项是为VB6开发人员配置的，它只会激怒Visual Basic .NET 开发人员，因为Visual Basic .NET开发人员要使用不同的快捷键映射。
Visual C# 2008程序设计教程01
1.1 Microsoft .NET平台
1.1.1 .NET Framework 3.5概述 .NET Framework目前有很多的版本，本书以.NET Framework 3.5版本为基础。.NET Framework 3.5主要是扩 展了.NET Framework 3.0版本，而.NET Framework 3.0版本 是对.NET Framework 2.0 版本的扩展。 用图形的方式描述.NET 3.0的架构如下页图所示
1.2 Visual Studio 2008开发环境
1.2.2 菜单栏
菜单栏中包括了Visual Studio 2008的大多数功能，菜单项众多。 Visual Studio 2008的菜单随着不同的项目，不同的文件进行着动态的 变化。此处仅对常用的文件菜单，编辑菜单和视图菜单进行简单的介绍， 以方便读者尽快的熟悉Visual Studio 2008常用菜单的使用。 (1) 文件菜单 文件菜单提供了对Visual Studio 2008中文件及项目操作的各种功 能，其菜单项功能如下页表所示。
查找和替换
转到 将文件作为文本插 入 高级
查找和替换功能
转到指定行 将文件作为文本插入当前 文件 高级功能菜单
1.2 Visual Studio 2008开发环境
1.2.2 菜单栏
(3) 视图菜单 视图菜单中各菜单项提供的功能比较简单，主要是对各种窗口视图 的显示和隐藏的控制，本节稍后部分对各个视图的功能有较详细的说明。
1.2 Visual Studio 2008开发环境
Visual Studio 2008是一套完整的开发工具集，包含了 大量的功能。它主要用于生成 Web应用程序、XML Web Services、桌面应用程序和移动应用程序。 该集成开 发环境中为开发人员提供了大量的实用工具以提高工作效率。 这些工具包括了自动编译、项目创建向导、创建部署工程等 等。
vs2008实用操作
1，Visual Studio 2008自带的1000多个Windows 系统使用的各种图标、光标和动画文件在Visual Studio 2008的安装目录下，\Microsoft Visual Studio 9.0\Common7\VS2008ImageLibrary\2052文件夹下面，有一个VS2008ImageLibrary.zip，这个文件里面将常用的Windows系统图标、光标和动画文件集中到了一起。
包括Office、Win9x、WinVista和WinXP等系统使用的，可以免费使用哦。
2，删除多余的using指令，并且排序当我们新一个类的时候，Visual Studio 会将常用的命名空间using在类的头部。
但是在我们写完一个类的时候，有些using是多余的，删除多余的using，再排一下序，可以使代码看起来更清晰。
Visual Studio 2008 已经为我们做好了这一切。
在代码编辑区点击右键，可以看到"组织using"菜单，这就是我们需要的了。
3，复制或删除一行代码时，不用先选择它如果你想复制一行代码，你只需要简单的按CTRL+c拷贝，然后按CTRL+v粘贴这行就可以了，而不需要选择整行的代码。
如果你想删除一行代码，只需按CTRL+x就可以了。
4，取代其他编辑器里Ctrl+F的方便的增量查找用过ultraedit会对那两个上下搜索按钮印象深刻，Visual studio里有更厉害的。
操作方法：1）.按Ctrl+I键；2）.键入你要搜索的文本。
注意：这时你会看到光标跳至第一个匹配的地方，匹配的文本高亮显示；3）.再次按下Ctrl+I键，光标将跳至下一个匹配的文本；4）.按Ctrl+Shift+I可向后搜索；5）.要停止搜索，按ESC键；5，如何在编辑器中进行框式选择操作方法：你是否知道VS提供了两种不同的选择模型：流式和框式吗？大家应该都熟悉流式选择模型了，只要使用Shift+方向键即可（或者使用鼠标进行选择）。
VS2008简明教程
汇编语言-〉面向过程的程序设计-〉面向对象的程序设计 -〉面向托管的程序设计-〉未来。
比尔盖茨创建微软公司，以 BASIC 起家，开发推广了 MSDOS，Windows 系列操作系 统，和形式各样的软件。包括今天的专题 VS2008 开发软件。
Windows 平台（无论是 windows xp,还是 windows 7）已经成为每个人进入信息社会的 必经的平台，包括微软公司在内的诸多软件公司，开发了各种各样的软件（娱乐，休闲，工 作，行业等等软件）。
作为一名学习者 VS2008 的来源是个问题，庆幸的是微软公司提供了试用版和体验版， 可以到微软的官方网站（）查询下载。
盗版软件，最好不要使用，至少不要用于商业开发。因为使用盗版软件本身就是损害软 件从业人员的福利和前途，也损害者您自己的前途和福利。尽管，目前很多小型软件公司依 然使用盗版软件做软件开发。
伯兮科技 info@
VS2008 简明教程 version 1.0
写在前面：...............................................................................................................................1 第一章：启动软件...................................................................................................................2 第二章：Hello World ...............................................................................................................2
比尔盖茨创建微软公司，以 BASIC 起家，开发推广了 MSDOS，Windows 系列操作系 统，和形式各样的软件。包括今天的专题 VS2008 开发软件。
Windows 平台（无论是 windows xp,还是 windows 7）已经成为每个人进入信息社会的 必经的平台，包括微软公司在内的诸多软件公司，开发了各种各样的软件（娱乐，休闲，工 作，行业等等软件）。
作为一名学习者 VS2008 的来源是个问题，庆幸的是微软公司提供了试用版和体验版， 可以到微软的官方网站（）查询下载。
盗版软件，最好不要使用，至少不要用于商业开发。因为使用盗版软件本身就是损害软 件从业人员的福利和前途，也损害者您自己的前途和福利。尽管，目前很多小型软件公司依 然使用盗版软件做软件开发。
伯兮科技 info@
VS2008 简明教程 version 1.0
写在前面：...............................................................................................................................1 第一章：启动软件...................................................................................................................2 第二章：Hello World ...............................................................................................................2
VS2008简明教程1_1
VS2008简明教程(重点:C#) version 1.1写在前面： (1)第一章：启动软件 (2)第二章：Hello World (2)2.1：使用BASIC构建HelloWorld的控制台程序 (3)2.2：使用BASIC创建窗体应用程序helloworld (9)2.3：使用C#创建控制台程序helloworld (14)2.4：使用C#创建窗口应用程序helloworld (17)2.5：使用C++的CLR创建控制台程序helloworld (20)2.6：使用C++创建Win32控制台程序helloworld (22)2.7：使用C++创建CLR窗体程序helloworld (26)2.8：使用C++创建win32控制台程序helloworld (30)第三章：简单的串口程序 (34)3.1：串口控制台程序 (34)串口控制台程序详细步骤解析： (35)构建VC++控制台串口程序 (35)VISUAL BASIC控制台串口程序 (41)多线程编程 (46)SOCKET程序 (47)服务器端 (47)客户端 (48)播放声音 (49)关于伯兮科技的资源：https:///projects/mcucontrolproje//lglgang/伯兮科技写在前面：程序设计，经过了机器语言-〉汇编语言-〉面向过程的程序设计-〉面向对象的程序设计-〉面向托管的程序设计-〉未来。
比尔盖茨创建微软公司，以BASIC起家，开发推广了MSDOS，Windows系列操作系统，和形式各样的软件。
包括今天的专题VS2008开发软件。
Windows 平台（无论是windows xp,还是windows 7）已经成为每个人进入信息社会的必经的平台，包括微软公司在内的诸多软件公司，开发了各种各样的软件（娱乐，休闲，工作，行业等等软件）。
学习和使用VS2008，其一是为了开发属于自己的应用或软件；其二是为了谋取公司的某个职位，做企业的应用和开发，或者进入软件巨头的公司，开发和完善我们耳熟能详的专业软件（比如：Photoshop等）本简明教程，只作为一个通俗入门读物。
vs2008入门教程
Visual Studio 2008 入门教程目录Visual Studio 2008 入门教程 (1)2、选择矩形区域（框式） (5)3、分割窗口和创新建窗口 (5)4、全屏模式 Shift + Alt + Enter (6)5、利用查找组合框查找当前文档 (6)6、文档自动换行 (6)7、创建和修改VS的快捷键 (6)8、使用快捷键来注释和取消注释 (7)9、格式化文档、选中文本或当前行 (7)10、转换代码中的空格和Tab字符 (7)11、在当前行的上面和下面插入一行 (7)12、调整字符、词或行的顺序 (7)13、删除一行开头的水平空白字符 (8)14、如何跟踪编辑后的修改(修订) (8)15、使用快捷键进行字符大小写转换 (8)16、改变书签的颜色 (8)17、用Ctrl +W选中当前单词 (8)18、剪切和粘贴折叠代码 (8)19、折叠和展开代码 (9)20、隐藏大纲标记，但仍可以大纲显示 (9)21、隐藏水平或垂直滚动条 (9)22、不用跳转行的对话框来实现转到某行 (9)23、通过返回标记，在编辑器向前或向后定位代码 (9)24、退回上一步的代码“Ctrl+=” (9)25、将光标移到文档当前视图的顶部或底部（无需滚动） (10)26、快捷方式剪切和删除当前行 (10)27、在选中代码段交换光标的位置 (10)28、在标准工具栏上使用撤销 (10)29、避免意外复制空行 (10)31、启动URL定位 (10)32、设置键盘映射方位为：Emacs 和Brief (11)33、设置书签并在书签之间跳转 (11)34、在书签窗口中，定位书签 (11)36、用Ctrl+J语句完成（强迫智能感知） (12)37、增大语句完成提示信息字体 (12)38、在语句完成窗口用键盘切换“通用”和“所有”标签页 (12)39、显示函数的参数 (12)40、复制粘贴函数的参数 (13)41、显示函数的快速信息 (13)42、利用智能感知完成单词 (13)43、使用Ctrl+F在当前文档快速查找 (14)44、在编辑器查找隐藏文本 (14)45、在项目和解决方案里查找 (14)46、使用F3查找下一个匹配结果 (14)47、不打开查找窗口，使用快捷键查找选中的文本 (15)48、给所有快速查询的结果标记上书签 (15)在“快速查找”窗口单击“全部创建标签”按钮，就是在所有匹配的文本所在行，标记上书签。
VS2008--VB编程实例
VS2008——VB编程实例（入门教程）1. VB(Visual Basic)的发展微软公司在1991年推出了建立在Window开发平台基础上的开发工具——Visual Basic 1.0。
随着Window操作平台的不断完善，微软公司也相继推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0，这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。
1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。
1998年又推出Visual Basic6.0，它的功能更加完善。
2.VB语言的基础1.关键字：关键字是指系统使用的具有特定含义的字符。
常用的关键字有：Dim、Private , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。
2.标识符：标识符是指编写代码时定义的名称。
在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称，这些名称就是标识符。
例如：工程1：一个工程的标识符。
Form1：一个窗体的标识符。
Class1：一个类模块的标识符。
Module1：一个模块的标识符。
4.常用数据类型：4.1字符型（String）Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim strA As StringstrA = "Hello world"Label1.Text = strAEnd SubEnd Class上面代码是在VS2008－VB类里建立了Window窗体应用程序，并在窗体上添加一个标签控件（Label1）,用关键字Dim 声名一个字符型变量 strA 并赋值“Hello world”，再把它赋给标签(Label1)。
02 第2章 Visual Studio 2008编程
德载物”。天，即自然，天的运动刚强劲健，相应于此，君子应刚毅坚卓，奋
发图强；大地的气势厚实和顺，君子应增厚美德，容载万物。古代中国人认 为天地最大，它包容万物。 其含义是以深厚的德泽育人利物。人有聪明和愚笨，就如同地形有高低不 平，土壤有肥沃贫瘠之分。农夫不会为了土壤贫瘠而不耕作，君子也不能为 了愚笨不肖而放弃教育。天地间有形的东西，没有比大地更厚道的了，也没
按右键
（1）添加操作
单击左键
（2）启动设置
按右键
（3）浏览设置
在浏览器查看
浏览设置
+
浏览方式
3．页面编辑
在Viasual Studio 2008中可以很方便
的对程序员所编写的网页的字体、字号、对
齐方式进行设置，这一功能由菜单栏的【格 式】菜单项完成，该菜单项包括新建样式、 附加样式表、前景色、背景色、字体、段落、 项目符号和编号、边框和底纹、位置、字体、 两端对齐、转换为超链接等，更为人性化的 是Viasual Studio 2008还提供了【删除格
用版），网址为/downloads，
点击后将下载安装包，这个安装包是ISO格式的映像文件。
2.1.2 Visual Studio 2008的安装
由于Visual Studio 2008下载的安装包是ISO格式的映像文件，所以必须先行采 用下列两种方法之一，才能进行正常安装：
2.4 web.config配置文件
2.5 编写第一个程序
2.3.1 构建Web页面
启动Visula Studio 2008
【文件】
【新建】
出现如 下界面
【网站】
选 择 .net 框 架 版 本
选择网页模板
选择存放方式 文件存放位置
VS2008基本调试技巧与UT初步
逐语句调试
在调用函数的情况下，逐过程调试将执 行函数，然后跳过函数体。
F11逐语句调试 能够看到函数体内的代码逐句执行的情况。
加入WriteLine输出语句。
断言的使用
Debug类(命名空间System.Diagnostics) Debug.Assert(表达式，string str)
添加单元测试项目
直接在解决方案中添加一个新的项目， 选择项目类型为“测试项目”。
单元测试的基本方法是调用被测试代码 的函数，输入函数的参数值，获取返回 结果，然后与预期的测试结果进行比较， 如果相等则认为测试通过，否则认为测 试不通过。
Assert类的使用
在单元测试中，.NET提供了Assert类，用于验 证指定的功能是否满足条件。
从被测代码直接生成单元测试 添加单元测试项目
从被测代码直接生成单单元测试”选项。
在弹出的“创建单元测试”窗口中选择被测方 法，点击“确定”。
在新界面中输入需要创建的单元测试项目的名 称，然后单击“创建”按钮。
从被测代码直接生成单元测试
VS 2008 基本调试技巧与UT初步
断点设置
F9快速断点设置
调试输出
F5调试输出
变量监视
调用堆栈
逐过程调试
在断点处，如果希望继续执行程序，则 可按F5键，程序会运行到下一个断点的 代码行处。
如果要一步步查看程序的执行情况，以 及变量、属性值等，则可按F10键（逐过 程调试的快捷键）。
表达式：“测试条件” str：“提示消息” Debug.Assert(this.textBox1.Text.Length > 0, "输入值为空！"); 在断言中不要调用程序中的方法，避免与程序 发生功能联系。
微软 Visual Studio 2008基础教程
微软 Visual Studio 2008基础教程Visual Studio2008发布后，有大量的爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。
但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行，所以到现在为止还有一部分人处于观望中，并没有转向这个平台。
然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。
本篇文章将主要介绍怎样利用去编写一个计算器程序，程序虽然不复杂，但是其中所运用的知识和代码非常具有代表性，在平时开发中也是经常需要用到的。
希望对2008的初学者带来帮助。
打开 Visual Studio 2008。
在文件 (File) 菜单上，单击新建项目 (New Project)。
在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。
单击确定 (OK)。
在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性设置请查看以下的表格。
详细的界面请查看图1图1好了基本的界面已经设计好了，接下来我们来添加相应的代码了，首先进行必要的声明事件。
Public Class Form1Dim 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.ClickIf strdx(0) = "0"ThenTextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "0"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "0"TextBox1.Text = strdx(0)End IfEnd Sub进入Button2.Click事件中.代码如下Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickstrvalue = Truestrdx(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.Clickstrdx(0) = "0"strdx(1) = "0"strdx(2) = "0"calcount1 = "0"calcount2 = "0"strvalue = FalseTextBox1.Text = "0."End Sub进入Button5.Click事件中.代码如下Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickIf strdx(2) = "0"ThenSelect Case calcount1Case"+"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"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectElseIf calcount2 = "*"Thenstrdx(0) = Str(Val(strdx(0)) * Val(strdx(2)))Select Case calcount1Case"+"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"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectElse : calcount2 = "/"strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))Select Case calcount1Case"+"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"ThenTextBox1.Text = "error!"ElseTextBox1.Text = Str(Val(strdx(1)) /Val(strdx(0)))End IfEnd SelectEnd IfEnd Sub进入Button6.Click事件中.代码如下Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickIf strdx(0) = "0"Thenstrdx(0) = "1"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "1"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "1"TextBox1.Text = strdx(0)End IfEnd Sub进入Button7.Click事件中.代码如下Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickIf strdx(0) = "0"Thenstrdx(0) = "2"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "2"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "2"TextBox1.Text = strdx(0)End IfEnd Sub进入Button8.Click事件中.代码如下Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickIf strdx(0) = "0"Thenstrdx(0) = "3"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "3"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "3"TextBox1.Text = strdx(0)End IfEnd Sub进入Button9.Click事件中.代码如下Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickIf calcount1 = "0"Thencalcount1 = "+"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"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 SelectEnd IfEnd Sub进入Button10.Click事件中.代码如下Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickIf calcount1 = "0"Thencalcount1 = "-"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"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 SelectEnd IfEnd Sub进入Button11.Click事件中.代码如下Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickIf strdx(0) = "0"Thenstrdx(0) = "4"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "4"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "4"TextBox1.Text = strdx(0)End IfEnd Sub进入Button12.Click事件中.代码如下Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.ClickIf strdx(0) = "0"Thenstrdx(0) = "5"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "5"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "5"TextBox1.Text = strdx(0)End IfEnd Sub进入Button13.Click事件中.代码如下Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickIf strdx(0) = "0"Thenstrdx(0) = "6"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "6"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "6"TextBox1.Text = strdx(0)End IfEnd Sub进入Button14.Click事件中.代码如下Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickIf calcount1 = "0"Thencalcount1 = "*"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"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 SelectEnd IfEnd Sub进入Button15.Click事件中.代码如下Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickIf calcount1 = "0"Thencalcount1 = "/"strdx(1) = strdx(0)strdx(0) = "0"Else : Select Case calcount1Case"+"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 SelectEnd IfEnd Sub进入Button16.Click事件中.代码如下Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickIf strdx(0) = "0"Thenstrdx(0) = "7"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "7"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "7"TextBox1.Text = strdx(0)End IfEnd Sub进入Button17.Click事件中.代码如下Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.ClickIf strdx(0) = "0"Thenstrdx(0) = "8"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "8"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "8"TextBox1.Text = strdx(0)End IfEnd Sub进入Button18.Click事件中.代码如下Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.ClickIf strdx(0) = "0"Thenstrdx(0) = "9"TextBox1.Text = strdx(0) & "."ElseIf strvalue = False Thenstrdx(0) = strdx(0) & "9"TextBox1.Text = strdx(0) & "."Elsestrdx(0) = strdx(0) & "9"TextBox1.Text = strdx(0)End IfEnd Sub进入Button19.Click事件中.代码如下Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.ClickTextBox1.Text = "0."End Sub进入Button20.Click事件中.代码如下Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.ClickMe.Close()End Sub最后的代码如图2:图2程序代码输入完成，接下来我们来运行一下程序，进行测试。