VB的程序设计与开发实习报告.docVIP

VB的程序设计与开发实习报告 实习内容：在完成PPT中一、二、三、四、五、六章内容中的练习的基础上，利用VB和AO自行设计并开发一个GIS实验系统，利用VBA的方式设计并开发一个简单的GIS系统。 实习要求： 1、在学习基于VB和AO/AE的程序设计的相关知识的基础上，设计并开发一个GIS系统，要求具有如下功能。 （1）基本功能：图层的添加、删除；图形的放大、缩小、漫游、全图显示；基本的空间查询功能。 （2）提高部分：空间分析功能：叠置分析、缓冲区分析、网络分析。 2、利用VBA的方式设计并开发一个简单的GIS系统。要求具有自己定制的菜单系统、工具按钮，具有放大、缩小、漫游等功能。在完成以上设计与开发任务的基础上，介绍GIS系统的设计与开发的主要过程、注意事项等。 实习意义: 实习步骤: 一、创建程序的用户界面 启动VB：启动VB 时，显示New Project对话框。选择Standard EXE，进入Visual Basic环境。 2、保存文件：(1)保存Visual Basic工程：点击File- Save Project(2)新建文件夹：LoanCalc，保存窗体文件，保存工程文件，将工程名改为：Loan Calculator 二、从用户处获取信息 1、添加文本框控件 （1）在工具箱中单击生成TextBox控件的工具。如果不知道是哪一个，将鼠标移到每个工具上停一会就可看见工具提示。（2）将鼠标指针移动到窗体上。指针变成十字丝，表明即将绘制一个控件。（3）将指针移至要绘制控件的区域的一角。（4）单击并按住鼠标左键不放。（5）拖动鼠标到另一个对角，到达最终位置。（6）满意后，松开鼠标，绘制成功。 2、设置控件的属性：在窗体上添加控件后，通常要设置控件的一个或多个属性。属性是控制对象外观和行为方式的摄制。下面修改刚才添加的文本编辑框的相关属性。修改其Name属性和Text属性。选中控件，按F4，修改相关属性。将Name改为txtPrincipal，Text属性改为空。 3、按同样的方法添加其他三个文本编辑框，并修改相关属性。另外3个文本编辑框的Name分别为：txtIntRate, txtTem, txtPayment.同时清除它们的Text属性。 4、移动控件及改变控件大小：右键点击工具栏，选中Form Editor工具菜单。 5、标记程序的控件：为每个文本框控件添加一个标签(Label)控件，提供提示信息。 6、添加命令按钮：前面完成了设计，下面需要提供一些开始操作的方法——这就是命令按钮控件的目的。添加两个命令按钮， Name分别为：cmdCalculate, cmdExit ； Caption属性分别为：Calculate Payment, Exit。 三、改变窗体的属性 可设置窗体的属性来控制它的外观和行为方式。（1）修改窗体的名称为：frmMain（2）改变窗体的宽度和高度：Width, Height属性。（3）改变窗体的WindowState等。 四、为程序的执行编写代码 现在的Project还不能做任何工作，必须添加一些代码。 1、响应事件：通过在事件过程(Event Procedures)中放置代码，来使程序对事件做出响应。事件过程是特定事件作用对象时所运行的一段代码。 双击窗体上的Exit按钮，响应Click（点击）事件，进入代码窗口。以Private Sub开始，以End Sub结束。Private Sub后面的部分表明子过程的名称，为cmdExit_Click，这是表明一个名为cmdExit的控件的Click事件过程的一个预定义名称。 2、指定事件过程：查看代码窗口顶部附近的两个下拉列表框，Object框列出了放置在当前窗体中的所有对象及窗体本身。Procedure框列出了Object框中当前所选对象的所有事件。使用这两个下拉列表可以导航到代码窗口的任一部分。可以看成一个导航工具。 3、编写Calculate Payment命令按钮的代码：该按钮的功能是：在用户提供的信息基础上计算每月的付款金额。 （1）变量的声明：Calculate子过程的第一部分用于声明所需的变量。Calculate子过程使用四个变量：本金额、利率、贷款金额、计算出的月付款。 在Private Sub cmdCalculate_Click()和End Sub之间的空行上，键入以下代码： Dim cPrincipal As Currency Dim fIntRate As Single Dim nTerm As Integer Dim cPayment As Currency 变量声明的一般格式为：单词Dim，紧接着一个变量名、单词As和变量类型。 （2）过程代码：过程代码是过程中做实际工作的剩余部分。 添加如下两行代码：