《選擇程序結(jié)構(gòu)》教學

VB編程基礎—

選擇程序結(jié)構(gòu)設計制作：李紅燕選擇程序結(jié)構(gòu)，要根據(jù)條件進行判斷并決定下一步程序的執(zhí)行方向，能夠完成這種功能的語句稱為條件語句，VB編程中的IF語句就是條件語句。平羅縣回民中學單向選擇結(jié)構(gòu)語法格式為：If條件表達式then

語句序列……Endif執(zhí)行流程圖為：平羅縣回民中學分析算法:開始輸入X和Y的值X*Y=ZZ>20?20+（Z-20）*0.95=Z實際支付的金Z額結(jié)束否是平羅縣回民中學小練習:根據(jù)算法完善“計算商品金額”程序代碼PrivateSubCommand1_Cick()DimXAs

,YAs_________,ZAssingleX=Val(Text1.text)Y=Val(Text2.text)Z=X*YIf_________ThenZ=_______________EneIfLabel3.Caption=“商品金額為“+CStr(Z)+”元”EneSubsinglesingleZ>2020+(Z-20)*0.95平羅縣回民中學編寫一段代碼，判斷變量X和Y的大小，當X小于Y時交換兩個變量的值PrivateSubForm_Click()DimxAsInteger,yAsInteger,rAsIntegerx=Val(InputBox(請輸入x))：y=Val(InputBox(請輸入y))Ifx<yThenr=x

x=y

y=r‘典型的交換算法，借助第三變量

EndIfPrint“x=";x,“y=";yEndSub試試看：平羅縣回民中學執(zhí)行流程圖為：雙向選擇結(jié)構(gòu)語法格式為：If條件表達式then

語句序列1

Else

語句序列2Endif平羅縣回民中學顯示兩個實數(shù)根：（-p+Sqr(r)）/2（-p-Sqr(r)）/2看一看:開始輸入p和q的值P^2-4q=rr>=0?結(jié)束否是用消息框顯示“本方程無實數(shù)根”平羅縣回民中學做一做:PrivateSubCommand1_Cick()DimpAs

single,qAssingle

,rAssinglep=Val(Text1.text)q=Val(Text2.text)Text3.text=“”Text4.text=“”r=_________If

ThenText3.text=（-p-Sqr(r)）/2Text4.text=_______________ElseMsgbox(“本方程無實數(shù)根”)EneIfEneSub根據(jù)流程圖，編寫“求方程的根”程序代碼并運行測試P^2-4qr>=0-P+Sqr(r)/2平羅縣回民中學鞏固練習1、當X的值分別為6和2時，運行下述程序后，Y的值分別為（）IfSqr(X)>2thenY=X+1ElseY=3*XEndIf

A7和18B7和6C18和3D3和182、下述VB代碼段屬于（）結(jié)構(gòu)的程序a=9Ifa<=10thenb=a*3+5Else