講課次上機(jī)次

講課次上機(jī)次2.1結(jié)構(gòu)化程序設(shè)計(jì)的三種結(jié)構(gòu)

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

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

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

第2頁,共124頁，2024年2月25日，星期天

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

循環(huán)結(jié)構(gòu)根據(jù)判斷項(xiàng)的值有條件地反復(fù)執(zhí)行程序中的某些語句。第3頁,共124頁，2024年2月25日，星期天【例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ù)第4頁,共124頁，2024年2月25日，星期天文本框控件常用于數(shù)據(jù)的顯示、輸入或編輯

推薦使用的控件前綴

txt

文本框內(nèi)顯示的文本保存在Text屬性中第5頁,共124頁，2024年2月25日，星期天文本框與標(biāo)簽相同點(diǎn)：都可以用于顯示信息不同點(diǎn)：文本框---程序運(yùn)行時(shí)可直接在框內(nèi)輸入 或編輯文本； 通過Text屬性編輯和顯示信息

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

第6頁,共124頁，2024年2月25日，星期天cmdCal_Click過程執(zhí)行過程按順序執(zhí)行a=txtOp1中的值b=txtOp2中的值a+b的值放在lblAnswer中開始結(jié)束第7頁,共124頁，2024年2月25日，星期天編寫代碼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)換第8頁,共124頁，2024年2月25日，星期天2.2VB語言基礎(chǔ)2.2.1VB語句的書寫規(guī)則2.2.2常量、變量與變量定義2.2.3算術(shù)運(yùn)算符與表達(dá)式第9頁,共124頁，2024年2月25日，星期天2.2.1VB語句的書寫規(guī)則通常一行寫一條語句，語句可從任意列開始，但一行內(nèi)不超過255個(gè)字符;一行內(nèi)可寫多條語句，但語句間需用冒號(hào)隔開;一條語句可寫在連續(xù)的多行上，需在行尾處使用續(xù)行符。續(xù)行符由1個(gè)空格和1個(gè)下劃線組成;不區(qū)分大小寫字母第10頁,共124頁，2024年2月25日，星期天2.2.2常量、變量與變量定義1．常量與變量【例2.2】計(jì)算圓的周長和體積。第11頁,共124頁，2024年2月25日，星期天文本框標(biāo)簽計(jì)算并顯示圓的周長和體積

結(jié)束程序第12頁,共124頁，2024年2月25日，星期天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ì)算圓的周長

’計(jì)算圓的體積

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

2.2.2常量、變量與變量定義第15頁,共124頁，2024年2月25日，星期天2．變量定義根據(jù)變量中所存數(shù)據(jù)的種類不同，可將變量分為整型、實(shí)型和字符型等多種類型DimrAsInteger

定義變量r，其類型為Integer（整型）

DimvAsDouble

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

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有不足之處程序代碼第19頁,共124頁，2024年2月25日，星期天產(chǎn)生隨機(jī)數(shù)的方法

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

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

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

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

程序說明第20頁,共124頁，2024年2月25日，星期天PrivateSubcmdKey_Click()DimanAsLongan=Val(lblOp1.Caption)* Val(lblOp2.Caption)lb1Key.Caption=anEndSub

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

&an程序代碼第21頁,共124頁，2024年2月25日，星期天程序說明變量定義定義變量an為長整型，以防止溢出Integer型變量范圍：-32768~32767Long型變量范圍：-2147483648~2147483647定義變量的格式

Dim變量名As類型第22頁,共124頁，2024年2月25日，星期天程序說明字符串連接運(yùn)算符&將兩個(gè)字符串進(jìn)行連接“My”&“Name”值為“MyName”“123”&“456”值為“123456”&與前后兩個(gè)字符串間必須用空格隔開

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

的不同第23頁,共124頁，2024年2月25日，星期天PrivateSubcmdNext_Click()Form_LoadxtAnswer.Text="“l(fā)blKey.Caption=""txtAnswer.SetFocusEndSub

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

程序代碼……a=Int(Rnd*900)+100b=Int(Rnd*900)+100lblOp1.Caption=alblOp2.Caption=b第24頁,共124頁，2024年2月25日，星期天【例2.4】假設(shè)有字符串a(chǎn)，其值為“ABCDefg”，單擊“確定”按鈕后，在窗體上輸出不同的字符串。第25頁,共124頁，2024年2月25日，星期天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)換為小寫字母："&dEndSub從左起截取3個(gè)字符從第2個(gè)字符開始截取3個(gè)字符大寫字母轉(zhuǎn)換為小寫字母在窗體中輸出字符串程序代碼聲明字符型變量a,b,c,d第26頁,共124頁，2024年2月25日，星期天字符串：用雙引號(hào)括起來的一串字符， 可包含所有西文字符和漢字

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

Dima，bAsString

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

Left、Right、Mid、LCase、UCase、Len程序說明第27頁,共124頁，2024年2月25日，星期天運(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á)式

第28頁,共124頁，2024年2月25日，星期天

運(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)換。說明第29頁,共124頁，2024年2月25日，星期天

在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ù)不為零

說明第30頁,共124頁，2024年2月25日，星期天

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

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

第31頁,共124頁，2024年2月25日，星期天【例2.5】將數(shù)學(xué)式改寫成VB的算術(shù)表達(dá)式【解】VB的算術(shù)表達(dá)式為:3.14159/(a^2+Sqr(b))第32頁,共124頁，2024年2月25日，星期天課堂練習(xí)最大字符長度為18單擊時(shí)推算出的生日第33頁,共124頁，2024年2月25日，星期天1．結(jié)構(gòu)化程序設(shè)計(jì)的3種結(jié)構(gòu)2．順序結(jié)構(gòu)的執(zhí)行過程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é)第34頁,共124頁，2024年2月25日，星期天習(xí)題2中：第1~6題課堂上未做完的內(nèi)容作業(yè)例2.6~例2.8預(yù)習(xí)第35頁,共124頁，2024年2月25日，星期天2.3數(shù)據(jù)賦值（第4次課）【例2.6】交換兩個(gè)標(biāo)簽中的內(nèi)容。單擊時(shí)交換兩標(biāo)簽中內(nèi)容第36頁,共124頁，2024年2月25日，星期天PrivateSubcmdSwap_Click()

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

lbl1.Caption=lbl2.Captionlbl2.Caption=t程序代碼第37頁,共124頁，2024年2月25日，星期天賦值語句的一般形式

變量名=表達(dá)式

先計(jì)算等號(hào)右側(cè)表達(dá)式的值，然后再賦值賦值語句既可以給普通的變量賦值，也可以給對(duì)象的屬性賦值程序說明第38頁,共124頁，2024年2月25日，星期天【例2.7】使用圖像框顯示圖片。img鼠標(biāo)移動(dòng)到某圖像框時(shí)該圖像框顯示圖片第39頁,共124頁，2024年2月25日，星期天對(duì)象屬性名屬性值窗體Caption加載圖所有圖像框Stretch

TrueBorderStyle1-FixedSingle自動(dòng)調(diào)節(jié)圖片大小以適應(yīng)圖像框的大小第40頁,共124頁，2024年2月25日，星期天PrivateSubimgCock_MouseMove(ButtonAs

Integer,ShiftAsInteger,XAs Single,YAsSingle)

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

imgDuck.Picture=LoadPicture("")

EndSub加載指定圖片清除圖片程序代碼第41頁,共124頁，2024年2月25日，星期天圖像框中可使用.bmp、.ico、.gif、.jpg和.wmf等圖形文件；LoadPicture函數(shù)的調(diào)用格式

LoadPicture（"文件路徑及名稱"）

該文件所在完整路徑及文件名后綴在imgCock.Picture中若省略imgCock，則圖片被加載到窗體上程序說明第42頁,共124頁，2024年2月25日，星期天【例2.8】計(jì)算各位數(shù)字之和。等待重新輸入數(shù)字

輸入數(shù)字后自動(dòng)計(jì)算每位數(shù)字之和并顯示第43頁,共124頁，2024年2月25日，星期天對(duì)象屬性名屬性值文本框1（名稱）txtOpMaxLength

3取整數(shù)x的個(gè)位數(shù)字基本算法取整數(shù)x的百位數(shù)字xMod10取整數(shù)x的十位數(shù)字x\10Mod10x\100第44頁,共124頁，2024年2月25日，星期天編寫代碼文本框的Change事件

當(dāng)文本框中的內(nèi)容發(fā)生變化時(shí)觸發(fā)，每輸入或刪除一個(gè)字符時(shí)就觸發(fā)一次Change事件。第45頁,共124頁，2024年2月25日，星期天PrivateSubtxtOp_Change()

EndSubDimxAsInteger:DimaAsInteger

DimbAsInteger:DimcAsIntegerx=Val(txtOp.Text)a=xMod10b=x\10Mod10c=x\100lblAnswer.Caption=a+b+c第46頁,共124頁，2024年2月25日，星期天PrivateSubcmdClear_Click()txtOp.Text=""lblAnswer.Caption=""txtOp.SetFocus EndSubPrivateSubcmdEnd_Click()EndEndSub

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

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

第48頁,共124頁，2024年2月25日，星期天課堂練習(xí)1單擊窗體形狀控件標(biāo)簽第49頁,共124頁，2024年2月25日，星期天課堂練習(xí)2圖像框圖像框第50頁,共124頁，2024年2月25日，星期天課堂練習(xí)2單擊時(shí)第51頁,共124頁，2024年2月25日，星期天課堂練習(xí)2單擊時(shí)清空4幅圖第52頁,共124頁，2024年2月25日，星期天課堂練習(xí)2單擊窗體時(shí)第53頁,共124頁，2024年2月25日，星期天1．交換數(shù)據(jù)需要使用三條賦值語句實(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é)第54頁,共124頁，2024年2月25日，星期天用F8單步執(zhí)行的方法調(diào)試?yán)?.6和例2.7中的程序課堂上未做完的內(nèi)容作業(yè)例2.9~例2.12預(yù)習(xí)第55頁,共124頁，2024年2月25日，星期天2.4數(shù)據(jù)輸出（第5次課）

【例2.9】輸出陰影文字1、通過標(biāo)簽或文本框控件輸出文本實(shí)現(xiàn)手段第56頁,共124頁，2024年2月25日，星期天對(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第57頁,共124頁，2024年2月25日，星期天當(dāng)控件間位置重疊時(shí)，位于上層的控件會(huì)遮擋住下層控件；可通過設(shè)置上層控件的BackStyle屬性使其背景模式變成透明以露出下層控件；程序說明第58頁,共124頁，2024年2月25日，星期天PrivateSubcmdShow_Click()lbl2.Visible=True

cmdHide.Enabled=TruecmdShow.Enabled=False

EndSub

PrivateSubcmdHide_Click()lbl2.Visible=FalsecmdHide.Enabled=FalsecmdShow.Enabled=TrueEndSub程序代碼第59頁,共124頁，2024年2月25日，星期天2、通過消息框輸出文本信息【例2.10】密碼校驗(yàn)2.4數(shù)據(jù)輸出

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

結(jié)束程序第63頁,共124頁，2024年2月25日，星期天一個(gè)工程中可包含多個(gè)窗體添加窗體的方法【工程】|【添加窗體】

單擊工具欄中的“添加窗體”按鈕在工程資源管理器中單擊右鍵|【添加】|【添加窗體】程序說明第64頁,共124頁，2024年2月25日，星期天默認(rèn)情況下，建立的第1個(gè)窗體為啟動(dòng)窗體自定義啟動(dòng)窗體【工程】|【屬性】程序說明第65頁,共124頁，2024年2月25日，星期天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è)窗體中的程序代碼求字符串長度顯示窗體隱藏窗體必須寫第66頁,共124頁，2024年2月25日，星期天PrivateSubcmdEnd_Click()EndEndSub第二個(gè)窗體中的程序代碼第67頁,共124頁，2024年2月25日，星期天【例2.12】單擊“開始”按鈕，汽車向前行駛；單擊“停止”按鈕，汽車停止行駛。2.4數(shù)據(jù)輸出

4、通過圖像框輸出圖片第68頁,共124頁，2024年2月25日，星期天

在窗體上添加計(jì)時(shí)器和圖像框tmr程序運(yùn)行時(shí)不可見第69頁,共124頁，2024年2月25日，星期天如何實(shí)現(xiàn)小車向前移動(dòng)？每隔一定的時(shí)間間隔，改變小車位置（向前移動(dòng)一定距離）窗體(x,y)圖像框的Left、Top屬性改變小車位置圖像框.Left=圖像框.Left-100只需改變Left屬性值如何指定？第70頁,共124頁，2024年2月25日，星期天使用計(jì)時(shí)器計(jì)時(shí)器控件能夠以一定的時(shí)間間隔，自動(dòng)觸發(fā)執(zhí)行Timer事件；Interval：設(shè)定計(jì)時(shí)器觸發(fā)Timer事件的 時(shí)間間隔，單位：毫秒。Enabled：值為True時(shí)計(jì)時(shí)器工作，值為 False時(shí)計(jì)時(shí)器關(guān)閉；第71頁,共124頁，2024年2月25日，星期天對(duì)象屬性名屬性值計(jì)時(shí)器名稱tmrMoveEnabledFalseInterval100第72頁,共124頁，2024年2月25日，星期天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程序代碼第73頁,共124頁，2024年2月25日，星期天圖像框向右移動(dòng)

imgCar.Left=imgCar.Left+100

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

圖像框向上移動(dòng)imgCar.Top=imgCar.Top-100程序說明向左上角移動(dòng)？第74頁,共124頁，2024年2月25日，星期天課堂練習(xí)1向左移動(dòng)向上移動(dòng)均停止移動(dòng)第75頁,共124頁，2024年2月25日，星期天課堂練習(xí)2單擊單擊“黃”、“綠”，顯示相應(yīng)的燈

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

True---程序運(yùn)行時(shí)可通過Tab鍵選定TabIndex屬性響應(yīng)Tab鍵的順序，值從0開始通常TabStop與TabIndex聯(lián)合使用程序說明第83頁,共124頁，2024年2月25日，星期天圖片框比圖像框的功能強(qiáng)

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

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

程序說明第84頁,共124頁，2024年2月25日，星期天PrivateSubcmdShow_Click()DimrAsInteger,gAsInteger,bAsIntegerr=Val(txtRed.Text)g=Val(txtGreen.Text)b=Val(txtBlue.Text)picColor.BackColor=RGB(r,g,b)EndSub合成顏色，并賦給圖片框的背景色程序代碼第85頁,共124頁，2024年2月25日，星期天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)程序說明第86頁,共124頁，2024年2月25日，星期天2、通過輸入框輸入信息【例2.14】修改例2.13，單擊輸入按鈕時(shí)彈出 輸入框輸入紅、綠、藍(lán)三原色值。2.5數(shù)據(jù)輸入改為標(biāo)簽第87頁,共124頁，2024年2月25日，星期天InputBox函數(shù)產(chǎn)生輸入對(duì)話框接收并返回用戶輸入的字符串調(diào)用格式

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

例：a=InputBox(“aaa”,“bb”,“c”)程序說明提示信息輸入框標(biāo)題默認(rèn)輸入值第88頁,共124頁，2024年2月25日，星期天InputBox函數(shù)單擊按鈕后關(guān)閉輸入框單擊“確定”按鈕，將輸入數(shù)據(jù)以字符串形式返回給變量a單擊“取消”按鈕，系統(tǒng)將返回空串例：a=InputBox(“aaa”,“bb”,“c”)程序說明第89頁,共124頁，2024年2月25日，星期天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程序代碼第90頁,共124頁，2024年2月25日，星期天PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsIntegerr=lblRed.Caption

g=lblGreen.Captionb=lblBlue.CaptionpicColor.BackColor=RGB(r,g,b)EndSub程序代碼能否刪除？第91頁,共124頁，2024年2月25日，星期天3、通過滾動(dòng)條輸入數(shù)據(jù)【例2.15】修改例2.13，通過拖動(dòng)滾動(dòng)條輸入 紅、綠、藍(lán)三原色的值。hsb2.5數(shù)據(jù)輸入水平滾動(dòng)條第92頁,共124頁，2024年2月25日，星期天對(duì)象屬性名屬性值水平滾動(dòng)條1~3LargeChange5Max255Min0SmallChange1第93頁,共124頁，2024年2月25日，星期天程序說明滾動(dòng)條有水平滾動(dòng)條和垂直滾動(dòng)條兩種

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

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

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

Value---滑塊當(dāng)前位置所代表的值，即 滾動(dòng)條當(dāng)前值vsb第94頁,共124頁，2024年2月25日，星期天程序說明滾動(dòng)條有水平滾動(dòng)條和垂直滾動(dòng)條兩種

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

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

LargeChange---單擊滾動(dòng)條白色區(qū)域 時(shí)，Value值改變量第95頁,共124頁，2024年2月25日，星期天滾動(dòng)條改變滾動(dòng)條Value值的操作

單擊或

SmallChange

直接拖動(dòng)滑塊單擊滑塊與箭頭間的位置LargeChange程序說明第96頁,共124頁，2024年2月25日，星期天程序說明滾動(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事件第97頁,共124頁，2024年2月25日，星期天程序代碼PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsInteger

r=hsbRed.Valueg=hsbGreen.Valueb=hsbBlue.ValuepicColor.BackColor=RGB(r,g,b)EndSub如何即時(shí)顯示顏色變化？第98頁,共124頁，2024年2月25日，星期天程序運(yùn)行時(shí)綜合實(shí)例2（課時(shí)不夠時(shí)留作業(yè)）

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

停止交換

調(diào)整交換速度

返回初始窗體

第99頁,共124頁，2024年2月25日，星期天程序運(yùn)行時(shí)單擊“放大”按鈕輸入文字并選中部分文字顯示放大后的文字

返回初始窗體

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

第100頁,共124頁，2024年2月25日，星期天程序運(yùn)行時(shí)單擊“退出”按鈕結(jié)束程序綜合實(shí)例2（課時(shí)不夠時(shí)留作業(yè)）

第101頁,共124頁，2024年2月25日，星期天程序說明圖片框中顯示藝術(shù)字在Word中設(shè)計(jì)藝術(shù)字，復(fù)制在VB中選中圖片框，粘貼為命令按鈕設(shè)置熱鍵

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