VisualBasic程序设计VisualBasicProgramming第4章基本程序设计结构教学内容4.1算法及程序设计基础1、算法的概念18[算法描述]：3、算法的特征4、算法的描述5.基本算法结构2）选择结构3）循环结构三种基本结构的共同特点4.2赋值语句及InputBox、MsgBox函数4.2.1赋值语句[格式]：<变量名>=<表达式>[功能]：先计算表达式的值，再将该值赋予左端的变量。[说明]：-赋值号左端不仅可以是变量名，还可以是对象的属性；-表达式的类型和变量的类型要一致-赋值语句是按语句出现的先后顺序执行的（顺序结构）[举例]：使用下面的方法可以获取一个对象的属性值：var=object.Property例如：Label1.Caption=Text1.Text式中，var是变量名、object是对象名、property是该对象的某个属性名。特别注意：属性也存在数据类型，所以在获取对象的属性值时，最好使用具有相同数据类型的变量。注意：赋值号（=）与比较运算符（=）不同赋值是独立的一条语句；由运算符（=）连结两个操作数的关系表达式是语句的一部分,不可单独存在比较运算符不会改变操作数的值；赋值语句会，改变赋值号左边的量，所以必须是可以被赋值的变量或属性PrivateSubForm_Click()DimaAsInteger,bAsIntegera=10b=3*aPrinta,bEndSub例：交换两个变量的值。例：求一元一次方程３x+5=0的解。4.2.2InputBox函数[格式]：InputBox[$](<Prompt>[,<Title>][,<Default>][,<x,y>])[功能]：弹出对话框，用户输入数据后回车或单击“确定”按钮后，将输入内容赋值给相应的变量；按[ESC]键或单击“取消”按钮，返回空串。[说明]（1）prompt：必选项。对话框中的提示信息。（2）title：可选。对话框的标题。省略则为应用程序名。（3）default：可选。显示在用户编辑框中的缺省值，省略为空。（4）x,y:可选。指定对话框的显示位置，省略则居中。例：用InputBox函数输入出生日期，计算年龄。如果赋值号左端的变量为数值型或日期型等非字符型变量，①输入字符数据②单击“取消”按钮③不输入直接按回车键，则系统都会提示出错：4.2.3MsgBox函数[格式]：MsgBox[(Prompt[,Button][,Title][,HelpFile,Context])][功能]：向用户发布提示信息，并要求用户作出必要的响应。[说明]：（1）Prompt:必选项。字符串表达式，对话框中的提示信息。（2）Button:指定显示按钮的数目及形式，使用的图标样式，这是一个由4个数值常量组成的式子，形式为c1+c2+c3+c4，用于决定信息框中按钮的个数和类型以及出现在信息框中的图标类型，各个参量的可选值及其功能;详见P.62表4.2（3）Title:对话框标题栏的显示信息。MsgBox"需要重新来一次?",2+32+256+4096,"询问"[方法一]：发布提示信息，无须用户响应，在程序中作为独立语句存在,不加括号；例：MsgBox"非法数据！",,"警告"4.3分支结构与分支结构语句1、If-Then-Else语句[格式1]：If<条件>Then<A组语句>[Else<B组语句>]EndIfPrivateSubcmdCalculate_Click()DimxasSinglex=Val(text1.text)Ifx>=0ThenText2.text=Str(Sqr(x))ElseText2.text="数据小于0，错误！"EndIfEndSub例：计算分段函数y的值。[格式2]：单行If-Then-Else语句If<条件>Then<语句1>[Else<语句2>][说明]：（1）在A组语句和B组语句都只有一个语句时，可使用该格式；（2）EndIf语句省略。例：上例可改写为以下程序段。条件满足?2.嵌套的If结构在If语句的“语句块”中包含另一个If语句，叫做嵌套的If结构。开始PrivateSubcmdCalculate_Click()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If(1)ThenIfa+b>cAndb+c>aAndc+a>bThenp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Text4.Text=S