2.3.2選擇結(jié)構(gòu)

1、選擇結(jié)構(gòu)導(dǎo)學(xué)案實(shí)踐 1：輸入兩個(gè)數(shù) a 和 b，比較他們的大小，如果a 大于 b，我們就進(jìn)行交換并輸出他們的值。那我們該如何完善這段程序呢？Private Sub Form_Click()Dim a As Single, b As Single, c As Singlea = Val(InputBox(輸入 a 的值:)b = Val(InputBox(輸入 b 的值:)Print 交換前：a=; a, b=; bIfThe nEnd IfPrint a 的值為:;aPrint b 的值為:;bEnd Sub實(shí)踐 2:張浩然同學(xué)用 VB 編寫一個(gè)程序，求輸入三個(gè)數(shù)中的最大數(shù)，運(yùn)行該程序，輸入

2、個(gè)數(shù)值，單擊“判斷”按鈕，即可得出最大數(shù)，該程序的正確運(yùn)行界面如圖所示，但他在編 寫程序時(shí)遇到了一些問題，請你幫他完善程序，讓其程序運(yùn)行正常。工作界面如下：0 Forrnl以上三個(gè)數(shù)當(dāng)中最大的埶為:退出程序代碼如下：Private Sub Comma nd1_Click() Dim a, b, c, max As In teger a = Val(Text1.Text) b = Val(Text2.Text) c= Val(Text3.Text)If_The nmax = aElsemax = bEnd IfIf_The nmax = cEnd IfLabell.Caption =以上三個(gè)數(shù)當(dāng)

3、中最大的數(shù)為：” & maxEnd Sub實(shí)踐 3 :某省高中信息技術(shù)學(xué)業(yè)水平考試，分值大于等于90 分，成績?yōu)椤?A”分值大于等于 80 分但少于 90 分，成績?yōu)椤?B”分值少于 80 分，但大于等于 60 分，成績?yōu)椤?C”；分 值少于 60分，成績?yōu)椤?D”請?jiān)O(shè)計(jì)程序，完善查詢效果。(工作界面如下：)“畑1口 回IT請輸入你的分?jǐn)?shù)：査詢LdPrivate Sub Comma nd1_Click()Dim x As Si nglex = Val(Text1.Text)If_ The nMsgBox 成績?yōu)?A！ , vbOKOnly,結(jié)果ElseIf_ The nMsgBox 成

4、績?yōu)?B！ , vbOKOnly,結(jié)果”ElseIf_ The nMsgBox 成績?yōu)?C！ , vbOKOnly,結(jié)果”ElseMsgBox 成績?yōu)?D！ , vbOKOnly,結(jié)果End IfEnd Sub練習(xí) 1：我國首位航天員楊利偉乘坐的“神舟”五號載人飛船，于北京時(shí)間2003 年 10 月 15 日 19時(shí)，在酒泉衛(wèi)星發(fā)射中心成功升空，這標(biāo)志著我國載人航天技術(shù)走向一個(gè)新的里程，由物理學(xué)知識可知：只有當(dāng)飛船的速度達(dá)到第一宇宙速度(7.91 千米/秒)時(shí)，才可以在地球引力作用下，繞地球近似做勻速圓周運(yùn)動(dòng)。編寫程序，實(shí)現(xiàn)以下功能：輸入飛船速度，判斷飛船 是否能升空。流程圖如圖所示：在“神舟號”程序中，我們只判斷了飛船成功飛行的條件。當(dāng)飛船速度繼續(xù)加大時(shí)，飛船將 達(dá)到第二宇宙速度、第三宇宙速度、速度與運(yùn)行狀態(tài)之間的關(guān)系如下圖所示。試編寫程序，輸入不同的飛船速度，判斷它的各種飛行狀況。飛船的飛行狀況如圖：飛船的飛行狀況飛船謹(jǐn)度 Ws)飛行狀況T-