【正文】 1 To 10 Step 2 i = i + 3 j = j + 1 Print 第 。 次循環(huán) i=。 i End Sub 第 1次循環(huán) i=4 第 2次循環(huán) i=9 退出循環(huán)后 i=11 3. 循環(huán)的嵌套 一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套 . 對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)： ?內(nèi)循環(huán)變量與外循環(huán)變量不能同名； ?外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； ?不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，反之則可以。 作用：退出某種控制結(jié)構(gòu)的執(zhí)行 。 上講回顧 多分支語(yǔ)句 Select Case 變量 Case 情形 1 語(yǔ)句塊 1 Case 情形 2 語(yǔ)句塊 2 …… Case 情形 N 語(yǔ)句塊 N 【 Case Else 語(yǔ)句塊 N+1】 End Select 計(jì)數(shù)循環(huán) For 循環(huán)變量 =初值 To 終值 【 Step 步長(zhǎng) 】 循環(huán)體 Next 循環(huán)變量 Do Loop循環(huán) Do while 條件式 循環(huán)體 Loop Case后的表達(dá)式有四種形式： 表達(dá)式 一個(gè)數(shù)： 2 枚舉表達(dá)式 (用逗號(hào)分隔 ) 多個(gè)數(shù)： 2,4,6,8 表達(dá)式 1 To 表達(dá)式 2 一個(gè)范圍 60 To 100 Is 關(guān)系運(yùn)算符表達(dá)式 一個(gè)范圍 Is 60 第八講 程序舉例（一） 累加、連乘、連接 (1)S=1/2+1/4+1/6+1/8+1/10+…+1/20, 求 s并輸出 s的值。 (2)已知一數(shù)列的前兩項(xiàng)均為 1,從第 3項(xiàng)開始 ,每一項(xiàng)的值為其前面兩項(xiàng)之和 ,求數(shù)列的前 20項(xiàng)的和。求其前 2058352312 ???????S考慮另一種算法 (4)s=2+22+222+2222+22222+222222 思考： S=a+aa+aaa+……+aaaa （ N個(gè) a）其中 a是一個(gè) [1， 9]的隨機(jī)整數(shù)， N是一個(gè) [5， 10]的隨機(jī)整數(shù)。 (2)輸 出 3~100之間的素?cái)?shù)。 思考： 判 斷一整數(shù)是不是完數(shù)。 第九講：程序舉例 （二） “窮舉法”也稱為“枚舉法”或“試湊法”，即將可能出現(xiàn)的各種情況一一測(cè)試，判斷是否滿足條件，一般采用循環(huán)來(lái)實(shí)現(xiàn)。但因?yàn)橛幸欢伪容^長(zhǎng)的日子沒上了，陳婷把這個(gè)密碼給忘了。陳婷還記得這個(gè)密碼的中間一位(百位數(shù) )是 l。 假定小雞每只 5角，公雞每只 2元，母雞每只 3元。 思考： 雞兔合籠共 20只 ,腳 46只問雞幾只 ?兔幾只 ? 思考： 找出 100之內(nèi)的自然數(shù)對(duì) 。 “遞推法”又稱為“迭代法”，其基本思想是把一個(gè)復(fù)雜的計(jì)算過程轉(zhuǎn)化為簡(jiǎn)單過程的多次重復(fù)。 例 猴子吃桃子 。 思考： 一球從 10米高空落下 ,每次彈起高度為落下高度的 40%,求第 8次落下，小球經(jīng)歷的路程。 例 隨機(jī)產(chǎn)生 10個(gè) 100～ 200之間的數(shù) ， 求最大值 。 If x Max Then End If Next i Print Print 最大值 =。 計(jì)數(shù) (1)統(tǒng) 計(jì) 1~100之間能被 3整除和能被 7整除的數(shù)各有多少個(gè) ? (2)統(tǒng)計(jì)字符串中字母“ A”出現(xiàn)的次數(shù) (不區(qū)分大小寫 ) 思考題 ：統(tǒng)計(jì)字符串中大寫字母、小寫字母、數(shù)字字符的個(gè)數(shù)分別是多少？ 簡(jiǎn)單圖形輸出 思考題： 求 M， N的最大公約數(shù)和最小公倍數(shù) 常 見 錯(cuò) 誤 1. 不循環(huán)或死循環(huán)的問題 主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長(zhǎng)的設(shè)置有問題。 （ 2）多重循環(huán) 這要視具體問題分別對(duì)待。 按以前簡(jiǎn)單變量的使用和循環(huán)結(jié)構(gòu)相結(jié)合 ， 求平均成績(jī)程序段如下： S = 0 For i = 1 To 10 X = Val(InputBox(輸入第 amp。 位學(xué)生的成績(jī) )) S = S + X Next i aver = S / 10 請(qǐng)注意： x里存放的是最后一個(gè)同學(xué)的成績(jī)！ 能不能給多個(gè)變量起相同的名字呢？ 什么是數(shù)組 數(shù)組是有 相同名稱 的 一組 變量的集合。 數(shù)組的聲明 數(shù)組的分類 根據(jù)下標(biāo)個(gè)數(shù) ： 1維， 2維 …… 根據(jù)元素個(gè)數(shù)是否確定：靜態(tài)數(shù)組，動(dòng)態(tài)數(shù)組 動(dòng)態(tài)數(shù)組 Dim 數(shù)組名 ( ) as 類型 ReDim 數(shù)組名 (變量 ) 靜態(tài)數(shù)組 格式： Dim 數(shù)組名 (常量 ) [as 類型 ] 如： Dim x(10) As Integer Dim x(1 to 10) As Integer Dim x(3,5) 數(shù)組賦值 數(shù)組賦值是指給數(shù)組元素賦值，不能給數(shù)組名賦值。 I amp。 n amp。 思考：輸出一個(gè) 5 5矩陣，該矩陣主對(duì)角線和輔對(duì)角線元素為 1，其余元素為 0。 例： 求 n n矩陣每行元素之和（ n值由鍵盤輸入，矩陣元素隨機(jī)產(chǎn)生，范圍在 [2050]之間。（每個(gè)同學(xué)名次） 思考： 輸出一個(gè) 5 5矩陣的每行最大元素，及最大元素的下標(biāo)值。 第十一講 過 程 一、通用過程 二、參數(shù)傳遞 三 、變量作用范圍 引例 求 某個(gè)程序段在一個(gè)程序中需要反復(fù)執(zhí)行但不好用循環(huán)控制，通常是把該程序段獨(dú)立出來(lái)，需要的時(shí)候調(diào)用它，這個(gè)有獨(dú)立功能的程序段叫通用過程 。所以編寫通用過程的程序， 既要編寫該過程 ， 又要編寫調(diào)用該過程的主程序 (一般是事件過程，該事件過程包含調(diào)用通用過程的語(yǔ)句 )。 Sub過程不返回值，而 Function過程返回一個(gè)值。 Sub過程的結(jié)構(gòu) Private Sub 過程名 (參數(shù) ) …… End Sub Function 過程的結(jié)構(gòu) Private Function 過程名 (參數(shù) ) …… End Function 形式參數(shù) Sub過程的調(diào)用： 形式 1： call 過程名 (參數(shù) ) 形式 2：過程名 參數(shù) Function過程的調(diào)用 形式：過程名 (參數(shù) ) 注意： Sub過程第一種調(diào)用形式，參數(shù)必須括起來(lái)，第二種形式，參數(shù)不能括起來(lái)。 實(shí)在參數(shù) 思考題 :編寫一個(gè)求三角形面積的 Function過程 Form1 過程 1 過程 2 Sub過程和 Function過程的創(chuàng)建均可采用兩種方法： 直接在代碼窗口輸入過程的結(jié)構(gòu)語(yǔ)句和過程語(yǔ)句 通過“工具”菜單中的添加“過程” 二、參 數(shù)傳遞 在調(diào)用過程時(shí)，一般主調(diào)過程和被調(diào)過程之間有數(shù)據(jù)傳遞，即將主調(diào)過程的 實(shí)參 傳遞給被調(diào)的過程的 形參 。兩種方式的區(qū)分標(biāo)志是形參前的關(guān)鍵字，形參前加“ ByVal”是傳值，否則是 傳址 ，默認(rèn)是 傳址 。 Call test(x) Print x End Sub Public Sub test( i As Integer) i = i + 1 End Sub Sub S2(A As Integer, ByVal B As Integer) A = 2 * A B = B + 2 End Sub 關(guān)鍵字 名稱 定義位置 作用域 Public 全局變量 通用聲明段 整個(gè)應(yīng)用程序 Private 窗體 /模塊級(jí)變量 通用聲明段 本窗體 /本模塊 Dim 窗體 /模塊級(jí)變量 通用聲明段 本窗體 /本模塊 過程級(jí)變量 過程 本過程 Static 過程級(jí)靜態(tài)變量 過程 本過程 三、變量作用范圍 VB中變量的作用范圍因定義的關(guān)鍵字的不同和位置的不同而不同 例 在窗體上添加一個(gè)命令按鈕 Command1和 3個(gè)名稱分別為L(zhǎng)abel1， Label2和 Label3的標(biāo)簽，程序運(yùn)行后，連續(xù) 3次單擊命令按鈕后， 3個(gè)標(biāo)簽中顯示的內(nèi)容分別是 _______。 Sub過程不返回值， Function過程返回一個(gè)值。 調(diào)用過程時(shí)，存在數(shù)據(jù)傳遞，有傳值和傳址兩種形式。 例：在文本框中輸入字符，通過單選按紐和復(fù)選框設(shè)置字體、字型 運(yùn)行效果： 引入：?jiǎn)芜x按鈕、復(fù)選框和框架 分析： 設(shè)計(jì)： 重要屬性 屬性 默認(rèn)值 含義 Caption 單選 Option1 顯示的文本（在字母的前面加 amp。 思考題 1： 思考題 2 思考題 3 二、組合框和列表框 組合框和列表框也是提供選項(xiàng)供用戶選擇 ,主要用于選項(xiàng)比較多的情形。 運(yùn)行效果： 引入：組合框和列表框 分析： 布局分析： 控制邏輯分析： 設(shè)計(jì)： 組合框和列表框的主要屬性 屬性 組合框 列表框 Text 被選中項(xiàng)目的項(xiàng)目值 被選中項(xiàng)目的項(xiàng)目值 (屬性窗口無(wú) ) List(i) 第 I+1項(xiàng)的項(xiàng)目值（從 0開始） 第 I+1項(xiàng)的項(xiàng)目值（從 0開始） ListCount 項(xiàng)目數(shù) 項(xiàng)目數(shù) ListIndex 當(dāng)前選中項(xiàng)目的索引號(hào) 當(dāng)前選中項(xiàng)目的索引號(hào) (未選中為 1) Style 0下拉式組合框 1簡(jiǎn)單組合框 2下拉式列表框 0標(biāo)準(zhǔn)顯示 1復(fù)選顯示 MultiSelect 無(wú) 0不允許復(fù)選 1簡(jiǎn)單復(fù)選 2擴(kuò)展復(fù)選 Selectd(i) 無(wú) 選擇狀態(tài) Sorted 是否自動(dòng)按字母順序排序 是否自動(dòng)按字母順序排序 組合框和列表框的 Style屬性的對(duì)比 項(xiàng)目值 : 第一項(xiàng) : (0) (0) 最后一項(xiàng) : () () 第 I項(xiàng) : (I1) (I1) 選中的項(xiàng) : 或 () () 主要方法 （ 1） AddItem 項(xiàng)目 ， [N] 添加項(xiàng)目，須指明待添加的項(xiàng)目， N指示加入的位置，省略即加在最后。 （ 3） Clear 項(xiàng)目的清除 主要事件： Click 、 Chang(組合框特有 ) 例：在組合框中單擊項(xiàng)目可將項(xiàng)目移動(dòng)到列表框中；在列表框中雙擊項(xiàng)目可將項(xiàng)目移動(dòng)到組合框中。 設(shè)計(jì)： 拓展練習(xí) 思考題 設(shè)計(jì)一程序如下圖： 窗體裝載，在組合框中添加 100個(gè) 3~100之間的隨機(jī)整數(shù)； 單擊“判定”可判斷選中的數(shù)是不是素?cái)?shù)，結(jié)果用Picture1顯示，如果是，添加到 List1中，不是則添加到 List2中，并統(tǒng)計(jì)素?cái)?shù)和非素?cái)?shù)的個(gè)數(shù)，判斷完后將組合框中該項(xiàng)目刪除。 兩個(gè)控件的主要事件是單擊事件，主要方法是獲得焦點(diǎn)方法（ SetFocus） 組合框和列表框的主要屬性 第 i項(xiàng)的項(xiàng)目值 (i1) (i1) 被選中項(xiàng)目的索引號(hào) 被選中項(xiàng)目的項(xiàng)目值 () 或 () 組合框和列表框的主要是事件 組合框： Click()、 Chang()、 KeyPress() 列表框： Click() 組合框和列表框的主要方法 添加項(xiàng)目： AddItem 項(xiàng)目值 刪除項(xiàng)目： ReMoveItem 索引號(hào) 三、滾動(dòng)條 VB中 ,滾動(dòng)條往往用來(lái)獲取數(shù)據(jù)，有兩種 :水平滾動(dòng)條和垂直滾動(dòng)條。 例：設(shè)計(jì)可顯示系統(tǒng)時(shí)間的時(shí)鐘。 設(shè)計(jì)： 時(shí)鐘控件的主要屬性： Enabled： 是否有效； Interval： 間隔的時(shí)間（毫秒為單位） 主要事件： Timer事件 思考題 1：設(shè)計(jì)一倒計(jì)時(shí)時(shí)鐘 思考題 2：設(shè)計(jì)一個(gè)彈球程序 五、 圖形有關(guān)的控件 和圖形有關(guān)的標(biāo)準(zhǔn)控件有 4個(gè) : 圖片框控件（ Picture） 圖像框控件（ Image） 畫線控件（ Line） 形狀控件（ Shape） 圖片 框 控件和圖像 框 控件相似，都可以裝入圖形文件，可以在設(shè)計(jì)時(shí)通過屬性窗口設(shè)置 Picture屬性，也可以在運(yùn)行程序時(shí)借助 LoadPicture函數(shù)設(shè)置。 畫線控件和形狀控件可進(jìn)行簡(jiǎn)單繪圖。 畫線控件 Line用來(lái)畫一條直線，其 BorderWidth、 BorderStyle，分別決定所畫線段的寬度和形狀，另外兩個(gè)坐標(biāo)點(diǎn)