第4篇 VB程序设计基础(分支结构)ppt课件.ppt

《第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：Ifx

4、rint"排序后："Form1.Print"x=";x,"y=";yEndSub单分支结构举例1：2个数由大到小排序或：Ifx

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=-