《Visual Basic語言程序設(shè)計(jì)教程（第二版）》課件第6章 順序結(jié)構(gòu)

程序結(jié)構(gòu)概述結(jié)構(gòu)化程序由三種基本控制結(jié)構(gòu)組成，即順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。這三種基本結(jié)構(gòu)可以組成所有的各種復(fù)雜程序。順序結(jié)構(gòu)是一種簡單的程序結(jié)構(gòu)，即按程序段中語句出現(xiàn)的先后順序依次執(zhí)行的結(jié)構(gòu)。ABN…先執(zhí)行A操作，其次執(zhí)行B操作，……，最后執(zhí)行N操作，它們都是順序執(zhí)行的關(guān)系。6.1注釋語句

為了提高程序的可讀性，在程序的必要位置加上注釋是有用的。注釋語句就起此作用，以方便自己或他人理解語句的含義。注意注釋語句是非執(zhí)行語句。注釋語句有兩種定義格式：

Rem注釋內(nèi)容’注釋內(nèi)容功能：用來對(duì)程序中的語句進(jìn)行注釋說明。6.1注釋語句說明：注釋語句可單獨(dú)占一行，也可以放在語句的后面;若在語句行后面使用Rem關(guān)鍵字，則必須使用冒號(hào)“：”與語句隔開;若在語句行后面使用“’”,則不必使用冒號(hào);單引號(hào)應(yīng)是半角英文的直撇號(hào)。6.1注釋語句例如：PrivateSubCommand1_Click()Text2.Text=Text1.Text

Rem將文本框1里面的內(nèi)容賦給文本框2EndSub’將文本框1里面的內(nèi)容賦給文本框26.2數(shù)據(jù)的輸入所謂輸入是指在執(zhí)行程序時(shí)需要從外界獲取的必要信息。輸入可以有多個(gè)，也可以沒有。

VB中可以有多種基本輸入方式，包括賦值語句、文本框的輸入和InputBox函數(shù)等。

6.2.1利用賦值語句輸入數(shù)據(jù)

VB編程語言中用“＝”作為賦值運(yùn)算符，簡稱賦值號(hào)。賦值語句的語句格式為：

[Let]變量名＝常量|變量|表達(dá)式|對(duì)象的屬性6.2.1利用賦值語句輸入數(shù)據(jù)說明：在上述格式中，賦值語句的功能是將賦值號(hào)右邊的表達(dá)式的值賦給賦值號(hào)左邊的變量；其中賦值號(hào)左邊的變量可以是用戶自定義的變量，也可以是對(duì)象的屬性；賦值號(hào)右邊的表達(dá)式可以是常量、表達(dá)式、文本框等控件中獲取的值，也可以是由InputBox函數(shù)提供的值。6.2.1利用賦值語句輸入數(shù)據(jù)注意：賦值號(hào)兩邊的數(shù)據(jù)類型必須保持一致性或兼容；賦值語句先計(jì)算右邊表達(dá)式的值，再將結(jié)果賦給左邊的變量；賦值號(hào)與數(shù)學(xué)中“等號(hào)“在概念上有所區(qū)別。數(shù)學(xué)中等號(hào)為判斷左右兩值是否相等。例如：

LetX＝X＋1’變量X加上1以后賦給左邊的變量X6.2.1利用賦值語句輸入數(shù)據(jù)例6-1．求半徑為3的圓周長

PrivateSubCommand1_Click()Constp=3.1415DimrAsSingle,LAsSingler=3L=2*p*rText1.Text=LEndSub6.2.2使用文本框輸入數(shù)據(jù)文本框控件具備Text的屬性，程序可以通過獲取文本框Text屬性值來得到相關(guān)的信息，也可以將信息以文本框Text屬性向外顯示。故在很多程序中利用文本框完成信息的輸入與輸出。6.2.2使用文本框輸入數(shù)據(jù)例6-2．單擊按鈕時(shí)，將Text1內(nèi)的內(nèi)容復(fù)制到Text2中。

PrivateSubCommand1_Click()Text2.Text=Text1.TextEndSub運(yùn)行效果6.2.3InputBox函數(shù)InputBox函數(shù)的作用：生成一對(duì)話框來顯示提示，等待用戶在文本框里輸入內(nèi)容或按下按鈕，并輸入文本框中內(nèi)容。函數(shù)的返回值的類型為

String類型。InputBox函數(shù)的語法格式：X=InputBox(提示信息,[標(biāo)題[,缺省值][,X坐標(biāo),Y坐標(biāo)][,幫助文件,上下文]])標(biāo)題提示信息缺省值6.2.3InputBox函數(shù)參數(shù)用法提示信息提示信息參數(shù)是必須的。若包含多行，可在各行之間用chr（13）（回車符）、chr（10）（換行符）或chr（13）&chr(10)來分隔標(biāo)題對(duì)話框的標(biāo)題，是可選的缺省值文本框里的缺省值，是可選的X坐標(biāo),Y坐標(biāo)X坐標(biāo)，y坐標(biāo)決定輸入框的位置6.2.3InputBox函數(shù)參數(shù)用法幫助文件幫助文件是可選項(xiàng)，識(shí)別幫助文件，用該文件為對(duì)話框提供上下文相關(guān)的幫助。如果已提供幫助文件，則必須提供上下文。上下文上下文為可選項(xiàng)，數(shù)值表達(dá)式，由幫助文件的作者指定給某個(gè)幫助主題的幫助上下文編號(hào)。返回值返回值x將是用戶在文本框里輸入的數(shù)據(jù)，x是一個(gè)字符串類型的值。如果用戶按了Cancel鈕，則x將為空字符串。6.2.3InputBox函數(shù)例如：

X＝InputBox（“請(qǐng)輸入任意字符串”,“輸入”）生成的對(duì)話框?yàn)?標(biāo)題提示信息6.2.3InputBox函數(shù)例6-3．單擊按鈕時(shí)，彈出對(duì)話框，并將用戶輸入的信息顯示在文本框里。

PrivateSubCommand1_Click()DimiAsString’定義字符串變量ii=InputBox("請(qǐng)輸入任意字符串","輸入")Text1.Text=i’通過文本框顯示i的值

EndSub6.3數(shù)據(jù)的輸出

程序設(shè)計(jì)的最終目的是給用戶一個(gè)答案，將計(jì)算的結(jié)果應(yīng)顯示在用戶界面上以供用戶觀看。因此對(duì)于一個(gè)完整的程序，數(shù)據(jù)的輸出是不可缺少的。在VB程序設(shè)計(jì)中，數(shù)據(jù)的輸出可以有多種方式：Print方法輸出、MsgBox函數(shù)等。6.3.1Print方法

Print方法是很多VB對(duì)象所具備的方法，包括窗體、圖片框或打印機(jī)等。使用Print方法可以在上述對(duì)象上顯示字符串和表達(dá)式的值。語法格式如下：

[對(duì)象名.]print[{常量|變量|表達(dá)式[{,|;}]]……

說明：對(duì)象名可以是Form、PictureBox或Printer。如果省略對(duì)象名，則在窗體上輸出。表達(dá)式可以是數(shù)值表達(dá)式或字符串表達(dá)式。當(dāng)輸出多個(gè)表達(dá)式時(shí)，表達(dá)式之間可以用“，”、“；”或“”隔開。6.3.1Print方法若要使后面執(zhí)行Print時(shí)還在本行輸出，可以在末尾加“；”或“，”。單獨(dú)一個(gè)“Print”效果即為換行。6.3.1Print方法(1)Tab函數(shù)語法格式：Tab（n）功能：可選的n參數(shù)是在顯示或打印列表中的下一個(gè)表達(dá)式之前移動(dòng)的列數(shù)。若省略此參數(shù)，則Tab將插入點(diǎn)移動(dòng)到下一個(gè)打印區(qū)的起點(diǎn)。當(dāng)Print方法與Tab函數(shù)一起使用時(shí)，打印的外觀將會(huì)被分割為均勻、定寬的列。各列的寬度等于選用字體內(nèi)以磅數(shù)為單位的所有字符的平均寬度。6.3.1Print方法(2)Spc函數(shù)或Space[$]函數(shù)

語法格式：Spc(n)或Space(n)

功能：跳過n個(gè)空格后再輸出下一個(gè)輸出項(xiàng)。6.3.2MsgBox函數(shù)MsgBox稱為消息對(duì)話框，用于創(chuàng)建一個(gè)消息框，等待用戶選擇一個(gè)按鈕，并通過返回值將用戶的選擇作為程序繼續(xù)執(zhí)行的依據(jù)。信息框中通常顯示一些提示信息、出錯(cuò)信息或者警告信息等。6.3.2MsgBox函數(shù)MsgBox函數(shù)的語法格式如下：

[Action＝]MsgBox（提示信息，顯示類型，標(biāo)題）說明：（1）提示信息顯示在提示框內(nèi)；（2）顯示類型為對(duì)話框所顯示的效果；（3）Action獲取用戶所選擇按鈕對(duì)應(yīng)的返回值。6．4MsgBox函數(shù)數(shù)值符號(hào)常量意義0vbokonly只顯示ok按鈕1vbokcancel顯示ok、cancel按鈕2vbAbortRetryIgnore顯示Abort、Retry、Ignore按鈕3vbyesnocancel顯示yes、no、cancel按鈕4vbYesNo顯示Yes、No按鈕5vbRetryCancel顯示Retry、Cancel按鈕6.3.2MsgBox函數(shù)數(shù)值符號(hào)常量意義16vbCriticalStopSign對(duì)極其重要的問題提醒用戶

32vbQuestionQuestionMark增亮顯示沒有危險(xiǎn)的問題48vbExclamationExclamationmark強(qiáng)調(diào)警告用戶必須知道的事情64vbInformationInformationmark可以使乏味的信息變的有趣數(shù)值符號(hào)常量意義0vbDefaultButton1第一個(gè)按鈕缺省256vbDefaultbutton2第二個(gè)按鈕缺省512vbDefaultbutton3第三個(gè)按鈕缺省6.3.2MsgBox函數(shù)注意：

(1)設(shè)置MsgBox函數(shù)中的type函數(shù)類型時(shí)，既可以將所需的符號(hào)常量類型用“＋”連接起來，又可以直接將符號(hào)常量對(duì)應(yīng)的數(shù)值加起來作為設(shè)置。6.3.2MsgBox函數(shù)MsgBox"歡迎光臨！",vbOKOnly+vbInformation,"歡迎"

MsgBox"歡迎光臨！",64,"歡迎"

0646.3.2MsgBox函數(shù)MsgBox“網(wǎng)絡(luò)連接出現(xiàn)問題，是否重試？",274,"警告"

2＋16＋256

vbAbortRetryIgnore+vbCritical+vbDefaultbutton26.3.2MsgBox函數(shù)（2）若返回值不需要做進(jìn)一步的判斷則可以省略“Action＝”，同時(shí)使用MsgBox函數(shù)的時(shí)候不用圓括號(hào)。例如：

x=MsgBox("是否退出？",