分支结构程式优秀课件.ppt

《分支结构程式优秀课件.ppt》由会员分享，可在线阅读，更多相关《分支结构程式优秀课件.ppt（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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页