第4章 程序控制結(jié)構(gòu)-順序結(jié)構(gòu)

VisualBasic程序設(shè)計(jì)第4章程序控制結(jié)構(gòu)1第4章程序控制結(jié)構(gòu)內(nèi)容簡(jiǎn)介4.1順序結(jié)構(gòu)4.2選擇結(jié)構(gòu)4.3循環(huán)結(jié)構(gòu)4.4程序控制結(jié)構(gòu)舉例2第4章程序控制結(jié)構(gòu)結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)流程圖三種結(jié)構(gòu)的N-S圖如下：

A塊B塊B塊A塊條件？是否當(dāng)條件循環(huán)體順序結(jié)構(gòu)分支結(jié)構(gòu)循環(huán)結(jié)構(gòu)結(jié)構(gòu)化程序3第4章程序控制結(jié)構(gòu)

順序結(jié)構(gòu)是程序設(shè)計(jì)中最簡(jiǎn)單、最常用的基本結(jié)構(gòu)。其特點(diǎn)是，程序執(zhí)行順序和書寫順序一致，即自上而下執(zhí)行，在VB中構(gòu)成順序結(jié)構(gòu)的主要有賦值語(yǔ)句，輸入/輸出操作等4.1順序結(jié)構(gòu)4第4章程序控制結(jié)構(gòu)4.1.1賦值語(yǔ)句格式：[Let]<變量名>＝<表達(dá)式>

Let可省略<變量名>是變量或?qū)ο髮傩缘拿Q

<表達(dá)式>是任何數(shù)據(jù)類型的表達(dá)式賦值語(yǔ)句賦值號(hào)“=”兩邊不要求數(shù)據(jù)類型一致，賦值號(hào)有自動(dòng)轉(zhuǎn)換數(shù)據(jù)類型的功能。說(shuō)明功能：先計(jì)算賦值號(hào)“=”右邊<表達(dá)式>的值，然后將結(jié)果賦給左邊的<變量>或指定對(duì)象的屬性。5第4章程序控制結(jié)構(gòu)【例4-1】數(shù)學(xué)中的等號(hào)與賦值號(hào)的區(qū)別。SubForm_Click()

x=3:y=4

x=y

Printx,yEndSub運(yùn)行結(jié)果：4 4SubForm_Click()x=3:y=4

y=xPrintx,yEndSub運(yùn)行結(jié)果：3 34.1.1賦值語(yǔ)句6第4章程序控制結(jié)構(gòu)【例4-2】變量自身值的改變。PrivateSubForm_Click()x=5:Print"x1=";xx=x+2:Print"x2=";xa="Howdoyoudo"a=a&"!":PrintaEndSub運(yùn)行結(jié)果：x1=5 x2=7Howdoyoudo!PrivateSubForm_Click()

x=3:y=4t=x:x=y:y=tPrintx,yEndSub運(yùn)行結(jié)果：4 34.1.1賦值語(yǔ)句【例4-3】交換兩個(gè)變量的值。tx3ytxy43347第4章程序控制結(jié)構(gòu)賦值語(yǔ)句的總結(jié)為自定義變量賦值a=Val(Text1.Text)為屬性變量賦值

Text1.Text="+"可以是字符串類型

Text2.Text="+"可以是數(shù)值類型

Text2.Alignment=2賦值語(yǔ)句賦值號(hào)兩邊的數(shù)據(jù)類型可以不同TextResult.Text=Str(Sum)TextResult.Text=Sum賦值語(yǔ)句賦值號(hào)兩邊的內(nèi)容不能互換。右邊是提供數(shù)據(jù)的，可以是表達(dá)式或常數(shù)；左邊接受數(shù)據(jù)，只能是變量。Sum=a+b4.1.1賦值語(yǔ)句8第4章程序控制結(jié)構(gòu)4.1.1賦值語(yǔ)句【例4-4】設(shè)計(jì)一個(gè)計(jì)算3個(gè)月的平均工資的程序，用文本框作為數(shù)據(jù)的輸入和輸出?？誘xtAverage文本框5(輸出平均工資)空Txt3文本框4(輸入三月份工資)空Txt2文本框3(輸入二月份工資)空Txt1文本框2(輸入一月份工資)空TxtName文本框1(輸入姓名)Text屬性“名稱”屬性對(duì)象描述9第4章程序控制結(jié)構(gòu)PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(Txt1.Text)b=Val(Txt2.Text)c=Val(Txt3.Text)TxtAverage.Text=(a+b+c)/3EndSub4.1.1賦值語(yǔ)句10第4章程序控制結(jié)構(gòu)PrivateSubCommand2_Click()TxtName.Text=""Txt1.Text=""Txt2.Text=""Txt3.Text=""TxtAverage.Text=""TxtName.SetFocusEndSubPrivateSubCommand3_Click()UnloadForm1'從內(nèi)存中卸載窗體1EndSub用文本框作為輸入輸出控件時(shí)，應(yīng)注意：文本框中的文本是字符串型變量，不是數(shù)值型變量文本框的輸入輸出功能是通過(guò)文本框的Text屬性實(shí)現(xiàn)的4.1.1賦值語(yǔ)句11第4章程序控制結(jié)構(gòu)

一個(gè)計(jì)算機(jī)程序通常包含三個(gè)部分內(nèi)容：數(shù)據(jù)的輸入、數(shù)據(jù)的處理和數(shù)據(jù)的輸出。VB的輸入/輸出一般是通過(guò)下述方式實(shí)現(xiàn)：

控件：如文本框控件、標(biāo)簽框控件、列表框、組合框等函數(shù)和過(guò)程：如與用戶交互的InputBox函數(shù)與MsgBox函數(shù)和過(guò)程方法：如Print。

利用控件進(jìn)行數(shù)據(jù)的輸入/輸操作在后面的章節(jié)介紹，本節(jié)主要介紹通過(guò)與用戶交互的函數(shù)和過(guò)程及Print方法來(lái)實(shí)現(xiàn)數(shù)據(jù)的輸入/輸出。4.1.2數(shù)據(jù)的輸入/輸出操作12第4章程序控制結(jié)構(gòu)1、Print方法

功能：用于在窗體、立即窗口、圖片框、打印機(jī)等對(duì)象中顯示文本字符串和表達(dá)式的值

格式為：[<對(duì)象名.>]Print[<表達(dá)式列表>][,|;]<對(duì)象名>：可以是窗體、立即窗口、圖片框、打印機(jī)，省略時(shí)為當(dāng)前窗體。<表達(dá)式列表>：需要顯示的內(nèi)容，可以是多項(xiàng)的列表，項(xiàng)間用逗號(hào)或分號(hào)分隔。表達(dá)式可以是算術(shù)表達(dá)式、字符串表達(dá)式及布爾表達(dá)式。Print方法具有計(jì)算和顯示的雙重功能，對(duì)于表達(dá)式，先計(jì)算后顯示。4.1.2數(shù)據(jù)的輸入/輸出操作13第4章程序控制結(jié)構(gòu)逗號(hào)作輸出項(xiàng)的分隔符，按標(biāo)準(zhǔn)格式輸出將整個(gè)屏幕分為幾個(gè)打印區(qū)，每個(gè)打印區(qū)的第一列為一個(gè)標(biāo)準(zhǔn)位，每個(gè)標(biāo)準(zhǔn)位間隔14個(gè)光標(biāo)位置。

Print1,-2,3,4,5Print-6,"x"4.1.2數(shù)據(jù)的輸入/輸出操作14第4章程序控制結(jié)構(gòu)【例4-5】按標(biāo)準(zhǔn)格式在窗體上輸出不同大小的字符。PrivateSubForm_Click()Print"b","c"PrintString(15,"b")Font.Size=20Print"b","c"PrintString(14,"b")EndSub4.1.2數(shù)據(jù)的輸入/輸出操作15第4章程序控制結(jié)構(gòu)分號(hào)作輸出項(xiàng)分隔符，按緊湊格式輸出 “緊湊格式”輸出的規(guī)定是，數(shù)值型數(shù)據(jù)的符號(hào)占一位，數(shù)值項(xiàng)后空一格，字符串型數(shù)據(jù)后沒有空格。【例4-6】寫出輸出結(jié)果如圖所示的程序代碼。PrivateSubForm_Click()Print-3;5;"x";"y"EndSub4.1.2數(shù)據(jù)的輸入/輸出操作16第4章程序控制結(jié)構(gòu)輸出行控制 通常，一個(gè)Print方法輸出一行信息，下一個(gè)Print方法將在下一行中輸出。如果Print方法語(yǔ)句末尾是分隔符逗號(hào)或分號(hào)，則輸出結(jié)果不換行。如果Print方法末尾是逗號(hào)，則按標(biāo)準(zhǔn)格式與下一個(gè)Print方法輸出相接；如果Print語(yǔ)句末尾是分號(hào)，則按緊湊格式與下一個(gè)Print方法輸出相接。4.1.2數(shù)據(jù)的輸入/輸出操作17第4章程序控制結(jié)構(gòu)【例4-7】

PrivateSubForm_Click()Print"Visual",Print"Basic”PrintPrint"25+14=";Print25+14EndSub4.1.2數(shù)據(jù)的輸入/輸出操作18第4章程序控制結(jié)構(gòu)

用于Print方法的格式輸出函數(shù)

Tab(x)：使輸出數(shù)據(jù)顯示在第x列(絕對(duì)位置)

Space(x)或Spc(x)：取x個(gè)空格的字符串(相對(duì)位置)

4.1.2數(shù)據(jù)的輸入/輸出操作19第4章程序控制結(jié)構(gòu)【例4-8】

PrivateSubForm_Click()PrintTab(6);"@@@@@@@@@@@@"PrintTab(6);"-";Spc(10);"-"PrintTab(6);"*@";Spc(8);"@*"PrintTab(7);"*";Spc(8);"*"PrintTab(8);"*";Spc(6);"*"PrintTab(9);"*";Spc(4);"*”PrintTab(10);"**";Spc(0);"**"EndSub4.1.2數(shù)據(jù)的輸入/輸出操作20第4章程序控制結(jié)構(gòu)2、與用戶交互的函數(shù)和過(guò)程

InputBox函數(shù)4.1.2數(shù)據(jù)的輸入/輸出操作對(duì)話框標(biāo)題提示信息默認(rèn)內(nèi)容21第4章程序控制結(jié)構(gòu)<提示內(nèi)容>：指定在對(duì)話框中出現(xiàn)的文本，最多可有1024個(gè)字符。<對(duì)話框標(biāo)題>：指定對(duì)話框的標(biāo)題，是可選項(xiàng)。格式：<變量名>=InputBox(<提示內(nèi)容>,[<對(duì)話框標(biāo)題>],

[<默認(rèn)內(nèi)容>],[<x坐標(biāo)>],[<y坐標(biāo)>])<默認(rèn)內(nèi)容>：顯示在文本輸入框中，為可選項(xiàng)。<x坐標(biāo)><y坐標(biāo)>：確定對(duì)話框左上角在屏幕上的位置。說(shuō)明4.1.2數(shù)據(jù)的輸入/輸出操作－InputBox函數(shù)22第4章程序控制結(jié)構(gòu)【例4-10】用InputBox函數(shù)接收?qǐng)A球的半徑r，求圓球表面積s(s=4πr2)PrivateSubForm_Click()Constpi=3.1415926DimrAsSingle,areaAsSingle,pAsStringp="請(qǐng)輸入圓球的半徑,"&Chr(13)&"然后單擊"確定"或"取消"按紐。"

r=Val(InputBox(p,“計(jì)算圓球表面積","10",,100))

Font.Size=18area=4*pi*r^2Print"圓球表面積：";areaEndSub4.1.2數(shù)據(jù)的輸入/輸出操作－InputBox函數(shù)23第4章程序控制結(jié)構(gòu)2、與用戶交互的函數(shù)和過(guò)程

MsgBox函數(shù)和MsgBox過(guò)程4.1.2數(shù)據(jù)的輸入/輸出操作對(duì)話框標(biāo)題圖標(biāo)按鈕類型提示信息24第4章程序控制結(jié)構(gòu)格式：<變量>=MsgBox(<消息內(nèi)容>[,<對(duì)話框類型>][,<對(duì)話框標(biāo)題>][,<幫助文件名,幫助文件編號(hào)>])<消息內(nèi)容>：指定在對(duì)話框中出現(xiàn)的文本。<對(duì)話框類型>：設(shè)置對(duì)話框中出現(xiàn)的按鈕和圖標(biāo)，一般有3個(gè)參數(shù)，分別用來(lái)指定按鈕類型、圖標(biāo)類型和默認(rèn)按鈕。<對(duì)話框標(biāo)題>：在對(duì)話框標(biāo)題欄中顯示的內(nèi)容。<幫助文件名,幫助文件編號(hào)>：由幫助文件的作者指定的幫助文件編號(hào)。說(shuō)明4.1.2數(shù)據(jù)的輸入/輸出操作－MsgBox函數(shù)25第5章順序結(jié)構(gòu)MsgBox對(duì)話框的按鈕類型(P103)值常量按鈕類型0VbOkOnly只有確定按鈕1VbOkCancel有確定和取消按鈕2VbAbortRetryIgnore有終止、重試和忽略按鈕3VbYesNoCancel有是、否和取消按鈕4VbYesNo有是和否按鈕5VbRetryCancel有重試和取消按鈕4.1.2數(shù)據(jù)的輸入/輸出操作－MsgBox函數(shù)26第4章程序控制結(jié)構(gòu)MsgBox對(duì)話框的圖標(biāo)類型

值常量圖標(biāo)類型16VbCritical停止圖標(biāo)32VbQuestion問號(hào)圖標(biāo)48VbExclamantion感嘆號(hào)圖標(biāo)64VbInformation信息圖標(biāo)值常量默認(rèn)按鈕0VbDefaultButton1指定默認(rèn)按鈕為第一按鈕256VbDefaultButton2指定默認(rèn)按鈕為第二按鈕512VbDefaultButton3指定默認(rèn)按鈕為第三按鈕4.1.2數(shù)據(jù)的輸入/輸出操作－MsgBox函數(shù)MsgBox對(duì)話框的默認(rèn)按鈕

27第4章程序控制結(jié)構(gòu)MsgBox()函數(shù)的返回值按鈕返回值常量“確定”按鈕1VbOk“取消”按鈕2VbCancel“終止”按鈕3VbAbort“重試”按鈕4VbRetry“忽略”按鈕5VbIgnore“是”按鈕6VbYes“否”按鈕7VbNo若不需要使用返回值，則可將MsgBox作為命令使用。MsgBox的命令形式為：MsgBox<消息內(nèi)容>[,<對(duì)話框類型>][,<對(duì)話框標(biāo)題>]4.1.2數(shù)據(jù)的輸入/輸出操作－MsgBox函數(shù)28第4章程序控制結(jié)構(gòu)【例4-11】在下列程序中有兩個(gè)命令按鈕，一個(gè)是顯示字符串按鈕，另一個(gè)是退出按鈕，當(dāng)用戶單擊退出按鈕或窗口標(biāo)題條右上角的關(guān)閉圖標(biāo)時(shí)，均彈出確認(rèn)消息框。4.1.2數(shù)據(jù)的輸入/輸出操作－MsgBox函數(shù)29第4章程序控制結(jié)構(gòu)PrivateSubCmdDisplay_Click()Print"VisualBasic歡迎您！"EndSub

PrivateSubCmdExit_Click()UnloadForm1'從內(nèi)存中卸載窗體1EndSubPrivateSubForm_Unload(CancelAsInteger)a=MsgBox("真的要退出嗎？",256+4+32,"請(qǐng)確認(rèn)")

Ifa=6ThenCancel=0ElseCancel=1