1

第4章順序結(jié)構(gòu)程序設(shè)計(jì)4.1順序結(jié)構(gòu)4.2數(shù)據(jù)輸入4.3數(shù)據(jù)輸出4.4其他常用語(yǔ)句2

第4章順序結(jié)構(gòu)程序設(shè)計(jì)

程序模塊的三種基本結(jié)構(gòu)

順序結(jié)構(gòu)

選擇結(jié)構(gòu)

循環(huán)結(jié)構(gòu)

順序結(jié)構(gòu)A1操作A2操作A1操作

A2操作(a)順序結(jié)構(gòu)流程圖4.1順序結(jié)構(gòu)事件驅(qū)動(dòng):將代碼劃分成一些過(guò)程。過(guò)程結(jié)構(gòu):過(guò)程內(nèi)部代碼由三種基本結(jié)構(gòu)組成，即:順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。順序結(jié)構(gòu):執(zhí)行過(guò)程的次序從上到下，從左到右。例4-1:編寫程序，輸入圓柱的高及半徑，求體積。

PrivateSubCommand1_Click()ConstPi=3.14H=Val(Text1.Text):R=Val(Text2.Text)Text3.Text=Pi*R^2*HEndSub4例4-2：編寫程序，交換變量a1、a2的值。PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"交換兩個(gè)數(shù)"Form1.Print“雙擊窗體開始"EndSub56例4-3：分別在3個(gè)文本框中輸入小時(shí)、分、秒，轉(zhuǎn)化成秒數(shù)在一個(gè)標(biāo)簽上輸出。見書本P69例4-4：在文本框中輸入英文字母，單擊“轉(zhuǎn)大寫”按鈕，文本變?yōu)榇髮?，單擊“轉(zhuǎn)小寫”按鈕，文本變?yōu)樾?，單擊“?fù)原”按鈕，文本復(fù)原為原來(lái)輸入的內(nèi)容。見書本P704.2數(shù)據(jù)輸入4.2.1用賦值語(yǔ)句輸入數(shù)據(jù)1.格式

<變量名>=<表達(dá)式>或:[<對(duì)象名>.]<屬性名>=<表達(dá)式>2.功能計(jì)算表達(dá)式的值，再將此值賦給變量或?qū)ο髮傩浴?.說(shuō)明(1)<變量名>:應(yīng)符合VB變量命名約定。(2)<表達(dá)式>:常量、變量、表達(dá)式。(3)<對(duì)象名>:缺省時(shí)為當(dāng)前窗體。(4)賦值號(hào)“=”:與數(shù)學(xué)中的等號(hào)意義不同。例:X=X+1(5)賦值號(hào)左邊必須是變量或?qū)ο髮傩浴?例:X=1MyStr="GoodMorning"Command1.Caption="確定"X+1=X'錯(cuò)誤，賦值號(hào)左邊是表達(dá)式(6)變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型相容。例4-5:DimAAsInteger,BAsSingleDimCAsDouble,SAsStringA=100'將整型數(shù)100賦給整型變量AS="123.45"'將字符串"123.45"賦給變量SA=S'將數(shù)字字符串變量賦值給整型變量，

'變量A中存放123S=A'S中存放字符串"123"B=12345.67A=B'高精度變量賦值給低精度變量，

'先四舍五入后取整,A中存放123469C=123456.789B=C'高精度變量賦值給低精度變量，

'變量B中存放123456.8，有效數(shù)字7位S="abc"A=S'錯(cuò)誤，類型不匹配例4-6:執(zhí)行下列各賦值語(yǔ)句后，A的數(shù)據(jù)類型是什么？(設(shè)A沒有定義數(shù)據(jù)類型)

A=6=5A=5+3A="5+3"A="#11/26/99#"A=#11/26/1999#A=Not5>8可以用TypeName函數(shù)判斷變量的數(shù)據(jù)類型。如:PrintTypeName(A)10(7)變量未賦值時(shí)，數(shù)值型變量值為0，字符串變量值為空串""。【例4-7】設(shè)變量A中存放5，變量B中存放8，交換兩個(gè)變量的值，使變量A中存放8，變量B中存放5。分析:需要借助第三個(gè)變量C。代碼如下:A=5B=8

C=AA=BB=C114.2.2、用輸入框(InputBox)輸入數(shù)據(jù)1.格式InputBox(<提示信息>[,<對(duì)話框標(biāo)題>][,<默認(rèn)值>])2.功能提示一對(duì)話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。<提示信息>:字符串表達(dá)式。用Chr(13)

、Chr(10)

、Chr(13)&Chr(10)、vbCrLf可換行。<對(duì)話框標(biāo)題>:字符串表達(dá)式。<默認(rèn)值>:字符串表達(dá)式。如果省略，則默認(rèn)為空。函數(shù)返回值:字符串(在對(duì)話框中單擊取消則返回"")12單擊“確定”，返回文本框中的文本到變量R中；單擊“取消”，返回一個(gè)零長(zhǎng)度的字符串。例4-8:

利用輸入框輸入半徑求任意圓的面積。

PrivateSubForm_Activate()DimRAsString,AREAAsSingle

R=InputBox("請(qǐng)輸入半徑","計(jì)算面積","1")

AREA=3.14*Val(R)^2PrintVal(R),AREAEndSub134.2.3用文本框（TextBox）輸入數(shù)據(jù)1.文本框的屬性(1)Text:返回或設(shè)置文本框顯示的內(nèi)容。例:Text1.Text="歡迎使用VisualBasic"(2)MultiLine:決定是否可以顯示多行文本。(3)PasswordChar:常用于輸入口令。在文本框中鍵入字符顯示為該指定的字符。(此時(shí)MultiLine屬性值應(yīng)為False)(4)ScrollBars:用于確定文本框是否帶滾動(dòng)條以及滾動(dòng)條的方向。(僅當(dāng)MultiLine屬性值為True時(shí)才可以帶滾動(dòng)條)14(5)SelLength:在運(yùn)行期返回或設(shè)置選擇的字符數(shù)。例:Text1.SelLength=Len(Text1.Text)

表示選中文本框Text1中所有字符。(6)SelStart:在運(yùn)行期返回或設(shè)置當(dāng)前選擇文本的起始位置。例:Text1.SelStart=0表示選擇文本的起始位置從第一個(gè)字符開始。(7)Locked:指定運(yùn)行時(shí)文本框內(nèi)容是否可以編輯。False—可以編輯True—不可編輯(只讀)152.文本框的事件和方法事件:Change

、Click、DblClick、GotFocus、LostFocus、KeyPress等方法:SetFocus【例4-9】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某同學(xué)三門課的成績(jī)，計(jì)算平均成績(jī)。按要求編程。Text4(設(shè)Locked為True)Text1Text2Text3Command1Command2Command316①單擊“計(jì)算”按鈕求平均成績(jī)PrivateSubCommand1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)Text4.Text=(A+B+C)/3EndSub17②當(dāng)輸入成績(jī)的文本框獲得焦點(diǎn)時(shí)，選中其中的文本PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubText2_GotFocus()Text2.SelStart=0Text2.SelLength=Len(Text1.Text)EndSubPrivateSubText3_GotFocus()Text3.SelStart=0Text3.SelLength=Len(Text1.Text)EndSub18③當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值PrivateSubText1_Change()Text4.Text=""EndSubPrivateSubText2_Change()Text4.Text=""EndSubPrivateSubText3_Change()Text4.Text=""EndSub19④單擊“清除”按鈕清除所有文本框的內(nèi)容，并將焦點(diǎn)定位在文本框Text2中。PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""

Text1.SetFocusEndSub⑤單擊“退出”按鈕結(jié)束程序的運(yùn)行。PrivateSubCommand3_Click()EndEndSub20【例4-10】在窗體上建立一個(gè)文本框，將輸入到文本框中的小寫字母轉(zhuǎn)換為大寫。PrivateSubText1_KeyPress(KeyAsciiAsInteger)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char))EndSub211.焦點(diǎn)當(dāng)前可以接收用戶輸入的對(duì)象稱為具有焦點(diǎn)。

注意:并非所有控件都可以接收焦點(diǎn)。而且,只有Enable和Visible屬性為True時(shí)，才可以接收焦點(diǎn)。2.事件GotFocus發(fā)生在對(duì)象得到焦點(diǎn)時(shí)

LostFocus發(fā)生在對(duì)象失去焦點(diǎn)時(shí)3.對(duì)象何時(shí)得到焦點(diǎn)

?

運(yùn)行時(shí)選擇對(duì)象(鼠標(biāo)、Tab鍵、訪問(wèn)鍵)；

?

在代碼中使用SetFocus方法。4.2.4焦點(diǎn)和Tab鍵序222.Tab鍵序

?

指按Tab鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。

?

每個(gè)窗體都有自己的Tab鍵序。

?

默認(rèn)鍵序與控件的建立次序一致。

?

TabIndex屬性:決定鍵序。改變TabIndex屬性可以改變鍵序。

?

TabStop屬性:決定是否能夠使用Tab鍵將焦點(diǎn)移動(dòng)到當(dāng)前對(duì)象。4.3數(shù)據(jù)輸出4.3.1用標(biāo)簽(Label)輸出數(shù)據(jù)1.標(biāo)簽的屬性(1)Caption:標(biāo)簽的標(biāo)題。(2)Alignment:確定標(biāo)簽標(biāo)題的對(duì)齊方式。(3)AutoSize:確定標(biāo)簽是否隨標(biāo)題自動(dòng)調(diào)整大小。(4)BorderStyle:確定標(biāo)簽的邊框。0—無(wú)邊框；1—有邊框。(5)BackStyle:指定背景是透明或不透明。1—不透明；0—透明。(6)WordWrap:指示是否隨標(biāo)題沿垂直方向自動(dòng)擴(kuò)展。True—標(biāo)簽將隨標(biāo)題在垂直方向變化。

(此時(shí)AutoSize屬性值應(yīng)設(shè)置為True)False—標(biāo)簽不能在垂直方向上擴(kuò)展。24【例4-11】測(cè)試標(biāo)簽的邊框樣式和透明樣式。在窗體上放置一標(biāo)簽，顯示“VisualBasic程序設(shè)計(jì)教程”，放置四個(gè)命令按鈕，Command1放在Command2上，Command3放在Command4上。運(yùn)行時(shí)，單擊相應(yīng)按鈕，界面發(fā)生相應(yīng)變化。Label1Command2Command1Command3Command425PrivateSubCommand2_Click()Label1.BorderStyle=0Command1.Visible=TrueCommand2.Visible=FalseEndSubPrivateSubCommand1_Click()Label1.BorderStyle=1Command1.Visible=FalseCommand2.Visible=TrueEndSub26PrivateSubCommand3_Click()Label1.BackStyle=1Command3.Visible=FalseCommand4.Visible=TrueEndSubPrivateSubCommand4_Click()Label1.BackStyle=0Command3.Visible=TrueCommand4.Visible=FalseEndSub272.標(biāo)簽的事件:Click、DblClick...例:PrivateSubLabel1_DblClick()Label1.FontSize=Label1.FontSize+10EndSub3.標(biāo)簽的方法:Move格式:[<對(duì)象名>.]Move<Left>[,[<top>][,[<width>][,<height>]]]

<left>:指示對(duì)象左邊的水平坐標(biāo)(x-軸)。

<top>:指示對(duì)象頂邊的垂直坐標(biāo)(y-軸)。

<width>:指示對(duì)象新的寬度。

<height>:指示對(duì)象新的高度。例:PrivateSubLabel1_Click()Label1.MoveLabel1.Left+50EndSub28

功能：執(zhí)行MsgBox函數(shù)時(shí)，程序被暫停，并產(chǎn)生一個(gè)對(duì)話框（也稱消息框），對(duì)話框中包括提示信息和命令按鈕，等待用戶單擊對(duì)話框上某個(gè)命令按鈕，并以此作為程序繼續(xù)執(zhí)行的依據(jù)。4.3.2

MsgBox函數(shù)

MsgBox函數(shù)用于向用戶發(fā)布提示信息，要求用戶作出必要的反應(yīng)。

格式：

MsgBox(msg[,type][,title][,helpfile,context])29

說(shuō)明：

msg：是一個(gè)字符串，其長(zhǎng)度不能超過(guò)1024個(gè)字符，如果超過(guò)，則多余的字符被截掉。該字符串的內(nèi)容將在由MsgBox函數(shù)產(chǎn)生的對(duì)話框內(nèi)顯示。當(dāng)字符串在一行內(nèi)顯示不完時(shí)，將自動(dòng)換行，當(dāng)然也可以用“Chr$(13)+Chr$(10)”強(qiáng)制換行。

type:

是一個(gè)整數(shù)值或符號(hào)常量，用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)的種類及數(shù)量。該參數(shù)的值由四類數(shù)值相加產(chǎn)生，這四類數(shù)值或符號(hào)常量分別表示按鈕的類型、顯示圖標(biāo)的種類及活動(dòng)按鈕的位置。30類別符號(hào)常量數(shù)值作用按鈕類型與數(shù)目VbOKOnly0顯示“確定”按鈕VbOKCancel1顯示“確定”和“取消”按鈕VbAbortRetryIgnore2顯示“終止”、“重試”及“忽略”VbYesNoCancel3顯示“是”、“否”及“取消”VbYesNo4顯示“是”和“否”按鈕VbRetryCancel5顯示“重試”和“取消”按鈕type參數(shù)的類別及取值31類別符號(hào)常量數(shù)值作用圖標(biāo)樣式VbCritical16顯示危險(xiǎn)圖標(biāo)VbQuestion32顯示疑問(wèn)圖標(biāo)VbExlamation48顯示警告圖標(biāo)VbInformation64顯示通知圖標(biāo)type參數(shù)的類別及取值32type參數(shù)的類別及取值類別符號(hào)常量數(shù)值作用缺省按鈕VbDefaultButton10第一個(gè)按鈕為缺省值VbDefaultButton2256第二個(gè)按鈕為缺省值VbDefaultButton3512第三個(gè)按鈕為缺省值33type參數(shù)的類別及取值類別符號(hào)常量數(shù)值作用強(qiáng)制轉(zhuǎn)換VbApplicationModal0應(yīng)用程序強(qiáng)制返回，當(dāng)前應(yīng)用程序直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)執(zhí)行。VbSystemModal4096系統(tǒng)強(qiáng)制返回，全部應(yīng)用程序直到用戶對(duì)消息框作出響應(yīng)才繼續(xù)執(zhí)行。34例4-12：MsgBox(“參數(shù)錯(cuò)誤”,18)函數(shù)中的type參數(shù)18=2+16+0+0PrivateSubCommand1_Click()

PrintMsgBox("參數(shù)錯(cuò)誤",18)EndSub顯示結(jié)果如下：35PrivateSubCommand2_Click()a=MsgBox("VbApplicationModal",18,

"VbApplicationModal")EndSub36PrivateSubCommand3_Click()a=MsgBox("VbSystemModal",4162,

"VbSystemModal")EndSub函數(shù)中的type參數(shù)4162=4096+64+2+037

title：是一個(gè)字符串，顯示對(duì)話框的標(biāo)題

helpfile,context

與InputBox函數(shù)相同。

若type缺省，則對(duì)話框內(nèi)只顯示一個(gè)

“確定”按鈕，并把該按鈕設(shè)置為活動(dòng)按鈕，

不顯示任何圖標(biāo)；若title缺省，則對(duì)話框的

標(biāo)題為當(dāng)前工程的名稱，如果希望標(biāo)題欄

中沒有任何內(nèi)容，應(yīng)將title設(shè)置為空字符串；

MsgBox函數(shù)返回一個(gè)整數(shù)

MsgBox函數(shù)對(duì)話框可以顯示7個(gè)不同的命令按鈕，用戶單擊某一個(gè)命令按鈕，將返回一個(gè)與該命令按鈕相關(guān)的一個(gè)整數(shù)值。38MsgBox函數(shù)的返回值命令按鈕名符號(hào)常量返回值“確定”按鈕VbOK1“取消”按鈕VbCancel2“終止”按鈕VbAbort3“重試”按鈕VbRetry4“忽略”按鈕VbIgnore5“是”按鈕VbYes6“否”按鈕VbNo739例:<提示信息>PrivateSubCommand1_Click()A=MsgBox("提示信息")EndSub例:<提示信息>換行PrivateSubCommand1_Click()A=MsgBox("第一行"&

Chr(13)&"第二行")EndSub40例:<對(duì)話框標(biāo)題>

PrivateSubCommand1_Click()A=MsgBox("提示信息",,"標(biāo)題內(nèi)容")

EndSub例:按鈕類型—0到5或符號(hào)常量，見P76

PrivateSubCommand1_Click()A=MsgBox("提示信息",1,"標(biāo)題內(nèi)容")

EndSub41例:圖標(biāo)類型—16、32、48、64或符號(hào)常量，見P76

PrivateSubCommand1_Click()A=MsgBox("提示信息",16,"標(biāo)題內(nèi)容")

EndSub例:默認(rèn)按鈕—0，256，512，見P76

PrivateSubCommand1_Click()a=MsgBox("提示信息",2+256,"標(biāo)題內(nèi)容")

PrintaEndSub按回車打印4424.3.3用Print方法輸出數(shù)據(jù)1.Print方法格式:[<對(duì)象名>.]Print[<表達(dá)式表>][{;|,}]<對(duì)象名>:窗體如Form1.Print"Hello"

圖片框如Picture1.Print"Hello"

打印機(jī)如Printer.Print"Hello"

立即窗口如Debug.Print"Hello"

省略:默認(rèn)為當(dāng)前窗體。

<表達(dá)式表>:多個(gè)表達(dá)式使用逗號(hào)或分號(hào)隔開。逗號(hào):以14個(gè)字符位置為單位把一個(gè)輸出行分成若干區(qū)段。分號(hào):后一項(xiàng)緊跟前一項(xiàng)輸出。43輸出時(shí)，數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位(正號(hào)不顯)，后面留一個(gè)空格位；字符串原樣輸出，前后無(wú)空格。例:PrivateSubForm_Activate()Print"12345678901234567890"Print"2+4=";2+4Print"2-4=",2-4EndSub例:PrivateSubForm_Activate()Print"12345678901234567890"Print"2+4=";2+4,Print"2-4=";Print2-4EndSub44例:PrivateSubForm_Load()

Form1.ShowPrint"12345678901234567890"Print'產(chǎn)生空行

Print"2+4=";2+4,Print'取消上面一句末尾逗號(hào)的作用

Print"2-4=";Print2-4EndSub輸入Print時(shí)可用?代替，VB將其自動(dòng)轉(zhuǎn)換成Print。452.與Print方法有關(guān)的函數(shù)(1)Tab函數(shù)格式:Tab[(n)]功能:在指定的第n個(gè)位置上輸出數(shù)據(jù)。參數(shù)n:n<當(dāng)前位置:打印位置為下一行的第n列；

n<1:打印位置為第1列；n>輸出行寬度:打印位置為nMod行寬；省略:打印位置為下一個(gè)打印區(qū)的起點(diǎn)。(每14個(gè)字符為一個(gè)打印區(qū))46例:PrivateSubForm_Activate()Print"12345678901234567890"Print"Hello";Tab(10);"World"Print"Hello";Tab;"World"Print"Hello";Tab(4);"World"PrintTab(-5);"Hello"EndSub47(2)Spc函數(shù)格式:Spc(n)功能:跳過(guò)n個(gè)空格。例:Print"HOW";Spc(3);"ABOUT"結(jié)果:HOW∪∪∪ABOUT484.3.4用文本框(TextBox)輸出數(shù)據(jù)【例4-13】在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英