VB課件第3章順序結構

1、第三章順序結構程序設計 1、預備知識一、結構化程序設計的三種基本結構 ：順序結構、分支結構、循環(huán)結構順序結構：就是從頭到尾依次執(zhí)行每一個語句分支結構：根據(jù)不同的條件執(zhí)行不同的語句或者語句體循環(huán)結構：重復的執(zhí)行語句或者語句體 ,達到重復執(zhí)行一類操作的目的二、語句概念：語句是執(zhí)行具體操作的指令。V B程序中一行代碼稱為一條語句。例如：Let A= 3程序中的每條語句都必須遵從語句的語法規(guī)則和格式。1、 語句格式的符號規(guī)定v 尖括號；必選項 方括號；可選項I 豎線；用來分隔多個選擇項，選其中之一項省略號；表示同類項目的重復出現(xiàn)例如： .Print 表達式表刁2、 語句書寫規(guī)則(1) )每行通常寫一條

2、語句；若將幾個語句寫在一行，語句間需要用冒號分隔；例如：A = 3 : B = 4(2) 一個語句行不能超過1 0 2 3個字符，如果太長，可用 “”續(xù)行；例如： I am a _Student. ”(3)與其他高級語言一樣，在 vb中使用的分號、引號、括號等符號都是 英文狀態(tài)下的半角符號，而不能使用中文狀態(tài)下的全角符號。例如：If a5 Then x=10Print x=; x不能寫成If a 5 Then x=10Print“x=； x 2、順序結構的基本語句和方法一、 賦值語句 Let格式： Let =對象名 =功能：首先計算賦值號右邊表達式的值，然后，將值賦予左邊變量或對象屬性。例 1

3、+4= 程序Private Sub Form_Activate() Dim a&, b&, m& a = 1: b = 4 m = a + bPrint mEnd Sub例 3_2_1Private Sub Form_Click()Dim a As Long, b As String, c As Boolean a = b = a = bc = 1 5 And -1End Sub說明 :(1)當數(shù)值賦值于字符變量時，自動轉換為字符，但是字符數(shù)據(jù)賦值與數(shù)值變量時，必須為數(shù)字，否則出錯。例如： b= ” 123abc”(3) “=”是給變量或屬性賦值的符號，與關系運算符的“=(等于)不同。例如：賦

4、值語句a=b和b=a表示兩個結果不同的賦值語句。(3)賦值號左邊只能是變量，不能是常量、常數(shù)符號或表達式。下面均 為錯誤的賦值語句：x+y=3 左邊是表達式5=sqr(s) 左邊是常量(4)不能在一句賦值語句中，同時給多個變量賦值。例如： x=y=z=1是不正確的。正確書寫應分別用三條賦值語句完成。 z=1:y=z:x=z二、輸出方法：P rint格式：對象名.Print表達式L | ;表達式功能： 首先計算各個表達式的值，然后，在指定對象上按格式依次顯示各個表達式的值。說明：(1)對象名為：窗體(Form)、圖片框(PictureBox )和打印機(Printer ) 例如： “ I am

5、a student. ”“ I am a student. ”若對象名缺省(或“ Me” ) ，默認為當前窗體，即在當前窗體上輸出。(2) 分隔符為逗號(，)時，稱為“標準格式”輸出?！皹藴矢袷健陛敵觯簩⒚總€輸出行分為若干固定段，每段為 14(15)個字符，所以也稱作“固定格式” 。分隔符為逗號(； )時，稱為“緊湊格式”輸出?！熬o湊格式”輸出：輸出的表達式值之間，如果是字符串和字符串間沒有空格，數(shù)值與數(shù)值之間留有一個空格分隔。 “緊湊格式”也稱作“自由格式” 。例如： Print“ABC” , ” DEF” ,12345輸出結果：ABBum mu DEfF-mimm 112345Print“

6、 ABC” ; ” DEF”輸出結果： ABCDEFPrint 1;2;-3輸出結果：J 1n213Print“ABC” ;1; ” DEF” ;-23; ” GH”輸出結果：ABL1 1DEF- 231GH語句末尾如果有分隔符(逗號或分號)時，之后的輸出方法的輸出內容在同一行顯示；例如： Print“ X+Y=” ;Print 5+10輸出結果：X+Y4 15(5) 如果關鍵字Print后面沒有任何輸出項，其作用為強制換行;例如： Print“ X+Y=” ;PrintPrint 5+10輸出結果： X+Y=15三、 和 Print 方法有關的函數(shù)1、 Tab 函數(shù)格式：Tab(數(shù)值表達式)

7、功能： 指定該函數(shù)后面的表達式值的輸出起始位置。例如： Print Tab(5);“ ok” ;tab(15); ” hi ”輸出結果：mi。k mum h i說明 : 當后面 Tab 函數(shù)表達式值小于前面的時，自動換行輸出。例如： Print Tab(15);“ ok” ;tab(5); ” hi ”輸出結果：ummmm h iO k2、 Spc 函數(shù)格式：Spc(數(shù)值表達式)功能： 在下一個輸出項前面留出若干空格。例如： Print Tab(5);“ ok” ;Spc(5); ” hi ”輸出結果： o k h i說明 : Spc 函數(shù)僅能在Print 方法中使用，如果在賦值語句中使用，須

8、使用 Space函數(shù)，否則出錯，但是 Space函數(shù)可用于Print方法。格式：Space(數(shù)值表達式)例如：A= abc +space(5) + def正確A= abc +spc(5) + def錯誤Print Tab(5);“ok ；Space(5); hi 正確3、Format 函數(shù)格式：Format（表達式 , 格式字符串）功能：按照 格式字符串 指定格式顯示表達式的值。表達式數(shù)據(jù)類型為: 數(shù)值、字符、日期。（龔P68）（1 ）數(shù)值格式符字符 說明0數(shù)字占位符。顯示一位數(shù)字或是零。如果表達式在格式字符串中 0的位置上有一位數(shù)字存在，那 么就顯示出來；否則，就以零顯示。如果數(shù)值的位數(shù)少于

9、格式表達式中零的位數(shù)（無論是小數(shù)點 的左方或右方），那么就把前面或后面的零補足。如果數(shù)值的小數(shù)點左方位數(shù)多于格式表達式中小數(shù)點左面零 的位數(shù)，那么多出的部分都會顯示出來。如果數(shù)值的小數(shù)點右方位數(shù)多于格式表達式中小數(shù)點右面零 的位數(shù)，那么就四舍五入到格式符限定位數(shù)。#數(shù)字占位符。顯示一位數(shù)字或什么都不顯示。如果表達式在格式字符串中“ #”的位置上有數(shù)字存在，那么就顯示出來； 否則，該位置就什么都不顯示。此格式符號和“ 0”數(shù)字占位符大致相同，不同之處是在當表 達式中數(shù)值的位數(shù)少于“ #的位數(shù)（無論是小數(shù)點左方或右 方）時，不會把前面或后面的零顯示出來。小數(shù)點占位符%百分比符號占位符。表達式值乘以

10、100 o而百分比字符（%會插入到格式字符串中出現(xiàn)的位置上。千分位符號占位符E- E+ e- e+科學計數(shù)法格式。格式表達式中在E-、E+、e-或e+的右方含有至少一個數(shù)字占位符（0或#）。- +$顯示一個原義字符。如想顯示西B些列出的字符之外的字符時， 可以用反斜杠 “ ”字符括起來。例：Print Format, #.#)Print Format, #.#)Print Format,)Print Format,)Print Format, #,#.#E+#)Print Format, #.#E+#)計算結果：-123,+0（2 ）字符串格式符字符說明字符占位符。顯示字符或是空白。如果字符串

11、在格式字符串 中勺位置有字符存在，那么就顯示出來；否則，就在那個 位置上顯示空白。卜字符占位符。顯示字符或什么都不顯示。如果字符串在格式 字符串中和號（&）的位置有字符存在，那么就顯示出來；否則，就什么都不顯示。卜二強制小寫。將所有字符以小寫格式顯示。強制大寫。將所有字符以大寫格式顯示。!強制由左而右填充字符占位符。缺省值是由右而左填充字符 占位符。例：Print Format(hello, ) + |Print Format(hello, &) + |PrintFormat(hello, ) + |PrintFormat(hello, !) + |計算結果：hello| hello| HEL

12、LO| hello |日期/時間格式符字符說明卜以沒有前導零的數(shù)字來顯本日(1- 31)Odd以有前導零的數(shù)字來顯本日(01- 31)。ddd以簡與來表下星期(SunSat)。dddd以全稱來表下星期(SundaySaturday)。ddddd以完整日期表不法顯不(包括年、月、日)， 的短日期格式設置而定。缺省的短日期格式為日期的顯示要依系統(tǒng)1yyyy-mm-dd。dddddd以完整日期表不法顯本日期系列數(shù)(包括年、月、日)，日期的顯 示要依系統(tǒng)識別的長日期格式而定。缺省的長日期格式為yyyy 年 mnfl dd 日。w將一周中的日期以數(shù)值表示(1代表星期日 7代表星期六)。ww將一年中的星期

13、以數(shù)值表示(1- 54)。m以沒有前導零的數(shù)字來顯本月(1-12)h或hh之后，那么顯示的將是分而不是月。如果m是直接跟在mm以有前導零的數(shù)字來顯本月(01-12)?；騢h之后，那么顯示的將是分而不是月。如果m是直接跟在hmmm以簡與來表本月(JanDec)。mmmm以全稱來表下月(JanuaryDecember)。q將一年中的季以數(shù)值表示(1- 4)。y將一年中的日以數(shù)值表示(1- 366)。yy以兩位數(shù)來表示年(00- 99)。yyyy以四位數(shù)來表示年(0100- 9999)。h以沒有前導零的數(shù)字來顯不小時（0- 23）。hh以有前導零的數(shù)字來顯不小時（00 - 23）。n以沒有前導零的數(shù)

14、字來顯不分（0- 59）。nn以有前導零的數(shù)字來顯不分（00- 59）。s以沒有前導零的數(shù)字來顯小秒（0- 59）。ss以有前導零的數(shù)字來顯示秒（00- 59）。t t t t t以完整時間表不法顯不（包括時、分、秒）。如果時間是在10:00 A.M.或.之前，那么將顯不有前導零的時間。缺省的時間格式為 h:mm:ss。AM/PM在中午前以12小時配合大寫AM符號來使用；在中午和11:59 . 間以12小時配合大寫PM來使用。am/pm在中午前以12小時配合小寫am符號來使用；在中午和11:59 . 間以12小時配合小寫pm來使用。A/P在中午前以12小時配合大寫A符號來使用；在中午和11:5

15、9 . 間以12小時配合大寫P來使用。a/p在中午前以12小時配合小寫a符號來使用；在中午和11:59 . 間以12小時配合小寫p來使用。AMPM 或 ampm在中午前以12小時配合“上午”符號來使用；在中午和11:59 .間以12小時配合“下午”來使用。例：Print Format(Date, ddd)Print Format(Date, dddd)Print Format(Date, mmm)Print Format(Date, mmmm)計算結果：SunSundaySepSeptember4、 清屏方法CLS格式： 對象名 CLS功能：清除 Print 方法顯示的文本和繪圖語句顯示圖形，

16、并將光標移到對象坐標(0 , 0 )位置。對象名為：窗體(Form) 、圖片框(PictureBox )和打印機( Printer ) ；選項缺省為當前窗體。例 2_4_1 、 清屏例5、 注釋語句 Rem格式：Rem注釋內容 注釋內容 功能：非執(zhí)行語句，僅作為注釋。例：S=3將3賦予SS=3: Rem將3賦予S6、 結束語句 End格式：End功能：結束一個程序的運行。釋放所有使用的變量，關閉所有數(shù)據(jù)文件。7、 程序暫停語句 Stop格式：Stop功能：暫停程序執(zhí)行，用于監(jiān)視和調試程序。繼續(xù)“ F5”鍵。說明：(1)立即窗口：顯示斷點處指定中間變量值；(2)監(jiān)視窗口：顯示斷點處預設(拖入)的

17、中間變量值；(3 )本地窗口 ：顯示斷點處所有中間變量值； 3、數(shù)據(jù)輸入輸出函數(shù) InputBox和MsgBox （龔 P76）VB提供了兩個函數(shù)，用戶使用InputBox可以從鍵盤直接輸入數(shù)據(jù)，使用MsgBox可以將數(shù)據(jù)輸出到一個對話框中。一、數(shù)據(jù)輸入函數(shù)InputBox格式：InputBox（提示 , 標題 , 默認內容,x坐標位置, y坐標位置）功能：彈出一個輸入對話框，弁返回用戶鍵盤輸入的內容。（字符型）說明：提示信息為字符表達式，長度0 1 0 2 3個字符。可以使用VB常 數(shù)VbCrLf或CHR（13）+CHR（10便提示信息寫為多行。strName= InputBox（ “請輸入

18、你的姓名 + vbCrLf + “然后單擊確定”, “輸入框”）也可以：strSI =請輸入你的姓名”+ Chr（13） + Chr（10） + 然后單擊確定 strName = InputBox（strS1, 輸入框,100, 100）當鍵盤輸入“王曉明”后，變量strName獲得鍵盤輸入的值.例3_3_1、鍵盤輸入一個攝氏溫度值，計算它的華氏溫度值。轉換公式： F 5 c 32程序：Private Sub Form_Activate()Dim c%, f#c = InputBox(請輸入攝氏溫度)f = 9 / 5 * c + 32Print C=; c, F=; fEnd Sub二、數(shù)據(jù)

19、輸出函數(shù) MsgBox和MsgBox過程格式：MsgBox(艱示 , 類型 , 標題)過程形式：MsgBox 提示 , 類型,#題習功能：彈出一個信息對話框，弁根據(jù)用戶選擇點擊的按鈕，返回一個正數(shù)值。說明：(1) 輸出提示信息和標題格式于InputBox函數(shù)相同；(2) 類型設置顯示按鈕的數(shù)目和形式，圖標樣式和默認按鈕。缺省值為0。分組VB常數(shù)按 鈕 值描述按鈕數(shù)目vbOkOnly0只顯示“確定”按鈕vbOkCancel1顯示“確定”、“取消”按鈕vbAbortRetrylgnore2顯示“終止”、“重試”、“忽略”按鈕vbYesNoCancel3顯示“是”、“否”、“取消”按鈕vbYesNo

20、4顯示“是、“否”按鈕vbRetryCancel5顯示“重試”、“取消”按鈕圖標類型vbCritical16關鍵信息圖標“ X”e|vbQuestion32詢問信息圖標“”，vbExclamation48警告信息圖標“！ ”， vbInformation64信息圖標“i”，2默認按鈕VbDefaultButton10第一個按鈕為默認VbDefaultButton2256第二個按鈕為默認VbDefaultButton3512第三個按鈕為默認函數(shù)返回所選按鈕整數(shù)值VB常數(shù)返回值被按下的按鈕vbOk1確定vbCancel2取消vbAbort3終止vbRetry4重試vblgnore5忽略vbYes6

21、是vbNo7否例 3_3_2、A+ B=程序：Private Sub Form_Click()Dim a%, b%a = InputBox(A=)b = InputBox(B=)c = a & + & b & = & a + bd = MsgBox(c, 0, 計算 1+4=的算術題) End Sub過程形式：MsgBox c,計算1+4=的算術題例3_3_3、雞兔同籠問題。雞有兩條腿，兔子有四條腿。已知雞和兔子 共有h只，總腿數(shù)有f條，問雞、兔各有多少只分析：設雞有x只，兔有y只，則 x+y=hL 2x+4y=f整理，得：4h fX X 2f 2h LY F程序：Private Sub Co

22、mmand1_Click()Dim h%, f%h = InputBox( 雞和兔總只數(shù))f = InputBox(雞和兔總腳數(shù)(偶數(shù))x = (4 * h - f) / 2y = (f - 2 * h) / 2a =籠中雞、兔總只數(shù)為：& h & ，總腳數(shù)為：& fa = a & vbCrLf & 則籠中雞有：& x & 只，兔有：& y & 只d = MsgBox(a, 0, 雞兔同籠問題)End Sub試輸入：51,176過程形式：MsgBox a,雞兔同籠問題 4、窗體（龔 P22 P29）窗體是VB的一個重要對象。窗體除了具有自己的屬性、事件和方法外，還象一個容器一樣，可以在 它的上

23、面放置其它控件。比如：各種按鈕、文本框、圖片框等。窗體移動時，其上面的控件也隨之移動，窗體隱藏時，其上控件也隨之隱 藏。窗體可以作為文件形式存放在磁盤上，擴展文件名為：.frm一、窗體的主要屬性窗體和其他控件一樣，都具有相同的屬性和不同的屬性，可以人為將屬性 分為：外觀屬性：Caption、ForeColor、BackColor、BackStyle 位置屬性：Left、Top、Width、Height字體屬性：（Font） FontName、FontSize、FontBold 行為屬性：Enabled、Visible、AutoRedraw雜項：Name Tag屬性可以通過屬性窗口或代碼方式設置

24、和修改：格式：對象名 . 屬性名 =表達式例如：= VB程序例”也可以在代碼方式下訪問：格式： 對象名. 屬性名習例如：1、 Name（名稱）標識符。給窗體定義名稱。默認名：formX （X=1,2,）2、Caption （標題）字符型。標題欄文本。默認值：formX例如=我的第一個程序”3、 ForeColor/BackC010r （前景/背景顏色）設置控件的前/背景顏色（即正文顏色），可以使用下面的辦法。(1)十六進制數(shù)值。值域：&H000000&HFFFFFF&基本顏色:顏色十六進制值RGBVB常數(shù)里 八、&H0&000VBBlack藍&HFF0000&00255VBBlue綠&HFF0

25、0&02550VBGreen青&HFFFF00&0255255VBCyan紅&HFF&25500VBRed洋紅&HFF00FF&2550255VBMagenia黃&HFFFF&2552550VBYellow白&HFFFFFF&255255255VBWhite例：=&HFF00& 背景色為綠色(2 ) RGB函數(shù)格式:RGB(r,g,b)其中r,g,b分別表示一種基色，取值：0255例：=RGB(0,255,0)背景色為綠色(3) VB常數(shù)例：=VBGreen 背景色為綠色(4 ) QBColor 函數(shù)格式：QBColor(數(shù)字表達式,)其中數(shù)值表達式取值：015顏色值顏色值里 八、0灰8藍1亮

26、藍9綠2亮綠10青3亮青11紅4亮紅12洋紅5亮洋紅13黃6亮黃14白7亮白15例：=QBColor(2)背景色為綠色4、 Font屬性(1)FontName (字體)字符型。取值：中、英文字體庫名稱。缺省值：“宋體”例：二楷書 _GB2312(2 ) FontSize (字號)數(shù)字型。缺省值：9 (小五號字)例：FontSize=30中英字號對照表：字號11初號小初小一二號小二- p小三四號小四五號小五六號小六七號八號磅值4236262422181615141295(3) FontBold、FontItalic 、FontUnderline、FontStrikethru 加粗 斜體下劃線刪除

27、線布爾型。取值：True(-1)|False(0) 缺省值：False例3_4_2 Font屬性綜合例5、Enabled (允許響應)布爾型。決定對象在運行時是否響應事件。即控件是否可操作.當設置為false 時，禁止用戶進行操作。缺省值：True例：Private Sub Form_Load()=FalseEnd SubPrivate Sub Form_Click()Print 123End Sub6、Visible (可視)布爾型。決定程序運行時對象是否可見。當設置為 false時，用戶看不到，但控件本身存在。缺省值：True例：Private Sub Form_Load（）=FalseEnd Sub7、Left、Top （左、頂邊位置）和 Height、width