程序控制结构ppt课件.ppt

《程序控制结构ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《计算机语言与程序设计》VisualBasic6.0计算机公共课教研室·2010年重点回顾VB程序设计基础数据类型标准数据类型自定义类型常量与变量变量的声明变量的作用域运算符与表达式算术运算符字符运算符关系运算符逻辑运算符常用内部函数目录顺序结构1选择结构2循环结构3常用算法44.1顺序结构一、赋值语句形式：[LET]变量名＝表达式作用：将表达式的值赋值给变量名。一般用于给变量赋值或对控件设定属性值。例：sRate!=0.1Text1.Text＝"欢迎使用VisualBasic6.0"当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如iA%=10/3iA中的结果为3注意

2、：虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。当表达式是数字字符串，左边变量是数值类型，自动转换为数值类型再赋值，当表达式有非数字字符或空串时，出错。以下二表达式n%=“1a23”;n%=“”逻辑型到数值类型时true为-1,false为0，反之非0转换为true，0转换为false任何非字符类型转换为字符类型，自动转换为字符类型4.1顺序结构二、与用户交互函数和过程1.InputBox函数InputBox(提示[，标题][，缺省][，x坐标位置][，y坐标位置])其中：提示：提示信息；标题：对话框标题；缺省：输入区缺省值函数返回

3、字符类型。例：要在屏幕上显示图示的对话框：相应的语句如下：DimstrNameAsString*40strName=InputBox("请输入你的姓名"+vbCrLf+"然后确定","输入框")当键盘输入“王晓明”后，变量strName获得键盘输入的值。4.1顺序结构标题提示缺省值2.MsgBox函数和MsgBox过程函数形式：变量[%]=MsgBox(提示[,按钮][，标题])过程形式：MsgBox提示[,按钮][,标题]按钮值如下：函数返回所选按钮整数值：4.1顺序结构例4.1编一帐号和密码检验程序。要求：帐号不超过6位数字，密码错，清除原内容再输入。密码输入时在屏幕上以“*

4、”代替；若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。分析：帐号6位，MaxLength为6，LostFocus判断数字IsNumeric函数密码PassWordChar为“*”，MsgBox函数设置密码错对话框。4.1顺序结构4.2选择结构请先看例题：在40秒内竞猜u盘的价格。If…Then语句(单分支结构)If<表达式>Then语句块EndIf（多行if语句要有EndIf）或If<表达式>Then<语句>例：已知两个数x和y，比较它们的大小，使得x大于y.Ifx

5、语句次序变一下，结果如何？4.2选择结构Ifyouenjoyrunningeverymorning，thenpleaseputyourrighthand，elsepleaseputyourlefthand.If…Then…Else语句(双分支结构)If<表达式>Then<语句块1>Else<语句块2>EndIf或：If<表达式>Then<语句1>Else<语句2>4.2选择结构双分支结构实现：Ifx<>0Theny=sin(x)+sqr(x*x+1)Elsey=cos(x)－x^3+3*xEndIf例：计算分段函数4.2选择结构3.If…Then…ElseIf语句(多分支结构)形

6、式：If<表达式1>Then<语句块1>ElseIf<表达式2>Then<语句块2>…[Else语句块n+1]EndIf4.2选择结构例4.2已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。用多分支结构实现:IfUcase(strC)>="A"AndUcase(strC)<="Z"ThenPrintstrC+"是字母字符"ElseIfstrC>="0"AndstrC<="9"ThenPrintstrC+"是数字字符"ElsePrintstrC+"其他字符"EndIf4.2选择结构4．If语句的嵌套If语句的嵌套是指If或Else后面的语句块中又包含I

7、f语句。形式如下：If<表达式1>ThenIf<表达式11>Then…EndIf…EndIf4.2选择结构If语句的嵌套注意事项：书写锯齿型；If与EndIf配对。例4.4设计一个程序，输入三角形的三条边，并求出对应的三角形面积.算法分析:①输入三条边（定义变量）②判断这三条边是否能构成三角形（生：依据？）③计算三角形面积的方法（（P=A+B+C）/2；S=SQR（P*（P-A）*（P-B）*（P-C））④输出：三角形面积S/不能构成三角形PrivateSubCommand1_C