講課次上機(jī)次

講課次上機(jī)次第一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.1結(jié)構(gòu)化程序設(shè)計(jì)的三種結(jié)構(gòu)

（第3次課）計(jì)算機(jī)語(yǔ)言提供三種基本控制結(jié)構(gòu)

順序、分支、循環(huán)

順序結(jié)構(gòu)按照語(yǔ)句在代碼中出現(xiàn)的順序，自上而下逐條執(zhí)行；每一條語(yǔ)句都被且只被執(zhí)行一次。

第二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

分支結(jié)構(gòu)根據(jù)判斷項(xiàng)的值有條件地執(zhí)行相應(yīng)語(yǔ)句，也稱(chēng)選擇結(jié)構(gòu)。

循環(huán)結(jié)構(gòu)根據(jù)判斷項(xiàng)的值有條件地反復(fù)執(zhí)行程序中的某些語(yǔ)句。第三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.1】順序結(jié)構(gòu)程序示例。在窗體上添加2 個(gè)文本框、3個(gè)標(biāo)簽和2個(gè)命令按鈕單擊時(shí)在標(biāo)簽中顯示兩個(gè)數(shù)的計(jì)算和單擊時(shí)結(jié)束整個(gè)程序的運(yùn)行輸入數(shù)據(jù)只顯示數(shù)據(jù)第四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一文本框控件常用于數(shù)據(jù)的顯示、輸入或編輯

推薦使用的控件前綴

txt

文本框內(nèi)顯示的文本保存在Text屬性中第五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一文本框與標(biāo)簽相同點(diǎn)：都可以用于顯示信息不同點(diǎn)：文本框---程序運(yùn)行時(shí)可直接在框內(nèi)輸入 或編輯文本； 通過(guò)Text屬性編輯和顯示信息

標(biāo)簽---只能顯示數(shù)據(jù) 通過(guò)Caption屬性顯示信息

第六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一cmdCal_Click過(guò)程執(zhí)行過(guò)程按順序執(zhí)行a=txtOp1中的值b=txtOp2中的值a+b的值放在lblAnswer中開(kāi)始結(jié)束第七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一編寫(xiě)代碼PrivateSubcmdCal_Click()a=Val(txtOp1.Text) b=Val(txtOp2.Text) lblAnswer.Caption=Str(a+b)EndSubPrivateSubcmdExit_Click()EndEndSub將數(shù)字字符串轉(zhuǎn)換成對(duì)應(yīng)數(shù)值將數(shù)值轉(zhuǎn)換成對(duì)應(yīng)的數(shù)字字符串可省略，系統(tǒng)將自動(dòng)進(jìn)行轉(zhuǎn)換第八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.2VB語(yǔ)言基礎(chǔ)2.2.1VB語(yǔ)句的書(shū)寫(xiě)規(guī)則2.2.2常量、變量與變量定義2.2.3算術(shù)運(yùn)算符與表達(dá)式第九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.2.1VB語(yǔ)句的書(shū)寫(xiě)規(guī)則通常一行寫(xiě)一條語(yǔ)句，語(yǔ)句可從任意列開(kāi)始，但一行內(nèi)不超過(guò)255個(gè)字符;一行內(nèi)可寫(xiě)多條語(yǔ)句，但語(yǔ)句間需用冒號(hào)隔開(kāi);一條語(yǔ)句可寫(xiě)在連續(xù)的多行上，需在行尾處使用續(xù)行符。續(xù)行符由1個(gè)空格和1個(gè)下劃線組成;不區(qū)分大小寫(xiě)字母第十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.2.2常量、變量與變量定義1．常量與變量【例2.2】計(jì)算圓的周長(zhǎng)和體積。第十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一文本框標(biāo)簽計(jì)算并顯示圓的周長(zhǎng)和體積

結(jié)束程序第十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdCal_Click()

ConstPI=3.1415926DimrAsInteger:DimlAsDoubleDimvAsDoubler=Val(txtRds.Text)l=2*PI*rlblLen.Caption=lv=4/3*PI*r^3lblV.Caption=vEndSub常量其值不會(huì)發(fā)生改變變量其值可隨時(shí)發(fā)生變化’計(jì)算圓的周長(zhǎng)

’計(jì)算圓的體積

程序代碼聲明符號(hào)常量PI，等價(jià)于3.1415926第十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一由字母、數(shù)字和下劃線組成;以字母開(kāi)頭，其中不能含有小數(shù)點(diǎn)、空格等字符;字符數(shù)最多不超過(guò)255個(gè);不能使用VB的保留字。變量的命名規(guī)則保留字：VB中定義的語(yǔ)句、函數(shù)名和運(yùn)算符等第十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2．變量定義使用變量存放臨時(shí)數(shù)據(jù)往變量中存放數(shù)據(jù)的操作稱(chēng)為賦值可以給同一變量多次賦值，但變量中存放的是最后一次賦予它的值未經(jīng)賦值的變量，其值默認(rèn)為0

2.2.2常量、變量與變量定義第十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2．變量定義根據(jù)變量中所存數(shù)據(jù)的種類(lèi)不同，可將變量分為整型、實(shí)型和字符型等多種類(lèi)型DimrAsInteger

定義變量r，其類(lèi)型為Integer（整型）

DimvAsDouble

定義變量v，其類(lèi)型為雙精度實(shí)型2.2.2常量、變量與變量定義第十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2．變量定義根據(jù)變量中所存數(shù)據(jù)的種類(lèi)不同，可將變量分為整型、實(shí)型和字符型等多種類(lèi)型建議：變量先定義后使用，以利日后調(diào)試 和維護(hù)常用變量類(lèi)型：Integer、Long、Single、 Double、String2.2.2常量、變量與變量定義第十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.3】計(jì)算兩數(shù)乘積。程序運(yùn)行時(shí)，隨機(jī)產(chǎn)生2個(gè)三位整數(shù)顯示在標(biāo)簽上；用戶(hù)在文本框中輸入計(jì)算結(jié)果；單擊“參考答案”按鈕，在窗體下部的標(biāo)簽中顯示正確答案；單擊“下一題”按鈕，清除文本框及標(biāo)簽中的內(nèi)容，重新生成2個(gè)數(shù)據(jù)顯示在標(biāo)簽上。第十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

PrivateSubForm_Load()

DimaAsInteger

DimbAsInteger

a=Int(Rnd*900)+100

b=Int(Rnd*900)+100

lblOp1.Caption=alblOp2.Caption=bEndSub聲明整型變量a,b每次運(yùn)行程序時(shí)產(chǎn)生不同隨機(jī)數(shù)

隨機(jī)產(chǎn)生3位整數(shù)Randomize有不足之處程序代碼第十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一產(chǎn)生隨機(jī)數(shù)的方法

Rnd：產(chǎn)生一個(gè)(0,1)之間的隨機(jī)數(shù)

Int(x)：求不超過(guò)x的最大整數(shù)

Int(Rnd*N)：產(chǎn)生0~N-1之間的整數(shù)

Int(Rnd*N)+M：產(chǎn)生M~M+N-1之間的整數(shù)Randomize的使用

程序說(shuō)明第二十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdKey_Click()DimanAsLongan=Val(lblOp1.Caption)* Val(lblOp2.Caption)lb1Key.Caption=anEndSub

聲明長(zhǎng)整型變量an字符串連接運(yùn)算符“正確答案是:”

&an程序代碼第二十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明變量定義定義變量an為長(zhǎng)整型，以防止溢出Integer型變量范圍：-32768~32767Long型變量范圍：-2147483648~2147483647定義變量的格式

Dim變量名As類(lèi)型第二十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明字符串連接運(yùn)算符&將兩個(gè)字符串進(jìn)行連接“My”&“Name”值為“MyName”“123”&“456”值為“123456”&與前后兩個(gè)字符串間必須用空格隔開(kāi)

注意區(qū)分an與“an”

的不同第二十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdNext_Click()Form_LoadxtAnswer.Text="“l(fā)blKey.Caption=""txtAnswer.SetFocusEndSub

如同將Form_Load中的所有語(yǔ)句復(fù)制到此一樣將光標(biāo)定位到文本框上

程序代碼……a=Int(Rnd*900)+100b=Int(Rnd*900)+100lblOp1.Caption=alblOp2.Caption=b第二十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.4】假設(shè)有字符串a(chǎn)，其值為“ABCDefg”，單擊“確定”按鈕后，在窗體上輸出不同的字符串。第二十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdOK_Click()DimaAsString,bAsStringDimcAsString,dAsStringa="ABCDefg"b=Left(a,3)c=Mid(a,2,3) d=LCase(a) Print"字符串："&aPrint"從左起取3個(gè)字符："&bPrint"從第2個(gè)字符起取3個(gè)字符："&cPrint"轉(zhuǎn)換為小寫(xiě)字母："&dEndSub從左起截取3個(gè)字符從第2個(gè)字符開(kāi)始截取3個(gè)字符大寫(xiě)字母轉(zhuǎn)換為小寫(xiě)字母在窗體中輸出字符串程序代碼聲明字符型變量a,b,c,d第二十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一字符串：用雙引號(hào)括起來(lái)的一串字符， 可包含所有西文字符和漢字

語(yǔ)句DimaAsString，bAsString定義字符型變量a和b，聲明它們只能存放字符型數(shù)據(jù)。注意：不能寫(xiě)成

Dima，bAsString

與字符串操作有關(guān)的函數(shù)

Left、Right、Mid、LCase、UCase、Len程序說(shuō)明第二十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一運(yùn)算符含義舉例+加5+3.2的結(jié)果為8.2-減15-5.0的結(jié)果為10.0*乘2.5*3的結(jié)果為7.5/除1/2的結(jié)果為0.5\整除1\2的結(jié)果為0Mod求余6Mod4的結(jié)果為2-負(fù)號(hào)-12.3^乘方2^3的結(jié)果為82.2.3算術(shù)運(yùn)算符與表達(dá)式

第二十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

運(yùn)算符+、-、*、/的作用與數(shù)學(xué)中的+、-、

×、÷相對(duì)應(yīng)；運(yùn)算符\

用于整數(shù)除法，若參加運(yùn)算的數(shù)據(jù)含有小數(shù)部分，則先按四舍五入原則自動(dòng)將其轉(zhuǎn)換成整數(shù)后再進(jìn)行運(yùn)算，如18\3.5=4

；參加算術(shù)運(yùn)算的操作數(shù)應(yīng)是數(shù)值型數(shù)據(jù)，對(duì)于數(shù)字字符或邏輯型數(shù)據(jù)則需先進(jìn)行轉(zhuǎn)換。說(shuō)明第二十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

在VB中，邏輯值True對(duì)應(yīng)數(shù)值-1，F(xiàn)alse對(duì)應(yīng)數(shù)值0

在進(jìn)行算術(shù)運(yùn)算時(shí)不要超出數(shù)據(jù)取值范圍

對(duì)于除法運(yùn)算，應(yīng)保證除數(shù)不為零

說(shuō)明第三十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

算術(shù)表達(dá)式

由算術(shù)運(yùn)算符、圓括號(hào)和運(yùn)算對(duì)象（包括常量、變量、函數(shù)、對(duì)象等）組成，且符合VB語(yǔ)法規(guī)則的的表達(dá)式為算術(shù)表達(dá)式。高低^-（負(fù)號(hào)）*/\Mod+-算術(shù)運(yùn)算符的優(yōu)先級(jí)2.2.3算術(shù)運(yùn)算符與表達(dá)式

第三十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.5】將數(shù)學(xué)式改寫(xiě)成VB的算術(shù)表達(dá)式【解】VB的算術(shù)表達(dá)式為:3.14159/(a^2+Sqr(b))第三十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)最大字符長(zhǎng)度為18單擊時(shí)推算出的生日第三十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一1．結(jié)構(gòu)化程序設(shè)計(jì)的3種結(jié)構(gòu)2．順序結(jié)構(gòu)的執(zhí)行過(guò)程3．常量和變量的概念4．產(chǎn)生隨機(jī)數(shù)的方法5．交換算法和計(jì)算每位數(shù)字之和的方法6．文本框的使用方法7．Val、Str、Left、Right、Mid、LCase、Ucase8．Integer、Long、Single、Double、String型9．算術(shù)運(yùn)算符和字符串連接符教學(xué)總結(jié)第三十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一習(xí)題2中：第1~6題課堂上未做完的內(nèi)容作業(yè)例2.6~例2.8預(yù)習(xí)第三十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.3數(shù)據(jù)賦值（第4次課）【例2.6】交換兩個(gè)標(biāo)簽中的內(nèi)容。單擊時(shí)交換兩標(biāo)簽中內(nèi)容第三十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdSwap_Click()

EndSub通過(guò)臨時(shí)變量t實(shí)現(xiàn)交換操作DimtAsStringt=lbl1.Caption

lbl1.Caption=lbl2.Captionlbl2.Caption=t程序代碼第三十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一賦值語(yǔ)句的一般形式

變量名=表達(dá)式

先計(jì)算等號(hào)右側(cè)表達(dá)式的值，然后再賦值賦值語(yǔ)句既可以給普通的變量賦值，也可以給對(duì)象的屬性賦值程序說(shuō)明第三十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.7】使用圖像框顯示圖片。img鼠標(biāo)移動(dòng)到某圖像框時(shí)該圖像框顯示圖片第三十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值窗體Caption加載圖所有圖像框Stretch

TrueBorderStyle1-FixedSingle自動(dòng)調(diào)節(jié)圖片大小以適應(yīng)圖像框的大小第四十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubimgCock_MouseMove(ButtonAs

Integer,ShiftAsInteger,XAs Single,YAsSingle)

imgCock.Picture=LoadPicture("D:\MyVB\ cock.gif")

imgDuck.Picture=LoadPicture("")

EndSub加載指定圖片清除圖片程序代碼第四十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一圖像框中可使用.bmp、.ico、.gif、.jpg和.wmf等圖形文件；LoadPicture函數(shù)的調(diào)用格式

LoadPicture（"文件路徑及名稱(chēng)"）

該文件所在完整路徑及文件名后綴在imgCock.Picture中若省略imgCock，則圖片被加載到窗體上程序說(shuō)明第四十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.8】計(jì)算各位數(shù)字之和。等待重新輸入數(shù)字

輸入數(shù)字后自動(dòng)計(jì)算每位數(shù)字之和并顯示第四十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值文本框1（名稱(chēng)）txtOpMaxLength

3取整數(shù)x的個(gè)位數(shù)字基本算法取整數(shù)x的百位數(shù)字xMod10取整數(shù)x的十位數(shù)字x\10Mod10x\100第四十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一編寫(xiě)代碼文本框的Change事件

當(dāng)文本框中的內(nèi)容發(fā)生變化時(shí)觸發(fā)，每輸入或刪除一個(gè)字符時(shí)就觸發(fā)一次Change事件。第四十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubtxtOp_Change()

EndSubDimxAsInteger:DimaAsInteger

DimbAsInteger:DimcAsIntegerx=Val(txtOp.Text)a=xMod10b=x\10Mod10c=x\100lblAnswer.Caption=a+b+c第四十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdClear_Click()txtOp.Text=""lblAnswer.Caption=""txtOp.SetFocus EndSubPrivateSubcmdEnd_Click()EndEndSub

第四十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序錯(cuò)誤主要分為編譯錯(cuò)誤和邏輯錯(cuò)誤編譯錯(cuò)誤---編輯時(shí)系統(tǒng)自動(dòng)提示邏輯錯(cuò)誤---錯(cuò)誤的運(yùn)行結(jié)果程序的測(cè)試與調(diào)試查找、定位和排除錯(cuò)誤的過(guò)程，常常需要反復(fù)多次進(jìn)行，直至測(cè)試結(jié)果完全正確為止

調(diào)試方法介紹——F8單步調(diào)試

第四十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)1單擊窗體形狀控件標(biāo)簽第四十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2圖像框圖像框第五十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2單擊時(shí)第五十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2單擊時(shí)清空4幅圖第五十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2單擊窗體時(shí)第五十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一1．交換數(shù)據(jù)需要使用三條賦值語(yǔ)句實(shí)現(xiàn)2．結(jié)合使用“\”與“Mod”運(yùn)算符對(duì)一個(gè)整數(shù)進(jìn)行分解得到各位數(shù)字3．裝載圖片使用LoadPicture函數(shù)實(shí)現(xiàn)4．用F8單步執(zhí)行程序，便于檢查每一步教學(xué)總結(jié)第五十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一用F8單步執(zhí)行的方法調(diào)試?yán)?.6和例2.7中的程序課堂上未做完的內(nèi)容作業(yè)例2.9~例2.12預(yù)習(xí)第五十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.4數(shù)據(jù)輸出（第5次課）

【例2.9】輸出陰影文字1、通過(guò)標(biāo)簽或文本框控件輸出文本實(shí)現(xiàn)手段第五十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值標(biāo)簽1Caption實(shí)現(xiàn)陰影效果BorderStyle1-FixedSingle

Left、Top

240、465

標(biāo)簽2Caption實(shí)現(xiàn)陰影效果BackStyle

0-TransparentBorderStyle0-NoneForeColor白色Left、Top330、525第五十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一當(dāng)控件間位置重疊時(shí)，位于上層的控件會(huì)遮擋住下層控件；可通過(guò)設(shè)置上層控件的BackStyle屬性使其背景模式變成透明以露出下層控件；程序說(shuō)明第五十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdShow_Click()lbl2.Visible=True

cmdHide.Enabled=TruecmdShow.Enabled=False

EndSub

PrivateSubcmdHide_Click()lbl2.Visible=FalsecmdHide.Enabled=FalsecmdShow.Enabled=TrueEndSub程序代碼第五十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2、通過(guò)消息框輸出文本信息【例2.10】密碼校驗(yàn)2.4數(shù)據(jù)輸出

最多6位第六十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值文本框Alignment2-CenterMaxlength6PasswordChar*Text（置空）第六十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdCheck_Click()DimsAsStrings="您輸入的密碼是:"&txtPassword.TextMsgBoxsEndSub自動(dòng)彈出消息框，并在其中顯示變量s的值程序代碼單擊時(shí)關(guān)閉并返回到原窗體第六十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一3、通過(guò)另一窗體輸出文本信息【例2.11】修改例2.10，在另一窗體中顯 示密碼信息。2.4數(shù)據(jù)輸出

結(jié)束程序第六十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一一個(gè)工程中可包含多個(gè)窗體添加窗體的方法【工程】|【添加窗體】

單擊工具欄中的“添加窗體”按鈕在工程資源管理器中單擊右鍵|【添加】|【添加窗體】程序說(shuō)明第六十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一默認(rèn)情況下，建立的第1個(gè)窗體為啟動(dòng)窗體自定義啟動(dòng)窗體【工程】|【屬性】程序說(shuō)明第六十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdCheck_Click() DimaAsInteger:DimsAsString a=Len(txtPassword.Text) s=txtPassword.Text frmEx2_11_2.lblPassword.Caption=s frmEx2_11_2.lblLen.Caption=a frmEx2_11_1.Hide frmEx2_11_2.ShowEndSub第一個(gè)窗體中的程序代碼求字符串長(zhǎng)度顯示窗體隱藏窗體必須寫(xiě)第六十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdEnd_Click()EndEndSub第二個(gè)窗體中的程序代碼第六十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一【例2.12】單擊“開(kāi)始”按鈕，汽車(chē)向前行駛；單擊“停止”按鈕，汽車(chē)停止行駛。2.4數(shù)據(jù)輸出

4、通過(guò)圖像框輸出圖片第六十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一

在窗體上添加計(jì)時(shí)器和圖像框tmr程序運(yùn)行時(shí)不可見(jiàn)第六十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一如何實(shí)現(xiàn)小車(chē)向前移動(dòng)？每隔一定的時(shí)間間隔，改變小車(chē)位置（向前移動(dòng)一定距離）窗體(x,y)圖像框的Left、Top屬性改變小車(chē)位置圖像框.Left=圖像框.Left-100只需改變Left屬性值如何指定？第七十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一使用計(jì)時(shí)器計(jì)時(shí)器控件能夠以一定的時(shí)間間隔，自動(dòng)觸發(fā)執(zhí)行Timer事件；Interval：設(shè)定計(jì)時(shí)器觸發(fā)Timer事件的 時(shí)間間隔，單位：毫秒。Enabled：值為T(mén)rue時(shí)計(jì)時(shí)器工作，值為 False時(shí)計(jì)時(shí)器關(guān)閉；第七十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值計(jì)時(shí)器名稱(chēng)tmrMoveEnabledFalseInterval100第七十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdStart_Click()

EndSub

PrivateSubcmdStop_Click()

EndSub

PrivateSubtmrMove_Timer()

EndSub啟動(dòng)計(jì)時(shí)器關(guān)閉計(jì)時(shí)器圖片向左移動(dòng)tmrMove.Enabled=TruetmrMove.Enabled=FalseimgCar.Left=imgCar.Left–100程序代碼第七十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一圖像框向右移動(dòng)

imgCar.Left=imgCar.Left+100

圖像框向下移動(dòng)imgCar.Top=imgCar.Top+100

圖像框向上移動(dòng)imgCar.Top=imgCar.Top-100程序說(shuō)明向左上角移動(dòng)？第七十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)1向左移動(dòng)向上移動(dòng)均停止移動(dòng)第七十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2單擊單擊“黃”、“綠”，顯示相應(yīng)的燈

第七十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2切換到窗體1單擊第七十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一課堂練習(xí)2單擊切換到窗體1第七十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一1．計(jì)時(shí)器的使用方法2．MsgBox方法與函數(shù)3．多個(gè)窗體的添加以及多窗體之間的切換4．Len函數(shù)的使用教學(xué)總結(jié)第七十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一習(xí)題2中：第7題課堂上未做完的內(nèi)容作業(yè)例2.13~例2.15預(yù)習(xí)第八十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2.5數(shù)據(jù)輸入（第6次課）【例2.13】程序運(yùn)行時(shí)在文本框中分別輸入0-255之間的整數(shù)，單擊顯示按鈕則以輸入值作為紅、綠、藍(lán)三分量合成顏色并顯示在圖片框中。1、通過(guò)文本框輸入文本信息Pic第八十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值文本框1Alignment2-CenterTabIndex0文本框2Alignment2-CenterTabIndex1文本框3Alignment2-CenterTabIndex2圖片框TabStopFalse第八十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一TabStop屬性

True---程序運(yùn)行時(shí)可通過(guò)Tab鍵選定TabIndex屬性響應(yīng)Tab鍵的順序，值從0開(kāi)始通常TabStop與TabIndex聯(lián)合使用程序說(shuō)明第八十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一圖片框比圖像框的功能強(qiáng)

但所占系統(tǒng)資源多，顯示速度慢

只用于顯示圖片時(shí)一般不用圖片框

程序說(shuō)明第八十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdShow_Click()DimrAsInteger,gAsInteger,bAsIntegerr=Val(txtRed.Text)g=Val(txtGreen.Text)b=Val(txtBlue.Text)picColor.BackColor=RGB(r,g,b)EndSub合成顏色，并賦給圖片框的背景色程序代碼第八十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一RGB函數(shù)根據(jù)紅、綠、藍(lán)三原色產(chǎn)生合成色調(diào)用格式：RGB（red,green,blue）red、green、blue的取值范圍均是0到255，代表紅、綠、藍(lán)三原色的成分黑色：RGB(0,0,0)白色：RGB(255,255,255)程序說(shuō)明第八十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一2、通過(guò)輸入框輸入信息【例2.14】修改例2.13，單擊輸入按鈕時(shí)彈出 輸入框輸入紅、綠、藍(lán)三原色值。2.5數(shù)據(jù)輸入改為標(biāo)簽第八十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一InputBox函數(shù)產(chǎn)生輸入對(duì)話框接收并返回用戶(hù)輸入的字符串調(diào)用格式

InputBox(提示信息,對(duì)話框標(biāo)題,默認(rèn)輸入值)

例：a=InputBox(“aaa”,“bb”,“c”)程序說(shuō)明提示信息輸入框標(biāo)題默認(rèn)輸入值第八十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一InputBox函數(shù)單擊按鈕后關(guān)閉輸入框單擊“確定”按鈕，將輸入數(shù)據(jù)以字符串形式返回給變量a單擊“取消”按鈕，系統(tǒng)將返回空串例：a=InputBox(“aaa”,“bb”,“c”)程序說(shuō)明第八十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdInput_Click()DimrAsInteger,gAsInteger,bAsIntegerr=Val(InputBox(“請(qǐng)輸入0-255之間的整 數(shù)：","輸入框",0))g=Val(InputBox(“請(qǐng)輸入0-255之間的整 數(shù)：","輸入框",0))b=Val(InputBox(“請(qǐng)輸入0-255之間的整 數(shù)：","輸入框",0))lblRed.Caption=r:lblGreen.Caption=glblBlue.Caption=bEndSub程序代碼第九十頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsIntegerr=lblRed.Caption

g=lblGreen.Captionb=lblBlue.CaptionpicColor.BackColor=RGB(r,g,b)EndSub程序代碼能否刪除？第九十一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一3、通過(guò)滾動(dòng)條輸入數(shù)據(jù)【例2.15】修改例2.13，通過(guò)拖動(dòng)滾動(dòng)條輸入 紅、綠、藍(lán)三原色的值。hsb2.5數(shù)據(jù)輸入水平滾動(dòng)條第九十二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一對(duì)象屬性名屬性值水平滾動(dòng)條1~3LargeChange5Max255Min0SmallChange1第九十三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明滾動(dòng)條有水平滾動(dòng)條和垂直滾動(dòng)條兩種

滾動(dòng)條常用屬性

Min---滾動(dòng)條最小取值

Max---滾動(dòng)條最大取值

Value---滑塊當(dāng)前位置所代表的值，即 滾動(dòng)條當(dāng)前值vsb第九十四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明滾動(dòng)條有水平滾動(dòng)條和垂直滾動(dòng)條兩種

滾動(dòng)條常用屬性

SmallChange---單擊滾動(dòng)條左右箭頭 時(shí)，Value值改變量

LargeChange---單擊滾動(dòng)條白色區(qū)域 時(shí)，Value值改變量第九十五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一滾動(dòng)條改變滾動(dòng)條Value值的操作

單擊或

SmallChange

直接拖動(dòng)滑塊單擊滑塊與箭頭間的位置LargeChange程序說(shuō)明第九十六頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明滾動(dòng)條滾動(dòng)條主要事件

Change---當(dāng)滾動(dòng)條的Value屬性值發(fā)生 變化時(shí)觸發(fā)

Scroll---用鼠標(biāo)直接拖動(dòng)滾動(dòng)條滑塊時(shí) 觸發(fā)

產(chǎn)生Scroll事件時(shí)也必然產(chǎn)生Change事件第九十七頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序代碼PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsInteger

r=hsbRed.Valueg=hsbGreen.Valueb=hsbBlue.ValuepicColor.BackColor=RGB(r,g,b)EndSub如何即時(shí)顯示顏色變化？第九十八頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序運(yùn)行時(shí)綜合實(shí)例2（課時(shí)不夠時(shí)留作業(yè)）

單擊“交換”按鈕交換兩圖像框中的小狗圖像

停止交換

調(diào)整交換速度

返回初始窗體

第九十九頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序運(yùn)行時(shí)單擊“放大”按鈕輸入文字并選中部分文字顯示放大后的文字

返回初始窗體

綜合實(shí)例2（課時(shí)不夠時(shí)留作業(yè)）

第一百頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序運(yùn)行時(shí)單擊“退出”按鈕結(jié)束程序綜合實(shí)例2（課時(shí)不夠時(shí)留作業(yè)）

第一百零一頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一程序說(shuō)明圖片框中顯示藝術(shù)字在Word中設(shè)計(jì)藝術(shù)字，復(fù)制在VB中選中圖片框，粘貼為命令按鈕設(shè)置熱鍵

在Caption屬性中指定熱鍵字母，并在該字母前加&即可按下Alt+熱鍵字母，等同于單擊按鈕第一百零二頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一交換圖形添加一臨時(shí)圖像框，將其Visible設(shè)為False借助計(jì)時(shí)器Interval屬性，實(shí)現(xiàn)圖形交換在滾動(dòng)條的Change事件中更改計(jì)時(shí)器的Interval屬性，以調(diào)整交換速度程序說(shuō)明在本窗體中引用其他窗體中的控件采用“窗體名.控件名.屬性名”的形式，明確指出控件所在窗體第一百零三頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一窗體1的程序代碼PrivateSubcmdLarge_Click()frmZh2_3.ShowfrmZh2_1.HideEndSubPrivateSubcmdSwap_Click()frmZh2_2.ShowfrmZh2_1.HideEndSub第一百零四頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一窗體1的程序代碼PrivateSubcmdEnd_Click()MsgBox"歡迎再次光臨！",64, "退出程序"EndEndSub第一百零五頁(yè)，共一百二十四頁(yè)，編輯于2023年，星期一窗體2的程序代碼PrivateSubcmdStart_Click()tmrSwap.Enabled=TrueEndSubPrivateSubcmdS