第4章 vb语句（课堂PPT）

,VisualBasic程序设计,第4节算法基础及VB基本语句,4.2分支结构,4.3循环结构,4.1顺序结构,1,VisualBasic程序设计,1.赋值语句,给变量赋值,格式：变量名=表达式,设置或获取对象的属性,设置属性值：对象名.属性=表达式获取属性值：变量名对象名.属性,如:A=“VB程序设计”Text1.Text=ABText2.Text,4.1顺序结构,顺序结构：各语句按照出现的先后次序依次执行,Print方法系统提供的交互函数或过程,如:DimvAsIntegerDimbookAsString*8DimsumAsSinglev=26v=v+1book=“VB程序设计”sum=v*123.4+56.7,2,VisualBasic程序设计,1.赋值语句,4.1顺序结构,顺序结构：各语句按照出现的先后次序依次执行,注意：(1)右边表达式的值强制转换成左边变量的精度,(2)左边的函数只能返回变量或对象,例:DimXAsSingleDimYAsSingleDimSumAsSingleX=26Sin(X)=X+Y5=Sqr(X)+YX+Y=126Sum=1Sum=Sum+1,(3)赋值号左侧只能出现变量,(4)一条赋值语句不能同时给多个变量赋值,3,VisualBasic程序设计,4.1顺序结构,顺序结构：各语句按照出现的先后次序依次执行,与用户交互函数和过程,格式：InputBox(提示,标题,默认值,X,Y),格式：MsgBox(提示内容,按钮设置,标题),1.赋值语句,给变量赋值,设置或获取对象的属性,InputBox函数,MsgBox函数,4,VisualBasic程序设计,InputBox函数-输入框,作用：打开一个对话框,等待用户输入内容。单击确定，返回输入值（字符型数据）格式：变量名=InputBox(提示,标题,默认值,X,Y),例：设置一个输入框：提示用户输入查询学号。,提示：若提示内容中需要换行显示：在换行处加chr(13)和chr(10)各项参数位置必须一一对应,显示的坐标位置,5,VisualBasic程序设计,按钮：可选。整型表达式，缺省值为0指定信息框中按钮数目、类型、图标类型，缺省按钮等,Msgbox函数-信息框,变量=MsgBox(提示内容,按钮,标题)MsgBox提示内容,按钮,标题,提示内容：必要。字符表达式，即显示在对话框中的信息,2.MsgBox函数的常用参数的说明,=60ThenPrint“祝贺你考试通过！”ElsePrint“考试未通过.”EndIfPrint继续努力！,2.IfThenElse结构,格式：If条件ThenA组语句ElseB组语句ENDIf,执行规则:条件成立,执行A组语句,条件不成立,执行B组语句,4.2.1If条件语句,14,.,3.IfThenElseIf结构,Mark=val(Text1.Text)IfMark=90ThenPrint优ElseIfMark=60ThenPrint“通过ElsePrint“未通过EndIf,格式：If条件1Then（A组语句）ElseIf条件2Then（B组语句）ElseIf条件3Then（C组语句）Else（n组语句）EndIf,4.2.1If条件语句,多分支语句中，有多个分支同时满足，只执行第一个与之匹配的语句块。,15,IfThenElseIf结构,Char=InputBox(输入一个字符,测试字符值)IfChar=0AndChar=AAndChar=aAndChar=90Print优case60to90Print“通过CaseElsePrint“未通过Endselect,Mark=Val(Text1.Text)K=mark10Selectcasekcase10,9Print优case8to6Print“通过CaseElsePrint“未通过Endselect,返回包含于字符串内的数字，字符串中是一个适当数值类型,语法格式：SelectCase测试表达式Case测试项1A组语句Case测试项2B组语句CaseElsen组语句EndSelect,20,例学生成绩分等Data=InputBox(请输入一个成绩,成绩分等)SelectCaseInt(Data/10)Case10MsgBox满分,成绩分等Case9MsgBox优秀,成绩分等Case8MsgBox良好,成绩分等Case7MsgBox一般,成绩分等Case6MsgBox合格,成绩分等CaseElseMsgBox不合格,成绩分等EndSelect,21,补充例题：设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个110数的四则运算的算术题，学生输入该题的答案，计算机根据学生的答案判断正确与否，并给出成绩，单击结束命令按钮，退出应用程序。分析:产生110操作数，可通过Int(10*Rnd+1)实现85,22,OptionExplicitDimresult!,nok%,nerror%存放计算结果，正确个数，错误个数,23,Rem生成题目PrivateSubForm_Load()Dimnum1%,num2%,nop%,op$操作数、操作符代码、操作符Randomize随机数发生器初始化num1=Int(10*Rnd+1)num2=Int(10*Rnd+1)nop=Int(4*Rnd+1)SelectCasenopCase1op=+“:result=num1+num2Case2op=-“:result=num1-num2Case3op=“:result=num1*num2Case4op=“:result=num1/num2EndSelectLabel1=num1Text1;Tab(10);nok=nok+1Text1=ElsePicture1.PrintLabel1;Text1;Tab(10);nerror=nerror+1Text1=EndIfText1.SetFocusForm_LoadEndIfEndSub,25,Rem单击“计分”，显示结果PrivateSubCommand1_Click()Label1=Picture1.Print-Picture1.Print一共计算B;ForI=3To20T=A+B产生级数新的一项A=B让B成为下一组的AB=T原来A+B的值成为下一组的BPrintB;IfIMod6=0ThenPrintNextIEndSub,返回目录,斐波那契级数：第一、二项为1第三项开始，每一项的值是前两项值之和,每6个数一行,31,VisualBasic程序设计,1.DoWhile循环体（条件成立时）Loop,2.D0循环体LoopWhile,3.DoUntil循环体（条件不成立时）Loop,4.Do循环体LoopUntil,4.3.2DoLoop循环,32,VisualBasic程序设计,1.While循环,DoWhile循环体Loop,执行过程:（先判断，后执行）先判断循环条件,若为真:执行循环体,再判断循环条件否则，跳过循环体,执行Loop之后语句,4.3.2DoLoop循环,33,VisualBasic程序设计,D0循环体LoopWhile,执行过程:（先执行，后判断）先执行循环体,再判断循环条件,若为真，继续执行循环体;否则，结束循环,执行Loop之后语句,1.While循环,4.3.2DoLoop循环,34,VisualBasic程序设计,DoWhile循环体Loop,D0循环体LoopWhile,区别:(1)执行顺序不同形式一:先判断,后执行循环体;形式二:先执行循环体,后判断(2)执行次数不同（特殊情况下）形式一:条件不满足,循环体可能一次也不执行形式二:不论条件如何,至少执行一次,While循环,4.3.2DoLoop循环,35,VisualBasic程序设计,执行过程:（先判断，后执行）先判断循环条件：条件为假:执行循环体,然后再判断条件.条件为真:跳过循环体,执行Loop之后语句,DoUntil循环体Loop,2.Until循环,4.3.2DoLoop循环,36,VisualBasic程序设计,几种形式比较:,DoWhile循环体Loop（While）,DoUntil循环体Loop（Until）,区别:While条件为真时执行循环体,否则退出循环Until条件为假时执行循环体,否则退出循环,关系：while和Until可以相互转换，但循环条件取反,4.3.2DoLoop循环,37,VisualBasic程序设计,DoWhile循环体Loop,DimI,sAsIntegerForI=1To10s=s+INextIPrintI,s,例1:求1+2+3+4+10的和.,DimI,sAsIntegerI=1DoWhileLoopPrintI,s,s=s+I,I=10,I=I+1,I=11,(1)循环体执行了几次?(2)没有I=1会怎样?(3)I先赋值为11,结果如何?,1.While循环,4.3.2DoLoop循环,Prints,38,VisualBasic程序设计,1.GoTo语句,满足循环条件的情况下，提前跳出循环体，结束循环。,两种形式：ExitFor、ExitDo,作用：无条件的转移到标号或行号指定的语句语法：GoTo标号|行号,100IfI=100Thens=s+II=I+2GoTo100EndIf,4.4.4其他辅助控制语句,2.Exit语句,39,VisualBasic程序设计,DimIAsInteger,IfImod17=0thenprintIendIf,ForI=100to200NextI,Exitfor,分析：重复工作：判断每个数除17的余数是否为0初值、终值和增量：,例题：求出100200之间的第一个能被17整除的整数。,4.4.4其他辅助控制语句,40,例题判断一个正整数是否为素数(质数)N=InputBox(请输入一个正整数,验证素数)ForI=2ToN-1IfNModI=0ThenExitForEndIfNextIIfI=NThenMsgB