VS2008经典教程与MFC编程示例
VS2008下计算器的MFC编程实现..
VS2008下计算器的MFC编程实现简单的计算器编程，完全在VS2008下实现，主要用于熟悉VS2008的功能。
谨以此分享给和我一样初学MFC的朋友们。
STEP1:页面设计1．新建工程首先打开Visual Studio2008，选择MFC应用程序，设定好路径和工程名（这里我设置工程名为为“Calculator”）。
这里要注意的是在创建向导步骤1的时候，我们选择“基本对话框”，其他选项默认即可。
之后我们可以点击完成便看到以下界面：此时我们把当前页面上原配的控件按Delete全部清除（如下图）2．添加控件接着我们按照MFC自带的控件选项进行我们本次计算器的控件添加。
点击右侧的工具栏按钮（以下是控件）我们在原先清空的界面中依次用上图控件画出一个基本的计算器页面（如下图）。
影响用户的心情。
3．修改空间ID和Caption上图各控件类型如下：Edit ControlButtonGroup Box：选择其中一个GroupBox，右键单击，选择[属性]。
在右边显示属性对话框。
每个控件“属性”都有属于它自己的ID，默认的Group Box的ID为IDC_STATIC，而且Cap当然我们为了“顾名思义”，对控件ID进行修改成我们容易辨认的（也可以不改），添加完控件并修改ID。
4个Group Box的ID分别修改为IDC_STATIC_FRAME ,IDC_STATIC_IN, IDC_STATIC_RESULT, IDC_STATIC_BUTTON 控件Edit Control和Button也按相同的办法处理。
ID设置完成可以在“Resourse.h”中查看。
完成修改ID后，就需给控件添加消息响应了。
在属性对话框的上方点击闪电“”图标，添加控件事件。
如对于按钮“”，点击“”点击下拉键头，添加控件事件，页面自动切换到代码的编辑页面，如“添加OnBnClickedButton5”MFC默认下了的响应信息都为On_开头。
计算器的MFC编程实现(VS2008)
计算器的MFC编程实现（二）说明：相对文辑中第一个计算机编程，此程序更侧重于算法的安排。
第一部分：计算器功能介绍图1-1 计算器界面1）计算器通过编辑框显示输入的内容，并显示计算结果。
计算式的输入可以通过键盘或者点击计算器界面上的按钮输入两种方式。
2）输入完成后，点击“”，程序对计算式进行计算。
计算完成后通过编辑框输出结果。
图1-2 计算后的结果3）计算器可以实现十进制数到二进制数或者十六进制数的转变。
在编辑框中输入一个十进制数，点击相应转换按钮，可以显示输出结果。
图1-3 输入十进制数图1-4 转换为二进制数图1-5 转换为十六进制数二、计算器的实现Step1:新建一个MFC应用程序。
图2-1-1 新建MFC应用程序应用程序类型选择“基于对话框”。
图2-1-2 基于对话框的程序Step2：添加控件1.删除原有控件2.调整FRAME的大小。
通过拖动图上标注的拖曳点进行调整。
图2-1-3 调整框架大小3.按下图添加控件并修改控件的Caption和ID（具体修改方法在本文辑第一个计算器编写文档中已经详述）。
图2-1-4 计算器页面布局程序中ID 设置如图。
（Resourse.h ）图2-1-5各控件的ID 设置4.添加控件变量。
为编辑框添加“CString ”型的变量“m_strResult ”。
（具体添加过程在本文辑第一个计算器程序设计中已经详述）Edit ControlButton图2-1-6 添加控件的控制变量5．为各个按钮添加控件事件在本文辑第一个计算器编程中已经详述。
6.修改各控件TAB键的顺序。
在“资源视图”页面中，同时按下“Ctrl”+“D”，各控件的顺序号显示如图。
图2-1-7各控件的顺序表号显示通过调整顺序号调整TAB键的跳转顺序。
7.修改计算器ICON。
导入图标文件。
并在“CCalculatorDlg.cpp”文件中，修改类“CCalculatorDlg”的构造函数中，修改为以下语句。
以下为vs2008的相关操作和代码
以下为vs2008的相关操作和代码：一、简单的逃跑按钮//注意下列方法，定义一个类为了捕获鼠标移动点的方便1，创建一个基于对话框的mfc应用程序选中对话框→属性→Front可以改变整个对话框字体2，创建CButton的派生类，与按钮相关联添加类（图1）3，给对话框添加2个相同按钮“你能抓住我吗？”让两个按钮轮流显示。
其中一个visible 设为false，使初始状态只显示一个按钮。
每个按钮都关联一个变量:添加控件变量（图2）mfc8_1Dlg.h头文件自动添加 #include"mybutton.h"CmyButton类添加消息WM_MOUSEMOVE4，给CmyButton类添加变量5，在OnInitDialog添加以下语句，交换2个button的地址m_btn1.m_pBtn = &m_btn2;m_btn2.m_pBtn = &m_btn1;6，CmyButton::OnMouseMove中添加交换显示的语句ShowWindow(SW_HIDE);//SW_HIDE：隐藏窗口并激活其他窗口。
m_pBtn->ShowWindow(SW_SHOW);//SW_SHOW：在窗口原来的位置以原来的尺寸激活和显示窗口。
大功告成！当然可以SetWindowPos函数实现更客观二、属性表的编辑新建mfc应用程序mfc8_21.创建属性页右键属性ID: IDD_PROP1Caption：属性页1属性页1放置groupboxRadio button 单选框List box列表框属性页3添加组合框ComboBox要向下拉的长一些，使列表能向下展开Style：Dropdown 能向下展开、输入Simple列表和编辑框同时显示Droplist 只能展开选择，不能输入本程序设为Droplist2. 双击属性页1添加类类CPropertyPage的对象表示一张属性表的各页，或者说是被看作是标签对话框。
vs2008mfc教程
VS2008 MFC教程什么是MFC？MFC（Microsoft Foundation Classes）是一组用于Windows开发的C++类库。
它是一种基于对象的编程框架，旨在简化Windows图形用户界面（GUI）应用程序的开发。
MFC提供了许多预定义的类和函数，可用于创建窗口、对话框、菜单、工具栏等常见界面元素。
使用MFC可以大大加快GUI应用程序的开发速度，并提供Windows应用程序的一致外观和行为。
VS2008中的MFCMFC应用程序在Visual Studio 2008中创建一个MFC应用程序非常简单。
可以选择使用MFC应用程序向导，该向导将引导您完成创建应用程序的过程。
在创建应用程序时，您可以选择使用对话框或单文档/多文档界面。
MFC文件结构一个MFC应用程序通常包含多个文件。
以下是一些主要文件和文件夹：•AppName.cpp：包含应用程序的主要函数WinMain。
•AppName.h：包含应用程序的头文件，声明了应用程序类的成员变量和函数。
•AppNameDoc.cpp、AppNameDoc.h：包含应用程序的文档类，并实现了文档的读写功能。
•AppNameView.cpp、AppNameView.h：包含应用程序的视图类，用于处理用户界面和绘图。
•AppNameDlg.cpp、AppNameDlg.h：如果应用程序使用了对话框界面，则会包含对话框类的文件。
MFC消息映射在MFC中，用户界面中的各种事件（如按钮点击、菜单选择等）被称为消息。
消息映射允许您将特定消息与特定函数关联起来。
例如，当用户点击一个按钮时，MFC将自动调用与该按钮关联的函数，从而实现与按钮相关的操作。
MFC使用宏定义来实现消息映射。
您可以通过在类的消息映射表中添加条目来指定消息和对应的函数。
例如：BEGIN_MESSAGE_MAP(CMyView, CView)ON_COMMAND(ID_FILE_OPEN, &CMyView::OnOpenFile) ON_COMMAND(ID_FILE_SAVE, &CMyView::OnSaveFile) END_MESSAGE_MAP()上述代码将ID_FILE_OPEN和ID_FILE_SAVE消息与CMyView类中的OnOpenFile和OnSaveFile函数相关联。
VS2008创建动态库
创建动态库方法一参考MFC手册的例子方法二在vs2008集成环境下开发动态库动态库部分步骤一创建动态库程序步骤二编写动态库代码右击项目名添加一个C++类1 在头文件中添加声明部分#include"stdio.h" // 加入需要用到的函数的头文件class MyDll2{public:__declspec(dllexport)MyDll2(void); //在成员函数前加入__declspec(dllexport) __declspec(dllexport)~MyDll2(void);static__declspec(dllexport) void show();//请注意上面的方法声明中的__declspec(dllexport) 修饰符。
//这些修饰符使DLL 能够导出该方法以供其他应用程序使用};2 在源文件中添加定义部分void MyDll2::show(){printf("调用动态库成功\n");}步骤三设置可以生成动态库文件（.dll）的配置步骤四编译生成动态库文件主程序部分（调用动态库的程序）步骤一创建调用程序步骤二右击主程序项目进入属性页配置动态库引用导入的是动态库头文件所在的文字（.h）动态链接库仅在运行时由可执行文件加载。
必须告诉系统在哪里查找“xxx.dll”。
这是使用PATH 环境变量实现的。
请在“属性页”对话框中，展开“配置属性”节点，并选择“调试”。
在“环境”旁边，键入以下内容：PATH=<path to MathFuncsDll.dll file>，其中<path to MathFuncsDll.dll file>应替换为“MathFuncsDll.dll”的实际位置。
按“确定”保存进行的所有更改。
（不设置也能用，我暂时还不知道为什么）如果要从命令行而不是从Visual Studio 内运行可执行文件，必须从命令提示处手动更新PATH环境变量，如下所示：set PATH=%PATH%;<path to MathFuncsDll.dll file>，其中<path to MathFuncsDll.dll file>应替换为“MathFuncsDll.dll”的实际位置。
Visual C++ 2008 SP1 MFC (OFFICE界面)使用入门
图形画板2008设计文档目录1. 图形后台框架1.1. 基本图形类框架如下：2. 界面框架2.1. 快捷菜单2.2. 主菜单2.3. 工具栏3. 如何创建OFFICE风格的MFC工程4. 如何在工具栏上面添加按钮4.1. 添加菜单主项4.2. 为菜单项添加事件4.3. 添加Ribbon字符4.4. 将按钮添加到工具栏4.4.1. 创建主类别（CMFCRibbonCategory）4.4.2. 创建面板（CMFCRibbonPanel）4.4.3. 添加按钮（CMFCRibbonButton）到面板∙∙1. 图形后台框架1.1. 基本图形类框架如下：2. 界面框架主用应用了Visual Studio 2008 SP1添加的新增强包，可以方面的创建出像OFFCIE2007的Ribbon界面。
Ribbon工具栏是在MainFrm.CPP中的void CMainFrame::InitializeRibbon()生成的整个工具栏CMFCRibbonBar分为2.1. 快捷菜单2.2. 主菜单主菜单按钮CMFCRibbonApplicationButton主菜单CMFCRibbonMainPanel2.3. 工具栏主要分成3层结构：第一层：分类（容器）CMFCRibbonCategory，如图中红色部分所示。
第二层：面板（容器）CMFCRibbonPanel ，如图中红色部分所示。
第三层：元素CMFCRibbonBaseElem，如图中红色部分所示。
先有一个整体的概念~3. 如何创建OFFICE风格的MFC工程以下是创建Visual C++ 2008 SP1创建Office风格的MFC的步骤：首先，新建项目，选择Visual C++ 中的MFC应用程序，输入名称，点击确定接着选择Office的项目类型，MFC的使用选择“在静态库中使用MFC”（这样可以保证在任何Windows系统中都能正确运行，如果选择共享DLL，则只能在有MFC7.0库的机子上正确运行，所以推荐选“在静态库中使用MFC”）接下来的几个步骤都直接按默认即可这里我们先将“导航窗格”的勾去掉（由于本程序没有用到它，所以再此不详细介绍）这里将视图类的基类选为CScrollView,点击完成然后运行一下，基本的雏形就出来啦，简单吧~4. 如何在工具栏上面添加按钮4.1. 添加菜单主项接着继续添加菜单子项，并在属性栏中设置相应的属性，注意Prompt要按照“解释\n标题”这种格式，例如:Prompt绘制一个圆\n画圆做完要记得保存哦4.2. 为菜单项添加事件右键点击需要添加事件的选项，选择添加“事件处理程序”点击“添加编辑”，然后就到视图类的结尾找到这个事件的函数，开始编写事件，可以注意到“函数处理程序名称”是根据“命令名”自动生成的，虽然自己也可以修改，不过还是按默认的比较好，所以也说明上面提到的加入ID时候要根据这样的命名规则来命名。
北风网MFC实战系列第一讲VS2008 IDE环境的使用
标题栏
主按钮
导航标签 帮助按钮
新型菜单栏
快捷标题栏
视图工具面板
状态栏
文档视图
都从CWnd派生而来
扩展客户框架窗口
类OutlookBar控 件面板
扩展主框架窗口
MSDN = Microsoft Developer Network 是微软公司面向软件开发者的一种信息服务
技术文档 微软产品下载 MSDN WebCast 在线电子教程 Blog MSDN 杂志 网络虚拟实验室 BBS
应用程序
ODBC
ODBC驱动 ODBC驱动 ODBC驱动
Access
SQL Server
Oracle
WinSock是巴克利套接字标准在Windows系统中的实 现。 套接字本质是一组与具体网络协议无关的网络编程 接口。 Socket可以调用多种协议（TCP/IP V4/V6 、 AppleTalk、IPX、IrDA等）。 WinSock包含了巴克利 Socket风格的标准函数；还包 含一组Windows扩展函数，使程序员能利用Windows 消息机制进行编程。 MFC中包含的是WinSock1.1库的封装（CSocket、 CAsyncSocket）。 目前Windows平台上较新的WinSock版本是2.2版。
某复合文档
Word数据 片段 Visio数据 片段
Excel数据 片段 其它数据 片段n
ODBC(Open Database Connectivity， 开放数据库互连)是微软公司开放服 务结构(WOSA，Windows Open Services Architecture)中有关数据库的 一个组成部分。 它建立了一组规范，并提供了一组 对数据库访问的标准API（应用程序 编程接口）。 这些API利用SQL来完成其大部分任 务。 ODBC本身也提供了对SQL语言的支 持，用户可以直接将SQL语句送给 ODBC。 MFC中有较完整的ODBC接口封装 类（CDatabase、CRecordset、 CRecordView ）。
VS2008下面MFC中添加启动画面
在VC6.0时代，我们通过在MFC工程中插入Splash组件来简单方便的实现这个功能，但在VS2008以后就没有了这个功能，所以如果想给自己的程序添加一个显示Logo的启动画面，就需要自己添加代码来实现，参考了下VC6.0中这个Splash组件添加后的代码，就很容易在自己的项目里实现这个功能。
如下图（来自网络）。
本文以VS2008为例做一个演示：首先，在菜单的“项目”中选择“添加类”->”c++类”，生成一个启动画面的Splash类。
然后，实现代码主要是在CwzdSplash类的头文件和cpp文件中实现。
在CwzdSplash类的头文件中我们添加下面的代码：#pragma once// CWzdSplashclass CWzdSplash : public CWnd{DECLARE_DYNAMIC(CWzdSplash)public:CWzdSplash();virtual ~CWzdSplash();protected:DECLARE_MESSAGE_MAP()public:CBitmap m_bitmap;// void Create(void);void Create(UINT nBitmapID);afx_msg void OnPaint();afx_msg void OnTimer(UINT_PTR nIDEvent);};在CwzdSplash类的cpp文件中我们添加下面的代码：// WzdSplash.cpp : 实现文件//#include "stdafx.h"#include "TinyPlusCompiler.h"#include "WzdSplash.h"// CWzdSplashIMPLEMENT_DYNAMIC(CWzdSplash, CWnd) CWzdSplash::CWzdSplash(){}CWzdSplash::~CWzdSplash(){}BEGIN_MESSAGE_MAP(CWzdSplash, CWnd) ON_WM_PAINT()ON_WM_TIMER()END_MESSAGE_MAP()// CWzdSplash 消息处理程序void CWzdSplash::Create(UINT nBitmapID) {m_bitmap.LoadBitmap(nBitmapID);BITMAP bitmap;m_bitmap.GetBitmap(&bitmap);//CreateEx(0,AfxRegisterWndClass(0),"",WS_POPUP|WS_VISIBLE|WS_BORDER,0 ,0,bitmap.bmWidth,bitmap.bmHeight,NULL,0);CreateEx(0,AfxRegisterWndClass(0,AfxGetApp()->LoadStandardCursor(IDC_ARROW)),NULL, WS_POPUP | WS_VISIBLE, 0, 0, bitmap.bmWidth, bitmap.bmHeight, NULL , NULL);}void CWzdSplash::OnPaint(){// TODO: 在此处添加消息处理程序代码// 不为绘图消息调用CWnd::OnPaint()CPaintDC dc(this); // device context forpaintingBITMAP bitmap;m_bitmap.GetBitmap(&bitmap);CDC dcComp;dcComp.CreateCompatibleDC(&dc);dcComp.SelectObject(&m_bitmap);// draw bitmapdc.BitBlt(0,0,bitmap.bmWidth,bitmap.bmHeight,&dcComp,0,0,SRCCOPY);}void CWzdSplash::OnTimer(UINT_PTR nIDEvent){// TODO: 在此添加消息处理程序代码和/或调用默认值//CWnd::OnTimer(nIDEvent);DestroyWindow(); //销毁初始画面窗口}最后在项目的主窗口视图的Create函数中添加下面的实例化过程就可以显示出我们自定义的Logo启动画面了：CWzdSplash wndSplash; //创建启动窗口类的实例wndSplash.Create(IDB_SPLASH);wndSplash.CenterWindow();wndSplash.UpdateWindow(); //send WM_PAINTSleep(1500);wndSplash.DestroyWindow();//销毁初始画面窗口注明一下要注意的地方：wndSplash.Create(IDB_SPLASH);中的IDB_SPLASH是在添加位图资源时添加进来的资源ID,自己可以定义自己所喜欢的启动图画。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Studio2008教程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按钮，详细属性设置请查看以下的表格。
TextBox1 数据显示框Button1 0Button2 .Button3 归零Button4 无Button5 ＝Button6 1Button7 2Button8 3Button9 +Button10 -Button11 4Button12 5Button13 6Button14 *Button15 /Button16 7Button17 8Button18 9Button19 ONButton20 OFF详细的界面请查看图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程序代码输入完成，接下来我们来运行一下程序，进行测试。