欢迎来到天天文库
浏览记录
ID:58700437
大小:1.14 MB
页数:108页
时间:2020-10-04
《第4篇 VB程序设计基础(分支结构)ppt课件.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第4章VB程序设计基础4.1VB的程序语句4.2顺序结构4.3选择(分支)结构4.4循环结构4.5其它控制语句4.6综合应用4.3选择结构普通自动洗衣机:加水5升洗涤20分钟排水。。。智能自动洗衣机:判断:如果衣服多加水5升否则加水3升判断结束洗涤20分钟排水。。。现实生活中处处都存在选择:4.3选择结构4.3.1IF语句4.3.2SelectCase语句4.2.3条件函数4.2.4分支语句的嵌套VB中提供了多种形式的条件语句来实现选择结构。4.3选择结构4.3.1IF语句4.3.2SelectCase语句4.2.3条件函数4.2.4分支语句的嵌套
2、单分支结构:If…Then语句2.双分支结构:If…Then…Else语句3.多分支结构----If…Then…ElseIf语句4.3.1If条件语句1.单分支结构:If…Then语句格式1:If<表达式>Then语句块EndIf说明:语句块(可以是一句或多句语句)格式2:If<表达式>Then<语句>说明:<语句>只能是一句语句或语句间用冒号分隔,而且必须在一行上书写。作用:当表达式的值为True,执行Then后面的语句块,否则不做任何操作。例:变量数据交换从键盘输入2个整数,分别存放到x和y中,比较它们的大小,如果y>x,则交换这2个数,结果要
3、求必须使得x大于y。单分支结构举例1说明:2个变量的值进行交换的算法:单分支结构举例1:2个数由大到小排序‚ƒtyx使用格式1:Ifx4、rint"排序后:"Form1.Print"x=";x,"y=";yEndSub单分支结构举例1:2个数由大到小排序或:Ifx5、j2=Val(Text2.Text)Text3.Text=(cj1+cj2)/2例:成绩数据有效性检验。利用文本框的LostFocus事件检验数据PrivateSubText1_LostFocus()Dimx!x=Val(Text1.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSub让焦点不离开text1单分支实例2文本框数据有效性检验PrivateSubText1_LostFocus()Dimx!x=Val(Text1.T6、ext)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSubPrivateSubText2_LostFocus()Dimx!x=Val(Text2.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text2.Text=""Text2.SetFocusEndIfEndSub格式1If<表达式>Then语句块1Else语句块2EndIf格式2If表达式Then语句1Else语句2作用:当表7、达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块。2.双分支结构----If…Then…Else语句双分支结构举例1从键盘输入一考生成绩,存入变量mark中,假设录取线为580,判断是否通过了考试,结果在窗体上输出.Dimmark%,Str$mark=val(InputBox(“输入成绩”))ifmark>=580thenstr="通过!"ELSEstr="未通过"EndifForm1.PrintStrifmark>=580thenstr="通过!"Elsestr="未通过"从键盘输入一个数,存入x中,求出它的绝对值,8、所求结果存入y中,最后用msgbox过程显示结果。(要求不用函数),Dimx!,y!从键盘输入x的值如果小于0,那么y=-
4、rint"排序后:"Form1.Print"x=";x,"y=";yEndSub单分支结构举例1:2个数由大到小排序或:Ifx5、j2=Val(Text2.Text)Text3.Text=(cj1+cj2)/2例:成绩数据有效性检验。利用文本框的LostFocus事件检验数据PrivateSubText1_LostFocus()Dimx!x=Val(Text1.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSub让焦点不离开text1单分支实例2文本框数据有效性检验PrivateSubText1_LostFocus()Dimx!x=Val(Text1.T6、ext)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSubPrivateSubText2_LostFocus()Dimx!x=Val(Text2.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text2.Text=""Text2.SetFocusEndIfEndSub格式1If<表达式>Then语句块1Else语句块2EndIf格式2If表达式Then语句1Else语句2作用:当表7、达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块。2.双分支结构----If…Then…Else语句双分支结构举例1从键盘输入一考生成绩,存入变量mark中,假设录取线为580,判断是否通过了考试,结果在窗体上输出.Dimmark%,Str$mark=val(InputBox(“输入成绩”))ifmark>=580thenstr="通过!"ELSEstr="未通过"EndifForm1.PrintStrifmark>=580thenstr="通过!"Elsestr="未通过"从键盘输入一个数,存入x中,求出它的绝对值,8、所求结果存入y中,最后用msgbox过程显示结果。(要求不用函数),Dimx!,y!从键盘输入x的值如果小于0,那么y=-
5、j2=Val(Text2.Text)Text3.Text=(cj1+cj2)/2例:成绩数据有效性检验。利用文本框的LostFocus事件检验数据PrivateSubText1_LostFocus()Dimx!x=Val(Text1.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSub让焦点不离开text1单分支实例2文本框数据有效性检验PrivateSubText1_LostFocus()Dimx!x=Val(Text1.T
6、ext)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text1.Text=""Text1.SetFocusEndIfEndSubPrivateSubText2_LostFocus()Dimx!x=Val(Text2.Text)Ifx>100Orx<0ThenMsgBox"成绩数据超界(只能为0-100),重新输入"Text2.Text=""Text2.SetFocusEndIfEndSub格式1If<表达式>Then语句块1Else语句块2EndIf格式2If表达式Then语句1Else语句2作用:当表
7、达式的值为True时,执行Then后面的语句块1,否则执行Else后面的语句块。2.双分支结构----If…Then…Else语句双分支结构举例1从键盘输入一考生成绩,存入变量mark中,假设录取线为580,判断是否通过了考试,结果在窗体上输出.Dimmark%,Str$mark=val(InputBox(“输入成绩”))ifmark>=580thenstr="通过!"ELSEstr="未通过"EndifForm1.PrintStrifmark>=580thenstr="通过!"Elsestr="未通过"从键盘输入一个数,存入x中,求出它的绝对值,
8、所求结果存入y中,最后用msgbox过程显示结果。(要求不用函数),Dimx!,y!从键盘输入x的值如果小于0,那么y=-
此文档下载收益归作者所有