VB是一种基于对象的编程语言，同面象过程的编程语言相比更加容易。不同语言仅仅是关键字不同，语法形式稍有不同而已。也就是说，学习编程语言重要的是掌握基本概念和基本方法，学会举一反三。掌握了某一种语言的程序设计基本功，再学习另一种程序设计语言时，只要注意相互之间的差别就可以了。
引言：在工程测量工作中，经常会遇到计算类的相关问题。由于这类计算公式较为复杂，需输入数据多，利用CASIO计算器计算时，输入速度慢，不便于存储数据，而且需要重复操作，常常是令计算人员感到繁琐。VB可以实现窗口化编程，由于它易学好用，同时通过控件实现数据输出不必重复操作，清晰方便，简单适用。
本文中所运用的VB 6.0属于精简版，企业版和精简版有什么区别？相比企业版，精简版减少了很多控件，如：没有API浏览器，资源编辑器，数据管理器等，不过对于编写一些常用的小程序精简版已经足够了。
VB 6.0精简版下载地址：http://xiazai.zol.com.cn/detail/3/29939.shtml
认识工作界面：
窗体设计器窗口
简称窗体（Form），是最终用户看到的软件界面，应用程序的运行结果、各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。
工程资源管理器窗口
工程是指用于创建一个应用程序的文件集合，工程资源管理器窗口含有建立一个应用程序所需要的文件清单。
属性窗口
属性窗口主要是针对窗体和控件设置的，在Visual Basic中，窗体和控件被称为对象。每个对象的特征都可以用一组属性来描述，属性窗口就是用来设置窗体或窗体中控件属性的。
工具箱
工具箱窗口由若干个工具按钮组成，主要用于设计应用程序界面。在系统默认情况下，工具箱中有一个指针和20个标准控件，用户也可以通过“工程”→“部件”命令加载Windows中注册的其他控件。
代码窗口
代码窗口又称代码编辑器，用来编写或修改过程或事件过程的代码。双击控件或者窗体空白处，以及在【工程资源管理器】中双击模块都可以打开代码窗口。
窗体布局窗口
用来指定程序运行时的窗体初始位置，可以通过拖动窗体图标的位置来调整程序运行时窗体显示的位置。窗体布局窗口主要用来定位窗体的位置。
VB应用程序的代码是用分层方式组织的。典型应用程序包含窗体模块、标准模块、类模块。这些模块的组织形式和相互关系保存在工程文件（.vbp）之中。
通过以上了解现进入竖曲线高程计算程序设计：
点击运行Visual Basic 6.0精简版，提示：新建工程【对话框】，选择标准EXE然后选择打开。
打开标准EXE对话框后将出现以下界面，现对Form1添加标题框架Frame，点击Frame然后在Form1上面点击左键并按住鼠标左键不松向下拖动到合适的位置即可。然后在属性窗口将Caption属性显示 Frame1改为“输入区域”按回车键，然后选中Form1界面并在Caption位置将Form1改为“竖曲线高程”按回车键。
现在对框架中添加多个说明文字Label控件，用鼠标点击Label控件在“输入区域”框架中添加完成，修改Caption属性相关文字，图示如下：
通过添加Label控件同样方法再添加多个Text文本框控件，然后修改Caption属性相关文字，图示如下：
以上我们已经把输入数据区域建立好了，现在对计算输出结果进行设定相关界面，通过以上方法并添加如下图示相关操作：
现在已有了已知数据输入区域和计算结果区域界面，我们则需要对已知数据（输入、输出）进行添加指令按钮，现对Form1添加“计算按钮”Command1控件，添加完毕样式为以下图示：
根据以上操作我们完成了相关界面设定，现在我们需要对“点击计算”和“清除数据”按钮Command1控件进行赋值和定义常量等相关操作。
双击鼠标“点击计算”按钮然后工作界面会跳转至Form1（Code）窗口，会出现以下提示：
1、现在需要对该按钮进行定义变量或者相关赋值操作指令。
定义变量：对相关未知函数进行定义变量，属性为双精度Double，因为竖曲线相关公式属于一个纯数值计算。
什么是定义变量？请参考相关文章：教你如何通过Excel VBA编写测量坐标计算程序
http://user.qzone.qq.com/295188316/blog/1339492833
定义变量如下：
Dim K, H, R, I1, I2, L, T, E, X, Q, ZY, YZ, Z1, Z2 As Double
2、调用和检查已知数据Text文本框控件输入提示，格式如下：
If Text1.Text = ” Or Text2.Text = ” OrText3.Text = ” Or Text4.Text = ” Or Text5.Text =” Or Text6.Text = ” Then
MsgBox ‘数据未输入完整，请重新输入！’,vbInformation, ‘提示’: Text1.SetFocus: Exit Sub
End If
K =Val(Text1.Text) ‘变坡点里程K=16770
H =Val(Text2.Text) ‘变坡点高程H=396.67
I1 = Val(Text3.Text) ‘纵坡I1=3.1
I2 = Val(Text4.Text) ‘纵坡I2=1.1
R =Val(Text5.Text) ‘竖曲线半径R=3000
DK = Val(Text6.Text) ‘计算桩号K=16780
3、设定和添加竖曲线计算表达式：
If (I1 – I2) < 0 Then
Q = 1
Else
Q = -1
End If
If R = ” Then
R = 0.000000001
End If
L = R * Abs(I1 / 100 – I2 / 100): T = L / 2: E = T ^ 2 / 2 / R:ZY = K – T: YZ = ZY + L
If DK < ZY Then
X = H – (K – DK) * I1 / 100
ElseIf DK > ZY AndDK < K Then
Z1 = H + (DK – K) * I1 / 100
Z2 = (DK – ZY) ^ 2 / 2 / R
X = Z1 + Z2 * Q
ElseIf DK = K Then
X = H + E * Q
ElseIf DK > K And DK< YZ Then
Z1 = H + (DK – K) * I2 / 100
Z2 = (YZ – DK) ^ 2 / 2 / R
X = Z1 + Z2 * Q
ElseIf DK > YZ Then
X = H + (DK – K) * I2 / 100
End If
4、输出结果，对计算结果通过Text文本框控件输出。
Text7.Text = Round(X, 3)
5、计算按钮Command1控件正确格式如下：
Private Sub Command1_Click()
……定义变量……
……调用已知数据……
……计算表达式……
……输出结果……
End Sub
6、现在对“清除数据”Command2控件进行添加代码：
Private Sub Command2_Click()
Text1.Text = ”: Text2.Text = ”:Text3.Text = ”: Text4.Text = ”: Text5.Text =”: Text1.SetFocus’表示清除文本控件Text1~5相关数据然后返回值Text1位置。
End Sub
添加完毕代码后正确格式如以下图示，详细源码见本文附件：
我们已经完成了计算控件及表达式相关操作现在可以保存工程或者运行工程。
什么是工程
当使用Visual Basic创建应用程序时，所有文件的有关信息就保存在称为“工程”的文件中。在Visual Basic中，使用工程来管理构成应用程序的所有不同的文件。
当完成工程的全部文件之后，可将此工程转换成可执行文件（.exe），直接在Windows下运行。
通过以下3种方法均可运行工程
1. 选择【运行】→【启动】菜单命令
2. 单击工具栏上的按钮
3. 按功能键【F5】
测试完毕正常运行后对VB进行输出至EXE标准windows窗体应用程序可执行文件。
生成可执行文件方法：
选择【文件】→【生成工程1.exe】菜单命令，将弹出【生成工程】对话框。
在【生成工程】对话框的【保存在】列表框中选择要生成可执行文件的路径，并在【文件名】输入框中输入文件名，单击【确定】按钮将生成以【.exe】为后缀的可执行文件。
我们打开已经生成好的标准EXE程序界面如下：
结论：通过本文实例介绍了竖曲线的编写方法，其实在测量计算中，此类的计算等都可以用VB来计算，我们认为VB友好的界面，直观、方便的特点，将受到越来越多用户的青睐。
#artContent h1{font-size:16px;font-weight: 400;}#artContent p img{float:none !important;}#artContent table{width:100% !important;}