簡(jiǎn)單程序設(shè)計(jì)精品課件

1、簡(jiǎn)單程序設(shè)計(jì)第1頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 窗 體3.1命令按鈕3.2 標(biāo) 簽3.3文本框3.4賦值語(yǔ)句3.5第2頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 注釋語(yǔ)句、結(jié)束語(yǔ)句3.9程序調(diào)試3.10消息框3.8輸入框3.7 Print方法3.6第3頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 VB應(yīng)用程序的執(zhí)行是由事件驅(qū)動(dòng)的，當(dāng)用戶觸發(fā)某一事件時(shí)執(zhí)行相應(yīng)的事件過(guò)程，這些事件過(guò)程之間并沒(méi)有特定的執(zhí)行次序。第4頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 但在每一個(gè)事件過(guò)程內(nèi)部，是有一定的執(zhí)行控制流程的，這就是通常所說(shuō)的三

2、種基本結(jié)構(gòu)：順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。順序結(jié)構(gòu)是最簡(jiǎn)單的一種結(jié)構(gòu)，該結(jié)構(gòu)按語(yǔ)句排列的先后順序執(zhí)行。第5頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 本章的主要內(nèi)容有：VB最基本的幾個(gè)對(duì)象；與順序結(jié)構(gòu)有關(guān)的語(yǔ)句和方法。通過(guò)本章的學(xué)習(xí)，可以進(jìn)行簡(jiǎn)單VB程序設(shè)計(jì)。第6頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二3.1 窗體 創(chuàng)建VB應(yīng)用程序的第一步是創(chuàng)建用戶界面。用戶界面的基礎(chǔ)是窗體，各種控件對(duì)象必須建立在窗體上。 啟動(dòng)VB后，即在屏幕上顯示一個(gè)窗體，如圖3-1所示。第7頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖標(biāo)標(biāo)題最大化按鈕最小化按鈕關(guān)閉按鈕窗

3、口區(qū)邊框圖3-1 窗體第8頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.1.1 窗體的主要屬性 窗體的屬性決定了窗體的外觀和操作。對(duì)象的大部分屬性可用兩種方法來(lái)設(shè)置：通過(guò)屬性窗口設(shè)置和通過(guò)程序代碼設(shè)置。有少量的屬性不能在程序代碼中設(shè)置。第9頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （1）Caption 屬性 設(shè)置窗體的標(biāo)題內(nèi)容。標(biāo)題內(nèi)容應(yīng)概括說(shuō)明本窗體作用。（2）MaxButton 屬性和 MinButton 屬性 MaxButton為True，窗體右上角有最大化按鈕；為False時(shí)，無(wú)最大化按鈕。MinButton 屬性為True，窗體右上角有最小化按鈕；

4、為False時(shí)，無(wú)最小化按鈕。第10頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （3）BorderStyle 屬性 決定窗體邊框式樣及窗體是否能調(diào)整大小。（4）BackColor屬性和ForeColor 屬性 BackColor屬性設(shè)置窗體的背景顏色；ForColor 屬性設(shè)置窗體的前景顏色。窗體的前景顏色是執(zhí)行Print方法時(shí)所顯示文本的顏色。第11頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （5）Height屬性和Width屬性 設(shè)置窗體的初始高度和寬度。其單位為Twip。1Twip=1/20點(diǎn)=1/1440英寸=1/567厘米。（6）Left屬性和Top屬

5、性 用于設(shè)置窗體左邊框距屏幕左邊界的距離和窗體頂邊距屏幕頂端的距離。其單位為Twip。第12頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （7）Name（名稱）屬性 設(shè)置窗體的名稱，在程序代碼中用這個(gè)名稱引用該窗體。新建工程時(shí)，窗體的名稱缺省為 Form1；添加第二個(gè)窗體，其名稱缺省為 Form2，以此類推。為了便于識(shí)別，用戶通常給 Name 屬性設(shè)置一個(gè)有實(shí)際意義的名稱。第13頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （8）Enabled屬性 屬性值為True或False，設(shè)置對(duì)象是否能對(duì)用戶產(chǎn)生的事件做出反應(yīng)。一般在程序中設(shè)置，用于臨時(shí)屏蔽對(duì)窗體或其他控件的

6、的控制。（9）Moveable屬性 屬性值為True或False，設(shè)置是否可以移動(dòng)窗體。 （10）Visible屬性 屬性值為True或False，設(shè)置窗體是否被顯示。用戶可用該屬性在程序代碼中控制窗體的隱現(xiàn)。第14頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （11）Picture屬性 設(shè)置在窗體中顯示的圖片。單擊Picture屬性右邊的按鈕，彈出“加載圖片”對(duì)話框，用戶可選擇一個(gè)圖片文件作為窗體的背景圖片。若在程序中設(shè)置該屬性的值，需要使用LoadPicture函數(shù)。第15頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （12）WindowState屬性 設(shè)置窗體

7、啟動(dòng)后的大小狀態(tài)。它有三個(gè)可選值：0-Normal:窗體大小由Height和Width屬性決定。1-Minimized:窗體最小化成圖標(biāo)。2-Maximized:窗體最大化，充滿整個(gè)屏幕。第16頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 在VB中，雖然不同的對(duì)象有不同的屬性集合，但有一些屬性，如Name 、Enabled、Visible、Height、Width、Left、Top等，其他控件也具有，且具有相似的作用。在后續(xù)的章節(jié)中，我們主要介紹各種控件常用的特殊屬性。第17頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.1.2 事件 窗體最常用的事件有三種：Cl

8、ick（單擊）、DbClick（雙擊）、Load（裝入）。第18頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （1）Click事件 程序運(yùn)行后，單擊窗體觸發(fā)該事件。（2）DbClick事件 程序運(yùn)行后，雙擊窗體觸發(fā)該事件。 （3）Load事件 Load事件是窗體被裝入內(nèi)存工作區(qū)時(shí)觸發(fā)的事件。如果這個(gè)事件過(guò)程存在，就馬上執(zhí)行它。Load事件過(guò)程通常用于啟動(dòng)程序時(shí)對(duì)屬性、變量的初始化，裝載數(shù)據(jù)等。第19頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 【例3.1】窗體上無(wú)最大化最小化按鈕，程序運(yùn)行后，在窗體上裝入一幅圖片作為背景；當(dāng)單擊窗體時(shí)，窗體變寬；當(dāng)雙擊窗體時(shí)，則退出

9、。程序運(yùn)行界面如圖3-2所示。第20頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （a）Load事件（b）Click事件圖3-2 例3.1運(yùn)行界面第21頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 屬性設(shè)置如表3-1所示。對(duì)象屬性設(shè)置Form1Caption練習(xí)窗體事件MaxButton FalseMinButton False表3-1 例3.1對(duì)象屬性設(shè)置第22頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 事件過(guò)程如下：Private Sub Form_Load() 裝入圖片 Form1.Picture = LoadPicture(c:picChan

10、gcheng.wmf)End SubPrivate Sub Form_click() 單擊窗體 Form1.Width = Form1.Width + 1000End SubPrivate Sub Form_DblClick() 雙擊窗體 EndEnd Sub第23頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二3.2 命令按鈕 在VB應(yīng)用程序中，命令按鈕是使用的最多的對(duì)象之一，常常用它接受用戶的操作信息，觸發(fā)相應(yīng)的事件過(guò)程，以實(shí)現(xiàn)指定的功能。第24頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.2.1 屬性（1）Caption屬性 設(shè)定命令按鈕上顯示的文本。（2）D

11、efault屬性 該屬性用于設(shè)置默認(rèn)命令按鈕。當(dāng)Default屬性設(shè)置為True時(shí)，按ENTER鍵相當(dāng)于用鼠標(biāo)單擊了該按鈕。第25頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （3）Style 屬性和Picture屬性 命令按鈕上除了可以顯示文字外，還可以顯示圖形。 若要顯示圖形，首先應(yīng)將Style 屬性設(shè)置為1，然后在Picture屬性中設(shè)置要顯示的圖形文件。類似的，若要設(shè)置命令按鈕的BackColor（背景色），也應(yīng)將Style 屬性設(shè)置為1。Style 屬性可設(shè)置為：0-Standard： 標(biāo)準(zhǔn)的，命令按鈕上不能顯示圖形。1-Graphical：圖形的，命令按鈕上可以顯示圖

12、形，也可以顯示文字。第26頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （4）Value屬性 該屬性只能在程序運(yùn)行期間引用或設(shè)置。True表示被按下，F(xiàn)alse（默認(rèn)）表示未被按下。在代碼中可通過(guò)設(shè)置Value屬性為True，來(lái)觸發(fā)命令按鈕的Click事件。例如，利用下面代碼，可通過(guò)程序來(lái)選擇命令按鈕，并觸發(fā)命令按鈕的Click事件。 Command2.Value=True 3.2.2 事件 最常用的事件是Click事件。第27頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二3.3 標(biāo)簽 標(biāo)簽（Label）主要用于顯示不需要用戶修改的文本。所以，標(biāo)簽可以用來(lái)標(biāo)示窗體及窗

13、體上的對(duì)象，如為文本框、列表框等添加描述性的文字，或者作為窗體的說(shuō)明文字。第28頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.3.1 屬性 （1）Caption屬性 設(shè)置標(biāo)簽要顯示的內(nèi)容。它是標(biāo)簽的主要屬性。 （2）BorderStyle屬性 默認(rèn)值為0，標(biāo)簽無(wú)邊框；設(shè)置為1時(shí)，標(biāo)簽有立體邊框。第29頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （3）Autosize屬性 該屬性用于設(shè)置標(biāo)簽是否自動(dòng)改變尺寸以適應(yīng)其內(nèi)容。設(shè)置為True時(shí)，隨著Caption的內(nèi)容變化，自動(dòng)調(diào)整標(biāo)簽的大小，并且不換行；設(shè)置為False時(shí)，標(biāo)簽保持設(shè)計(jì)時(shí)的大小，這時(shí)如果內(nèi)容太長(zhǎng)，只能

14、顯示一部分。默認(rèn)值為False。第30頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （4）Alignment屬性 確定標(biāo)簽中內(nèi)容的對(duì)齊方式，有三種可選值：0-Left Juseify：默認(rèn)值，左對(duì)齊。1-Right Juseify：右對(duì)齊。2-Center：居中對(duì)齊。（5）BackStyle屬性 該屬性用于設(shè)置背景是否透明。默認(rèn)值為1，不透明；設(shè)為0時(shí)，透明。所謂透明，是指無(wú)背景色。第31頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.3.2 事件 常用Click，DbClick事件。 【例3.2】修改例3.1，在圖片上加提示信息“請(qǐng)單擊圖片”，程序其它功能不變。

15、程序運(yùn)行界面如圖3-2所示。第32頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3-3 例3.2運(yùn)行界面第33頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 操作如下： 在窗體上添加一個(gè)標(biāo)簽，將其Caption屬性設(shè)置為“請(qǐng)單擊圖片”，BackStyle屬性設(shè)置為0（透明），程序代碼不變。第34頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.4 文本框 文本框（TextBox）在窗體中為用戶提供一個(gè)既能顯示文本又能編輯文本的區(qū)域第35頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.4.1 屬性（1）Text屬性 設(shè)置文本框中顯示的內(nèi)容

16、。它是文本框最主要的屬性。（2）Locked屬性 設(shè)置文本框中的內(nèi)容是否可編輯。 默認(rèn)值為False，表示可編輯，當(dāng)設(shè)置為True時(shí)，不可編輯，此時(shí)文本框的作用相當(dāng)于標(biāo)簽。第36頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （3）Maxlength屬性 設(shè)置文本框中允許輸入的最大字符數(shù)。如果輸入的字符數(shù)超過(guò)Maxlength設(shè)定的數(shù)目后，系統(tǒng)將不接受超出部分的字符，并發(fā)出嘟嘟聲。該屬性默認(rèn)值為0，表示無(wú)限制。（4）MultiLine屬性 決定文本框是否允許接收多行文本。若設(shè)置為True，文本框可接收多行文本，當(dāng)輸入的文本超出文本框的邊界時(shí)，會(huì)自動(dòng)換行。默認(rèn)值為False，文本框中

17、只能輸入一行文本。第37頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （5）PassWordChar屬性 當(dāng)MultiLine為False時(shí)，該屬性可設(shè)置顯示在文本框中的替代符。 例如，PassWordChar設(shè)置為“*”，那么無(wú)論用戶輸入什么字符，文本框中顯示的只是“*”，但文本框接收的還是用戶實(shí)際輸入的字符。設(shè)置該屬性主要用于輸入口令。（6）ScrollBars屬性 決定文本框中是否有滾動(dòng)條。 只有當(dāng)MultiLine屬性為True時(shí)，文本框才能加滾動(dòng)條。第38頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.4.2 事件 文本框除支持Click，DbClick

18、事件，常用的還有Change，LostFocus事件。1. Change事件 當(dāng)用戶輸入新內(nèi)容，或程序?qū)ξ谋究虻腡ext屬性重新賦值，從而改變文本框的Text屬性時(shí)觸發(fā)該事件。第39頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 2. LostFocus事件 當(dāng)用戶按下鍵時(shí)光標(biāo)離開文本框，或用鼠標(biāo)選擇其他對(duì)象時(shí)觸發(fā)該事件，稱為“失去焦點(diǎn)”事件。 焦點(diǎn)是對(duì)象接收用戶鼠標(biāo)或鍵盤輸入的能力。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，可接收用戶的輸入。通常用該事件過(guò)程對(duì)文本框中的內(nèi)容進(jìn)行檢查和確認(rèn)。第40頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.4.3 方法 文本框最常用的方法是SetFoc

19、us，使用該方法可把光標(biāo)移到指定的文本框中，使之獲得焦點(diǎn)。當(dāng)使用多個(gè)文本框時(shí)，用該方法可把光標(biāo)移到所需要的的文本框中。其使用格式為： 對(duì)象.SetFocus 第41頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 【例3.3】程序運(yùn)行后，隨著用戶的輸入，標(biāo)簽中同步顯示出用戶對(duì)文本框的內(nèi)容更新的次數(shù)。運(yùn)行效果如圖3-4所示。第42頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3- 4 例3.3 運(yùn)行效果第43頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （1）界面設(shè)計(jì) 在窗體上建立一個(gè)文本框、一個(gè)標(biāo)簽。設(shè)置各對(duì)象的屬性，如表3-2所示。對(duì)象屬性設(shè)置Form

20、1 Caption 文本框應(yīng)用示例Text1 text 空 MultiLine TrueLabel1 Caption 空 BorderStyle 1 Alignment 2 Font 字體大小取二號(hào)表3-2 例3.3對(duì)象屬性設(shè)置第44頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （2）編寫事件過(guò)程如下：Private Sub Text1_Change() Static i% i = i + 1 Label1.Caption = iEnd Sub第45頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.5 賦值語(yǔ)句 賦值語(yǔ)句是VB程序最常用、最基本的語(yǔ)句，它能為變量提供

21、數(shù)據(jù)。另外，若要在程序代碼中設(shè)置對(duì)象的屬性，也是使用賦值語(yǔ)句。第46頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 賦值語(yǔ)句有兩種格式：格式1： 變量名=表達(dá)式格式2： 對(duì)象名.屬性名=表達(dá)式賦值語(yǔ)句的作用是：首先計(jì)算“=”右邊表達(dá)式的值，然后將該值賦給“=”左邊的變量或?qū)ο蟮膶傩?。在格?中，若對(duì)象名省略，則默認(rèn)對(duì)象為當(dāng)前窗體。第47頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如：x=2 把2賦給xy=x*3 計(jì)算x*3的值，得6，把6賦給yx=x+1 計(jì)算x+1的值，得3，把3賦給xa$= Hello 把“Hello”賦給a$Text1.Text=你好！ 把“

22、你好！”賦給Text1的Text屬性第48頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 這里還要說(shuō)明一下賦值語(yǔ)句中的類型問(wèn)題。通常，在使用時(shí)應(yīng)使表達(dá)式值的類型與變量（或?qū)ο蟮膶傩裕╊愋拖嗤?，以避免出現(xiàn)“類型不匹配”的錯(cuò)誤。不過(guò)，某些情況下，VB容許“=”兩邊類型不相同。第49頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如：dim x!,y%,z$x = “12.5” 把數(shù)值形式的字符串賦給 數(shù)值變量y=34.24 把單精度數(shù)賦給整型變 量，此時(shí)截去小數(shù)部分z=6 把整數(shù)賦給實(shí)型變量第50頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 以上三種情況都是

23、賦值相容的。在賦值相容前提下，當(dāng)“=”兩邊類型不相同時(shí)，VB自動(dòng)將表達(dá)式值的類型轉(zhuǎn)換成“=”左邊變量（或?qū)ο蟮膶傩裕┑念愋?，這種方式稱為“向左看齊”。上例中，實(shí)際賦給x、y、z的值分別是12.5、34、6.0。第51頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 【例3.4 】已知三角形三邊a，b，c，的長(zhǎng)，求三角形的面積，輸出三條邊長(zhǎng)及面積。第52頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 分析：應(yīng)用程序的界面應(yīng)該能讓用戶輸入三邊的長(zhǎng)，程序在接收用戶輸入的數(shù)據(jù)后，利用數(shù)學(xué)公式對(duì)數(shù)據(jù)進(jìn)行計(jì)算，并把結(jié)果輸出到屏幕上。已知三角形三邊a，b，c，的長(zhǎng)，求三角形的面積的公式

24、為： 其中p=(a+b+c)/2。第53頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （1）界面設(shè)計(jì) 在窗體上建立五個(gè)標(biāo)簽、三個(gè)文本框和一個(gè)命令按鈕。設(shè)置各對(duì)象的屬性，如表3-3所示。第54頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 對(duì)象屬性設(shè)置Form1caption計(jì)算三角形面積Label1caption請(qǐng)輸入三邊Label2captionaLabel3captionbLabel4captioncLabel5caption空Text1text空Text2text空Text3text空Command1caption計(jì)算表3-3 例3.4對(duì)象屬性設(shè)置 設(shè)計(jì)完成的界

25、面如圖3-5所示第55頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3-5 例3.4界面第56頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （2）編寫事件過(guò)程如下：Private Sub Command1_Click() Dim a!, b!, c!, p!, s! a = Text1.Text b = Text2.Text c = Text3.Text p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) Label5.Caption = sEnd Sub第57頁(yè)，共105頁(yè)，2022年，5月20

26、日，5點(diǎn)59分，星期二3.6 Print方法 Print是輸出數(shù)據(jù)的一種重要方法。3.6.1 Print的格式及功能格式：對(duì)象名.Print 表達(dá)式列表。功能：在對(duì)象上輸出表達(dá)式的值。（1）對(duì)象名： 可以是Form（窗體）、Debug（立即窗口）、Picture（圖片框）、Printer（打印機(jī)）。省略此項(xiàng)，表示在當(dāng)前窗體上輸出。第58頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如：Print 23*2=；23*2 在當(dāng)前窗體上輸出23*2= 46Picture1.Print Good 在圖片框Picture1上輸出Good Printer.Print Morning 在打印

27、機(jī)上輸出Morning 第59頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （2）表達(dá)式列表： 是一個(gè)或多個(gè)表達(dá)式，若為多個(gè)表達(dá)式，則各表達(dá)式之間“，”或“；”隔開。省略此項(xiàng)，則輸出一空行。 （3）用“，”分隔各表達(dá)式時(shí)，各項(xiàng)在以14個(gè)字符位置為單位劃分出的區(qū)段中輸出，每個(gè)區(qū)段輸出一項(xiàng)；用“；”分隔各表達(dá)式時(shí)，各項(xiàng)按緊湊格式輸出。第60頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （4）如果在語(yǔ)句行末尾有“；”，則下一個(gè)Print輸出的內(nèi)容，將緊跟在當(dāng)前Print輸出內(nèi)容后面；如果在語(yǔ)句行末尾有“，”，則下一個(gè)Print輸出的內(nèi)容，將在當(dāng)前Print輸出內(nèi)容的下一區(qū)

28、段輸出；如果在語(yǔ)句行末尾無(wú)分隔符，則輸出完本語(yǔ)句內(nèi)容后換行，即在新的一行輸出下一個(gè)Print的內(nèi)容。第61頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如： Print 1；2；3 Print 4，5， Print 6 Print 7，8 Print Print 9，10 輸出結(jié)果為：1 2 34 5 67 89 10第62頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 （4）定位輸出 Print方法中，可以使用Tab函數(shù)對(duì)輸出項(xiàng)進(jìn)行定位。 例如： Print Tab(10) ; 姓名 ; Tab(25) ; 年齡 則“姓名”和“年齡”分別從當(dāng)前行的第10列和第25

29、列開始輸出。第63頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 輸出結(jié)果如下： 姓名 年齡 在使用Tab函數(shù)時(shí)，要將輸出的內(nèi)容放在Tab函數(shù)的后面，并用“；”隔開。第64頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 Tab函數(shù)的格式為Tab(n)，其中n為整數(shù)表達(dá)式，用它來(lái)指定輸出的起始位置。Print方法中，還可以使用Spc函數(shù)，例如：Print 后面有8個(gè)空格；Spc (8) ; 前面有8個(gè)空格 第65頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 輸出結(jié)果如下：后面有8個(gè)空格 前面有8個(gè)空格 Spc函數(shù)格式為Spc(n)，其中n為整數(shù)表達(dá)式，表示在

30、下一個(gè)輸出項(xiàng)之前插入的空格數(shù)，Spc函數(shù)與各輸出項(xiàng)之間必須用“；”隔開。第66頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.6.2 Cls方法 格式：對(duì)象名.Cls 功能：Cls方法清除Print方法顯示的文本或在圖片框中顯示的圖形，并把輸出位置移到對(duì)象的左上角。格式中的對(duì)象可以是窗體或圖片框，如果省略對(duì)象名，則清除當(dāng)前窗體的顯示內(nèi)容。第67頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.7 輸入框 我們知道，文本框可以接收用戶的輸入。輸入框也可以接受用戶的輸入，但是其風(fēng)格和用法有別于文本框。VB提供的InputBox函數(shù)可生成輸入框。 例如：p$=Input

31、Box（請(qǐng)輸入密碼 ，密碼框 ） 執(zhí)行該語(yǔ)句后，屏幕上顯示如圖3-6所示的輸入框。第68頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 標(biāo)題文本區(qū)提示圖3-6 輸入框第69頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 用戶可在文本區(qū)輸入數(shù)據(jù)，然后按“確定”按鈕，函數(shù)返回值是用戶在文本區(qū)輸入數(shù)據(jù)，其類型為字符型。如果用戶然后按“取消”按鈕，則函數(shù)返回值是空字符串。第70頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 每執(zhí)行一次InputBox函數(shù)，用戶只能輸入一個(gè)數(shù)據(jù)，另外，輸入框的樣式是固定的，用戶不能改變。用戶能改變的是輸入框的“提示”和“標(biāo)題”的內(nèi)容，

32、“提示”和“標(biāo)題”都是字符串表達(dá)式。第71頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 InputBox函數(shù)的一般格式： InputBox（提示，標(biāo)題，缺省值，x坐標(biāo)位置，y坐標(biāo)位置）其中各參數(shù)的含義如下： “提示”：必選項(xiàng)。字符串表達(dá)式，在對(duì)話框中作為提示信息。若要在多行顯示提示信息，則可以在各行之間用vbNewLine來(lái)分隔，vbNewLine是代表?yè)Q行的常量。第72頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如：InputBox (第一行 & vbNewLine & 第二行) “標(biāo)題”：字符串表達(dá)式，在對(duì)話框中標(biāo)題區(qū)顯示，若省略，則標(biāo)題為應(yīng)用程序名。第73

33、頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 “缺省值”：字符串表達(dá)式，在沒(méi)有其它輸入時(shí)作為缺省值。 “x坐標(biāo)位置”、“y坐標(biāo)位置”：整數(shù)表達(dá)式。坐標(biāo)確定對(duì)話框左上角在屏幕上的位置，屏幕左上角為坐標(biāo)原點(diǎn)，單位為Twip。1Twip=1/567厘米。第74頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 需要注意的是：各項(xiàng)參數(shù)次序必須一一對(duì)應(yīng)，除了“提示”不能省略外，其余各項(xiàng)均可省略，但省略部分也要用逗號(hào)占位符跳過(guò)。第75頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 例如：f$ = InputBox(第一行 & vbNewLine & 第二行, , ddd,

34、 200, 200) 【例3.5】已知圓半徑，求圓周長(zhǎng)和圓面積。第76頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 對(duì)象屬性設(shè)置Form1Caption求圓周長(zhǎng)和圓面積Text1text空Text2text空Label1Caption圓周長(zhǎng)Label2Caption圓面積Command1Caption輸入半徑Command2Caption結(jié)束表3-4 例3.5對(duì)象屬性設(shè)置第77頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 設(shè)計(jì)完成的界面如圖3-7所示。第78頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3-7 例3.5界面第79頁(yè)，共105頁(yè)，202

35、2年，5月20日，5點(diǎn)59分，星期二 （2）編寫事件過(guò)程如下： Private Sub Command1_Click()Dim r!, c!, a!r = InputBox(請(qǐng)輸入半徑，輸入框)c = 2 * r * 3.14159a = 3.14159 * r 2Text1.Text = cText2.Text = aEnd Sub第80頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 Private Sub Command2_Click() EndEnd Sub第81頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.8 消息框 執(zhí)行VB提供的MsgBox函數(shù)，可以在

36、屏幕上出現(xiàn)一個(gè)消息框，消息框通知用戶消息并等待用戶來(lái)選擇消息框中的按鈕，MsgBox函數(shù)返回一個(gè)與用戶所選按鈕相對(duì)應(yīng)的整數(shù)。第82頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 MsgBox函數(shù)的格式： MsgBox（提示，按鈕數(shù)值，標(biāo)題）例如：inta=MsgBox（“密碼錯(cuò)”，21，“密碼核對(duì)” ） 執(zhí)行該語(yǔ)句后，屏幕上顯示如圖3-10所示的消息框。第83頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3-10 消息框示例第84頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 在MsgBox函數(shù)格式中，“提示”和“標(biāo)題”的含義同InputBox函數(shù)。 “

37、按鈕數(shù)值”是三個(gè)數(shù)值之和，這三個(gè)數(shù)值分別代表鈕的數(shù)目及類型，使用的圖標(biāo)樣式，及缺省按鈕是什么。教材中表3-5，表3-6，表3-7，分別列出這三個(gè)數(shù)值的含義。第85頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 本例“按鈕數(shù)值” 21，是從上面三個(gè)表中各取一個(gè)數(shù)相加而得。注意：每個(gè)表只能取一個(gè)數(shù)。系統(tǒng)會(huì)自動(dòng)把它分解成分別屬于上面三個(gè)表中的三個(gè)值5，16，0。這種分解是唯一的。其含義是：消息框中有“”圖標(biāo)，有“重試”及“取消”兩個(gè)按鈕，缺省按鈕是“重試”按鈕。第86頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 當(dāng)用戶單擊消息框中的一個(gè)按鈕后，消息框即從屏幕上消失。在上面的

38、語(yǔ)句中，將函數(shù)的返回值賦給了變量inta，在程序中可引用inta作相應(yīng)的處理。第87頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 MsgBox函數(shù)的返回值是根據(jù)用戶單擊哪個(gè)按鈕而定的，見表3-8。 通常，在程序中要根據(jù)MsgBox函數(shù)返回值的不同作不同的處理，這需要用到第四章中介紹的選擇結(jié)構(gòu)方面的知識(shí)。第88頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 MsgBox也可以寫成語(yǔ)句形式，例如： MsgBox 密碼錯(cuò), , 密碼核對(duì) 執(zhí)行此語(yǔ)句也產(chǎn)生一個(gè)消息框，如圖3-11所示。第89頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 圖3-11 密碼核對(duì)消息

39、MsgBox語(yǔ)句沒(méi)有返回值，因此常用于比較簡(jiǎn)單的信息提示。第90頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二3.9 注釋語(yǔ)句、結(jié)束語(yǔ)句 3.9.1 注釋語(yǔ)句 為了提高程序的可讀性，通常在程序的適當(dāng)位置加上必要的注釋。在VB中用“”或Rem來(lái)標(biāo)識(shí)一條注釋語(yǔ)句，格式為：第91頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 |Rem 例如： Rem 2006年編寫Private Sub Form_click() Dim a$ 定義一個(gè)字符串變量 a=Visual Basic6.0中文版 為變量賦值 print a 打印a的內(nèi)容End Sub第92頁(yè)，共105頁(yè)，2022年，

40、5月20日，5點(diǎn)59分，星期二 3.9.2 結(jié)束語(yǔ)句 格式：End End語(yǔ)句用來(lái)結(jié)束程序的執(zhí)行，并關(guān)閉已打開的文件。例如： Private Sub Command3_Click() End End Sub第93頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二3.10 程序調(diào)試 在程序中發(fā)現(xiàn)錯(cuò)誤并排除錯(cuò)誤的過(guò)程叫做程序調(diào)試。VB提供了豐富的調(diào)試手段，可以方便的跟蹤程序的運(yùn)行，排除程序錯(cuò)誤。第94頁(yè)，共105頁(yè)，2022年，5月20日，5點(diǎn)59分，星期二 3.10.1 程序錯(cuò)誤 程序設(shè)計(jì)中常見的錯(cuò)誤可分為以下三種：編譯錯(cuò)誤、運(yùn)行時(shí)的錯(cuò)誤和邏輯錯(cuò)誤。第95頁(yè)，共105頁(yè)，2022年，5月20日，