VB 第四章 顺序分支与循环结构.ppt

(一) (顺序、条件、循环):[LET]变量名=表达式作用::sRate!=="”当表达式的类型与变量的类型不一致时,强制转换成左边的精度iA%=10/3iA中的结果为3注意: (提示[,标题][,缺省][,x坐标位置][,y坐标位置])其中:提示提示信息,标题对话框标题,:DimstrNameAsString*40strName=InputBox(“请输入你的姓名”+vbCrLf+“然后单击确定”,“输入框”)也可以使用如下语句:DimstrNameAsString*40,strS1AsString*40strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定”strName=InputBox(strS1,“输入框”,,100,100)当键盘输入“王晓明”后,:变量[%]=MsgBox(提示[,按钮][,标题])过程形式:MsgBox提示[,按钮][,标题]按钮值如下:函数返回所选按钮整数值:。要求:帐号不超过6位数字,有错,“*”代替;若密码错,显示有关信息,选择“重试”按钮,清除原内容再输入,选择“取消”按钮,停止运行。分析:帐号6位,MaxLength为6,LostFocus判断数字IsNumeric函数密码PassWordChar为“*”,***韧任展挖潦嫌酌以砂嚎蕉厌尧傣喘掺紫壳年掷眉杠霓嗓札移那文慎慎VB第四章顺序分支与循环结构VB第四章顺序分支与循环结构常见错误数据合法性检查中引起程序的死循环PrivateSubText1_LostFocus()IfNotIsNumeric(Text1)Thenmsgbox“请输入正整数"Text1=""()IfNotIsNumeric(Text2)Thenmsgbox“请输入正整数"Text2=""<>""AndNotIsNumeric(Text2)当年龄框中输入非字符串,并按下Tab键时。就会出现循环的错误提示。例4-1-12009-3-…Then语句(单分支结构)P100If<表达式>Then语句块EndIf或If<表达式>Then<语句>例:已知两个数x和y,比较它们的大小,<yThent=xx=yy=tEndIf或Ifx<yThent=x:x=y:y=t重要的是学会两个数的交换,若上述语句次序变一下,结果如何?耸睡统寒重吹毖范蚂薄示益墨星行伯粒涡饯衙贸卯伎本凤哄珍侥曲售攫***VB第四章顺序分支与循环结构VB第四章顺序分支与循环结构单分支结构实现:y=cos(x)-x^3+3*xIfx<>0Theny=sin(x)+sqr(x*x+1)例如:计算分段函数思考:如果上面的两个语句换一下顺序即:Ifx<>0Theny=sin(x)+sqr(x*x+1) y=cos(x)-x^3+3*x会是什么结果?…Then…Else语句(双分支结构)P101If<表达式>Then<语句块1>Else<语句块2>EndIf也可以写为一行,格式为: