第2章VB可視化程序設(shè)計基礎(chǔ)

模擬計算器程序設(shè)計窗體基本的輸入/輸出控件命令按鈕VisualBasic程序設(shè)計語言基礎(chǔ)基本語句數(shù)組過程知識延伸——焦點2/6/20231知識回顧通過一個文字移動的例子，講解VB功能特色集成開發(fā)環(huán)境可視化編程的基本概念（類和對象）可視化編程的基本步驟工程管理和程序調(diào)試提問：什么是類？什么是對象？提問：可視化程序設(shè)計的三種工作模式？提問：可視化程序設(shè)計編程的基本步驟。2/6/20232本章目標(biāo)熟悉窗體、標(biāo)簽、文本框和命令按鈕的使用掌握VB的基本語法掌握三種控制語句掌握數(shù)組的定義和使用掌握過程的定義和使用能根據(jù)所學(xué)基礎(chǔ)知識開發(fā)簡單應(yīng)用程序2/6/202332.2窗體什么是窗體在程序設(shè)計時，窗體是設(shè)計的平臺在程序運行時，窗體是應(yīng)用程序與用戶交互的平臺窗體由系統(tǒng)菜單、標(biāo)題欄、最小化和最大化按鈕、關(guān)閉按鈕組成系統(tǒng)菜單標(biāo)題欄最小化按鈕最大化按鈕關(guān)閉按鈕2/6/20235窗體—常用屬性(3-1)示例：模擬黑板。（單擊查看代碼）剛運行時單擊后雙擊后2/6/20236NameBackColor和ForeColorBorderStyleHeight和WidthCaption用來指定窗體的名稱，在代碼中用來引用窗體用來指定窗體的背景顏色和前景顏色用來指定窗體的邊框樣式用來指定窗體的高度和寬度，單位：twip用來指定窗體的標(biāo)題信息（單擊查看補充材料）2/6/20237窗體—常用屬性(3-3)VisibleEnabledAutoRedrawPicture用來指定窗體是否可見指定窗體運行時是否可響應(yīng)用戶或系統(tǒng)的操作用來實現(xiàn)窗體上輸出內(nèi)容的持久顯示如：當(dāng)單擊窗體時，窗體是否能否調(diào)用窗體單擊事件過程即：當(dāng)窗體由非激活狀態(tài)轉(zhuǎn)回到激活狀態(tài)時，仍然能夠顯示原來輸出的內(nèi)容用來設(shè)置窗體上顯示的圖形

LoadPicture函數(shù)的使用Form1.Picture=LoadPicture("圖形文件路徑")（單擊查看補充材料）2/6/20239窗體—事件Load（加載）事件窗體被裝入內(nèi)存工作區(qū)時觸發(fā)該事件通常用來在啟動程序時對屬性和變量進行初始化Click（單擊）事件鼠標(biāo)單擊窗體時觸發(fā)DblClick（雙擊）事件鼠標(biāo)雙擊窗體時觸發(fā)Resize事件當(dāng)窗體第一次顯示或改變大小時觸發(fā)Resize事件使用。（單擊查看代碼）2/6/202310窗體—常用方法（2-1）Print用于在窗體上輸出數(shù)據(jù)格式[對象.]Print[{tab(n)|spc(n)][表達式列表][;|,]Cls清除運行時在窗體上顯示的文本和圖形不能清除設(shè)計階段窗體上的文本和圖形2/6/202311幾個練習(xí)例題示例：在Load事件中通過代碼為窗體和命令按鈕的屬性設(shè)置初始值。單擊按鈕實現(xiàn)窗體向屏幕右下角移動，同時實現(xiàn)用Print方法顯示窗體的當(dāng)前位置。單擊窗體實現(xiàn)窗體恢復(fù)至登錄時的位置。（單擊查看代碼）示例：在窗體上顯示一個圖片，使圖片充滿整個窗體

且在窗體大小發(fā)生變化的時，仍然是圖片充滿整個窗體（單擊查看代碼）（提示：需用Image控件）2/6/2023132.3基本的輸入/輸出控件標(biāo)簽用于顯示文本信息起提示作用在運行的時候用戶不能直接錄入信息文本框是一個文本編輯區(qū)域用于輸入、編輯、修改和顯示文本信息在運行的時候用戶可以直接錄入信息2/6/202314標(biāo)簽—屬性（2-1）CaptionBorderStyleBackStyleAlignmentBackColor和ForeColor用標(biāo)簽制作浮雕效果文字。（單擊查看代碼）用來設(shè)置標(biāo)簽要顯示的內(nèi)容用來設(shè)置標(biāo)簽有無邊框0-None標(biāo)簽無邊框（默認）1-FixedSingle標(biāo)簽有立體邊框用來設(shè)置標(biāo)簽背景是否透明0-Transparent透明1-Opaque不透明（默認）用來設(shè)置標(biāo)簽內(nèi)文本的水平對齊方式2/6/202315標(biāo)簽—事件ClickDblClick在實際應(yīng)用中，標(biāo)簽一般只起到顯示文字和提示作用，因此一般不用編寫事件過程2/6/202317文本框控件用文本框制作一個登錄界面。窗體上有系統(tǒng)的標(biāo)題

窗體上有用戶名和密碼的輸入

單擊“確定”按鈕，判斷輸入的用戶名和密碼是否正確如果正確，提示“歡迎光臨?。?！”如果不正確，提示“用戶名和密碼錯誤，請重新輸入！”同時，清空密碼文本框內(nèi)容，并把焦點放到用戶名文本框，讓用戶重新輸入單擊“取消”按鈕，退出程序的運行（單擊查看代碼）2/6/202318文本框—屬性（4-1）Text文本框沒有Caption屬性Text屬性設(shè)置顯示的文本信息對文本框中字符格式的設(shè)置將會影響文本框全部內(nèi)容，不能只對部分內(nèi)容設(shè)置格式MaxLength設(shè)置文本框允許輸入的最大字符數(shù)默認為0，表示無限制PassWordChar設(shè)置是否在文本框中顯示用戶鍵入的字符如PassWordChar不為空，文本框中顯示指定字符，但此時Text屬性值仍然為實際文本內(nèi)容；否則，文本框顯示實際輸入文本內(nèi)容。2/6/202319文本框—屬性（4-3）創(chuàng)建多行文本框： 默認情況下，文本框只顯示單行文本，無滾動條，不支持回車換行。MultiLine只能在設(shè)計時（即屬性窗口中）設(shè)置只有在ScrollBars為非零值時有效取值為True或FalseScrollBars只能在設(shè)計時（即屬性窗口中）設(shè)置設(shè)置文本框是否具有水平或垂直滾動條ScrollBars0-None無滾動條

1-Horizontal只有水平滾動條

2-Vertical只有垂直滾動條

3-Both具有水平和垂直兩種滾動條2/6/202321文本框—屬性（4-4）Enabled設(shè)置是否相應(yīng)用戶或系統(tǒng)的操作取值為True或FalseLocked設(shè)置文本框是否可以編輯取值為True或False兩者的區(qū)別？相同點：兩者都不允許用戶直接錄入內(nèi)容不同點：Locked為True時，可以接受焦點；Enabled為False時，不能接受焦點。2/6/202322屬性類型總結(jié)只能在設(shè)計階段設(shè)置的屬性MultiLine、ScrollBars只能在運行階段設(shè)置的屬性SelStart、SelLength、SelText可同時在運行和設(shè)計階段設(shè)置的屬性問題：設(shè)計階段選中某個控件，在屬性窗口中顯示該控件的所有屬性。2/6/202323文本框—事件Click和DblClickChange在改變文本框的Text屬性時觸發(fā)該事件問題：如果有Text1_Change事件過程，運行時用戶在文本框中輸入“Change”，會觸發(fā)幾次Text1_Change事件過程？LostFocus當(dāng)文本框失去焦點時觸發(fā)GotFocus當(dāng)文本框獲得焦點時觸發(fā)6次2/6/202325練習(xí)例題示例：要求輸入合法數(shù)字數(shù)據(jù)。在第一個文本框輸入信息，當(dāng)輸入結(jié)束時，判斷數(shù)據(jù)是否有效

對于輸入正確的數(shù)據(jù)，在第二個文本框中顯示“正確！！”對于輸入錯誤的數(shù)據(jù)，則顯示錯誤信息，并清除第一個文本框中輸入的信息，使焦點重新回到文本框

提示：判斷是否為數(shù)字，使用函數(shù)IsNumeric(參數(shù))（單擊查看代碼）2/6/202326命令按鈕—屬性（2-2）Value

設(shè)計階段無效，只能在運行時獲取或設(shè)置用于檢查或設(shè)置按鈕當(dāng)前是否被按下True：按下 False：未按下Default設(shè)置窗體中的某個命令按鈕為缺省按鈕當(dāng)按Enter鍵時，相當(dāng)于單擊該按鈕Cancel設(shè)置窗體中的某個命令按鈕為取消按鈕當(dāng)按Esc鍵時，相當(dāng)于單擊該按鈕在同一窗體中，只能有一個命令按鈕的Default屬性為True，也只能有一個按鈕的Cancel屬性為True。2/6/202329命令按鈕—事件Click按鈕沒有DblClick事件2/6/2023302.5VB程序設(shè)計語言基礎(chǔ)編碼規(guī)則數(shù)據(jù)類型變量和常量運算符和表達式常用函數(shù)2/6/202331編碼規(guī)則VB代碼不區(qū)分字母的大小寫語句書寫自由在同一行可以書寫多條語句，語句間用冒號“:”分隔一條語句可以分若干行書寫，此時在后面添加續(xù)行符（一個空格后面跟一個下劃線）一行允許多達255個字符注釋有利于程序的維護和調(diào)試Rem：作為一個單獨的語句出現(xiàn)撇號“‘”：可以直接出現(xiàn)在語句的后面2/6/202332數(shù)據(jù)類型標(biāo)準數(shù)據(jù)類型數(shù)值型（Numeric）邏輯型（Boolean）日期型（Date）字符型（String）可變型（Variant）對象型（Object）用戶自定義類型標(biāo)準數(shù)據(jù)類型2/6/202333標(biāo)準數(shù)據(jù)類型（4-1）數(shù)值類型字節(jié)型（Byte）整型（Integer）：類型符為%長整型（Long）：類型符為&單精度型（Single）：類型符為!雙精度型（Double）：類型符為#貨幣型（Currency）：類型符為@ 定點實數(shù)，最多保留小數(shù)點右邊4位和小數(shù)點左邊15位2/6/202334標(biāo)準數(shù)據(jù)類型（4-2）邏輯型（Boolean）只有兩個值：True、False可以和數(shù)值互換

True：-1（非零值） False：0例如：(1+2)AndTrue？ TrueXorNot10？字符型（String）雙引號是字符串的界定符VB用兩個字節(jié)表示一個字符（包括西文字符和中文字符）采用的是Unicode字符集分為定長字符串和不定長字符串如："可視化程序設(shè)計VisualBasic"3或True10或True長度：192/6/202335標(biāo)準數(shù)據(jù)類型（4-3）日期型（Date）日期范圍：從公元100年1月1日到9999年12月31日時間范圍：從0:00:00到23:59:59

用“#”把日期括起來 如：#September26,2004#,#9/26/2004#, #2004-9-2610:20:30am#用數(shù)字序列表示 小數(shù)點左邊：日期；小數(shù)點右邊：時間 參照時間：1899年12月31日0:00:00 如：DimTAsDate:T=-2.5:PrintT?補充材料：國際化代碼1899年12月28日12:00:002/6/202336標(biāo)準數(shù)據(jù)類型（4-4）變體類型（Variant）一種特殊的數(shù)據(jù)類型

是所有未定義變量的數(shù)據(jù)類型對數(shù)據(jù)的處理取決于上下文的需要例如：

DimaAsVarianta=10% 'a此時是整型

a=“VB” 'a此時是字符型

a=True 'a此時是布爾類型2/6/202337自定義類型是由用戶自己定義的數(shù)據(jù)類型，它由若干個標(biāo)準數(shù)據(jù)類型組成。定義語句格式

[Private|Public]Type類型名 元素名As數(shù)據(jù)類型 元素名As數(shù)據(jù)類型 ……EndType例如TypeStudent NumberAsInteger NameAsString*6 AgeAsInteger BirthdayAsDate SexAsBooleanEndType2/6/202338變量與常量常量在程序執(zhí)行過程中保持不變的數(shù)據(jù)文字常量

如：3.14 20% True “VB”符號常量：用標(biāo)示符表示一個固定Const常量名[As數(shù)據(jù)類型]=表達式通常常量名的所有字母都大寫如：ConstPIAsDouble=3.1415926系統(tǒng)常量：VB系統(tǒng)提供的符號常量如：vbMinimized（最小化）2/6/202339變量與常量變量在程序運行過程中其值可以發(fā)生改變的量每一個變量都有名字和數(shù)據(jù)類型變量名用來唯一地標(biāo)志每一個變量數(shù)據(jù)類型表明了該變量的類型變量的聲明顯示聲明隱式聲明（初學(xué)者最好不要使用隱式聲明）Public|Dim|Static|Private變量名As數(shù)據(jù)類型[,變量名As數(shù)據(jù)類型…]Public|Dim|Static|Private變量名<類型符>[,變量名<類型符>…]例如：DimintAAsInteger,intB%

隱式聲明：不顯式聲明變量而直接使用

此時變量被默認為Variant數(shù)據(jù)類型2/6/202340變量變量的命名規(guī)則必須以字母或漢字開頭由字母、漢字、數(shù)字和下劃線組成長度小于或等于255個字符不能使用VB中的關(guān)鍵字VB中不區(qū)分變量名的大小寫

如：MyName,myname,myName是同一個變量變量名由多個單詞組成時，建議每個單詞的第一個字母大寫，其余字母小寫變量的作用域單擊窗體時，輸出單擊的次數(shù)（查看代碼）2/6/202341運算符算術(shù)運算符/（浮點除） \（整除）%（取余）關(guān)系運算符兩個漢字用拼音進行比較漢字字符大于西文字符邏輯運算符Not And Or或Xor Eqv Imp字符運算符+ &優(yōu)先級（重點）算術(shù)運算符>字符運算符>關(guān)系運算符>邏輯運算符

/（浮點除）：同數(shù)學(xué)的除法，結(jié)果可以是小數(shù)

\（整除）：對兩數(shù)進行除法運算后取商的整數(shù)部分。若參與運算的兩個數(shù)都是整數(shù)，則可直接進行運算。若參與運算的兩個數(shù)中有實數(shù)，則先將實數(shù)的小數(shù)部分進行四舍五入，再進行運算。

%（取余）：對兩數(shù)進行除法運算后取商的余數(shù)部分。參與運算的兩個數(shù)的處理同整除運算。例如：16.5\3=5

字符串只有連接運算

區(qū)別

+：兩邊必須是字符串

&：兩邊不一定是字符串，但必須有空格例如

"abcdef"&12345'結(jié)果為"abcdef12345“"abcdef"+12345'出錯

"123"&456'結(jié)果為"123456""123"+456'結(jié)果為579 "123"+"456“'結(jié)果為123456

注意："123"+True=1222/6/202342表達式什么是表達式？

由常量、變量、函數(shù)、運算符以及括號連接起來的有意義的式子稱為表達式。書寫規(guī)則運算符不能相鄰。例a+-b是錯誤的。乘號不能省略。例x乘以y應(yīng)寫成：x*y。括號必須成對出現(xiàn)，均使用圓括號。從左到右在同一基準上書寫，無高低、大小。能用系統(tǒng)函數(shù)的地方盡量使用系統(tǒng)函數(shù)。2/6/202343幾個練習(xí)例題用人單位招聘秘書：年齡小于40歲的女性，學(xué)歷專科或本科年齡學(xué)歷And本科?？芆r招聘條件(學(xué)歷=“專科”O(jiān)r學(xué)歷=“本科”)And年齡<40And性別=“女”算術(shù)表達式

x大于等于3，并且小于等于73<=xAndx<=7性別2/6/202344常用函數(shù)函數(shù)類型

內(nèi)部函數(shù)用戶自定義函數(shù)內(nèi)部函數(shù)（標(biāo)準函數(shù)）數(shù)學(xué)函數(shù)字符串函數(shù)轉(zhuǎn)換函數(shù)時間/日期函數(shù)隨機函數(shù)格式輸出函數(shù)函數(shù)調(diào)用方法

函數(shù)名([參數(shù)表])2/6/202345數(shù)學(xué)函數(shù)Abs(x)函數(shù)：求x的絕對值，x為數(shù)值型參數(shù)Exp(x)函數(shù)：求ex的值Log(x)函數(shù)：求x的自然對數(shù)，返回lnx的值，且x>0Sgn(x)函數(shù)：求x的符號值（符號函數(shù)）Sqr(x)函數(shù)：求x的算術(shù)平方根，x≧0Int(x)和Fix(x)函數(shù)：均為取整運算（但有區(qū)別）隨機函數(shù)Rnd()三角函數(shù)2/6/202346Int和Fix函數(shù)的區(qū)別共同點均刪除參數(shù)的小數(shù)部分，返回整數(shù)部分取整時均不進行四舍五入當(dāng)參數(shù)為正數(shù)時，兩者功能相同區(qū)別當(dāng)參數(shù)為負數(shù)時Int返回小于或等于參數(shù)的第一個負整數(shù)Fix返回大于或等于參數(shù)的第一個負整數(shù)例題（單擊查看代碼）（單擊查看補充資料）2/6/202347隨機函數(shù)用來產(chǎn)生隨機數(shù).形式Rnd[（x）]：返回一個單精度的隨機數(shù)取值范圍：0<=Rnd<1 [0，1)RandomizeRandomize[（x）]產(chǎn)生隨機數(shù)的種子，保證每次運行產(chǎn)生不同的隨機數(shù)求某個必區(qū)間[下界，上界]的隨機整數(shù)

公式：Int((上界－

下界+1)×Rnd())+下界

產(chǎn)生在區(qū)間[1，6]上的隨機整數(shù)（查看代碼）2/6/202348轉(zhuǎn)換函數(shù)Asc(c)函數(shù)：將字符c轉(zhuǎn)換成ASCII碼值Chr(n)函數(shù)：將ASCII碼值轉(zhuǎn)換成字符LCase(c)函數(shù)：將字符串c中的大寫字母轉(zhuǎn)換為小寫字母UCase(c)函數(shù)：將字符串c中的小寫字母轉(zhuǎn)換為大寫字母Str(n)函數(shù)：將數(shù)值n轉(zhuǎn)換成字符串Val(c)函數(shù)：將數(shù)字字符轉(zhuǎn)換成數(shù)值

Str（）函數(shù)將非負數(shù)值轉(zhuǎn)化成字符類型后，會在轉(zhuǎn)換后的字符串左邊增加空格，即數(shù)值的符號位。

CStr$()：不加符號位。

Val（）將數(shù)字字符串轉(zhuǎn)化為數(shù)值類型，當(dāng)字符串中出現(xiàn)數(shù)值類型規(guī)定的字符外的字符時，則停止轉(zhuǎn)換。2/6/202349字符串函數(shù)Len(c)函數(shù)：求字符串c的長度Left(c,n)和Right(c,n)：返回字符串c左(右)邊的n個字符Mid(c,n1,n2)函數(shù)：自字符串c的第n1個字符開始向右取n2個連續(xù)的字符。LTrim(c)、RTrim(c)和Trim(c)函數(shù)：去掉字符串c左邊、右邊、左右兩邊的空格String(n,c)函數(shù)：返回字符串c的首字符組成的n個字符的字符串。InStr([n1,]c1,c2)函數(shù)：在字符串c1中從第n1個字符開始查找字符串c2，若找到返回位置值；若找不到，則返回0Space(n)函數(shù)：產(chǎn)生由n個空格組成的字符串2/6/202350時間/日期函數(shù)Time()或者Time函數(shù)：返回系統(tǒng)時間Date()或者Date函數(shù)：返回系統(tǒng)日期Year(d)函數(shù)：返回參數(shù)d的年號d為日期類型參數(shù)Month(d)函數(shù)：返回參數(shù)d的月份號Day(d)函數(shù)：返回參數(shù)d的日期號WeekDay(d)：返回參數(shù)d的星期號Now函數(shù)：返回系統(tǒng)的日期和時間2/6/202351格式輸出函數(shù)格式：Format(<表達式>，<格式字符串>)功能：按格式字符串指定的格式輸出表達式的值。說明：表達式可以是數(shù)值型、字符型、日期型數(shù)據(jù)。示例：運行下面代碼查看結(jié)果（單擊查看代碼）PrivateSubForm_Click() PrintFormat(2.71828,“#####.##")PrintFormat(2.71828,”00000.00”)PrintFormat(Date,"dddddd")PrintFormat(time,“ttttt”)EndSub（單擊查看代補充資料）2/6/202352Shell函數(shù)負責(zé)執(zhí)行一個可執(zhí)行文件。形式：Shell(命令字符串[，窗口類型])命令字符串：要執(zhí)行的應(yīng)用程序名，包括路徑，且必須是可執(zhí)行文件（擴展名為exe、com、bat）窗口類型：執(zhí)行應(yīng)用程序的窗口大小。返回一個Variant。

如果成功，代表這個程序的進程ID； 若不成功，則會返回0。2/6/202353Shell函數(shù)示例i=Shell("c:\windows\calc.exe")j=Shell("c:\",1)提示：如果不知道應(yīng)用程序的路徑名，可用Start命令啟動程序：i=Shell(start&"calc.exe")；i=Shell(start&"vb6.exe")2/6/202354常見錯誤邏輯表達式書寫錯，在VB沒有造成語法錯而形成邏輯錯例如，數(shù)學(xué)表達式3≤x＜10

VB表達式寫為

3<=x<10。問題在于VB中的邏輯量與數(shù)值量可相互轉(zhuǎn)換。同時給多個變量賦值，在VB沒有造成語法錯而形成邏輯錯例如：Dimx%，y%，z%:x=y=z=1標(biāo)準函數(shù)名寫錯變量名寫錯檢查方法：在通用聲明段加OptionExplicit語句書寫位置錯在通用聲明段只能有Dim語句，不能有賦值等其他語句2/6/2023552.6基本語句順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)其他輔助控制語句Exit語句Goto語句2/6/202356順序結(jié)構(gòu)—賦值語句格式[Let]變量名=表達式 將表達式的值賦值給變量名[Let][對象名.]屬性名=表達式 將表達式的值賦值給對象的屬性說明表達式可以是任何類型，一般應(yīng)與變量名的類型一致賦值號左邊只能是變量或?qū)ο髮傩?，不能是常量常?shù)符號或表達式不能在同一個賦值語句中，同時給多個變量賦值 例如：x=y=z=1交換A、B兩個值（單擊查看代碼）2/6/202357順序結(jié)構(gòu)—InputBox函數(shù)（2-1）功能只需一行即可實現(xiàn)輸入窗體的功能產(chǎn)生一個對話框，作為輸入數(shù)據(jù)的界面，等待用戶輸入并返回所輸入的內(nèi)容。格式

InputBox$(prompt$,[title$],[default$],[xpos],[ypos])說明prompt：提示信息，最大長度為1024個字符title：對話框標(biāo)題，默認為當(dāng)前工程的名稱default：輸入?yún)^(qū)中缺省顯示信息，默認為空串函數(shù)返回值是字符串類型2/6/202358順序結(jié)構(gòu)—InputBox函數(shù)（2-2）顯示如下圖所示的對話框。語句表示為：DimstrNameAsStringstrName=InputBox("請輸入你的姓名"+vbCrLf+"然后單擊確定","輸入框")使用InputBox函數(shù)一次只能輸入一個數(shù)據(jù).2/6/202359順序結(jié)構(gòu)—MsgBox函數(shù)（2-1）格式

函數(shù)形式：MsgBox%(prompt$,[buttons],[title])過程形式：MsgBoxprompt,[buttons],[title]功能

在屏幕上顯示諸如提示、詢問、警告或錯誤等消息，對用戶的操作作出提醒或反饋。通過用戶在對話框中選擇的按鈕識別用戶所做的響應(yīng)，作為程序繼續(xù)執(zhí)行的依據(jù)。說明Prompt和title同InputBox函數(shù)buttons：數(shù)值表達式，用來控制在對話框內(nèi)顯示的按鈕種類和數(shù)量以及圖標(biāo)類型。（由四類數(shù)值相加產(chǎn)生）函數(shù)返回值是整數(shù)類型2/6/202360順序結(jié)構(gòu)—MsgBox函數(shù)（2-2）Button參數(shù)建立一個退出對話框，對退出再次確認。（查看代碼）2/6/202361練習(xí)例題修改文本框章節(jié)中的登錄界面。如果用戶名和密碼正確，彈出對話框，提示“歡迎光臨！??！”如果不正確，彈出對話框，提示“用戶名和密碼錯誤，是否重新輸入？”如果選擇是，清空密碼文本框內(nèi)容，并把焦點放到用戶名文本框，讓用戶重新輸入；如果選擇否，推出應(yīng)用程序的執(zhí)行注意：學(xué)生的用戶名一般輸入的是學(xué)號，而學(xué)號全部是數(shù)字字符。在進行有效性檢查時也用對話框提示錯誤信息（單擊查看代碼）2/6/202362命名參數(shù)的使用注意 InputBox()、MsgBox()中的參數(shù)必須按語法要求規(guī)定的順序提供數(shù)值， 默認部分也要用逗號占位符跳過。引入“命名參數(shù)”

命名參數(shù)可用“:=”以任意順序賦值

prompt：提示 buttons：按鈕 title：標(biāo)題 default：默認 xPos：x坐標(biāo) yPos：y坐標(biāo)例如：

InputBox("請輸入您的學(xué)號","學(xué)生成績查詢系統(tǒng)")

InputBox(Title:="學(xué)生成績查詢系統(tǒng)",prompt:="請輸入您的學(xué)號")

MsgBox("登錄成功",vbOKOnly+vbInformation,"成功登錄頁面")

MsgBox(Title:="成功登錄頁面",buttons:=vbOKOnly+vbInformation,prompt:="登錄成功")2/6/202363順序結(jié)構(gòu)—Print方法語法 [對象名稱.]Print[tab(n)|spc(n)][表達式列表][;|,]功能

在指定對象上輸出表達式的值說明對象可以是窗體、圖形框和打印機Tab(n)：表示在參數(shù)n指定的位置輸出表達式的值Spc(n)：表示跳過n個空格Print方法在Form_Load事件過程中不起作用。如果要在該事件中顯示數(shù)據(jù)，必須在該過程中加上Form1.Show方法或把AutoRedraw設(shè)置為True.2/6/202364幾個練習(xí)例題顯示下圖所示的圖形。用Print方法輸出圖形。改變（單擊查看代碼）（單擊查看代碼）Fori=1To5PrintTab(i);String(6-i,"▼");Spc(6);String(i,"▲")Nexti若把程序中的Spc(6)換成Tab(6)會怎樣？;Tab(6);2/6/202365選擇結(jié)構(gòu)特點：根據(jù)所給定條件的真假，選擇不同的語句。兩種類型

If語句

SelectCase語句2/6/202366If語句（4-1）單分支結(jié)構(gòu)If<表達式>Then語句塊EndIf或If<表達式>Then<語句表達式語句塊TF例如：已知兩個數(shù)x和y，比較兩個數(shù)的大小，使x大于yIfx<yThent=x:x=y:y=tEndIf或Ifx<yThent=x:x=y:y=t2/6/202367If語句（4-2）雙分支結(jié)構(gòu)If<表達式>Then語句塊1Else 語句塊2EndIf或If<表達式>Then<語句塊1>Else<語句塊2>表達式語句塊1TF語句塊2計算分段函數(shù)單分支結(jié)構(gòu)實現(xiàn)：y=cos(x)－x^3+3*xIfx<>0Theny=sin(x)+sqr(x*x+1)

雙分支結(jié)構(gòu)實現(xiàn)：

Ifx<>0Theny=sin(x)+sqr(x*x+1)Elsey=cos(x)－x^3+3*xEndIf2/6/202368If語句（4-3）多分支語句

If<表達式1>Then <語句塊1>

ElseIf<表達式2>Then <語句塊2> … [Else

語句塊n+1]

EndIf求一元二次方程ax2+bx+c=0的根。（查看代碼）2/6/202369If語句的嵌套If語句的嵌套是指If或Else后面的語句塊中又包含If語句。形如： If<表達式1>Then

If<表達式11>Then … EndIf

… EndIf示例：已知x,y,z三個數(shù)，使得x>y>z。要求：用一個If語句和一個If嵌套實現(xiàn)。

Ifx<yThent=x:x=y:y=t

Ify<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIf

EndIfIf語句（4-4）2/6/202370幾個練習(xí)例題示例：已知變量strC中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。IfUcase(strC)>="A"AndUcase(strC)<="Z"Then PrintstrC+"是字母字符"ElseIfstrC>="0"AndstrC<="9"Then PrintstrC+"是數(shù)字字符"Else PrintstrC+"其他字符"EndIf2/6/202371示例：已知百分制成績mark，顯示對應(yīng)的五級制成績哪些正確，哪些錯誤？√√（返回常見錯誤）2/6/202372SelectCase語句格式SelectCase變量或表達式 Case表達式列表1 語句塊1 Case表達式列表2 語句塊2 … [CaseElse

語句塊n+1]EndSelect數(shù)值型或字符串表達式<表達式列表>：與<變量或表達式>同類型的下面四種形式之一：表達式 例:"A"

一組枚舉表達式(用逗號分隔) 例:2,4,6,8

表達式1To表達式2 例:60To100

Is關(guān)系運算符表達式 例:Is<602/6/202373幾個練習(xí)例題SelectCasestrC Case"a"To"z"，"A"To"Z" PrintstrC+"是字母字符" Case"0"To"9" PrintstrC+"是數(shù)字字符" CaseElse PrintstrC+"其他字符"EndSelect示例：已知變量strC中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。示例：判斷成績等級。SelectCasescoreCase90To100Print"優(yōu)"Case80To89Print"良"Case70To79Print"中"Case60To69Print"及格"CaseElsePrint"不及格"EndSelect制作簡單的計算器。在三個文本框中分別輸入兩個操作數(shù)和一個運算符。

單擊“計算”按鈕，根據(jù)輸入的運算符進行相應(yīng)計算，并把結(jié)果寫入第四個文本框。

單擊“清除”按鈕，清空四個文本框。

單擊“退出”按鈕，結(jié)束應(yīng)用程序的執(zhí)行。（單擊查看代碼）2/6/202374題：已知坐標(biāo)點(x,y)，判斷其落在哪個象限內(nèi)方法一

Ifx>0Andy>0ThenPrint"在第一象限"

ElseIfx<0Andy>0ThenPrint"在第二象限"

ElseIfx<0Andy<0ThenPrint"在第三象限"

ElseIfx>0Andy<0ThenPrint"在第四象限"

EndIf

方法二SelectCasex,yCasex>0Andy>0 Print"在第一象限"Casex<0Andy>0 Print"在第二象限"Casex<0Andy<0 Print"在第三象限"Casex>0Andy<0 Print"在第四象限"EndSelect上面兩段代碼，哪個能實現(xiàn)，哪個不能實現(xiàn)？√

SelectCase后不能出現(xiàn)多個變量；

Case后不能出現(xiàn)變量及有關(guān)運算符。（返回常見錯誤）2/6/202375條件函數(shù)IIf函數(shù)

格式：Iif(<條件>,<條件為True時的值>,<條件為False是的值>)例如：求x,y的最大值max=IIf（x>y，x，y）Switch函數(shù)

格式：Switch（條件表達式1，條件表達式1為True時的值[，條件表達式2，條件表達式2為True時的值……]）例如：學(xué)生成績等級Switch(grade>=90,“優(yōu)秀”,grade>=80,“良好”，grade>=70,“中等”,grade>=60,“及格”,grade<=60,“不及格”)Choose函數(shù)格式：Choose（數(shù)字類型變量，值為1的返回值，值為2的返回值……）例如：Op=Choose（Nop，"+"，"-"，"×"，"÷"）2/6/202376常見錯誤在選擇結(jié)構(gòu)中缺少配對的結(jié)束語句對多行式的If塊語句中，應(yīng)有配對的EndIf語句結(jié)束。多分支選擇ElseIf關(guān)鍵字的書寫和條件表達式的表示ElseIf不要寫成ElseIf；多個條件表達式次序問題，見示例。SelectCase語句的使用SelectCase后不能出現(xiàn)多個變量；Case子句后不能出現(xiàn)變量，見示例。2/6/202377循環(huán)結(jié)構(gòu)指對同一程序段執(zhí)行若干次，被重復(fù)執(zhí)行的語句塊成為循環(huán)體。For/Next循環(huán)Do/Loop循環(huán)While/Wend循環(huán)2/6/202378For/Next循環(huán)計數(shù)循環(huán)語句，用于控制循環(huán)次數(shù)預(yù)知的循環(huán)格式：

For<循環(huán)變量>=<初值>to<終值>[Step<步長>]

<語句塊>[ExitFor]<語句塊>Next[<循環(huán)變量>]循環(huán)變量賦初值循環(huán)變量<=終值語句塊語句塊循環(huán)變量加步長TExitFor·F有無計算1到100的奇數(shù)和Dimi%,ss=0Fori=1To100step2s=s+iNexti2/6/202379步長循環(huán)次數(shù)=注意出了循環(huán)，循環(huán)控制變量值的問題。允許循環(huán)變量在循環(huán)體內(nèi)被賦值，但這樣會影響原來的循環(huán)控制規(guī)律。ExitFor：強制退出循環(huán)步長=1可省略Fori=2To13Step3循環(huán)執(zhí)行次數(shù)Printi, 輸出i的值分別為:Nexti 25811Print“I=“,i 出了循環(huán)輸出為:I=142/6/202380練習(xí)例題求最大最小值問題要求：隨機產(chǎn)生10個[100，200]之間的整數(shù)輸出，并求最大值。如圖所示Max=100Fori=1To10x=Int(Rnd*101+100):Printx,

Ifx>MaxThenMax=xNextiPrint"最大值=";Max2/6/202381Do/Loop循環(huán)形式1：前測試循環(huán)

Do{While|Until}<條件>語句塊[ExitDo語句塊]Loop形式2：后測試循環(huán)Do語句塊[ExitDo語句塊]Loop{While|Until}<條件>2/6/202382練習(xí)例題我國有13億人口，按人口增長0.8計算，多少年后我國人口超過26億。分析：解決此問題有兩種方法，其一可根據(jù)公式：26=13*(1+0.008)n,直接利用標(biāo)準對數(shù)函數(shù)求得；其二可利用循環(huán)求得，代碼如下：x=13:n=0 'x表示當(dāng)前人口數(shù)，n表示年數(shù)DoWhilex<26x=x*1.008 '每年增加后的人口數(shù)n=n+1 '年數(shù)加1LoopPrintn;"年后我國人口達到";x;"，超過26億"2/6/202383循環(huán)的嵌套一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套制作九九乘法表。求水仙花數(shù)。提示：一個3位數(shù)abc，滿足：100*a+10*b+c=a^3+b^3+c^3（單擊查看代碼）（單擊查看代碼）2/6/202384注意事項外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉內(nèi)循環(huán)變量與外循環(huán)變量不能同名在使用Goto語句時，不能從循環(huán)體外轉(zhuǎn)入循環(huán)體內(nèi)多重循環(huán)最好按照縮進格式書寫Forii=1To10Forjj=1To20… Nextii NextjjForii=1To10Forii=1To20… Nextii NextiiForii=1To10Forjj=1To20… NextjjNextiiForii=1To10…NextiiForii=1To10…Nextii√2/6/202385While/Wend循環(huán)格式While<條件><循環(huán)體>Wend說明每次執(zhí)行完循環(huán)體后都將執(zhí)行Wend語句，它將轉(zhuǎn)回到While語句，在判斷語句條件是否成立如果條件為Null，則將默認條件值為FalseWend語句不能省略2/6/202386常見錯誤不循環(huán)或死循環(huán)的問題主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長的設(shè)置有問題。循環(huán)結(jié)構(gòu)中缺少配對的結(jié)束語句

For缺少配對的Next循環(huán)嵌套時,內(nèi)外循環(huán)交叉累加、連乘時，存放累加、連乘結(jié)果的變量賦初值問題在一重循環(huán)中,存放累加、連乘結(jié)果的變量初值設(shè)置應(yīng)在循環(huán)語句前。2/6/2023872.7數(shù)組靜態(tài)數(shù)組動態(tài)數(shù)組控件數(shù)組若我們要求一個班100個學(xué)生的平均成績，然后統(tǒng)計高于平均分的人數(shù)。以前怎么做？可以引入數(shù)組！（單擊查看代碼）2/6/202388數(shù)組具有相同名字不同下標(biāo)的變量來表示一組具有相同性質(zhì)的數(shù)據(jù)注意數(shù)組不是一種數(shù)據(jù)類型數(shù)組是一組相同類型的變量集合數(shù)組必須先聲明后使用聲明數(shù)組名、類型、維數(shù)和數(shù)組大小按聲明時數(shù)組的大小確定與否靜態(tài)數(shù)組（定長）：聲明時確定了大小動態(tài)數(shù)組（變長）：聲明時未給出大小2/6/202389靜態(tài)數(shù)組聲明 Dim數(shù)組名(下標(biāo)1[,下標(biāo)2…])[As類型]說明

幾個下標(biāo)就表示是幾維數(shù)組，最多為60維[下界To]上界省略下界為0靜態(tài)數(shù)組的下標(biāo)必須為常數(shù)每一維大小：上界－下界+1數(shù)組大?。好恳痪S大小相乘例如：Dimmark(1..105)AsInteger‘一維數(shù)組Mark(1)Mark(2)Mark(3)……Mark(104)Mark(105)2/6/202390例如：DimlArray(0to3,0to4)AsLong等價于DimlArray(3,4)AsLong注意下界缺省為0，但是可以重新定義數(shù)組的下界

OptionBase1錯誤的聲明，下標(biāo)是變量n=InputBox(“請輸入n”):Dimmark(n)AsSingle分清楚數(shù)組的聲明和引用lArray(0,0)lArray(0,1)lArray(0,2)lArray(0,3)lArray(0,4)lArray(1,0)lArray(1,1)lArray(1,2)lArray(1,3)lArray(1,4)lArray(2,0)lArray(2,1)lArray(2,2)lArray(2,3)lArray(2,4)lArray(3,0)lArray(3,1)lArray(3,2)lArray(3,3)lArray(3,4)2/6/202391幾個練習(xí)例題示例：隨機產(chǎn)生20個0到100的整數(shù)，按每行5個元素輸出。示例：冒泡法排序。選擇法排序。示例：交換數(shù)組中的各元素并打印交換后的數(shù)組元素。要求：數(shù)組大小為10，整型，數(shù)組第一個元素與最后一個元素交換，第二個元素與倒數(shù)第二個交換……依次類推。（單擊查看代碼）（單擊查看代碼）（查看代碼）2/6/202392動態(tài)數(shù)組聲明時沒有給出數(shù)組的大小，即省略了括號中的下標(biāo)。當(dāng)要使用它時，隨時用ReDim語句重新指出數(shù)組的大小格式：

ReDim數(shù)組名(下標(biāo)1,下標(biāo)2,……)[As類型]例如：

SubForm_Click() Dimx()AsSingle n=Inputbox(“輸入n”） ReDimx(n)EndSub示例：求若干個學(xué)生的平均分。（單擊查看代碼）2/6/202393說明

Dim、Private、Public變量聲明語句是說明性語句，可出現(xiàn)在過程內(nèi)或通用聲明段；ReDim語句是執(zhí)行語句，只能出現(xiàn)在過程內(nèi)。在過程中可多次使用ReDim來改變數(shù)組的大小和維數(shù)。使用ReDim語句會使原來數(shù)組中的值丟失，可以在ReDim語句后加Preserve參數(shù)來保留數(shù)組中的數(shù)據(jù)。使用Preserve只能改變最后一維的大小，前面幾維大小不能改變。ReDim中的下標(biāo)可以是常量，也可以是有了確定值的變量。

靜態(tài)數(shù)組在程序編譯時分配存儲單元，動態(tài)數(shù)組在運行時分配存儲單元。2/6/202394數(shù)組的操作數(shù)組元素賦值用循環(huán)

Fori=1to105 mark(i)=Int(Rnd*101) Nexti用Array函數(shù)

DimibAsVariant ib=Array("abc","def","67") Fori=0ToUBound(ib) Picture1.Printib(i);""; Nexti數(shù)組直接對數(shù)組賦值Dima()AsVariant,b()AsVarianta=Array(1,2,3,4,5)ReDimb(UBound(a))b=aFori=LBound(ib)ToUBound(ib)利用Array對數(shù)組各元素賦值，聲明的數(shù)組是可調(diào)數(shù)組或連圓括號都可省，并且其類型只能是Variant。其下標(biāo)下界由OptionBase決定，且可由LBound函數(shù)獲得；上界由UBound函數(shù)獲得。2/6/202395控件數(shù)組定義由一組相同類型的控件組成特點共用一個控件名，即Name屬性值一致具有相同的屬性建立時系統(tǒng)給每個控件賦值唯一的索引號(Index)控件共享同樣的事件過程，通過傳遞的下標(biāo)值區(qū)分控件數(shù)組中的各個控件元素例如SubCmdOperation_Click(IndexAsInteger) SelectCaseIndex Case0 ‘選擇加號 ……‘進行兩個數(shù)的加法運算 Case1 ‘選擇減號 …… ‘進行兩個數(shù)的減法運算 EndSelectEndSub2/6/202396控件數(shù)組的建立和使用(2-1)在設(shè)計時建立在窗體上畫出某控件，可進行控件名的屬性設(shè)置，這是建立的第一個數(shù)組元素選中該控件，進行“復(fù)制”和“粘貼”操作，系統(tǒng)會提示：“已經(jīng)有一個控件為’[控件名]’。創(chuàng)建一個控件數(shù)組嗎？”單擊“是”按鈕后，就建立了一個控件數(shù)組。進行若干次“粘貼”操作，就建立了相應(yīng)個數(shù)的控件數(shù)組元素進行事件過程的編程。第一個元素修改數(shù)組的第一個元素名稱第二個元素數(shù)組的第二個元素名稱和Index屬性2/6/202397練習(xí)例題利用控件數(shù)組的方法建立四個命令按鈕，當(dāng)單擊某個命令按鈕，顯示不同的圖形或結(jié)束操作。提示：界面上四個命令按鈕用一個按鈕數(shù)組實現(xiàn)。代碼處理時，由Index的不同取值，執(zhí)行不同的操作。（單擊查看代碼）控件名IndexCaptionPicshape空白空白CmdOperation0直線CmdOperation1矩形CmdOperation2圓CmdOperation3結(jié)束2/6/202398控件數(shù)組的建立和使用(2-2)運行時添加控件數(shù)組在窗體上畫出某控件，設(shè)置該控件的Index值為0，表示該控件為控件數(shù)組，建立第一個元素在編程時通過Load方法添加其余的若干個元素，每個新添加的控件數(shù)組元素通過Left和Top屬性，確定其在窗體的位置，并將Visible屬性設(shè)置為True；也可以使用Unload方法刪除某個添加的元素2/6/202399幾個練習(xí)例題建立如圖所示的計算器，進行數(shù)值的輸入和四則運算。數(shù)字按鈕控件數(shù)組（運行時創(chuàng)建）運算符按鈕控件數(shù)組（設(shè)計時創(chuàng)建）

數(shù)值的數(shù)制轉(zhuǎn)換數(shù)組（設(shè)計時創(chuàng)建）（單擊查看代碼）Fori=1To9

Loadnumber(i)number(i).Top=100number(i).Left=100number(i).Caption=inumber(i).Visible=TrueNexti2/6/2023100使用范圍分類統(tǒng)計

分類統(tǒng)計是將一批數(shù)據(jù)中按分類的條件統(tǒng)計每一類中包含的個數(shù)。例如，將學(xué)生成績按優(yōu)、良、中、及格、不及格五類，統(tǒng)計各類的人數(shù)。這類問題一般要掌握分類條件表達式的書寫和各類中計數(shù)器變量的使用。排序：冒泡法、選擇法、插入法等學(xué)生作品示例：輸入一串字符，統(tǒng)計各字母出現(xiàn)的次數(shù)（不區(qū)分字母大小寫），并顯示統(tǒng)計結(jié)果。（查看代碼）（演示）2/6/2023101常見錯誤靜態(tài)數(shù)組聲明下標(biāo)出現(xiàn)變量

n=InputBox("輸入數(shù)組的上界") Dima(1Ton)AsInteger數(shù)組下標(biāo)越界引用的下標(biāo)比數(shù)組聲明時的下標(biāo)范圍大或小。數(shù)組維數(shù)錯數(shù)組聲明時的維數(shù)與引用數(shù)組元素時的維數(shù)不一致。Dima(3,5)AsLonga(i)=10獲得數(shù)組的上界(UBound)、下界(LBound)2/6/20231022.8過程過程是用來執(zhí)行一個特定任務(wù)的一段程序代碼分類一系統(tǒng)定義內(nèi)部函數(shù)過程事件過程用戶自定義分類二（由關(guān)鍵字區(qū)分）以Sub保留字開始的子過程以Function保留字開始的函數(shù)過程以Property保留字開始的屬性過程以Event保留字開始的事件過程2/6/2023103Function過程示例：已知多邊形各條邊的長度，要計算多邊形的面積。分析：計算多邊形面積，可將多邊形分解成若干個三角形。計算三角形面積的公式為：

xyz定義函數(shù)過程area：PublicFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))EndFunction調(diào)用函數(shù)過程：Subcommand1_click()……輸入若干個三角形邊長S=area(a,b,c)+area(c,d,e)S=S+area(e,f,g)PrintSEndSub2/6/2023104Function過程的定義方法一：利用“工具”菜單—”添加過程”方法二：利用代碼窗口直接定義格式：[Public|Private][Static]Function函數(shù)過程名([參數(shù)列表])[As類型] 局部變量或常數(shù)定義 語句塊 函數(shù)名=返回值函數(shù)過程體 [ExitFunction] 語句塊 函數(shù)名=返回值EndFunction參數(shù)列表：:[ByVal]變量名[()][As類型]ExitFunction：退出函數(shù)函數(shù)名=返回值：在函數(shù)體內(nèi)至少對函數(shù)名賦值一次2/6/2023105Function過程的調(diào)用函數(shù)過程的調(diào)用同標(biāo)準函數(shù)形式函數(shù)過程名([參數(shù)列表])Call函數(shù)過程名[(參數(shù)列表)]函數(shù)過程名[參數(shù)列表]參數(shù)列表：實參或?qū)嵲?，必須與形參個數(shù)相同，位置與類型一一對應(yīng)2/6/2023106練習(xí)例題示例：定義MyReplace$(S$,oldS$,newS$)函數(shù)過程，具有Replace函數(shù)功能（單擊查看代碼）PrivateSubCommand1_Click()s=“VB程序設(shè)計教程5.0版”PrintMyReplace(s,"5.0","6.0")EndSubFunctionMyReplace$(s$,OldS$,NewS$)Dimi%,lenOldS%lenOldS=Len(OldS) i=InStr(s,OldS) DoWhilei>0 s=Left(s,i-1)+NewS+Mid(s,i+lenOldS)i=InStr(s,OldS) LoopMyReplace=s EndFunctionEndSubPrivateSubCommand1_Click()s=“VB程序設(shè)計教程5.0版”PrintMyReplace(s,"5.0","6.0")S”5.0””6.0”MyReplace$(s$,OldS$,NewS$)程序運行流程

2/6/2023107子過程函數(shù)過程的不足不是為了獲得某個函數(shù)值，而是為了某種功能的處理，例如文字移動動畫要獲得多個結(jié)果（查看代碼）示例：定義MyReplace$(S$,oldS$,newS$)函數(shù)過程，具有Replace函數(shù)功能（單擊查看代碼）定義子過程swap：PublicSubSwap(x,y) Dimt t=x:x=y:y=tEndSub調(diào)用子過程：a=10:b=20Print"兩個數(shù)交換前:a=";a,"b=";b

Swapa,bPrint"兩個數(shù)交換后:a=";a,"b=";b2/6/2023