实现一个VB程序的全过程！精心总结！

I Love VB

今天，我们结合一个具体的VB程序，来讲解一下如何按照既定要求完成一个VB程序。

首先，今天讲解的程序要实现的功能是：

在文本框中输入半径，然后点击求直径、周长、面积单选按钮，则可以把相应的计算结果显示到标签中。

经过分析，我们可以知道用到的VB编程知识有：常量、变量的定义与使用，IF选择结构语句的正确使用，VB表达式与语句书写的规则等。

基础工作

首先，根据需要添加相应控件。

分析圆周长和面积的要求，我们需要在窗体上添加两个框架（Frame）控件、一个文本框（Text）、三个单选按钮（Option）、两个命令按钮（Command）、一个标签（Label）控件。

在VB编程中，框架控件是一个容器，可以在其上放置一些控件，起到界面分层有序、直观明了、美观的作用。

添加控件如下图

控件添加到窗体上的界面

程序分析与实现：

我们知道，由圆的半径，可以很快的利用计算公式得到圆的周长、面积等。

因此，我们根据公式，按照VB语句规则写代码就可以了。

程序实现代码：

Option Explicit

Const pi As Single = 3.14 '定义圆周率常量PI

Dim r As Single, d As Single, c As Single, s As Double '定义半径、直径、周长、面积

Private Sub Command1_Click() '单击计算

r = Val(Text1) '将文本框输入的值赋值给变量r

If Option1.Value = True Then '选中直径按钮

d = 2 * r

Label1.Caption = '直径为：' & d

ElseIf Option2.Value = True Then '选中周长按钮

c = 2 * pi * r

Label1.Caption = '周长为：' & c

ElseIf Option3.Value = True Then '选中面积径按钮

s = pi * r * r

Label1.Caption = '面积为：' & s

Else

MsgBox '请选择计算的种类！' '任何按钮都未选中，则给出警告提示，则不计算

End If

End Sub

计算结果图

总结：最初进入VB工程界面时，呈现给我们的是一个空白的窗体，要实现什么样的功能及效果，完全由我们来决定，这就如图美术大师手中的一张张作品一样，最初是完全空白的，经过艺术的点缀以及加工和画龙点睛，最后整个界面显得活灵活现、让人为之震撼！

VB编程实现的结果也是如此，当我们看到经过自己编写的程序，运行后得到自己想实现的效果，内心一定是无比激动与高兴的。

为了帮助正在学习VB编程的朋友在短时间内高效掌握VB编程，少走弯路与节省宝贵的学习时间。由VB老师历时半年多，精心讲解的VB从入门到综合全套视频教程优惠发放了！

VB从0基础到精通全套视频讲解，每节视频都是在基本知识讲解的前提下，结合实际应用程序，代码一句一句详细讲解。同时视频配有同步的课件教程、编程实例（可以直接运行），每节都穿插了大量的学习技巧和编程经验，避免走弯路，让你高效率的快速学习VB。