福建省高职单招计算机专业市公开课一等奖百校联赛获奖课件.pptx
《福建省高职单招计算机专业市公开课一等奖百校联赛获奖课件.pptx》由会员分享,可在线阅读,更多相关《福建省高职单招计算机专业市公开课一等奖百校联赛获奖课件.pptx(58页珍藏版)》请在咨信网上搜索。
1、Visual Basic程序设计第五章 选择控制结构第六章 循环控制结构1第1页第五章第五章 选择控制结构选择控制结构第 0 节 选择控制结构介绍第一节 单行结构IF语句第二节 块结构IF语句第三节 Select Case语句2第2页选择控制结构介绍l选择控制结构介绍l假如要在多个操作中选择其中一个操作或需要依据条件决定是否执行某操作,就应该用选择控制结构。l选择控制结构包含If语句(条件语句)和Select Case语句(情况语句)两种。3第3页单行结构IF语句 1l一、单分支结构l1、格式:If 条件 Then 语句l说明:l“条件”是由关系表示式或逻辑表示式得到逻辑由关系表示式或逻辑表示
2、式得到逻辑值值(True,False),程序依据其值执行对应操作。l假如“条件”为True,则执行“Then 语句”,不然不做任何操作。4第4页单行结构IF语句 2l例1:从输入两个整数a和b中,比较a和b。假如数a(b)较大,则输出a(b)。假如相等,则输出二者一样大。l练习1:已知两个数x和y,比较它们大小,使得x大于y。If xy Then t=x:x=y:y=t5第5页单行结构IF语句 3l二、双分支结构l2、格式:If 条件 Then 语句1 Else 语句2l说明:l假如“条件”为True,则执行“Then 语句”;“条件”为False,则执行“Else 语句2”。l例2:计算分段
3、函数l单分支结构实现:If x=0 Then y=cos(x)x3+3*x If x0 Then y=sin(x)+sqrt(x*x+1)6第6页单行结构IF语句 4l双分支结构实现:If x0 Then y=sin(x)+sqrt(x*x+1)Else y=cos(x)x3+3*xl练习2:输入两个不相同数a和b,判断其大小,并输出其中大者。(用双分支结构)7第7页单行结构IF语句 5l三、嵌套If语句l例3:计算符号函数 ,程序要求:输入x,输出x和y值。l单分支结构实现:8第8页单行结构IF语句 6l三、嵌套If语句l格式1:If 条件1 Then 语句1 Else If 条件2 The
4、n 语句2 Else 语句39第9页单行结构IF语句 7l三、嵌套If语句l格式2:If 条件1 Then If 条件2 Then 语句1 Else 语句2 Else 语句310第10页单行结构IF语句 8l练习4:依据输入成绩将其转换为成绩等级:大等于85分为优异,大等于60分为合格;小于60分为不及格。格式1格式211第11页单行结构IF语句 9l思索题思索题:输入x、y、z三个不相同不相同数,使得xyz。12第12页块结构IF语句 1l格式:If 条件1 Then 语句块1ElseIf 条件2 Then 语句块2 Else 语句块nEnd If13第13页块结构IF语句 2l说明:l假如
5、“条件1”为True,则执行“语句块1”。不然假如“条件2”True,则执行“语句块2”不然执行“语句块n”。l“语句块”,能够是一个语句,也能够时多个语句。当为多个语句要分行书写;如写在一行中,则各语句间用冒号隔开。14第14页块结构IF语句 3l例4:依据输入成绩将其转换为成绩等级:大等于85分为优异,大等于60分为合格;小于60分为不及格。格式2l例5:依据输入成绩将其转换为成绩等级:大等于85分为优异;大等于75分为良;大等于60分为合格;小于60分为不及格。15第15页块结构IF语句 4l练习5:已知变量strC中存放了一个字符,判断该字符是字母字符、数字字符还是其它字符。If Uc
6、ase(strC)=A And Ucase(strC)=0 And strC=9 Then Print strC+是数字字符 Else Print strC+其它字符 End If16第16页块结构IF语句 5l练习6:比较3个不相同不相同整数a、b和c中输出其中大者。17第17页Select Case语句 1l格式:Select Case 测试表示式Case 表示式列表1语句块1Case 表示式列表2语句块2.Case Else语句块nEnd Select18第18页Select Case语句 2l功效:l首先对“测试表示式”求值;l然后,选择匹配一个“表示式列表”,并执行其对应语句块;l假
7、如都没有匹配,则执行Case Else语句块。l说明:l1、“测试表示式”能够是数值(字符串)表示式,通常是变量或常量。19第19页Select Case语句 3l2、表示式列表也称为域值。有3种形式:l表示式1,表示式2 比如:Case 1,3,5+1,7*2l表示式1 TO 表示式2 比如:Case 2 TO 10注:表示式2值要大于表示式1lIs关系运算表示式比如:Case Is=10 和 Case Is 10 And Is=85Print “成绩优异成绩优异 Case Is=75Print “成绩良好成绩良好“Case Is=60Print “成绩合格成绩合格“Case Else Pr
8、int “补考补考“End Select21第21页Select Case months Case Is=1,3,5,7,8,10,12Print days=31 Case Is=4,6,9,11Print day=30 Case Is=2If years Mod 400=0 or years Mod 4=0 and _years Mod 100 0 Then day=29 Else day=28 End SelectSelect Case语句 5l例2:输入年、月,输出该年该月有几天。Dim years As Integer,months As Integer,days As Integer
9、years=InputBox(“请输入年份请输入年份”)months=InputBox(“请输入月份请输入月份”)Select Case months Case Is=1,3,5,7,8,10,12Print days=31 Case Is=4,6,9,11Print days=30 Case Is=2If years Mod 400=0 or years Mod 4=0 and _years Mod 100 0 Then day=29 Else day=28 End SelectPrint years&”年年”&month&”月份有月份有”&days&”天。天。”22第22页Select C
10、ase语句 6l练习:输入一个字符,存放在变量strC中,判断并输出该字符是字母字符、数字字符还是其它字符。Select Case strC Case a To z,A To ZPrint strC+是字母字符 Case 0 To 9Print strC+是数字字符 Case ElsePrint strC+其它字符 End Select23第23页第六章第六章 循环控制结构循环控制结构第一节 For循环控制结构第二节 While循环控制结构第三节 Do循环控制结构第四节 多重循环24第24页For循环控制结构 1lFor循环控制结构格式:For 循环变量=初值 To 终值 Step 步长语句块
11、1Exit For语句块2Next 循环变量For i=1 To 10 Step 2 Print i;Print “abc”Next iExit For25第25页For循环控制结构 2l说明:l1、Next必须和For配合使用,二者循环变量必须一致!l2、循环体是需要重复执行若干语句行,当然也能够是循环语句。l3、当循环变量值超出终值时,结束循环。l4、步长是循环变量增量,它值能够是正数也能够是负数,但不能是0!如步长为1,可省略。l5、For循环中初值、终值、步长均为数值表示式,但其值并不一定是整数。l6、For循环嵌套层数没有限制。但每个循环中循环变量必须是唯一、而且一致!26第26页F
12、or循环控制结构 3l例1、求1+2+3+100值。Dim i As Integer,s As Integer s=0 For i =1 To 100s =s+i Next i Print “s=”;sDim i As Integer,s As Integer s=0 For i =100 To 1 Step -1s =s+i Next i Print “s=”;s27第27页For循环控制结构 4l例2:键盘输入10个数,分别输出正数、负数之和。Dim i As Integer,x As Single Dim ZSum As Single,FSum As Single For i =1 To
13、 10 x=InputBox(“请输入第请输入第”&i&“个数:个数:”)If x0 Then ZSum =ZSum+xElseIf x 0ZSum =ZSum+x Case Is x=2,判断是否为素数。素数是指除了1和它本身之外不能被整除正整数。n=InputBox(“请输入一个大等于请输入一个大等于2正整数正整数”)ISPRIME=TrueFor i =2 To Sqr(n)If n Mod i =0 Then ISPRIME =False Exit For End ifNext iIf ISPRIME Then Print n;”是素数是素数”Else Print n;”不是素数不是素
14、数”End If31第31页For循环控制结构 8l阅读程序2:Dim n As Long,i As Integern=InputBox(“请输入一个大于请输入一个大于3正整数正整数”)For i =2 To Sqr(n)If n Mod i =0 ThenPrint n;“不是素数!不是素数!”Exit For ElseIf n Mod i 0 And i =Int(Sqr(n)ThenPrint n;“是素数!是素数!”End IfNext i32第32页While循环控制结构 1lWhile循环控制结构格式:While 条件 语句块Wendx =5While x 0 s =s +x x
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 福建省 高职 计算机专业 公开 一等奖 联赛 获奖 课件
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【快乐****生活】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【快乐****生活】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。