vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-實(shí)例-全文預(yù)覽
【正文】 的輸出語(yǔ)句利用循環(huán)結(jié)構(gòu)控制執(zhí)行多次即可 。 ? 在多重循環(huán)的任何一層循環(huán)中都可以使用 Exit Do或 Exit For退出循環(huán)，但要注意只能退出 Exit Do或Exit For 語(yǔ)句所對(duì)應(yīng)的最內(nèi)層循環(huán)，而不是一次退出多層循環(huán)。 ?嵌套時(shí)，內(nèi)層循環(huán)必須完全包含在外層循環(huán)之內(nèi)，不能相互 “ 交叉 ” 。要求在文本框中只顯示出有效的輸入成績(jī)。成績(jī)個(gè)數(shù) Private Sub cmdInput_Click() Dim score As Integer = = = “ sum = 0 : n = 0 score = Val(InputBox(“請(qǐng)輸入 ...”, “成績(jī)輸入 , 1)) Do While score 1 n = n + 1 = amp。 score amp。 a If a max Then max = a End If 9次 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) Private Sub cmdMax_Click() Dim a As Integer, i As Integer, max As Integer Randomize a = Int(Rnd * 100) + 1 = a max = a For i = 1 To 9 重復(fù)執(zhí)行 9次 a = Int(Rnd * 100) + 1 = amp。第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 第 4章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) ? 循環(huán)結(jié)構(gòu) ? 用 ForNext語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) ? 用 Do WhileLoop語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) ? 嵌套的循環(huán)結(jié)構(gòu) 第七次課 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) For 循環(huán)變量 = 初值 To 終值 Step 步長(zhǎng) 循環(huán)體語(yǔ)句 Next [循環(huán)變量 ] For— Next循環(huán)的一般語(yǔ)法格式 步長(zhǎng)為 1時(shí)可省略 步長(zhǎng)可取正或負(fù)數(shù)；步長(zhǎng)為負(fù)時(shí)終值應(yīng)小于初值 成對(duì)出現(xiàn) 循環(huán)變量值介于初值 和 終值之間時(shí)反復(fù)執(zhí)行 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) ? ForNext常用于 循環(huán)次數(shù)已知 的循環(huán)中 ?循環(huán)體語(yǔ)句可以是 一條或多條 語(yǔ)句 ?可以使用 Exit For語(yǔ)句 提前結(jié)束 循環(huán) For i =1 To 10 x = x + Int( Rnd * 100 ) sum = sum + x If sum 300 Then Exit For End If Next i Print sum 程序說(shuō)明 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 【 例 】 找最大值 。 , amp。 連續(xù)彈出輸入框接收成績(jī)，直至 1時(shí)結(jié)束 計(jì)算總成績(jī)和平均成績(jī) 多行文本框 Lblaverage Lblsum txtscore 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) ?輸入第 1個(gè)數(shù)據(jù) ? 輸入第一個(gè)數(shù)據(jù) ， 存放在變量 score中 ?判斷輸入的數(shù)據(jù)是否是 1， 如果不是 1 ? 記錄已經(jīng)輸入的學(xué)生人數(shù) ? 將數(shù)據(jù)顯示在 txtscore原有內(nèi)容之后 中 ? 計(jì)算總成績(jī) ? 接收下一個(gè)數(shù)據(jù) 編程分析 — 成績(jī)輸入 score = Val( ) InputBox(“請(qǐng)輸入 ...”, “成績(jī)輸入 , 1) n = n + 1 = amp?？偝煽?jī) Dim n As Integer 39。 Chr(10) sum = sum + score score = Val(InputBox(請(qǐng)輸入 ..., 成績(jī)輸入 , 1)) Loop End Sub 程序代碼 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) Private Sub cmdCala_Click() Dim ave As Single = sum ave = sum / n = ave End Sub 程序代碼 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 【 程序改進(jìn) 】 修改上例，當(dāng)輸入非法成績(jī)時(shí)，再次彈出輸入框等待重新輸入，直至輸入 1 ~ 100之間的整數(shù)為止。 ? 多重循環(huán)的執(zhí)行過(guò)程是，外循環(huán)每執(zhí)行一次，內(nèi)循環(huán)都要從頭到尾執(zhí)行一遍。 For I1=…… For I2=…… For I3=…… …… Next I3, I2, I1 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1