【正文】 nt(Rnd * 100) + 1 = a max = a a = Int(Rnd * 100) + 1 = amp。 score amp。 例如：在輸出圖形 （ a） 時 ， 每一行都輸出了同樣的 6個字符 ，在輸出每一行之后換行 ， 然后輸出下一行 ， 所以 ， 只需要將輸出一行字符的語句連續(xù)執(zhí)行 5次就可以了 。 Next j 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 例：編程 打印“ 乘法九九表 ” 。 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) Private Sub Form_Click() n = Val() Sum = 0 For i= 1 To n Sum1 = 0 39。單詞計(jì)數(shù)，因?yàn)榭崭穹指魡卧~ other = other + 1 39。非字母 trap = Asc(orip) 39。 Y End if Next Y, X 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) （ 3）其他綜合應(yīng)用 【 例 】 編程求 Sum=1+（ 1+2） +（ 1+2+3） +? （ 1+2+3+? +n）， 其中 n由用戶輸入 。 Next i Print Next j j 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 輸出矩陣圖形 例：請輸入 n值，編寫程序輸出下列圖形（例如 n=5） . 1 2 3 4 5 1 1 2 3 4 1 1 1 2 3 1 1 1 1 2 1 1 1 1 1 第 1行： 1個 1， 25 第 2行： 2個 1， 24 第 3行： 3個 1， 23 …… 第 5行： 5個 1 第 個 ， 2~n 第 個 ， 2~n1 第 個 ， 2~n2 ……第 n行： n個 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 代碼 Private Sub Form_Activate() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To i Print 1。 For循環(huán)的嵌套 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 例如 ， 下面的循環(huán)退出位置如箭頭所示： f = 1 For i = 1 To 10 For j = 1 To 10 f = f * i * j If f 1000 Then Exit For Next j Print i。 Chr(13) 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ì)算總成績和平均成績 。 ?但當(dāng)多重循環(huán)的 Next語句連續(xù)出現(xiàn)時 ， Next語句可以合并成一條 ， 內(nèi)層循環(huán)變量寫在前面 ， 外層循環(huán)變量寫在后面 。先輸出 j個空格 For i = 1 To 6 Print *。 2X+5Y=20 2Y=3X1 分析： 根據(jù)兩個方程確定 X和 Y的取值范圍分別為： X在 0和 10之間 ， Y在 0到 4之間 。ASAII碼的范圍是 0~255 orip = Chr$(Val(orip)) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) If orip = a And orip = z Then trapn = Asc(orip) 97