《分支结构程式优秀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=“奇数”Else
2、 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页