的设计顺序结构程序课件

第3章设计顺序结构程序VisualBasic程序设计教程第3章设计顺序结构程序VisualBasic程序设计本章主要介绍:VB的语法、注释、书写风格VB常用的函数和语句等介绍VB程序的顺序结构、常用控件：——命令按钮、标签、文本框、滚动条、定时器。如何调试程序，即如何发现程序中的问题并解决这些问题。VisualBasic程序设计教程2本章主要介绍:VisualBasic程序设计教程2VB程序设计有两个部分的工作：一是进行界面的设计二是根据程序所需要解决的问题，编写完成解决问题的程序代码一个程序应该具有良好的结构，以便于阅读和理解。为了增加程序的易读性，荷兰学者ijkctra提出了结构化程序设计的理论，VB是融合了面向对象和结构化编程两种思想的一个编程工具。VisualBasic程序设计教程33.1概述VB程序设计有两个部分的工作：VisualBasic程序设结构化程序设计：用三种基本结构作为构成程序的基本单元顺序结构选择结构循环结构每个基本结构具有单入口单出口的特点。一般一个程序由这三种结构结合而成。VisualBasic程序设计教程4结构化程序设计：用三种基本结构作为构成程序的基本单元Visu顺序结构的主要特点是：按自然顺序（即编写的顺序）执行程序的流程，即先执行第一句，再执行第二句，一句一句执行下去，直到执行最后一句。流程如图所示:

VisualBasic程序设计教程5顺序结构的主要特点是：VisualBasic程序设计教程5通过例子，了解顺序结构的程序的一般形况【例3-1】求摄氏温度对应的华氏温度。如图。计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。VisualBasic程序设计教程6通过例子，了解顺序结构的程序的一般形况VisualBasi对象：2个标签：作提示2个文本框：作输入和显示3个命令按钮控件单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度。单击“清除”按钮使得文本框的内容被清除单击“退出”按钮结束程序运行。

VisualBasic程序设计教程7对象：VisualBasic程序设计教程7本例使用四个事件过程：一个Form_Load()和三个是命令按钮的Click事件。主要属性设置命令按钮1：（名称）：CmdCalcCaption：计算命令按钮2：（名称）：CmdClearCaption：清除命令按钮3：（名称）：CmdExitCaption：退出标签1（Label1）：Caption：摄氏温度标签2（Label2）：Caption：华氏温度窗体：Caption：温度转换VisualBasic程序设计教程8本例使用四个事件过程：VisualBasic程序设计教程8OptionExplicit'要求强制声明变量PrivateSubCmdCalc_Click()'计算

DimCAsSingle,FAsSingle

C=Val(Text1.Text)

F=9*C/5+32

Text2.Text=FEndSubPrivateSubCmdClear_Click()'清除

Text1.Text=""

Text2.Text="“EndSubPrivateSubCmdExit_Click()'终止程序运行

EndEndSubPrivateSubForm_Load()'启动时，清除文本框内容

Text1.Text=""

Text2.Text="“EndSubVisualBasic程序设计教程9本例每个事件代码都依顺序执行。OptionExplicit'要求强制声明变量Vis

编写程序有一定的规则，这就是语法。如数学中x乘y可以写成xy，但在程序中不能。程序中除了“”所有的内的字符串外，其它一律使用西文符号。如：>、<、=、+、-等都必须是西文符号。VisualBasic程序设计教程103.3VB语法和注释编写程序有一定的规则，这就是语法。如数学中x3.3.1语法符号在程序设计语言中，每一条语句都有语法规则。本书在语法描述中，常常使用以下符号：

1．[]:表示可选项。

2．<>:语句中的基本单位。可以直接给出，也可以用<>表示。

VisualBasic程序设计教程113.3.1语法符号VisualBasic程序设计教程13．{}及其内的|：表示多个项目，一般只能选择其中一个。4．…：表示重复前面的内容。

如Print方法格式为：

Print[输出项][{；|，}[输出项]…][{；|，}]

Print[<输出项>][{；|，}[<输出项>]…][{；|，}]

注意：这些只是书写格式，并不是VB的语言元素。VisualBasic程序设计教程123．{}及其内的|：表示多个项目，一般只能选择其中一个3.3.2注释使用注释记录编程思路或明确这段程序的目的。使用注释提高程序的可读性。注释部分不是程序代码，它不会被执行。注释不是用得越多越好。一般针对主要程序段、主要变量、关键语句等。VisualBasic程序设计教程133.3.2注释VisualBasic程序设计教程13注释使用有两种方法：使用西文单引号“'”

C=Text1.Text'将文本框数据送入变量C使用关键字Rem

格式：Rem注释文字

Rem计算摄氏温度对应的华氏温度值。注释不是用得越多越好一般针对主要程序段、主要变量、关键语句等VisualBasic程序设计教程14注释使用有两种方法：VisualBasic程序设计教程143.3.3程序代码书写规则1．续行一行中字符数太多，可以分多行书写方法：前一行的末尾要使用续行符：“_”。如：

Score=Val(InputBox("请输入“计算机”课程成绩(0-100)：",_

"输入成绩",60))续行符后面不能加注释不要在一个字符串或关键字的中间截断行当句子不长时，最好不要用续行。VisualBasic程序设计教程153.3.3程序代码书写规则VisualBasic程序设2．多条语句写在一行内使用的方法：在各句之间用冒号“:”分隔。如要交换变量A和B中的值，可以使用：

T=A:A=B:B=TVisualBasic程序设计教程162．多条语句写在一行内VisualBasic程序设计教程13．使用缩进格式为了增加程序的可读性，代码应采用缩进格式。它可以反映出代码的逻辑结构和嵌套关系。如：

……

……

……

……

……

……

……VisualBasic程序设计教程173．使用缩进格式VisualBasic程序设计教程17利用这些语句和函数可以编写许多程序。语句是VB程序代码的组成部分，函数是VB语言组成部分的另一种形式它把一些常用的功能预先编制好程序以固定的格式提供给用户使用，可以大大减少了编程者的代码设计工作。VisualBasic程序设计教程183.4语句和函数利用这些语句和函数可以编写许多程序。VisualBasic3.4.1VB的语句语句独立于对象。语句一般分两类：执行语句使计算机产生一种特定的操作，如赋值、循环等。 非执行语句非执行语句用来将某些信息通知翻译系统，让VB翻译系统按它的要求作出处理。如Dim、Const、Rem等。VisualBasic程序设计教程193.4.1VB的语句VisualBasic程序设计教程一个语句一般包含两部分：语句定义符部分规定了要让计算机干什么。如：Dim语句体部分指要干的具体内容。如：AAsIntegerVisualBasic程序设计教程20一个语句一般包含两部分：VisualBasic程序设计教程3.4.2

Stop语句和End语句1．Stop

作用：暂停程序的运行。使用格式为：Stop一般用于程序调试中。如暂停以查看一下前面运行的结果是否正确若要继续执行，可用工具栏的“继续”按钮。2．End

作用：终止程序的运行。使用格式为：End终止程序的运行将卸载所有窗体模块VisualBasic程序设计教程213.4.2Stop语句和End语句VisualBasi3.4.3什么是函数函数是一些量依赖于另一些量的概括例如数学表达式y=Sin(x)y为函数值x为自变量计算机中，函数表示类似于数学中的这种关系计算机中，函数由相对独立的程序代码实现的。VB系统提供了一部分函数，称为VB内部函数用户可以直接调用VB函数VisualBasic程序设计教程223.4.3什么是函数VisualBasic程序设计教程3.4.4使用函数VB的内部函数一般分为：数学函数、字符串函数、日期/时间函数、转换函数等VB内部函数调用的基本格式是：函数名(参数1,参数2,……,参数n)参数是函数的输入。n>=0一般函数有一个返回值，类型可以是数值型或字符型等。VisualBasic程序设计教程233.4.4使用函数VisualBasic程序设计教程2函数可以被用于表达式中，如X=-B+Sqr(D)函数调用时，函数名、参数个数、排列次序和数据类型应与规定的一致函数的运算优先级高于其它运算符，低于括号()。VisualBasic程序设计教程24函数可以被用于表达式中，如X=-B+Sqr(D)Vi3.4.5常用函数举例（1）求平方根函数Sqr。格式：Sqr(x)对x开平方根。X>=0（2）取整函数Int。格式：Int(x)求不大于x的最大整数。Int不进行四舍五入。如：PrintInt(-3.4),Int(3.8),显示：-43（3）取整函数Fix。格式：Fix(x)求x的整数部分。Fix也不进行四舍五入。如：

PrintFix(-3.4),Fix(3.8),显示：-33VisualBasic程序设计教程253.4.5常用函数举例VisualBasic程序设计教（4）四舍五入函数Round。格式：Round(x1[,x2])省略x2(>=0)时表示四舍五入取整。它将x1四舍五入保留小数x2位。如：

PrintRound(12.455,2),Round(-12.57),Round(12.34,1)

显示：12.46-1312.3VisualBasic程序设计教程26（4）四舍五入函数Round。VisualBasic程序设（5）绝对值函数Abs。格式：Abs(x)该函数求出x的绝对值。如：Abs(-25)的值为：25。（6）正弦函数Sin。格式：Sin(x)该函数用于求x的正弦值。参数一律采用弧度。如sin90°的VB函数表达式应为Sin(3.1415926/2)。VisualBasic程序设计教程27（5）绝对值函数Abs。格式：Abs(x)VisualBa（7）随机函数Rnd。使用格式为：Rnd[(x)]返回一个随机Single型数，范围在(0,1)之间。参数x决定了产生随机数的方法。如果x<0时，相同x将得到相同的值。当x=0时将得到最近出现过的随机数。VisualBasic程序设计教程28（7）随机函数Rnd。使用格式为：Rnd[(x)]Visuax默认或x>0，将产生下一个随机数。例如：

PrintRnd(-1),Rnd(-2),Rnd(0),Rnd(-1),Rnd(0),Rnd

.224007.7133257.7133257.224007.224007 .7055475例如随机给出两位数A和B，可用:A=Int(Rnd*90+10):B=Int(Rnd*90)+10产生随机数种的语句格式为：RandomizeVisualBasic程序设计教程29x默认或x>0，将产生下一个随机数。例如：

PrintRn（8）转换函数Val()。格式：Val(x$)将参数对应的字符串值中的最前部的数字字符转换为数值。如：

PrintVal(“12.3abc”),Val(“-12.367.8abc”),Val(“abc123”)

显示：12.3-12.3670（9）颜色函数QBColor。格式：QBColor(x)根据x的值产生一种颜色，其中0≤x≤15QBColor(0)为黑色，QBColor(15)为白色。例如：Form1.BackColor=QBColor(12)VisualBasic程序设计教程30（8）转换函数Val()。格式：Val(x$)Visual（10）颜色函数RGB。格式：RGB(x1,x2,x3)该函数将根据x1、x2和x3的值产生一种颜色。各参数范围一般应为0~255。可表示224种颜色。x1表示红色成分x2表示绿色成分x3表示蓝色成分。部分颜色可用颜色常量或颜色值(3个字节)，如：vbBlack&H0黑

Form1.BackColor=RGB(255,0,0)

Form1.ForeColor=RGB(255,255,0)VisualBasic程序设计教程31（10）颜色函数RGB。格式：RGB(x1,x2,x3)Vi3.4.5常用函数举例——与Print相关的定位函数这类函数后面往往采用分号“;”间隔符。（1）输出绝对定位函数Tab。格式：Tab(x)该函数表示将输出位置定位到第x列。如果位置已超过x列，则定位下一行的第x列。（2）输出相对定位函数Spc。格式：Spc(x)输出位置从当前位置开始，空出x列。

VisualBasic程序设计教程323.4.5常用函数举例——与Print相关的定位函数Vi3.4.5常用函数举例【例3-2】在Form_Click内完成求平行四边形的面积。面积公式：S=absint。a、b为边长，t为夹角，使用角度。要求结果保留小数两位本题使用多个函数：用InputBox函数输入a、b和t，用Val函数把它们转换成数值类型用Sin函数计算面积用Round函数对面积值进行四舍五入。本例程序按顺序依次执行VisualBasic程序设计教程333.4.5常用函数举例VisualBasic程序设计教3.4.5常用函数举例-求梯形面积PrivateSubForm_Click()

ConstPI=3.1415926'用于设置符号常量

DimAAsSingle,BAsSingle,TAsSingle,SAsSingle

A=Val(InputBox("请输入边长a"))

B=Val(InputBox("请输入边长b"))

T=Val(InputBox("请输入角度t"))

S=Round(A*B*Sin(T*PI/180),2)

Print"a=";A,"b=";B,"t=";T,"S=";SEndSub

运行结果：当启动窗体后，单击窗体，然后分别输入15、40、35，窗体上显示为：VisualBasic程序设计教程343.4.5常用函数举例-求梯形面积VisualBasiVB的有两类控件：工具箱中的常用控件通过“部件”的控件。——“ActiveX控件”本节介绍最常用的控件：命令按钮标签文本框滚动条定时器VB控件有(名称)属性，大多部分有Caption、Top、Left、Height、Width、Font、Visible、Enabled等属性，含义基本相同VisualBasic程序设计教程353.5使用基本控件VB的有两类控件：VisualBasic程序设计教程3533.5.1命令按钮CommandButton是用户与应用程序交互的最简便方法往往使用单击命令按钮来执行指定的操作。1．创建命令按钮方法一：工具箱内选取命令按钮，然后在窗体上拖曳鼠标就可以画出一个命令按钮方法二：双击工具箱内的命令按钮2．命令按钮的事件

命令按钮的主要事件是Click。VisualBasic程序设计教程363.5.1命令按钮CommandButtonVisual3．命令按钮的属性Caption：标题，字符型。默认值为Command1(名称)：Name名称，字符型。默认值为Command1Enabled：是否有效，布尔型。Visible：是否可见，布尔型。Style：按钮显示方式，0表示文字，1表示图形。Picture：按钮显示的图形。它要求属性Style值应为1。VisualBasic程序设计教程373．命令按钮的属性VisualBasic程序设计教程37说明：注意（名称）和Caption的区别。（名称）是程序使用的标识符。Caption是界面显示的文字（名称）设置后，程序中所有用到该对象的地方，对象名都要用设置的名称，原默认名称无效。设置快捷键：可在Caption属性中加上“&”。例如：Caption设置为“E&xit”或“Exit[&x]”VisualBasic程序设计教程38说明：VisualBasic程序设计教程38【例3-3】窗体上设计2个图形命令按钮，它们分别用于显示信息和结束程序，如图。若用户在命令按钮外单击，用消息框提示“不要点错位置”。主要属性设置两个命令按钮：Caption：空；Style：1；Picture：选择图形文件窗体Form1Caption：显示VisualBasic程序设计教程39【例3-3】窗体上设计2个图形命令按钮，它们分别用于显示信息3.5.1

命令按钮—图案按钮举例程序代码如下:

PrivateSubCommand1_Click()

Print"Hello!"

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Click()'按钮外单击提示

MsgBox"不要点错位置",vbCritical,"警告"

EndSubVisualBasic程序设计教程403.5.1命令按钮—图案按钮举例VisualBasic3.5.2标签Label用来显示用户不能直接改变的文本：用作标注其他控件用作程序代码执行时显示程序结果等信息1．创建标签创建标签使用工具箱中的标签。VisualBasic程序设计教程413.5.2标签LabelVisualBasic程序设计2．标签的常用属性Caption：标题，即显示的文本。默认值为Label1。（名称）Name。设置标签名称。默认值为Label1AutoSize：设置标签是否根据显示内容自动改变大小Backstyle：设置标签透明背景Borderstyle：设置标签边框WordWrap：设置标签内的文字自动换行，布尔型。Alignment：设置标签显示的对齐方式VisualBasic程序设计教程422．标签的常用属性VisualBasic程序设计教程42说明：Label1中，第5个是小写字母l，最后一个是数字1设置WordWrap为True时，此时应把AutoSize设为True，否则除非标签有足够的高度。标签也有一些事件，但不常用。VisualBasic程序设计教程43说明：VisualBasic程序设计教程433.5.3文本框TextBox处理字符类型数据文本框控件的功能非常强大，在控件中可以：输入文本、编辑文本和输出文本被程序用来读取和显示信息1．创建文本框

在工具箱内选取文本框工具VisualBasic程序设计教程443.5.3文本框TextBoxVisualBasic程2．文本框的主要属性（名称）：Name。字符型。默认值为Text1Text：文本框显示的内容，字符型。默认值Text1。它是文本框最重要的属性Locked：选择文本框是否允许编辑，布尔型。SelStart：选中文本的起始位置，或插入点位置如：Text1.SelStart=0VisualBasic程序设计教程452．文本框的主要属性VisualBasic程序设计教程45SelLength：文本框内被选中文本的长度，数值类型。SelText：文本框内被选中的文本，字符型MaxLength：设置文本框中能输入的最大字符数MultiLine：是否能多行显示Scrollbars：设置文本框加滚动条。与MultiLine有关PasswordChar：设置输入文本的特殊显示字符。如*VisualBasic程序设计教程46SelLength：文本框内被选中文本的长度，数值类型。Vi说明：文本框没有Caption属性。SelStart、SelLength、SelText属于文本编辑属性，只能在程序中设置。3．文本框的方法主要方法是设置焦点的SetFocus方法。格式：文本框名称.SetFocusVisualBasic程序设计教程47说明：VisualBasic程序设计教程474．文本框的事件有Click、DblClick等鼠标事件还常用：Change事件：在文本框内容发生改变时触发。KeyPress事件：它在用户按任意键时触发VisualBasic程序设计教程484．文本框的事件VisualBasic程序设计教程48【例3-4】改写例3-1，启动窗体后，用户在Text1内输入摄氏温度的同时，Text2立即自动显示对应的华氏温度。要求Text2不能输入数据。说明：

Text2不能输入数据，可设置Enabled或Locked属性。边输入边计算显示，应编写Text1的Change事件过程Form_Load同例3-1，其它程序代码如下：

PrivateSubText1_Change()

DimCAsSingle,FAsSingle

C=Val(Text1.Text)

F=9*C/5+32

Text2.Text=F

EndSubVisualBasic程序设计教程49【例3-4】改写例3-1，启动窗体后，用户在Text1内输入剪贴板对象的使用剪贴板不是VB的控件，它是Windows部件它能够和文本框合用，制作简单的文本编辑器。剪贴板对象的名称是Clipboard，常用方法有：

（1）Clear：清除剪贴板中的内容。

（2）GetText：返回剪贴板上的所有字符。

（3）SetText：将字符串送入剪贴板VisualBasic程序设计教程50剪贴板对象的使用VisualBasic程序设计教程50Clipboard.Clear清除剪贴板原有的内容；Clipboard.SetTextText1.SelText将文本框Text1中选择的内容送入剪贴板；Text1.SelText=Clipboard.GetText将剪贴板的内容放入文本框Text1中插入点所在位置，或替换文本框中当前已选中的文字。VisualBasic程序设计教程51Clipboard.ClearVisualBasic程序设3.5.4滚动条

(VscrollBar和HscrollBar)滚动条可用于滚动显示窗口内容。滚动条还可作为模糊输入数值的输入装置。VB工具箱内提供了垂直和水平两种滚动条。VisualBasic程序设计教程523.5.4滚动条

(VscrollBar和Hscroll1．创建滚动条在工具箱内选取滚动条工具按钮。2．滚动条控件的常用属性（名称）：Name名称。垂直VScroll1，水平HScroll1Value：滚动条当前值。位于属性Min和Max的值之间Min：滚动条最小值。应大于等于-32768Max：滚动条最大值。应小于等于32767SmallChange：单击滚动箭头时的改变量LargeChange：单击滚动块与滚动箭头间的任意位置，滚动条值的改变量VisualBasic程序设计教程531．创建滚动条VisualBasic程序设计教程533．滚动条控件的事件

主要是Change事件和Scroll事件。

（1）Change事件。当滚动块在滚动条上移动时，其Value值发生变化，出现Change事件。（2）Scroll事件。当鼠标拖动滚动块时发生。VisualBasic程序设计教程543．滚动条控件的事件

主要是Change事件和Scroll事【例3-5】编写一个利用滚动条来显示颜色的程序，如图。说明：颜色使用RGB函数用3个滚动条分别表示RGB红、绿、蓝颜色成份（3个参数）的变化。滚动条的Change事件：将滚动块变化时的相应的颜色将反映在文本框中6个标签：表示各滚动条的颜色和值VisualBasic程序设计教程55【例3-5】编写一个利用滚动条来显示颜色的程序，如图。说明：属性设置：滚动条的Max：255，SmallChange：10；LargeChange：20其它对象的Caption属性值如图。VisualBasic程序设计教程56属性设置：VisualBasic程序设计教程56程序代码如下：

PrivateSubHScroll1_Change()'红

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label4.Caption=HScroll1.Value

EndSub

PrivateSubHScroll2_Change()'绿

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label5.Caption=HScroll2.Value

EndSub

PrivateSubHScroll3_Change()'蓝

Text1.BackColor=RGB(HScroll1.Value,HScroll2.Value,_HScroll3.Value)

Label6.Caption=HScroll3.Value

EndSubVisualBasic程序设计教程57程序代码如下：VisualBasic程序设计教程57专门用于时间控制的控件，又称计时器控件。可以有规律地间隔一段时间触发一次定时事件，从而执行一次代码以实现某种有时间规律的操作。时间间隔由Interval属性决定例如可以显示时间，可以控制打字速度，可以制作有动态效果的程序等。每个定时器必须依附在窗体上用户可以在窗体上建立多个定时器。定时器控件在程序运行时是不可见的定时器没有大小。VisualBasic程序设计教程583.6使用定时器控件Timer专门用于时间控制的控件，又称计时器控件。VisualBas1．创建定时器

在工具箱内选取定时器控件2．定时器的常用属性（名称）：Name。定时器的名称。默认值为Timer1Interval：设定定时器的时间间隔，单位毫秒，即1/1000秒，最大65536。它是定时器控件最主要的属性。默认为0，定时器不工作Enabled：是否让定时器工作。默认值为True。VisualBasic程序设计教程591．创建定时器

在工具箱内选取定时器控件VisualBas3．定时器的事件定时器事件只有一个，即Timer事件：Timer事件有规律地隔一段时间（由Interval决定）触发一次1VisualBasic程序设计教程603．定时器的事件VisualBasic程序设计教程60【例3-6】设计一个显示当前时钟的程序，如图。因文本框只显示信息，Enabled属性可为False；时钟1秒钟变化一次，定时器Interval值为1000。程序非常简单，代码如下。

PrivateSubTimer1_Timer()'每隔1秒钟运行1次

Text1.Text=Time'Time是VB内部函数，EndSub赋值时，VB自动将日期型数据转换成与赋值左边变量或属性类型一致的数据VisualBasic程序设计教程61【例3-6】设计一个显示当前时钟的程序，如图。Visual3.7.1程序错误的种类和产生的原因调试过程就是一个发现错误并纠正错误的过程。VB程序错误分三类编译错误代码不符合语法格式要求，如语句不完整，参数个数不符等可根据错误信息纠正编译错误VisualBasic程序设计教程623.7调试VB程序3.7.1程序错误的种类和产生的原因VisualBas逻辑错误一般是指程序能运行，但运行结果不正确。这类错误只有通过分析程序，才能发现问题所在，如公式错。运行错误一般是执行了不能执行的操作而引起的。如分母为零可根据提示错误信息，进入调试，找出错误所在处。为减少错误，编程时可采用一定的措施，如使用OptionExplicit语句VisualBasic程序设计教程63逻辑错误VisualBasic程序设计教程633.7.2调试程序VB中常用的调试方法有：设置断点、单步执行、查看中间运行结果等。1．设置断点设置断点方式：在代码窗口左侧的“边界标识条”中该行对应的位置处单击；程序运行设置了断点(BreakPoint)的代码行时，在执行该代码之前停止运行，进入中断模式。进入中断模式后，当前行指示器指示程序暂停在该行。这时可以在代码窗口或“立即窗口”检查程序状态。VisualBasic程序设计教程643.7.2调试程序VisualBasic程序设计教程62．单步执行单步(Step)执行可以功能键F8。每按一次F8，程序就执行一行，执行指示器就指向下一行。单步执行，可以监视变量，还可以跟踪程序流程。特别是分支和循环程序。VisualBasic程序设计教程652．单步执行VisualBasic程序设计教程653．查看中间运行结果中断和单步方式都可以在程序暂停状态下查看中间运行结果：使用立即窗口程序中添加Print语句使用VB的Tip显示当前变量的值。VisualBasic程序设计教程663．查看中间运行结果VisualBasic程序设计教程66另一种查看程序中间结果的方法是使用监视窗口在程序运行过程中，监视窗口中的表达式值随之变化。添加监视的方法：在代码编辑器中使用快捷菜单“添加监视”命令选择调试代码所在的模块和过程输入要监视值的表达式。VisualBasic程序设计教程67另一种查看程序中间结果的方法是使用监视窗口VisualBa【例3-7】已知三角形的三条边长a、b、c，求面积。公式为：

其中：s=(a+b+c)/2要求a、b、c来自文本框用Msgbox显示面积(保留小数两位)。label4在运行中临时显示a+b-c、b+c-a、a+c-b的值Command1用于计算，Command2用于退出定时器用于在窗体标题上显示当前的时间。VisualBasic程序设计教程683.8程序举例【例3-7】已知三角形的三条边长VisualBasic程序分析：能构成三角形时才有意义，可在显示a+b-c、b+c-a、a+c-b值后，加上Stop语句，或使用断点，进行观察。VisualBasic程序设计教程69分析：VisualBasic程序设计教程69求三角形面积PrivateSubForm_Load()'设置属性

Text1.Text="":Text2.Text="":Text3.Text="“

Label1.Caption=”a=“:Label2.Caption=“b=”:Label3.Caption=“c=”

Label4.Caption=“”:Timer1.Interval=1000

Command1.Caption=“计算”:Command2.Caption=“退出”

Form1.Caption=“三角形面积计算”&Time

EndSub

VisualBasic程序设计教程70PrivateSubTi