vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-實(shí)例-文庫吧資料
2025-01-18 20:57本頁面
【正文】 Print j。 Next j For j = 2 To 6 i Print j。 返回 (a) (c) 輸出圖形 (c)的代碼如下： For j = 1 To 5 For i = 1 To 6 Print *。先輸出 j個空格 For i = 1 To 6 Print *。 (b) (a) 字符圖形的輸出 輸出圖形 (b)的程序如下： For j = 1 To 5 Print Tab(j)。 ?在實(shí)現(xiàn)輸出字符圖形時 ， 要找清楚要輸出的圖形與行列變量之間的關(guān)系 。 Next i Print 39。 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 輸出圖形 (a)的程序如下： For j = 1 To 5 For i = 1 To 6 39。 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 多重循環(huán)應(yīng)用舉例 1. 字符圖形的輸出 3. 其他綜合應(yīng)用 2. 方程求解問題 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 字符圖形的輸出 (a) (b) (c) (d) ?在解決這類問題時 ， 應(yīng)首先考慮一個一般行的輸出 ， 只需要把這個一般行的輸出語句利用循環(huán)結(jié)構(gòu)控制執(zhí)行多次即可 。 j。 ? 在多重循環(huán)的任何一層循環(huán)中都可以使用 Exit Do或 Exit For退出循環(huán)，但要注意只能退出 Exit Do或Exit For 語句所對應(yīng)的最內(nèi)層循環(huán)，而不是一次退出多層循環(huán)。 ?但當(dāng)多重循環(huán)的 Next語句連續(xù)出現(xiàn)時 ， Next語句可以合并成一條 ， 內(nèi)層循環(huán)變量寫在前面 ， 外層循環(huán)變量寫在后面 。 ?嵌套時，內(nèi)層循環(huán)必須完全包含在外層循環(huán)之內(nèi)，不能相互 “ 交叉 ” 。 ? 在嵌套結(jié)構(gòu)中，對嵌套的層數(shù)沒有限制，有幾層嵌套，就說是幾重循環(huán)。要求在文本框中只顯示出有效的輸入成績。 Chr(13) amp。成績個數(shù) Private Sub cmdInput_Click() Dim score As Integer = = = “ sum = 0 : n = 0 score = Val(InputBox(“請輸入 ...”, “成績輸入 , 1)) Do While score 1 n = n + 1 = amp。 Chr(10) 直到輸入1 sum =sum+ score score = Val(InputBox(“請輸入 ...”, “成績輸入 , 1)) 換行符 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) Dim sum As Integer 39。 score amp。 a If a max Then max = a End If Next i = max End Sub 求 1000個數(shù)中的最大 ? 程序代碼 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) ?常用于執(zhí)行條件明確，但事前 不知道循環(huán)次數(shù) 的循環(huán) ?語法格式 Do While 循環(huán)條件 循環(huán)體語句 Loop ?執(zhí)行流程 Do While Loop語句 條件判斷 循環(huán)體語句 Yes No 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) ?通常情況下，在進(jìn)入 Do While Loop語句前 應(yīng)給循環(huán)變量設(shè)置初值 ?循環(huán)體中必須包含 使循環(huán)趨于結(jié)束 的語句 ?可以使用 Exit Do 語句隨時跳出當(dāng)前所在的循環(huán)，提前結(jié)束循環(huán)語句 ?Exit Do 可出現(xiàn)在循環(huán)體語句中的任意位置，通常與 If 語句聯(lián)合使用 Do While Loop語句 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) ?語法格式 Do 循環(huán)體語句 Loop While 循環(huán)條件 ?執(zhí)行流程 Do Loop While語句 條件判斷 循環(huán)體語句 Yes No 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 【 實(shí)例 】 輸入若干成績（輸入 1時結(jié)束）計(jì)算總成績和平均成績 。 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。 lbldata lblmax 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1