【正文】 這兩個控件不支持任何事件，只用于表面修飾。兩者的不同之處： （ 1）圖像框比圖片框占用內存少； （ 2）圖片框是容器控件； （ 3）圖片框有 Print方法可輸出文本； （ 4）圖片框有 AutoSize屬性，可調整其大小適應圖片大小；而圖像框有 Stretch屬性，可調整圖形的大小適應圖像框的大小。 運行效果： 引出：時鐘控件 分析： 布局分析： 控制邏輯分析：運行窗體，不顯示系統(tǒng)時間，時鐘控件為無效，單擊“開始”顯示系統(tǒng)時間，應該在單擊事件中添加使時鐘控件有效的代碼；單擊“停止”系統(tǒng)時間不再改變，應該在單擊事件中添加使時鐘控件無效的代碼。 例： 用滾動條設置文本框中文本的字號 運行效果： 引入：滾動條 分析： 布局分析 控制邏輯 設計 第十三講 常用控件 屬性 默認值 含義 Max 可變最大值 Min 可變最小值 LargeChange 單擊滾動條空白區(qū)域時改變的值 SmallChange 單擊兩端按鈕時改變的值 Value 當前值 滾動條的主要屬性： 滾動條的主要事件： Change 事件、 Scroll 事件 Change事件是在值改變后觸發(fā)（ 單擊兩端按鈕、單擊滾動區(qū)域、拖動劃塊結束 ）， Scroll事件是在值改變過程中觸發(fā)（ 拖動劃塊 ） 思考題：用滾動條改變圖片的高度和寬度 四、時鐘控件 時鐘控件往往用來實現(xiàn)每隔一個時間間隔重復做某件事。 上講回顧 單選按鈕、復選框的 Value屬性值說明其狀態(tài)： 單選按鈕的 Value值是 邏輯型數(shù)據(jù) ，值為 True表示選中，值為 False表示未選中，復選框的 Value值是 數(shù)值型數(shù)據(jù) ，值為 1表示選中值，為 0表示未選中。 運行效果： 引入：組合框和列表框的方法 分析： 布局分析： 控制邏輯分析：在組合框中選擇項目用單擊事件，刪除項目須用 RemoveItem方法，在列表框中添加項目用AddItem方法。 （ 2） ReMoveItem N 刪除項目，須指明代刪項目的索引號。 例：在組合框中選擇字體，在列表框中選擇字號、字型，示例中的文字按選擇的字體、字號和字型設置其格式?？蓜?chuàng)建熱鍵 ) 復選 Check1 Font 字體：字體、字型、字號 Visible True 是否可見 Value 單選 False 是否選中（ True：選中； False：沒選） 復選 0 是否選中（ 0：沒選中； 1：選中； 2：灰色） Style 0(Standard) 樣式 重要事件： Click 單擊事件 重要方法： Set Focus 獲得焦點 同一容器的一組單選按鈕，某個時刻只能有一個被選中，默認第一個被選中。 第十二講 常 用 控 件 一、 單選按鈕、復選框和框架 二、 列表框和組合框 三、 滾動條 四、 時鐘 一、 單選按鈕、復選框和框架 單選按鈕和復選按鈕用于提供選項供用戶選擇，往往根據(jù)功能對其分組，分組用框架。 Sub過程的調用有兩種方式： Call 過程名 (參數(shù) ) 過程名 參數(shù) Function過程只有一種調用方式： 過程名 (參數(shù) ) 變量的作用范圍因定義變量的關鍵字不同和定義語句的位置不同而不同。 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z = x = y = z End Sub 上講回顧 VB過程分為事件過程和通用過程，通用過程又分為Sub過程 和 Function過程 。 傳址方式數(shù)據(jù)傳遞可以是雙向的 傳值方式數(shù)據(jù)傳遞是單向的 Dim X As Integer, Y As Integer Private Sub Command1_Click() X = 4 Y = 4 Call S2(X, Y) Print X + Y End Sub Private Sub Form_Click() x = 4 Print x。有兩種方式：傳址和傳值 。 Function過程通過過程名返回值，所以在過程體中要有給過程名賦值的語句。 Sub過程和 Function過程除了在返回值上有區(qū)別外，在 結構 和調用方式 上也有點區(qū)別。 通用過程又可根據(jù)其是否返回值分為 Sub過程 和 Function過程 。 8 5 C =8!/(3!*5!) 一、通用過程 通用過程和事件過程合稱為過程 事件過程是當事件觸發(fā)時系統(tǒng)自動執(zhí)行，而通用過程被其它程序調用時才執(zhí)行。該矩陣每個元素為 [1， 100]之間的隨機整數(shù)。 思考： 輸入 10個同學 3門課成績，求每個同學的總分，并按總分從高到低順序輸出。 例： 隨機產生 10個 1~100之間的 整數(shù)，并按從小到大 順序輸出 。 個 Form1 二、程序舉例（三） 例 輸出一個 5 5矩陣，該矩陣主對角線元素為 1，其余元素為 0。 個同學成績 )) S=S+x(i) Next I aver=S/10 第三步 :求高于平均分的人數(shù) n=0 For i=1 to 10 If x(i)aver then n=n+1 End if Next i print 成績高于平均分的人有 amp。 說明： （ 1）系統(tǒng)默認下標下限是 0，也可以在通用聲明段用 option base 1 限制下標從 1開始 （ 2）和數(shù)組有關的函數(shù)： Array(), LBound(), UBound() 67 87 56 78 95 56 74 69 45 66 解決剛才的問題： 第一步 :定義一個數(shù)組 :Dim x(1 TO 10) x(1) x(2) x(3) x(4) x(5) x(6) x(7) x(8) x(9) x(10) 第二步 :輸入成績存入數(shù)組 ,求總分，平均分 S=0 For i=1 to 10 x(i)=val(InputBox(請輸入第 amp。這些變量稱為數(shù)組的元素，每個數(shù)組元素都有一個編號，這個編號叫下標。 i amp。 第十講 數(shù) 組 一、 數(shù)組的引入 二、 程序舉例（三） 一、數(shù)組的引入 例 求 10個學生某門課的平均成績 ， 統(tǒng)計高于平均分的人數(shù) 。 2. 循環(huán)結構中缺少配對的結束語句 For 少 配對的 Next 3. 循環(huán)嵌套時 ,內外循環(huán)交叉 4. 累加、連乘時，存放累加、連乘結果的變量賦初值問題 (1)一重循環(huán) 在一重循環(huán)中 ,存放累加、連乘結果的變量初值設置應在循環(huán)語句前。 Max End Sub Max = 100 Max = x Int(Rnd * 101 + 100) 思考題 ： 輸入十個數(shù) ， 輸出其中的最大數(shù)和最小數(shù) 思考題 : 7個裁判給選手打分 ,要求去掉最高分和最低分 ,求平均分。 Private Sub Command1_Click() For i = 1 To 10 x = Print x。 、最大值 在若干個數(shù)中求最大值 ， 一般先假設一個較小的數(shù)為最大值的初值 ，（ 若無法估計較小的值 ， 則取第一個數(shù)為最大值的初值 ） 然后將每一個數(shù)與最大值比較 ， 若該數(shù)大于最大值 ， 將該數(shù)替換為最大值；依次逐一比較 。 小猴在某天摘桃若干個 ， 當天吃掉一半多一個；第二天吃了剩下的桃子的一半多一個；以后每天都吃尚存桃子的一半多一個 ， 到第 7天要吃時只剩下一個 ， 問小猴共摘下了多少個桃子 ？ 思考： 瓜農有西瓜 1020個 ， 每天能賣掉前一天剩下的總數(shù)的一半還多兩個 ， 問多少天能賣完 。每次重復都從舊值的基礎上遞推出新值，并由新值代替舊值。 (兩數(shù)的和是某個自然數(shù)的平方，兩數(shù)的差也是某數(shù)的平方） 思考： 找出 10009999之間的玫瑰花數(shù)?，F(xiàn)在有 100元錢要求買 100只雞（每種雞至少一只），編程列出所有可能的購雞方案。你能設計一個程序幫她找回這個密碼嗎 ? 思考： 百元買百雞問題。不過陳婷的生日是 8月 1日，她媽媽的生日是 9月 1日，她特別喜歡把同時是8l和 9l的倍數(shù)用作密碼。 8 例題： 陳婷的 密碼是一個 5位數(shù)。 思考： 輸出 1000之內的同構數(shù) 。 (3)輸出 100~999之間的水仙花數(shù)。 思考： S=1+12+123+1234+12345+123456 (5)將一字符串逆序輸出 數(shù)的判定 (1)判 斷任給一大于 3的整數(shù)是否是素數(shù)。 思考： (3)S=1!+2!+3!+....+10! 思考： s=1+(1+2)+(1+2+3)+…+(1+2+…+10) 思考： s=11/3!+1/5!1/7!+… 直到某一項的絕對值小于 10^(5) 7 項和。 思考： s=1 2 3 …… 10 求 n！ ,n為 [1~10]之間的隨機整數(shù)。 3. End語句 多種形式： End、 End If、 End Select、 End With、 End Type、 End Sub、 End Function、 作用： End結束一個程序的運行；其余表示某個結構的結束，與對應的結構語句配對出現(xiàn)。 For ii =1 To 10 For jj=1 To 20 … Next ii Next jj For ii =1 To 10 For ii=1 To 20 … Next ii Next ii For ii =1 To 10 For jj=1 To 20 … Next jj Next ii For ii =1 To 10 … Next ii For ii =1 To 10 … Next ii √ √ 四、其他輔助控制語句 1. Go To 語句 形式 : Go To {標號 |行號 } 作用：無條件地轉移到標號或行號指定的那行語句 . 標號是一個字符序列 ,行號是一個數(shù)字序列 . 多種形式： Exit For、 Exit Do、 Exit Sub、 Exit Function等 。 i Next i Print 退出循環(huán)后 i=。 j。 例 . 循環(huán)控制變量的改變對循環(huán)的影響。 例程序段： For i=2 To 13 Step 3 Print i , Next i Print I=。 While 方式是條件成立的時候執(zhí)行循環(huán)體 ， until是條件不成立的時候執(zhí)行循環(huán)體。 三、 循 環(huán) 結 構 ?步長為正 1時，步長可省略；若終值 初值，步長應為負值； 問題