循環(huán)結(jié)構(gòu)vb程序設(shè)計(jì)-在線瀏覽
2025-02-24 12:57本頁(yè)面
【正文】 句塊 [Exit Do] 語(yǔ)句塊 Loop { While|Until} 條件 Do While … Loop 流程圖 Do … While Loop 流程圖 條件 語(yǔ)句塊 語(yǔ)句塊 T F 語(yǔ)句塊 語(yǔ)句塊 條件 T F 有 Exit Do F T 有 Exit Do F T 注意： 1先判斷后執(zhí)行，有可能一次也不執(zhí)行； 形式 2先執(zhí)行后判斷，最少執(zhí)行一次循環(huán)體。 {While|Until}條件 子句，表示 無(wú)條件循環(huán)，循環(huán)體中應(yīng)有 Exit Do語(yǔ)句， 否則為 死循環(huán) 。 例 :我國(guó)有 ,按出生率為 %的增長(zhǎng)率 ,多少年后超過(guò) 20億 Private Sub Form_Load() Dim m As Double Dim yearr As Integer Show m = 1320220000: yearr = 0 Do While m = 2022000000 m = m + m * yearr = yearr + 1 Loop Print yearr。 m End Sub 若將 While改為 Until，條件表達(dá)式怎么修改？ 用 do until 實(shí)現(xiàn) Private Sub Form_Load() Dim m As Double Dim yearr As Integer Show m = 132022000000: yearr = 0 Do Until m 202200000000 m = m + m * yearr = yearr + 1 Loop Print yearr。 m End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1