《第6章-程序VB-順序結(jié)構(gòu)程序設計ppt課件.ppt》由會員分享，可在線閱讀，更多相關(guān)《第6章-程序VB-順序結(jié)構(gòu)程序設計ppt課件.ppt（51頁珍藏版）》請在匯文網(wǎng)上搜索。

1、第6章 順序結(jié)構(gòu)程序設計,建議課時（1.5課時）,學習重點,賦值語句的使用。熟練使用常用的輸入輸出語句。其他順序語句的使用。掌握常用的順序結(jié)構(gòu)算法。,本章內(nèi)容,6.1 賦值語句6.2 常用的輸入語句6.3 常用的輸出語句6.4 其他語句6.5 常用算法及應用本章小結(jié),引言,順序結(jié)構(gòu),按語句在代碼中出現(xiàn)的先后次序“從上到下”依次執(zhí)行,Private Sub Form_Load() List1.AddItem 西游記 List1.AddItem 傲慢與偏見 List1.AddItem 水滸 List1.AddItem 王子復仇記 List1.AddItem 白雪公主End Sub,引言（續(xù)）,順序

2、結(jié)構(gòu)中的各條語句之間可能存在一定的關(guān)聯(lián)，要注意各語句之間的邏輯順序要求；,a=Val(Text1.Text) b=Val(Text2.Text)c=Val(Text3.Text),有的順序語句之間沒有任何關(guān)聯(lián)，先執(zhí)行誰都無所謂，編程時可以根據(jù)程序員的習慣設置先后次序，一旦程序代碼確定，各條語句的執(zhí)行順序也就唯一了。,Private Sub CmdDisPlay_Click() Dim Num As Double Num=Val(TxtNum) TxtInt=Cstr(Fix(Num) TxtDec=Cstr(Num -Fix(Num) End Sub,引言（續(xù)）,順序結(jié)構(gòu)中的典型語句賦值語句對

3、象方法的調(diào)用語句用戶交互語句某些不會引起程序發(fā)生跳轉(zhuǎn)的控制語句,6.1 賦 值 語 句,一般格式如下：Let varname = 表達式作用是將表達式的值賦給變量或?qū)傩?。說明：(1)Let是關(guān)鍵字，可省略。(2)varname是變量或?qū)傩缘拿Q，遵循標準變量命名約定。(3)表達式是賦給變量或?qū)傩缘闹怠?6.1 賦 值 語 句（續(xù)）,如：Dim MyStr As String, MyInt As IntegerLet MyStr = Hello World 等價于：MyStr = Hello World Let MyInt = 5 等價于： MyInt = 5,見“4.3.3變量”一節(jié)中“變量的

4、賦值”,6.1 賦 值 語 句（續(xù)）,注意：（1）等號左側(cè)只能是變量或?qū)ο蟮膶傩悦抑荒芙o運行時可修改的對象屬性賦值，試圖用賦值語句修改只讀屬性的值是錯誤的，如以下代碼是錯誤的。Form1.Name = MyForm“Text1. ScrollBars = vbHorizontal（2）賦值語句中左側(cè)變量或?qū)傩远际怯蓄愋偷?，賦給它們的值也應該是同類型數(shù)據(jù)，如果表達式的值類型和變量或?qū)傩灶愋筒灰恢聲r，系統(tǒng)將最大限度的進行自動轉(zhuǎn)換，把表達式的值轉(zhuǎn)換成與變量或?qū)傩韵嗤愋秃笤龠M行賦值，若自動轉(zhuǎn)換失敗，系統(tǒng)將提示錯誤信息。,6.1 賦 值 語 句（續(xù)）,賦值語句中的數(shù)據(jù)自動轉(zhuǎn)換原則,例題,在程序中將

5、變量A定義為Integer型 ，則語句A = “333” + “222” 將使A的值成為_。,溢出,例題,運行下面的程序，單擊命令按鈕C1，則窗體上的輸出是_。Private Sub C1_Click() Dim A As Integer, B As Boolean, C As Integer Dim D As Integer A = 20 / 3 B = True C = B D = A + C Print A, D, A = A + CEnd Sub,7 6 False,6.2 常用的輸入語句,輸入是指提供程序中待處理的數(shù)據(jù)，可以是運行時由用戶使用鍵盤或鼠標進行輸入的，也可以是先行程序的結(jié)

6、果作為后繼程序的輸入。 6.2.1 用控件輸入 6.2.2 輸入框InputBox函數(shù),6.2.1 用控件輸入,大部分控件可以在運行時通過界面修改其主要屬性。常用的輸入控件1文本框 2單選鈕和復選框 3列表框和組合框,1文本框,文本框既是一個輸入控件又是一個輸出控件。Text屬性是實現(xiàn)輸入輸出的重要屬性。,例6-1 輸入三門課程得分，計算總分。 Private Sub Command1_Click() Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)End Sub,2單選鈕和復選框,單選按鈕（OptionButto

7、n）和復選框（CheckBox）主要由用戶通過單擊鼠標來確定要輸入的數(shù)據(jù) 。Caption屬性、Value屬性是實現(xiàn)輸入的重要屬性。 例6-2,2單選鈕和復選框,例6-2 實現(xiàn)將文字進行放大1倍、2倍和3倍。 Dim x As Integer 過程級變量x，用來存放標簽最原始的尺寸Private Sub Form_Activate() 程序開始時獲取x的初始值 x = Label1.FontSizeEnd SubPrivate Sub Option1_Click() Label1.FontSize = xEnd SubPrivate Sub Option2_Click() Label1.Fon

8、tSize = 2 * xEnd SubPrivate Sub Option3_Click() Label1.FontSize = 3 * xEnd Sub,3列表框和組合框,使用列表框（ListBox）和組合框（ComboBox）進行數(shù)據(jù)的輸入，主要依靠用戶通過鼠標單擊列表項來獲取數(shù)據(jù)。List、Text、ListIndex、ListCount等屬性是實現(xiàn)數(shù)據(jù)輸入的重要屬性。例6-3,3列表框和組合框,例6-3列表框中有若干門課程名稱，用戶選中某課程后單擊“確定”按鈕，使按鈕上的顯示文字與該課程的名稱一致。Private Sub Command1_Click() Command1.Capti

9、on = List1.TextEnd Sub,本題可作為“一鈕多用”的部分功能實現(xiàn)，根據(jù)不同的選擇呈現(xiàn)出不同的按鈕樣式，若采用選擇結(jié)構(gòu)繼續(xù)編程則可實現(xiàn)多種用途的按鈕。,6.2.2 輸入框InputBox函數(shù),1InputBox函數(shù)InputBox函數(shù)格式如下：Varname=InputBox(prompt,title ,default ,xpos ,ypos ,helpfile, context)功能：程序執(zhí)行以上格式語句時，彈出一個供用戶輸入信息的對話框，等待用戶輸入正文或按下按鈕，并返回文本框內(nèi)容。如：s = InputBox(請輸入你的姓名, 測試),6.2.2 輸入框InputBox函

10、數(shù),說明：（1）Varname是變量名，用于存放InputBox函數(shù)的返回值，即用戶輸入的內(nèi)容。（2）prompt是作為消息文字出現(xiàn)在輸入框上的字符串表達式，不可以省略。prompt的最大長度大約是1024個字符，由所用字符的寬度決定。如果prompt包含多個行，則可在各行之間用回車符Chr(13)、換行符Chr(10)、回車換行符的組合Chr(13) & Chr(10)或常量VbCrLf來分隔。（3）title是顯示在輸入框標題欄中的字符串表達式。如果省略title，則把應用程序名放入標題欄中。（4）default是輸入框彈出時就顯示在文本框中的默認字符串表達式，在沒有其它輸入時作為默認值。

11、如果省略default，則文本框為空。,6.2.2 輸入框InputBox函數(shù),（5）xpos是表示x坐標的數(shù)值表達式，和ypos成對出現(xiàn)，指定對話框的左邊與屏幕左邊的水平距離。如果省略 xpos，則對話框會在水平方向居中。（6）ypos是表示y坐標的數(shù)值表達式，和xpos成對出現(xiàn)，指定對話框的上邊與屏幕上邊的距離。如果省略 ypos，則對話框被放置在屏幕垂直方向距下邊大約三分之一的位置。（7）helpfile是表示幫助文件的字符串表達式，若識別到幫助文件，則使用該文件為對話框提供上下文相關(guān)的幫助。helpfile和context一定會一起出現(xiàn)，即如果已提供helpfile，則也必須提供con

12、text。使用helpfile和context將會使輸入框增加一個“幫助”按鈕，用戶可以按F1來查看與context相應的幫助主題。（8）context是表示某個幫助主題的幫助上下文編號的數(shù)值表達式。,6.2.2 輸入框InputBox函數(shù),在InputBox函數(shù)的使用中如果要省略某些位置參數(shù)，原則上都必須加入相應的逗號分界符，有一種情況下可以不加逗號，就是省略其后所有可省略的參數(shù)。 s = InputBox(“請輸入你的姓名”, , , , Height / 2)其中Height/2是ypos參數(shù)，中間的title、default和xpos都被省略了。,6.2.2 輸入框InputBox函數(shù)

13、,2InputBox函數(shù)的返回值格式中的Varname用來存放InputBox函數(shù)的返回值，該返回值是一個String型數(shù)據(jù)。由InputBox函數(shù)產(chǎn)生的輸入框一般有“確定”和“取消”兩個按鈕，如果用戶單擊“確定”按鈕或按下回車鍵，則InputBox函數(shù)返回文本框中的內(nèi)容。如果用戶單擊“取消”按鈕或按下Esc鍵，則此函數(shù)返回一個長度為零的字符串 ()。,6.2.2 輸入框InputBox函數(shù),3InputBox函數(shù)舉例 例6-4 用戶在運行時輸入列表框的各個單詞項。,Private Sub Command1_Click() Dim s As String, message As String

14、message = 請輸入列表項內(nèi)容 & vbCrLf & 要求輸入一個英文單詞 s = InputBox(message, 輸入數(shù)據(jù)) List1.AddItem sEnd Sub,缺陷：當用戶輸入時按了“取消”按鈕或未輸入就按“確定”按鈕的時候，列表框中會被添加進一些空項。,6.3常用的輸出語句,計算機中數(shù)據(jù)的輸出是將程序處理結(jié)果反饋給用戶，通常是在程序界面上將結(jié)果顯示出來。6.3.1 用控件輸出 6.3.2 消息框MsgBox函數(shù),6.3.1 用控件輸出,只要可以顯示信息的控件都可以用來輸出。 VB中大部分控件都可以顯式的表示出某些數(shù)據(jù)信息，只要修改能顯示信息的屬性即可，如：標簽的Cap

15、tion屬性，文本框的Text屬性，單選鈕、復選框的Caption和Value屬性，甚至在窗體、按鈕的Caption屬性。除了控件的屬性外，在窗體或圖片框中使用Print方法將結(jié)果信息輸出也是編程人員經(jīng)常采用的輸出方式。,6.3.1 用控件輸出,例6-5 單擊按鈕每次產(chǎn)生一個隨機整數(shù)，將這些數(shù)分別顯示在窗體、圖片框、文本框和列表框中。,對不同的對象我們采用不同的輸出策略：在窗體上用Print方法輸出；在圖片框上也用Print方法輸出；在文本框中使用Text屬性累計輸出；在列表框中使用AddItem方法增加輸出項。,在各個對象上輸出一個數(shù)Private Sub Command1_Click()

16、Dim x As Integer x = Int(Rnd * 100 + 1) Print x; 在窗體上輸出x，完整格式為Form1.Print x Picture1.Print x; 在圖片框中輸入x Text1.Text = Text1.Text & x 在文本框中輸出x List1.AddItem x 在列表框中能夠輸出x Print 在窗體上輸出換行 Picture1.Print 在圖片框中輸出換行 Text1.Text = Text1.Text & Chr(10) & Chr(13)在文本框中輸出換行 列表框無須用戶換行，一個列表項占一行End Sub清除各個對象上的顯示內(nèi)容Private Sub Form_Activate() 清空 Cls 清屏，完整格式為Form1.Cls Picture1.Cls 清空圖片框 Text1 = 清空文本框 List1.Clear 清空列表框End Sub,6.3.2 消息框MsgBox函數(shù),1. MsgBox函數(shù)MsgBox函數(shù)格式Varname=MsgBox(prompt, buttons , title , helpfile, co