142 VB编程示例
142 VB编程示例
利用两点已知数据拟合线性方程。
已知数据为（x1 , y1）、（x2, y2），方程形式为y=ax+b，求解输出为线性方程系数a和b.
●窗体设计
窗体中布置七个Label控件，用于标注四个输入参数、两个输出参数和一个方程形式；布置六个Text控件，用于输入四个已知参数和输出两个求解结果；布置三个Command控件，用于计算、清除、和退出程序。
所设计的窗体如下图所示：
在新建Text后，需要在Text属性中将Text中的文本清除。如图所示，将红框内“Text1”清除即可。
●代码编写
“计算”、“清除”、“退出”三个控件的代码编写。
●“计算”控件代码
双击“计算”按钮，即进入该按钮代码区界面，编写代码如下：
Private SubCommand1_Click() '该行为双击“计算”控件后VB软件自动生成，表示“计算”控件代码的开始
'下面语句是定义六个变量
Dim x1 As Single, y1 AsSingle, x2 As Single, y2 As Single, a As Single, b As Single
'以下四行通过窗体输入已知数据（通过Text控件输入数据）
x1 = Val(Text1.Text)
y1 = Val(Text2.Text)
x2 = Val(Text3.Text)
y2 = Val(Text4.Text)
'这一行是不同代码块之间的间隔行
'以下两行为利用已知数据计算方程系数
a = (y1 - y2) / (x1 -x2)
b = y1 - a * x1
'以下两行为通过Text控件在窗体输出计算结果
Text5.Text = a
Text6.Text = b
'
End Sub '该行为VB软件自动生成，表示“计算”控件代码的结束
●“清除”控件代码
Private SubCommand2_Click()
Text1.Text =""
Text2.Text =""
Text3.Text =""
Text4.Text =""
Text5.Text =""
Text6.Text =""
End Sub
●“退出”控件代码
Private SubCommand3_Click()
End
End Sub
●程序调试
程序运行时如出现问题，VB软件会出现调试界面，如下图：
点击“调试”按钮，即进入代码检查界面，如下图：
黄色行即为出现问题的程序行；在调试状态下，可将鼠标指针放在相关变量上，VB会实时显示相应变量的数值，以便于找出程序行出问题的原因（此例中是人为输入四个1，导致除数为0），如下图所示。
●工程保存
程序调试通过后，需及时进行保存，保存时点击命令栏中的“文件”，在下拉菜单中点击“保存工程”，如下图。
之后按提示先保存窗体，再进而保存工程即可。
●EXE文件创建
点击命令栏中的文件命令，再在下拉菜单中点击生成EXE文件，如下图。
这样就可生成EXE文件。用该文件便于在其他电脑上运行该软件进行计算，也便于对源程序的保护。
●软件维护
这样形成的工程是一个文件夹，其中有多个文件，如下图。
当需要对代码或窗体或控件进行修改时，可双击上图中红框内的工程，即可打开如下图所示界面。
即可修改代码，也可再双击上图中右上角红框内按钮，即可打开窗体界面（也可通过命令栏中的“视图”在窗体和代码之间切换），对窗体或控件进行修改，然后保存窗体和工程，生成新的EXE文件即可。
此外，对应用价值较高的VB软件，还需考虑软件的加密保护，后面将在介绍高级技巧时做专题介绍。
欢迎交流探讨，可留言或加微信“冷热科技”（lengrekeji）。