4.4.选择结构选择结构4.1IF选择结构4.2有关函数4.3简单应用起止框起止框数据框数据框处理框处理框判断框判断框流程图描述法的基本图形符号流程图描述法的基本图形符号开始输入RS=3.14*R^2R>0?R>0?输出S结束YNNVBVB程序的控制结构程序的控制结构顺序结构选择结构循环结构TT语句组语句组FF语句组语句组条条件件??TrueTrueFalseFalse条件？条件？循环体循环体语句语句FalseFalseTrueTrue语句语句11语句语句22语句语句33•顺序结构：顺序结构：从上到下逐一执行每一个语句•选择结构：选择结构：根据给出的条件，选择执行一个分支•循环结构：循环结构：根据给出的条件，判断是否重复执行某一部分语句4.1If选择结构1、单分支结构(If…Then语句)语法结构：If<条件>Then<语句组>EndIf或If<条件>Then<语句>条件语句组假真多行结构单行结构问题1：输入x的值，计算如下函数对应的y值。分析：本题包含两个条件：（1）当条件为“x≥0”时；（2）当条件为“x<0”时。可以用两个单分支结构完成。1122xxyx≥0x＜0DimxAsSingle,yAsSinglex=Val(InputBox("请输入变量的值"))Ifx>=0Then'x>=0时计算yy=x^2+1EndIfIfx<0Then'x<0时计算yy=x^2-1EndIfPrint"x=";x,"y=";y问题2：在两个数中求最大数。DimaAsSingle,bAsSinglea=Val(InputBox("请输入变量a的值"))b=Val(InputBox("请输入变量b的值"))Ifa>=bThenPrint"最大数为：";aEndIfIfx<0ThenPrint"最大数为：";bEndIf语法结构：If<条件>Then<语句组1>Else<语句组2>EndIf或If<表达式>Then<语句1>Else<语句2>条件语句组1语句组2假真2、双分支结构(If…Then…Else语句)IIFIIF((条件条件,,TT语句语句,,FF语语句句))若若T/FT/F语句为一个语句为一个语句时语句时,IIF,IIF函数函数可代替可代替IFIF问题1：输入x的值，计算如下函数对应的y值。分析：本题中条件可为：x≥0（1）当“x≥0”成立时，y=x^2+1（2）当“x<0”成立时，y=x^2-11122xxyx≥0x＜0代码表示为：DimxAsSingle,yAsSinglex=Val(InputBox("请输入变量的值"))Ifx>=0Theny=x^2+1'x>=0时计算yElsey=x^2-1EndIfPrint"x=";x,"y=";y问题2：在两个数中求最大数。DimaAsSingle,bAsSinglea=Val(InputBox("请输入变量a的值"))b=Val(InputBox("请输入变量b的值"))Ifa>=bThenPrint"最大数为：";aElsePrint"最大数为：";bEndIf问题3：输入x的值，计算如下函数对应的y值。分析：本题中条件可看作：x≥0和x<0两种情况（1）当“x<0”时，y=x^2-1（2）当“x≥0”时，再进一步判断：①1若“x>0”，则：y=x^2+1；②否则：y=010122xxyx＞0x＝0x＜0DimxAsSingle,yAsSinglex=Val(InputBox("请输入变量的值"))Ifx<0Theny=x^2-1'x<0时计算yELSEIfx>0Theny=x^2+1ELSEy=0EndIfEndIfPrint"x=";x,"y=";y关于行格式：格式If<条件>Then[<语句组1>][Else<语句组2>]注意条件和语句序列应在一行内写完；<语句组1>和<语句组2>不得同时省略。用行If结构的前提是“语句组1和语句组2要特别简短”,如果语句组较复杂，结构会不清晰。行If结构没有EndIf。Ifa>bThenPrintaElsePrintb4.2有关函数1、IIf函数（1）格式：IIf（条件，T语句，F语句）（2）说明：当条件成立时，该函数返回表达式1的值，否则返回表达式2的值。DimaAsSingle,bAsSingle,maxAsSinglea=InputBox("请输入a的值")b=InputBox("请输入b的值")max=IIf(a>=b,a,b)Printmax选择结构小结课后任务1:1.输入一个字母或09∽的数字，编程进行分类.要求:若为数字，则显示“是一个0-9的数字”；若为英文字母，则显示“是一个英文字母”；若为其它(如标点符号),则用MsgBox提示错误信息.闰年:若年份能被4整除但不能被100整除或年份能被400整除,则为闰年判断用户从输入框输入的年份是否为闰年?课后任务课后任务2:2:PrivateSubCommand1_ClickDimy%y=Val(InputBox(“请输入年份”))IfyMod4=0AndyMod100<>0OryMod400=0ThenPrinty&“年为闰年”ElsePrinty&“年不是闰年”EndIfEndsub编程:求解一元二次方程ax2+bx+c=0的算术根x1,x2要求：要求：1.1.由输入框输入系数：由输入框输入系数：a.b.ca.b.c2.b2.b22-4ac>=0,-4ac>=0,计算算术根计算算术根x1,x2x1,x2否则否则,,信息框警告“无算术信息框警告“无算术根根!”!”[重试]：清空文本框，重新输入。[取消]：结束运行。VBRetryCancelVBRetryCancel课后任务5：实验指导书P15案例二
