【正文】 器 Shell( )調(diào)用記事本 例題 四、 編碼規(guī)則 1. 語(yǔ)句的一般形式： 語(yǔ)句定義符 [語(yǔ)句體 ] Dim a As Integer a=3 Print a 2. VB代碼不區(qū)分字母的大小寫(xiě) 系統(tǒng)保留字自動(dòng)轉(zhuǎn)換每個(gè)單詞的首字母為大寫(xiě)； 用戶自定義以第一次為準(zhǔn)。 100 (3)INT(*100+)/100 (4)已知 A$= 87654321 ,則表達(dá)式 Val(Left$(A$,4)+Mid$(A$,4,2))的值 (5)DateAdd( M ,1,1/30/2022) (6)Len( VB程序設(shè)計(jì) ) 填空題 (1)在 VB中 ,1234,123456amp。順序結(jié)構(gòu)沒(méi)控制語(yǔ)句，主要涉及 賦值語(yǔ)句、Print方法、 InputBox和 MsgBox函數(shù)（ MsgBox過(guò)程）。 二 、分支結(jié)構(gòu) 簡(jiǎn)單分支 雙分支 多分支 如果五一節(jié)放假，那么，我就去旅游。 2. If… Then… Else語(yǔ)句 (雙分支結(jié)構(gòu) ) If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If If 表達(dá)式 Then 語(yǔ)句 1 Else 語(yǔ)句 2 問(wèn)題： 判斷一個(gè)整數(shù)的奇偶性 注意：?jiǎn)畏种Ш碗p分支如果寫(xiě)成 塊 形式，If和 End If必須成對(duì)出現(xiàn)，寫(xiě)成 行 形式就不能帶 End If 例 10 帳號(hào)和密碼 （ 1）運(yùn)行效果 （ 2）目的：分支結(jié)構(gòu)及分支結(jié)構(gòu)的嵌套 （ 3）分析： 布局：兩個(gè)標(biāo)簽，兩個(gè)文本框和兩個(gè)命令按鈕 控制邏輯：略 （ 4）設(shè)計(jì)： 5 思考 2： 判斷一個(gè)數(shù)是整數(shù)還是小數(shù)，如果 是整數(shù)再判斷其奇偶性 。 三、 循 環(huán) 結(jié) 構(gòu) ?步長(zhǎng)為正 1時(shí)，步長(zhǎng)可省略；若終值 初值，步長(zhǎng)應(yīng)為負(fù)值； 問(wèn)題 : 輸入 10個(gè)數(shù)，輸出累加之和。 例程序段： For i=2 To 13 Step 3 Print i , Next i Print I=。 j。 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 √ √ 四、其他輔助控制語(yǔ)句 1. Go To 語(yǔ)句 形式 : Go To {標(biāo)號(hào) |行號(hào) } 作用：無(wú)條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句 . 標(biāo)號(hào)是一個(gè)字符序列 ,行號(hào)是一個(gè)數(shù)字序列 . 多種形式： Exit For、 Exit Do、 Exit Sub、 Exit Function等 。 思考： s=1 2 3 …… 10 求 n！ ,n為 [1~10]之間的隨機(jī)整數(shù)。 思考： S=1+12+123+1234+12345+123456 (5)將一字符串逆序輸出 數(shù)的判定 (1)判 斷任給一大于 3的整數(shù)是否是素?cái)?shù)。 思考： 輸出 1000之內(nèi)的同構(gòu)數(shù) 。不過(guò)陳婷的生日是 8月 1日，她媽媽的生日是 9月 1日，她特別喜歡把同時(shí)是8l和 9l的倍數(shù)用作密碼?，F(xiàn)在有 100元錢(qián)要求買(mǎi) 100只雞（每種雞至少一只），編程列出所有可能的購(gòu)雞方案。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 、最大值 在若干個(gè)數(shù)中求最大值 ， 一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值 ，（ 若無(wú)法估計(jì)較小的值 ， 則取第一個(gè)數(shù)為最大值的初值 ） 然后將每一個(gè)數(shù)與最大值比較 ， 若該數(shù)大于最大值 ， 將該數(shù)替換為最大值；依次逐一比較 。 Max End Sub Max = 100 Max = x Int(Rnd * 101 + 100) 思考題 ： 輸入十個(gè)數(shù) ， 輸出其中的最大數(shù)和最小數(shù) 思考題 : 7個(gè)裁判給選手打分 ,要求去掉最高分和最低分 ,求平均分。 第十講 數(shù) 組 一、 數(shù)組的引入 二、 程序舉例（三） 一、數(shù)組的引入 例 求 10個(gè)學(xué)生某門(mén)課的平均成績(jī) ， 統(tǒng)計(jì)高于平均分的人數(shù) 。這些變量稱為數(shù)組的元素，每個(gè)數(shù)組元素都有一個(gè)編號(hào)，這個(gè)編號(hào)叫下標(biāo)。 個(gè)同學(xué)成績(jī) )) 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 成績(jī)高于平均分的人有 amp。 例： 隨機(jī)產(chǎn)生 10個(gè) 1~100之間的 整數(shù)，并按從小到大 順序輸出 。該矩陣每個(gè)元素為 [1， 100]之間的隨機(jī)整數(shù)。 通用過(guò)程又可根據(jù)其是否返回值分為 Sub過(guò)程 和 Function過(guò)程 。 Function過(guò)程通過(guò)過(guò)程名返回值，所以在過(guò)程體中要有給過(guò)程名賦值的語(yǔ)句。 傳址方式數(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。 Sub過(guò)程的調(diào)用有兩種方式： Call 過(guò)程名 (參數(shù) ) 過(guò)程名 參數(shù) Function過(guò)程只有一種調(diào)用方式： 過(guò)程名 (參數(shù) ) 變量的作用范圍因定義變量的關(guān)鍵字不同和定義語(yǔ)句的位置不同而不同?？蓜?chuàng)建熱鍵 ) 復(fù)選 Check1 Font 字體：字體、字型、字號(hào) Visible True 是否可見(jiàn) Value 單選 False 是否選中（ True：選中； False：沒(méi)選） 復(fù)選 0 是否選中（ 0：沒(méi)選中； 1：選中； 2：灰色） Style 0(Standard) 樣式 重要事件： Click 單擊事件 重要方法： Set Focus 獲得焦點(diǎn) 同一容器的一組單選按鈕，某個(gè)時(shí)刻只能有一個(gè)被選中，默認(rèn)第一個(gè)被選中。 （ 2） ReMoveItem N 刪除項(xiàng)目，須指明代刪項(xiàng)目的索引號(hào)。 上講回顧 單選按鈕、復(fù)選框的 Value屬性值說(shuō)明其狀態(tài)： 單選按鈕的 Value值是 邏輯型數(shù)據(jù) ，值為 True表示選中，值為 False表示未選中，復(fù)選框的 Value值是 數(shù)值型數(shù)據(jù) ，值為 1表示選中值，為 0表示未選中。 運(yùn)行效果： 引出：時(shí)鐘控件 分析： 布局分析： 控制邏輯分析：運(yùn)行窗體，不顯示系統(tǒng)時(shí)間，時(shí)鐘控件為無(wú)效，單擊“開(kāi)始”顯示系統(tǒng)時(shí)間，應(yīng)該在單擊事件中添加使時(shí)鐘控件有效的代碼；單擊“停止”系統(tǒng)時(shí)間不再改變，應(yīng)該在單擊事件中添加使時(shí)鐘控件無(wú)效的代碼。這兩個(gè)控件不支持任何事件，只用于表面修飾。兩者的不同之處： （ 1）圖像框比圖片框占用內(nèi)存少； （ 2）圖片框是容器控件； （ 3）圖片框有 Print方法可輸出文本； （ 4）圖片框有 AutoSize屬性，可調(diào)整其大小適應(yīng)圖片大小；而圖像框有 Stretch屬性，可調(diào)整圖形的大小適應(yīng)圖像框的大小。 例： 用滾動(dòng)條設(shè)置文本框中文本的字號(hào) 運(yùn)行效果： 引入：滾動(dòng)條 分析： 布局分析 控制邏輯 設(shè)計(jì) 第十三講 常用控件 屬性 默認(rèn)值 含義 Max 可變最大值 Min 可變最小值 LargeChange 單擊滾動(dòng)條空白區(qū)域時(shí)改變的值 SmallChange 單擊兩端按鈕時(shí)改變的值 Value 當(dāng)前值 滾動(dòng)條的主要屬性： 滾動(dòng)條的主要事件： Change 事件、 Scroll 事件 Change事件是在值改變后觸發(fā)（ 單擊兩端按鈕、單擊滾動(dòng)區(qū)域、拖動(dòng)劃塊結(jié)束 ）， Scroll事件是在值改變過(guò)程中觸發(fā)（ 拖動(dòng)劃塊 ） 思考題：用滾動(dòng)條改變圖片的高度和寬度 四、時(shí)鐘控件 時(shí)鐘控件往往用來(lái)實(shí)現(xiàn)每隔一個(gè)時(shí)間間隔重復(fù)做某件事。 運(yùn)行效果： 引入：組合框和列表框的方法 分析： 布局分析： 控制邏輯分析：在組合框中選擇項(xiàng)目用單擊事件，刪除項(xiàng)目須用 RemoveItem方法，在列表框中添加項(xiàng)目用AddItem方法。 例：在組合框中選擇字體，在列表框中選擇字號(hào)、字型，示例中的文字按選擇的字體、字號(hào)和字型設(shè)置其格式。 第十二講 常 用 控 件 一、 單選按鈕、復(fù)選框和框架 二、 列表框和組合框 三、 滾動(dòng)條 四、 時(shí)鐘 一、 單選按鈕、復(fù)選框和框架 單選按鈕和復(fù)選按鈕用于提供選項(xiàng)供用戶選擇，往往根據(jù)功能對(duì)其分組，分組用框架。 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過(guò)程分為事件過(guò)程和通用過(guò)程，通用過(guò)程又分為Sub過(guò)程 和 Function過(guò)程 。有兩種方式：傳址和傳值 。 Sub過(guò)程和 Function過(guò)程除了在返回值上有區(qū)別外，在 結(jié)構(gòu) 和調(diào)用方式 上也有點(diǎn)區(qū)別。 8 5 C =8!/(3!*5!) 一、通用過(guò)程 通用過(guò)程和事件過(guò)程合稱為過(guò)程 事件過(guò)程是當(dāng)事件觸發(fā)時(shí)系統(tǒng)自動(dòng)執(zhí)行，而通用過(guò)程被其它程序調(diào)用時(shí)才執(zhí)行。 思考： 輸入 10個(gè)同學(xué) 3門(mén)課成績(jī)，求每個(gè)同學(xué)的總分，并按總分從高到低順序輸出。 個(gè) Form1 二、程序舉例（三） 例 輸出一個(gè) 5 5矩陣，該矩陣主對(duì)角線元素為 1，其余元素為 0。 說(shuō)明： （ 1）系統(tǒng)默認(rèn)下標(biāo)下限是 0，也可以在通用聲明段用 option base 1 限制下標(biāo)從 1開(kāi)始 （ 2）和數(shù)組有關(guān)的函數(shù)： Array(), LBound(), UBound() 67 87 56 78 95 56 74 69 45 66 解決剛才的問(wèn)題： 第一步 :定義一個(gè)數(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) 第二步 :輸入成績(jī)存入數(shù)組 ,求總分，平均分 S=0 For i=1 to 10 x(i)=val(InputBox(請(qǐng)輸入第 amp。 i amp。 2. 循環(huán)結(jié)構(gòu)中缺少配對(duì)的結(jié)束語(yǔ)句 For 少 配對(duì)的 Next 3. 循環(huán)嵌套時(shí) ,內(nèi)外循環(huán)交叉 4. 累