VB大纲5选择结构

《VB大纲5选择结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、选择结构程序设计1基本概念及语法逻辑运算符与表达式If语句情况语句SelectCase条件函数选择结构Not：当操作数为True时，结果为False，当操作数为False时，结果为TrueAnd:两操作数同时为True时，结果为True，否则为False。Or：两操作数同时为False时，结果为False，否则为True。逻辑运算符逻辑运算符Not（取反，优先级1）、And（与，优先级2）、Or（或，优先级3）、Xor（异或，优先级3）逻辑表达式逻辑表达式的值优先级：当一个表达式中出现了多种不同类型的运算符时，不同类型的运算符的优

2、先级如下：算术运算符>关系运算符>逻辑运算符。If语句的一般格式——单分支结构单分支结构If语句语句形式：If<表达式>Then<语句>If<表达式>Then语句块EndIf语句功能：当“表达式”的值为真时执行语句（或语句块），否则执行后继操作。为关系表达式、逻辑表达式或算术表达式。若为算术表达式，其值是非零为真，零为假一条语句或多条，且为多条时语句间用冒号分隔，并必须写在一行上一条或多条语句。“Then”不能与其后的语句写在同一行上，否则必须加上分隔符If语句的一般格式——双分支结构双分支结构If…Then…Else语句语句形式

3、：If<表达式>Then<语句1>Else<语句2>If<表达式>Then<语句块1>Else<语句块2>EndIf语句功能：当表达式的值为真时，执行Then后的“语句块1”（或“语句1”），否则执行Else后面的“语句块2”（或“语句2”）If语句的一般格式——双分支结构If语句的一般格式——双分支结构【实例1】制作简单的选择结构。当用户输入一个分数，判定是否及格。问题1：当输入220分，结果？问题2：如果要判定几个级别，优良中，该怎样修改程序？逻辑运算符与表达式示例器，其功能是输入逻辑表达式，输出运算结果及其说明。操作步

4、骤一设计用户界面操作步骤二编写代码PrivateSubCommand1_Click()DimcAsSinglec=Val(Text1.Text)Ifc>=60ThenMsgBox"及格"ElseMsgBox"不及格"EndIfEndSub限定分数在100分以下Ifc>=60Andc<=100ThenMsgBox"及格"ElseMsgBox"不及格"EndIfIf语句的一般格式——双分支结构【实例3.2】在窗体所示的第一个文本框（txtin）中输入字符串，当输入字符句号“.”时表示输入结束，第二个文本框（txtcount）动态统计字

5、符串中字符的个数.操作步骤一设计用户界面操作步骤二编写代码DimnAsInteger'窗体级变量PrivateSubtxtin_Change()IfRight$(txtin.Text,1)<>"."Thenn=n+1txtcount.Text=nElsetxtin.Enabled=FalseEndIfEndSubIf语句的一般格式——多分支结构语句形式：If<表达式1>Then<语句块1>ElseIf<表达式2><语句块2>……[Else<语句块n+1>]EndIf语句功能：<表达式i>为真时，执行<语句块i>If语句的一般格式—

6、—多分支结构If语句的一般格式——多分支结构【实例3.3】建立如图3-7所示的窗体界面。在窗体左边的文本框（txtinput）中输入字符串，字符串以“*”为结束标志；右边的三个文本框(txtletter、txtdigital、txtother)中分别显示字母字符、数字字符和其他符号字符的个数。操作步骤一设计用户界面操作步骤二编写代码Dimn1AsInteger,n2AsInteger,n3AsInteger'窗体级变量PrivateSubtxtinput_Change()DimsAsStrings=Right$(txtinput.

7、Text,1)Ifs<>“*"Then操作步骤二编写代码IfUCase(s)>="A"AndUCase(s)<="Z"Thenn1=n1+1txtletter.Text=n1ElseIfs>="0"Ands<="9"Thenn2=n2+1txtdigital.Text=n2Elsen3=n3+1txtother.Text=n3EndIf操作步骤二编写代码Elsetxtinput.Enabled=False'文本框不响应事件EndIfEndSubIf语句的一般格式——If语句的嵌套语句形式：If<表达式1>Then……If<表达式1

8、1>Then……EndIf……Else……EndIf请写出0-100之间及格不及格情况PrivateSubCommand1_Click()DimcAsSinglec=Val(Text1.Text)If语句的一般格式——If语句的嵌套Ifc>=0An