|
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）。 |
|
|
