VB中如何写程序代码计算圆的面积

本例子将通过圆周率的值和用户输入的圆的半径，计算出圆的面积。

01

在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。

02

接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。

03

接下来定义毕吵一个Pi的常量，默认值设置为3.14。

04

接下来我们开始编写代码。绝灶（因为程序行数较多，在并数扮这里统一写注释不方便观察，每句的含义请看程序中的注释。）

05

按F5运行测试，在框中输入半径为3，即可计算出结果为28.26。

特别提示

注意公式的改写，平方请用幂符号“^”，乘号请用“*”。

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，兆岁在Form1窗口上，绘制出悔猜腊一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，d出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做碧滑了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

简介：

本文描述了如何通过一些技术手段来提高vb代码的执行效率。这些手段可以分为两个大的部分：编码技术和编译优化技术。在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度，减少代码消耗的系统资源。在编译优化技术中介绍了如何正确地利用vb提供的编译选项对在编译时最后生成的可执行文件进行优化。

前言

什么是一个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用vb进行软件开发时积累下来的一些经验，通过一些简单的例子来向你展示如何写出高效的vb代码。其中包含了一些可能对vb程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。

让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在此基础上优化代码。最后发现为了达到优化的目的，他们不得不把代码再重新写一遍。所以我建议你在编写代码之前就需要考虑优化问题。

把握好优化的结蔽握果和需要花费的工作之间的关系：通常当完成了一段代码，你需要检查和修改它。在检查代码的过程中，也许你会发答困现某些循环中的代码效率还可以得到进一步的改进。在这种情况下，很多追求完美的程序员也许会立马修改代码。我的建议是，如果修改这段代码会使程序的运行时间缩短一秒，你可以修改它。如果只能带来10毫秒的性能改进，则不做任何改动。这是因为重写一段代码必定会引入新的错误，而调试新的代码必定会花掉你一定的时间。程序员应该在软件性能和开发软件需要的工作量之间找一个平衡点，而且10毫秒对于用户来说也是一个不能体会到的差异。

在需要使用面向对象方法的时候尽量使用它；vb提供的机制不完全支持面向对象的设计和编码，但是vb提供了简单的类。大多数人认为使用对象将导致代码的效率降低。对于这一点我个人有些不同的意见；考察代码的效率不能纯粹从运行速度的角度出发，软件占用的资源也是需要考虑的因素之一。使用类可以帮助你在整体上提升软件的性能，这一点我会在后面的例子中详细说明。

当你编写vb代码的时候，希望你能把上面几点作为指导你编码的原则。我把文章分为两个部分：如何提高代码的运行速度和编译优化。

如何提高代码的运行速度

下面的这些方法可以帮助你提高代码的运行速度：

1. 使用整数（integer）和长整数（long）

提高代码运行速度最简单的方法莫过于使用正确的数据类型了。也许你不相信，但是正确地选择数据类型可以大幅度提升代码的性能。在大多数情况下，程序员可以将single，double和currency类型的变量替换为integer或long类型的变量，因为vb处理integer和long的能力远远高于处理其它几种数据类型。

在大多数情况下，程序员选择使用single或double的原因是因为它们能够保存小数。但是小数也可以保存在integer类型的变量中。例如程序中约定有三位小数，那么只需要将保存在integer变量中的数值除以1000就可以得到结果。根据我的经验，使用integer和long替代single，double和currency后，代码的运行速度可以提高将近10倍。

2. 避免使用变体

对于一个vb程序员来说，这是再明显不过的事情了。变体类型的变量需要16个字节的空间来保存数据，而一个整数（integer）只需要2个字节。通常使用变体类型的目的是为了减少设计的工作量和代码量，也有的程序员图个省事而使用它。但是如果一个软件经过了严格设计和按照规清并念范编码的话，完全可以避免使用变体类型。

在这里顺带提一句，对于object对象也存在同样的问题。请看下面的代码：

dim fso

set fso = new scripting.filesystemobject

或

dim fso as object

set fso = new scripting.filesystemobject

上面的代码由于在申明的时候没有指定数据类型，在赋值时将浪费内存和cpu时间。正确的代码应该象下面这样：

dim fso as new filesystemobject

3. 尽量避免使用属性

在平时的代码中，最常见的比较低效的代码就是在可以使用变量的情况下，反复使用属性（property），尤其是在循环中。要知道存取变量的速度是存取属性的速度的20倍左右。下面这段代码是很多程序员在程序中会使用到的：

dim intcon as integer

for intcon = 0 to ubound(somvar())

text1.text = text1.text &vbcrlf &somevar(intcon)

---