循環(huán)結(jié)構(gòu)程序設計(1)-全文預覽
【正文】 b Form_Activate() For i = 1 To 5 Print **。 Next j Print ** ** 1 ** ** 2 2 ** ** 3 3 3 ** （ 2）編寫激活窗體時的代碼，即 Form的Activate 事件過程 Private Sub Form_Activate() For i = 1 To 5 Print **。 Next j Print ** ** 1 ** ** 2 2 ** （ 2）編寫激活窗體時的代碼，即 Form的Activate 事件過程 Private Sub Form_Activate() For i = 1 To 5 Print **。 Next j Print ** ** 1 ** Private Sub Form_Activate() For i = 1 To 5 Print **。 ** 1 ** ** 2 2 ** ** 3 3 3 ** ** 4 4 4 4 ** ** 5 5 5 5 5 ** 嵌套的循環(huán)結(jié)構(gòu) （ 2）編寫激活窗體時的代碼，即 Form的Activate 事件過程 Private Sub Form_Activate() For i = 1 To 5 Print **。 補充 作業(yè)： 用 100 元買 100 只雞，母雞 3元 1只，小雞 1元 3只，問各應買多少只 ? 采用 Print直接在窗體上輸出結(jié)果，程序代碼： Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 x If 3 * x + y / 3 = 100 Then Print 母雞只數(shù)為 :。 其做法是：從所有可能解中，逐個進行試驗，若滿足條件，就得到一個解，否則不是。 Next j 代碼實現(xiàn) For i = 1 To k For j = 1 To i 1。這樣程序的基本結(jié)構(gòu)為： （ 2）循環(huán)體為“打印第 i行”的操作。 注意：內(nèi)循環(huán)是外循環(huán)的循環(huán)體的一部分，不能交叉。 i = 0: n = 1 Do While i 32 i = (i + 1) * (i + 1) n = n + 1 Loop Print n A. 2 B. 3 C. 4 D. 5 請回答問題 想一想 思考題 C n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Print s=。計隨機數(shù)的個數(shù) For i = 2 To r 1 39。用變量 max和 min分別存放最大和最小值。 算法分析 （ 1）產(chǎn)生隨機數(shù)： r= Int（ Rnd*90） +10 （ 2）判斷 r 是否素數(shù)。 ? Exit Do：從循環(huán)中間退出循環(huán)，執(zhí)行do循環(huán)后的語句。 “ 手動計算 ” If j = 0 Then fact = 1 If fact = 5000 Then j = j + 1 fact = fact * j = j = fact Else = False End If 任務三 用 wile …wend 結(jié)構(gòu)實現(xiàn)5+10+15+……+100 的操作。 C. 一直循環(huán)到邏輯表達式不成立為止。 i = 1 fac = 1 While fac = 5000 fac = fac * i i = i + 1 Wend 算法分析 (1)1*2*3*……+n 和的過程可以描述如下： fac=fac*1 fac=fac*2 fac=fac*3 重復執(zhí)行 fac=fac*i的過程 …… fac=fac*n (2)循環(huán)的 次數(shù)未確定 ，所以用 While循環(huán)。超過終值時，退出循環(huán)，執(zhí)行 Next之后的語句；沒有超過，則執(zhí)行循環(huán)體 (3)遇到 Next語句時，修改循環(huán)變量值（即 循環(huán)變量 =循環(huán)變量 +步長值 ），再轉(zhuǎn)到 (2)去判斷循環(huán)條件。 程序結(jié)構(gòu)清晰，可讀性好，也易于查錯和修改 具有單入口，單出口的特點 (a) (b)
教學課件相關推薦
鄂ICP備17016276號-1