vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計-實例(存儲版)
【正文】 第十一章 第四章 VB程序設(shè)計 第 4章 循環(huán)結(jié)構(gòu)程序設(shè)計 ? 循環(huán)結(jié)構(gòu) ? 用 ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu) ? 用 Do WhileLoop語句實現(xiàn)循環(huán)結(jié)構(gòu) ? 嵌套的循環(huán)結(jié)構(gòu) 第七次課 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 For 循環(huán)變量 = 初值 To 終值 Step 步長 循環(huán)體語句 Next [循環(huán)變量 ] For— Next循環(huán)的一般語法格式 步長為 1時可省略 步長可取正或負數(shù)；步長為負時終值應(yīng)小于初值 成對出現(xiàn) 循環(huán)變量值介于初值 和 終值之間時反復(fù)執(zhí)行 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 ? ForNext常用于 循環(huán)次數(shù)已知 的循環(huán)中 ?循環(huán)體語句可以是 一條或多條 語句 ?可以使用 Exit For語句 提前結(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 程序說明 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 【 例 】 找最大值 。 score amp。要求在文本框中只顯示出有效的輸入成績。 ? 在多重循環(huán)的任何一層循環(huán)中都可以使用 Exit Do或 Exit For退出循環(huán)，但要注意只能退出 Exit Do或Exit For 語句所對應(yīng)的最內(nèi)層循環(huán)，而不是一次退出多層循環(huán)。 Next i Print 39。 返回 (a) (c) 輸出圖形 (c)的代碼如下： For j = 1 To 5 For i = 1 To 6 Print *。 amp。 For X = 0 To 10 For Y = 0 To 4 If 2 * X + 5 * Y = 20 And 2*Y = 3 * X 1 Then Print X。 例如：輸入 “ 1 2 3 4 5 6 7 8” 輸出 “ 8 7 6 5 4 3 2 1” ? 難點：如何獲得各位數(shù)字 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 補充例題代碼 Private Sub lblout_Click() n = Val() While n 0 r = n Mod 10 = amp。計大寫字母的個數(shù) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 Else 39。超出 ASCLL碼范圍的值不變 other = other + 3 End If tra = tra + trap 39。其它字符計數(shù)，空格也是一個非字母字符 Else If trap 99 Then 39。ASAII碼的范圍是 0~255 orip = Chr$(Val(orip)) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 If orip = a And orip = z Then trapn = Asc(orip) 97 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 97 1) letterlow = letterlow + 1 39。在計算每個累加項之前 ， 將放和的變量清零 For j= 1 To i Sum1 = Sum1 + j Next j Sum = Sum + Sum1 Next i = Sum End Sub 本題應(yīng)注意 Sum=0和 Sum1=0在程序中的位置。 2X+5Y=20 2Y=3X1 分析： 根據(jù)兩個方程確定 X和 Y的取值范圍分別為： X在 0和 10之間 ， Y在 0到 4之間 。 ? 分析：將每一個等式作為一個方陣的節(jié)點，則每一個等式出現(xiàn)的位置上行列的數(shù)字是相同的。先輸出 j個空格 For i = 1 To 6 Print *。 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 輸出圖形 (a)的程序如下： For j = 1 To 5 For i = 1 To 6 39。 ?但當多重循環(huán)的 Next語句連續(xù)出現(xiàn)時 ， Next語句可以合并成一條 ， 內(nèi)層循環(huán)變量寫在前面 ， 外層循環(huán)變量寫在后面 。 Chr(13) amp。 a If a max Then max = a End If Next i = max End Sub 求 1000個數(shù)中的最大 ? 程序代碼 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 ?常用于執(zhí)行條件明確，但事前 不知道循環(huán)次數(shù) 的循環(huán) ?語法格式 Do Whil
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1