Visual-Basic程序設計(第3版)-電子教案省公開課一等獎全國示范課微課金獎課件

第3章簡單VB程序設計第1頁

窗體3.1命令按鈕3.2

標簽3.3文本框3.4賦值語句3.5第2頁

注釋語句、結束語句3.9程序調試3.10消息框3.8輸入框3.7Print方法3.6第3頁

VB應用程序執(zhí)行是由事件驅動，當用戶觸發(fā)某一事件時執(zhí)行對應事件過程，這些事件過程之間并沒有特定執(zhí)行次序。第4頁

但在每一個事件過程內部，是有一定執(zhí)行控制流程，這就是通常所說三種基本結構：次序結構、分支結構、循環(huán)結構。次序結構是最簡單一個結構，該結構按語句排列先后次序執(zhí)行。第5頁

本章主要內容有：VB最基本幾個對象；與次序結構相關語句和方法。經過本章學習，能夠進行簡單VB程序設計。第6頁3.1窗體創(chuàng)建VB應用程序第一步是創(chuàng)建用戶界面。用戶界面基礎是窗體，各種控件對象必須建立在窗體上。

開啟VB后，即在屏幕上顯示一個窗體，如圖3-1所表示。第7頁

圖標標題最大化按鈕最小化按鈕關閉按鈕窗口區(qū)邊框

圖3-1窗體第8頁

3.1.1窗體主要屬性窗體屬性決定了窗體外觀和操作。對象大部分屬性可用兩種方法來設置：經過屬性窗口設置和經過程序代碼設置。有少許屬性不能在程序代碼中設置。第9頁

（1）Caption屬性設置窗體標題內容。標題內容應概括說明本窗體作用。（2）MaxButton屬性和MinButton屬性

MaxButton為True，窗體右上角有最大化按鈕；為False時，無最大化按鈕。MinButton屬性為True，窗體右上角有最小化按鈕；為False時，無最小化按鈕。第10頁

（3）BorderStyle屬性決定窗體邊框式樣及窗體是否能調整大小。（4）BackColor屬性和ForeColor屬性

BackColor屬性設置窗體背景顏色；ForColor屬性設置窗體前景顏色。窗體前景顏色是執(zhí)行Print方法時所顯示文本顏色。第11頁

（5）Height屬性和Width屬性

設置窗體初始高度和寬度。其單位為Twip。1Twip=1/20點=1/1440英寸=1/567厘米。第12頁

（6）Left屬性和Top屬性

用于設置窗體左邊框距屏幕左邊界距離和窗體頂邊距屏幕頂端距離。其單位為Twip。第13頁

（7）Name（名稱）屬性設置窗體名稱，在程序代碼中用這個名稱引用該窗體。新建工程時，窗體名稱缺省為Form1；添加第二個窗體，其名稱缺省為Form2，以這類推。為了便于識別，用戶通常給Name屬性設置一個有實際意義名稱。第14頁

（8）Enabled屬性

屬性值為True或False，設置對象是否能夠對用戶產生事件做出反應。普通在程序中設置，用于暫時屏蔽對窗體或其它控件控制。第15頁

（9）Moveable屬性

屬性值為True或False，設置是否能夠移動窗體。第16頁

（10）Visible屬性

屬性值為True或False，設置窗體是否被顯示。用戶可用該屬性在程序代碼中控制窗體隱現。第17頁

（11）Picture屬性

設置在窗體中顯示圖片。單擊Picture屬性右邊按鈕，彈出“加載圖片”對話框，用戶可選擇一個圖片文件作為窗體背景圖片。若在程序中設置該屬性值，需要使用LoadPicture函數。第18頁

（12）WindowState屬性

設置窗體開啟后大小狀態(tài)。它有三個可選值：0-Normal:窗體大小由Height和Width屬性決定。1-Minimized:窗體最小化成圖標。2-Maximized:窗體最大化，充滿整個屏幕。第19頁

在VB中，即使不一樣對象有不一樣屬性集合，但有一些屬性，如Name、Enabled、Visible、Height、Width、Left、Top等，其它控件也含有，且含有相同作用。在后續(xù)章節(jié)中，我們主要介紹各種控件慣用特殊屬性。第20頁

3.1.2事件窗體最慣用事件有三種：Click（單擊）、DbClick（雙擊）、Load（裝入）。第21頁

（1）Click事件程序運行后，單擊窗體觸發(fā)該事件。（2）DbClick事件程序運行后，雙擊窗體觸發(fā)該事件。第22頁

（3）Load事件Load事件是窗體被裝入內存工作區(qū)時觸發(fā)事件。假如這個事件過程存在，就馬上執(zhí)行它。Load事件過程通慣用于開啟程序時對屬性、變量初始化，裝載數據等。

第23頁

【例3.1】窗體上無最大化最小化按鈕，程序運行后，在窗體上裝入一幅圖片作為背景；當單擊窗體時，窗體變寬；當雙擊窗體時，則退出。程序運行界面如圖3-2所表示。第24頁

（a）Load事件（b）Click事件

圖3-2例3.1運行界面第25頁

屬性設置如表3-1所表示。對象屬性設置Form1Caption練習窗體事件MaxButtonFalseMinButtonFalse表3-1例3.1對象屬性設置第26頁

事件過程以下：PrivateSubForm_Load()'裝入圖片Form1.Picture=LoadPicture("c:\pic\Changcheng.wmf")EndSubPrivateSubForm_click()'單擊窗體

第27頁

Form1.Width=Form1.Width+1000EndSubPrivateSubForm_DblClick()'雙擊窗體EndEndSub第28頁

說明：上機時，可經過查找文件方法找一個圖片文件，參考本例中格式代如即可。第29頁3.2命令按鈕

在VB應用程序中，命令按鈕是使用最多對象之一，常慣用它接收用戶操作信息，觸發(fā)對應事件過程，以實現指定功效。 第30頁

3.2.1屬性（1）Caption屬性

設定命令按鈕上顯示文本。（2）Default屬性該屬性用于設置默認命令按鈕。當Default屬性設置為True時，按ENTER鍵相當于用鼠標單擊了該按鈕。第31頁

（3）Style屬性和Picture屬性命令按鈕上除了能夠顯示文字外，還能夠顯示圖形。若要顯示圖形，首先應將Style屬性設置為1，然后在Picture屬性中設置要顯示圖形文件。類似，若要設置命令按鈕BackColor（背景色），也應將Style屬性設置為1。第32頁

Style屬性可設置為：0-Standard：標準，命令按鈕上不能顯示圖形。1-Graphical：圖形，命令按鈕上能夠顯示圖形，也能夠顯示文字。第33頁

（4）Value屬性

該屬性只能在程序運行期間引用或設置。True表示被按下，False（默認）表示未被按下。在代碼中可經過設置Value屬性為True，來觸發(fā)命令按鈕Click事件。比如，利用下面代碼，可經過程序來選擇命令按鈕，并觸發(fā)命令按鈕Click事件。Command2.Value=True第34頁

3.2.2事件最慣用事件是Click事件。第35頁3.3標簽標簽（Label）主要用于顯示不需要用戶修改文本。所以，標簽能夠用來標示窗體及窗體上對象，如為文本框、列表框等添加描述性文字，或者作為窗體說明文字。第36頁

3.3.1屬性（1）Caption屬性設置標簽要顯示內容。它是標簽主要屬性。（2）BorderStyle屬性默認值為0，標簽無邊框；設置為1時，標簽有立體邊框。第37頁

（3）Autosize屬性

該屬性用于設置標簽是否自動改變尺寸以適應其內容。設置為True時，伴隨Caption內容改變，自動調整標簽大小，而且不換行；設置為False時，標簽保持設計時大小，這時假如內容太長，只能顯示一部分。默認值為False。第38頁

（4）Alignment屬性

確定標簽中內容對齊方式，有三種可選值：0-LeftJuseify：默認值，左對齊。1-RightJuseify：右對齊。2-Center：居中對齊。第39頁

（5）BackStyle屬性

該屬性用于設置背景是否透明。默認值為1，不透明；設為0時，透明。所謂透明，是指無背景色。

第40頁

3.3.2事件慣用Click，DbClick事件。【例3.2】修改例3.1，在圖片上加提醒信息“請單擊圖片”，程序其它功效不變。程序運行界面如圖3-2所表示。第41頁

圖3-3例3.2運行界面第42頁

操作以下：在窗體上添加一個標簽，將其Caption屬性設置為“請單擊圖片”，BackStyle屬性設置為0（透明），程序代碼不變。第43頁3.4文本框文本框（TextBox）在窗體中為用戶提供一個既能顯示文本又能編輯文本區(qū)域第44頁

3.4.1屬性（1）Text屬性

設置文本框中顯示內容。它是文本框最主要屬性。（2）Locked屬性設置文本框中內容是否可編輯。默認值為False，表示可編輯，當設置為True時，不可編輯，此時文本框作用相當于標簽。第45頁

（3）Maxlength屬性

設置文本框中允許輸入最大字符數。假如輸入字符數超出Maxlength設定數目后，系統(tǒng)將不接收超出部分字符，并發(fā)出嘟嘟聲。該屬性默認值為0，表示無限制。第46頁

（4）MultiLine屬性

決定文本框是否允許接收多行文本。若設置為True，文本框可接收多行文本，當輸入文本超出文本框邊界時，會自動換行。默認值為False，文本框中只能輸入一行文本。第47頁

（5）PassWordChar屬性

當MultiLine為False時，該屬性可設置顯示在文本框中替換符。比如，PassWordChar設置為“*”，那么不論用戶輸入什么字符，文本框中顯示只是“*”，但文本框接收還是用戶實際輸入字符。設置該屬性主要用于輸入口令。第48頁

（6）ScrollBars屬性

決定文本框中是否有滾動條。只有當MultiLine屬性為True時，文本框才能加滾動條。第49頁

3.4.2事件文本框除支持Click，DbClick事件，慣用還有Change，LostFocus事件。第50頁

1.Change事件當用戶輸入新內容，或程序對文本框Text屬性重新賦值，從而改變文本框Text屬性時觸發(fā)該事件。第51頁

2.LostFocus事件當用戶按下<Tab>鍵時光標離開文本框，或用鼠標選擇其它對象時觸發(fā)該事件，稱為“失去焦點”事件。焦點是對象接收用戶鼠標或鍵盤輸入能力。當對象含有焦點時，可接收用戶輸入。通慣用該事件過程對文本框中內容進行檢驗和確認。第52頁

3.4.3方法文本框最慣用方法是SetFocus，使用該方法可把光標移到指定文本框中，使之取得焦點。當使用多個文本框時，用該方法可把光標移到所需要文本框中。其使用格式為：對象.SetFocus

第53頁

【例3.3】程序運行后，伴隨用戶輸入，標簽中同時顯示出用戶對文本框內容更新次數。運行效果如圖3-4所表示。第54頁

圖3-4例3.3運行效果第55頁

（1）界面設計在窗體上建立一個文本框、一個標簽。設置各對象屬性，如表3-2所表示。第56頁

對象屬性設置Form1Caption文本框應用示例Text1text空MultiLineTrueLabel1Caption空BorderStyle1Alignment2Font字體大小取二號表3-2例3.3對象屬性設置第57頁

（2）編寫事件過程以下：PrivateSubText1_Change()Statici%i=i+1Label1.Caption=iEndSub第58頁3.5賦值語句賦值語句是VB程序最慣用、最基本語句，它能為變量提供數據。另外，若要在程序代碼中設置對象屬性，也是使用賦值語句。第59頁

賦值語句有兩種格式：格式1：變量名=表示式格式2：[對象名.]屬性名=表示式賦值語句作用是：首先計算“=”右邊表示式值，然后將該值賦給“=”左邊變量或對象屬性。在格式2中，若對象名省略，則默認對象為當前窗體。第60頁

比如：x=2'把2賦給xy=x*3'計算x*3值，得6，把6賦給yx=x+1'計算x+1值，得3，把3賦給xa$="Hello"'把“Hello”賦給a$Text1.Text="你好！"'把“你好！”賦給Text1Text屬性第61頁

這里還要說明一下賦值語句中類型問題。通常，在使用時應使表示式值類型與變量（或對象屬性）類型相同，以防止出現“類型不匹配”錯誤。不過，一些情況下，VB允許“=”兩邊類型不相同。第62頁

比如：dimx!,y%,z$x=“12.5”‘把數值形式字符串賦給數值變量y=34.24‘把單精度數賦給整型變量，此時截去小數部分z=6‘把整數賦給實型變量第63頁

以上三種情況都是賦值相容。在賦值相容前提下，當“=”兩邊類型不相同時，VB自動將表示式值類型轉換成“=”左邊變量（或對象屬性）類型，這種方式稱為“向左看齊”。上例中，實際賦給x、y、z值分別是12.5、34、6.0。第64頁

【例3.4】已知三角形三邊a，b，c，長，求三角形面積，輸出三條邊長及面積。第65頁

分析：應用程序界面應該能讓用戶輸入三邊長，程序在接收用戶輸入數據后，利用數學公式對數據進行計算，并把結果輸出到屏幕上。已知三角形三邊a，b，c，長，求三角形面積公式為：

其中p=(a+b+c)/2。第66頁

（1）界面設計在窗體上建立五個標簽、三個文本框和一個命令按鈕。設置各對象屬性，如表3-3所表示。第67頁

對象屬性設置Form1caption計算三角形面積Label1caption請輸入三邊Label2captionaLabel3captionbLabel4captioncLabel5caption空Text1text空Text2text空Text3text空Command1caption計算表3-3例3.4對象屬性設置第68頁

設計完成界面如圖3-5所表示第69頁

圖3-5例3.4界面第70頁

（2）編寫事件過程以下：PrivateSubCommand1_Click()Dima!,b!,c!,p!,s!a=Text1.Textb=Text2.Textc=Text3.Textp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Label5.Caption=sEndSub第71頁3.6Print方法

Print是輸出數據一個主要方法。第72頁

3.6.1Print格式及功效格式：[對象名.]Print[表示式列表]。功效：在對象上輸出表示式值。第73頁

（1）對象名：能夠是Form（窗體）、Debug（馬上窗口）、Picture（圖片框）、Printer（打印機）。省略此項，表示在當前窗體上輸出。第74頁

比如：Print"23*2="；23*2'在當前窗體上輸出23*2=46Picture1.Print"Good"'在圖片框Picture1上輸出GoodPrinter.Print"Morning"'在打印機上輸出Morning第75頁

（2）表示式列表：是一個或多個表示式，若為多個表示式，則各表示式之間“，”或“；”隔開。省略此項，則輸出一空行。第76頁

（3）用“，”分隔各表示式時，各項在以14個字符位置為單位劃分出區(qū)段中輸出，每個區(qū)段輸出一項；用“；”分隔各表示式時，各項按緊湊格式輸出。第77頁

（4）假如在語句行末尾有“；”，則下一個Print輸出內容，將緊跟在當前Print輸出內容后面；假如在語句行末尾有“，”，則下一個Print輸出內容，將在當前Print輸出內容下一區(qū)段輸出；假如在語句行末尾無分隔符，則輸出完本語句內容后換行，即在新一行輸出下一個Print內容。第78頁

比如：Print1；2；3Print4，5，Print6Print7，8PrintPrint9，10第79頁

輸出結果為：12345678910第80頁

（4）定位輸出

Print方法中，能夠使用Tab函數對輸出項進行定位。比如：PrintTab(10);"姓名";Tab(25);"年紀"則“姓名”和“年紀”分別從當前行第10列和第25列開始輸出。第81頁

輸出結果以下：姓名年紀在使用Tab函數時，要將輸出內容放在Tab函數后面，并用“；”隔開。第82頁

Tab函數格式為Tab(n)，其中n為整數表示式，用它來指定輸出起始位置。Print方法中，還能夠使用Spc函數，比如：Print"后面有8個空格"；Spc(8);"前面有8個空格"第83頁

輸出結果以下：后面有8個空格前面有8個空格Spc函數格式為Spc(n)，其中n為整數表示式，表示在下一個輸出項之前插入空格數，Spc函數與各輸出項之間必須用“；”隔開。第84頁

3.6.2Cls方法格式：[對象名.]Cls功效：Cls方法去除Print方法顯示文本或在圖片框中顯示圖形，并把輸出位置移到對象左上角。格式中對象能夠是窗體或圖片框，假如省略對象名，則去除當前窗體顯示內容。第85頁3.7輸入框

我們知道，文本框能夠接收用戶輸入。輸入框也能夠接收用戶輸入，不過其格調和使用方法有別于文本框。VB提供InputBox函數可生成輸入框。比如：p$=InputBox（"請輸入密碼"，"密碼框"）執(zhí)行該語句后，屏幕上顯示如圖3-6所表示輸入框。第86頁

標題文本區(qū)提醒圖3-6輸入框圖3-6輸入框第87頁

用戶可在文本區(qū)輸入數據，然后按“確定”按鈕，函數返回值是用戶在文本區(qū)輸入數據，其類型為字符型。假如用戶然后按“取消”按鈕，則函數返回值是空字符串。第88頁

每執(zhí)行一次InputBox函數，用戶只能輸入一個數據，另外，輸入框樣式是固定，用戶不能改變。用戶能改變是輸入框“提醒”和“標題”內容，“提醒”和“標題”都是字符串表示式。第89頁

InputBox函數普通格式：InputBox（提醒[，標題][，缺省值][，x坐標位置][，y坐標位置]）第90頁

其中各參數含義以下：“提醒”：必選項。字符串表示式，在對話框中作為提醒信息。若要在多行顯示提醒信息，則能夠在各行之間用vbNewLine來分隔，vbNewLine是代表換行常量。第91頁

比如：InputBox("第一行"&vbNewLine&"第二行")“標題”：字符串表示式，在對話框中標題區(qū)顯示，若省略，則標題為應用程序名。第92頁

“缺省值”：字符串表示式，在沒有其它輸入時作為缺省值?！皒坐標位置”、“y坐標位置”：整數表示式。坐標確定對話框左上角在屏幕上位置，屏幕左上角為坐標原點，單位為Twip。1Twip==1/567厘米。第93頁

需要注意是：各項參數次序必須一一對應，除了“提醒”不能省略外，其余各項均可省略，但省略部分也要用逗號占位符跳過。第94頁

比如：f$=InputBox("第一行"&vbNewLine&"第二行",,"ddd",200,200)【例3.5】已知圓半徑，求圓周長和圓面積。第95頁

（1）界面設計在窗體上建立兩個標簽，兩個文本框，兩個命令按鈕。設置各對象屬性，如表3-4所表示。第96頁

對象屬性設置Form1Caption求圓周長和圓面積Text1text空Text2text空Label1Caption圓周長Label2Caption圓面積Command1Caption輸入半徑Command2Caption結束表3-4例3.5對象屬性設置第97頁

設計完成界面如圖3-7所表示。第98頁

圖3-7例3.5界面第99頁

（2）編寫事件過程以下：PrivateSubCommand1_Click()Dimr!,c!,a!r=InputBox("請輸入半徑"，"輸入框")c=2*r*3.14159a=3.14159*r^2Text1.Text=cText2.Text=aEndSub第100頁

PrivateSubCommand2_Click()EndEndSub第101頁3.8消息框執(zhí)行VB提供MsgBox函數，能夠在屏幕上出現一個消息框，消息框通知用戶消息并等候用戶來選擇消息框中按鈕，MsgBox函數返回一個與用戶所選按鈕相對應整數。第102頁

MsgBox函數格式：MsgBox（提醒，[，按鈕數值][，標題]）比如：inta=MsgBox（“密碼錯”，21，“密碼查對”）

執(zhí)行該語句后，屏幕上顯示如圖3-10所表示消息框。第103頁

圖3-10消息框示例第104頁

在MsgBox函數格式中，“提醒”和“標題”含義同InputBox函數?！鞍粹o數值”是三個數值之和，這三個數值分別代表鈕數目及類型，使用圖標樣式，及缺省按鈕是什么。教材中表3-5，表3-6，表3-7，分別列出這三個數值含義。第105頁

本例“按鈕數值”21，是從上面三個表中各取一個數相加而得。注意：每個表只能取一個數。系統(tǒng)會自動把它分解成份別屬于上面三個表中三個值5，16，0。這種分解是唯一。其含義是：消息框中有“×”圖標，有“重試”及“取消”兩個按鈕，缺省按鈕是“重試”按鈕。第106頁

當用戶單擊消息框中一個按鈕后，消息框即從屏幕上消失。在上面語句中，將函數返回值賦給了變量inta，在程序中可引用inta作對應處理。第107頁

MsgBox函數返回值是依據用戶單擊哪個按鈕而定，見表3-8。通常，在程序中要依據MsgBox函數返回值不一樣作不一樣處理，這需要用到第四章中介紹選擇結構方面知識。第108頁

MsgBox也能夠寫成語句形式，比如：MsgBox"密碼錯",,"密碼查對

執(zhí)行此語句也產生一個消息框，如圖3-11所表示。第109頁

圖3-11密碼查對消息第110頁

MsgBox語句沒有返回值，所以慣用于比較簡單信息提醒。第111頁3.9注釋語句、結束語句3.9.1注釋語句為了提升程序可讀性，通常在程序適當位置加上必要注釋。在VB中用“’”或Rem來標識一條注釋語句，格式為：第112頁

’|Rem<注釋內容>比如：Rem編寫PrivateSubForm_click()Dima$’定義一個字符串變量a="VisualBasic6.0漢字版"’為變量賦值printa’打印a內容EndSub第113頁

3.9.2結束語句格式：EndEnd語句用來結束程序執(zhí)行，并關閉已打開文件。第114頁

比如：PrivateSubCommand3_Click()EndEndSub第115頁3.10程序調試在程序中發(fā)覺錯誤并排除錯誤過程叫做程序調試。VB提供了豐富調試伎倆，能夠方便跟蹤程序運行，排除程序錯誤。第116頁

3