講課次上機次

講課次上機次第1頁，共124頁，2023年，2月20日，星期二2.1結(jié)構(gòu)化程序設(shè)計的三種結(jié)構(gòu)

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

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

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

第2頁，共124頁，2023年，2月20日，星期二

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

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

推薦使用的控件前綴

txt

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

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

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

結(jié)束程序第12頁，共124頁，2023年，2月20日，星期二PrivateSubcmdCal_Click()

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

’計算圓的體積

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

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

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

DimvAsDouble

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

PrivateSubForm_Load()

DimaAsInteger

DimbAsInteger

a=Int(Rnd*900)+100

b=Int(Rnd*900)+100

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

隨機產(chǎn)生3位整數(shù)Randomize有不足之處程序代碼第19頁，共124頁，2023年，2月20日，星期二產(chǎn)生隨機數(shù)的方法

Rnd：產(chǎn)生一個(0,1)之間的隨機數(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頁，2023年，2月20日，星期二PrivateSubcmdKey_Click()DimanAsLongan=Val(lblOp1.Caption)* Val(lblOp2.Caption)lb1Key.Caption=anEndSub

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

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

Dim變量名As類型第22頁，共124頁，2023年，2月20日，星期二程序說明字符串連接運算符&將兩個字符串進行連接“My”&“Name”值為“MyName”“123”&“456”值為“123456”&與前后兩個字符串間必須用空格隔開

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

的不同第23頁，共124頁，2023年，2月20日，星期二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頁，2023年，2月20日，星期二【例2.4】假設(shè)有字符串a(chǎn)，其值為“ABCDefg”，單擊“確定”按鈕后，在窗體上輸出不同的字符串。第25頁，共124頁，2023年，2月20日，星期二PrivateSubcmdOK_Click()DimaAsString,bAsStringDimcAsString,dAsStringa="ABCDefg"b=Left(a,3)c=Mid(a,2,3) d=LCase(a) Print"字符串："&aPrint"從左起取3個字符："&bPrint"從第2個字符起取3個字符："&cPrint"轉(zhuǎn)換為小寫字母："&dEndSub從左起截取3個字符從第2個字符開始截取3個字符大寫字母轉(zhuǎn)換為小寫字母在窗體中輸出字符串程序代碼聲明字符型變量a,b,c,d第26頁，共124頁，2023年，2月20日，星期二字符串：用雙引號括起來的一串字符， 可包含所有西文字符和漢字

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

Dima，bAsString

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

Left、Right、Mid、LCase、UCase、Len程序說明第27頁，共124頁，2023年，2月20日，星期二運算符含義舉例+加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ù)號-12.3^乘方2^3的結(jié)果為82.2.3算術(shù)運算符與表達式

第28頁，共124頁，2023年，2月20日，星期二

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

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

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

；參加算術(shù)運算的操作數(shù)應(yīng)是數(shù)值型數(shù)據(jù)，對于數(shù)字字符或邏輯型數(shù)據(jù)則需先進行轉(zhuǎn)換。說明第29頁，共124頁，2023年，2月20日，星期二

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

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

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

說明第30頁，共124頁，2023年，2月20日，星期二

算術(shù)表達式

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

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

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

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

變量名=表達式

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

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

Integer,ShiftAsInteger,XAs Single,YAsSingle)

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

imgDuck.Picture=LoadPicture("")

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

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

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

輸入數(shù)字后自動計算每位數(shù)字之和并顯示第43頁，共124頁，2023年，2月20日，星期二對象屬性名屬性值文本框1（名稱）txtOpMaxLength

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

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

EndSubDimxAsInteger:DimaAsInteger

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

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

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

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

【例2.9】輸出陰影文字1、通過標(biāo)簽或文本框控件輸出文本實現(xiàn)手段第56頁，共124頁，2023年，2月20日，星期二對象屬性名屬性值標(biāo)簽1Caption實現(xiàn)陰影效果BorderStyle1-FixedSingle

Left、Top

240、465

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

0-TransparentBorderStyle0-NoneForeColor白色Left、Top330、525第57頁，共124頁，2023年，2月20日，星期二當(dāng)控件間位置重疊時，位于上層的控件會遮擋住下層控件；可通過設(shè)置上層控件的BackStyle屬性使其背景模式變成透明以露出下層控件；程序說明第58頁，共124頁，2023年，2月20日，星期二PrivateSubcmdShow_Click()lbl2.Visible=True

cmdHide.Enabled=TruecmdShow.Enabled=False

EndSub

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

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

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

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

4、通過圖像框輸出圖片第68頁，共124頁，2023年，2月20日，星期二

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

EndSub

PrivateSubcmdStop_Click()

EndSub

PrivateSubtmrMove_Timer()

EndSub啟動計時器關(guān)閉計時器圖片向左移動tmrMove.Enabled=TruetmrMove.Enabled=FalseimgCar.Left=imgCar.Left–100程序代碼第73頁，共124頁，2023年，2月20日，星期二圖像框向右移動

imgCar.Left=imgCar.Left+100

圖像框向下移動imgCar.Top=imgCar.Top+100

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

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

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

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

只用于顯示圖片時一般不用圖片框

程序說明第84頁，共124頁，2023年，2月20日，星期二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頁，2023年，2月20日，星期二RGB函數(shù)根據(jù)紅、綠、藍三原色產(chǎn)生合成色調(diào)用格式：RGB（red,green,blue）red、green、blue的取值范圍均是0到255，代表紅、綠、藍三原色的成分黑色：RGB(0,0,0)白色：RGB(255,255,255)程序說明第86頁，共124頁，2023年，2月20日，星期二2、通過輸入框輸入信息【例2.14】修改例2.13，單擊輸入按鈕時彈出 輸入框輸入紅、綠、藍三原色值。2.5數(shù)據(jù)輸入改為標(biāo)簽第87頁，共124頁，2023年，2月20日，星期二InputBox函數(shù)產(chǎn)生輸入對話框接收并返回用戶輸入的字符串調(diào)用格式

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

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

DimrAsInteger

DimgAsIntegerDimbAsIntegerr=lblRed.Caption

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

滾動條常用屬性

Min---滾動條最小取值

Max---滾動條最大取值

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

滾動條常用屬性

SmallChange---單擊滾動條左右箭頭 時，Value值改變量

LargeChange---單擊滾動條白色區(qū)域 時，Value值改變量第95頁，共124頁，2023年，2月20日，星期二滾動條改變滾動條Value值的操作

單擊或

SmallChange

直接拖動滑塊單擊滑塊與箭頭間的位置LargeChange程序說明第96頁，共124頁，2023年，2月20日，星期二程序說明滾動條滾動條主要事件

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

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

產(chǎn)生Scroll事件時也必然產(chǎn)生Change事件第97頁，共124頁，2023年，2月20日，星期二程序代碼PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsInteger

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

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

停止交換

調(diào)整交換速度

返回初始窗體

第99頁，共124頁，2023年，2月20日，星期二程序運行時單擊“放大”按鈕輸入文字并選中部分文字顯示放大后的文字

返回初始窗體

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

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

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

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