《分支结构程式精选PPT.ppt》由会员分享，可在线阅读，更多相关《分支结构程式精选PPT.ppt（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、分支结构程式分支结构程式第1页，此课件共11页哦一、双分支结构和一、双分支结构和VB程式的对应程式的对应If then 语句组1Else 语句组2End if第2页，此课件共11页哦一、双分支结构和一、双分支结构和VB程式的对应程式的对应Dim m as singlem=inputbox()If m mod 2 0 then print“奇数”Else print“偶数”End if第3页，此课件共11页哦一、双分支结构和一、双分支结构和VB程式的对应程式的对应Dim m as singleDim k as stringm=inputbox()If m mod 2=0 then k=“奇数”E
2、lse k=“偶数”End ifPrint k第4页，此课件共11页哦一、双分支结构和一、双分支结构和VB程式的对应程式的对应Dim m as singleDim k as varientm=inputbox()If m mod 3=0 then k=mElse k=“该数不满足条件”End ifPrint k第5页，此课件共11页哦一、双分支结构和一、双分支结构和VB程式的对应程式的对应If then 语句组1Else 语句组2End if第6页，此课件共11页哦二、单分支结构和二、单分支结构和VB程式的对应程式的对应If then 语句组End if第7页，此课件共11页哦二、单分支结构和
3、二、单分支结构和VB程式的对应程式的对应Dim m as singlem=inputbox()If m mod 2=0 then print “偶数”End if第8页，此课件共11页哦二、单分支结构和二、单分支结构和VB程式的对应程式的对应Dim dj as singleIf dj500 then dj=dj*(1-0.15)End ifPrint dj第9页，此课件共11页哦二、单分支结构和二、单分支结构和VB程式的对应程式的对应Dim np as singleDim kp as singleDim aa as singlenp=inputbox()kp=inputbox()If np-kp=0 then aa=np np=kp kp=aaEnd ifPrint np-kp第10页，此课件共11页哦二、分支结构和二、分支结构和VB程式的对应程式的对应If then 语句组End ifIf then 语句组1Else 语句组2End if第11页，此课件共11页哦