程序显示文本框_实现一个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。

学习VB中有问题可以长按识别下图添加老师微信号：vbyjk521 ，学习问题在线答疑。