VB程序設(shè)計(jì)第2版第4章 順序結(jié)構(gòu)程序設(shè)計(jì)ppt課件

1、第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)第第4 4章章順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)本章要點(diǎn)本章要點(diǎn):賦值語句賦值語句數(shù)據(jù)輸入數(shù)據(jù)輸入數(shù)據(jù)輸出數(shù)據(jù)輸出注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)事件驅(qū)動(dòng)事件驅(qū)動(dòng): 將代碼劃分成一些將代碼劃分成一些“子過程子過程”過程結(jié)構(gòu)過程結(jié)構(gòu): 過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成過程內(nèi)部代碼由三種基本結(jié)構(gòu)組成 即即: 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)順序結(jié)構(gòu): 執(zhí)行過程的次序從上到下，從左到右執(zhí)行過程的次序從上到下，從左到右例例: Private Sub Command1_

2、Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.1 賦值語句賦值語句1. 格式格式 = 或或: .=2. 功能功能 計(jì)算表達(dá)式的值計(jì)算表達(dá)式的值,再將此值賦給變量或?qū)ο髮傩?。再將此值賦給變量或?qū)ο髮傩浴?. 闡明闡明(1) : 應(yīng)符合應(yīng)符合VB變量命名約定。變量命名約定。(2) : 常量、變量、表達(dá)式、屬性。常量、變量、表達(dá)式、屬性。(3) : 缺省時(shí)為當(dāng)前窗體。缺省時(shí)為當(dāng)前窗體。(4) 賦值號(hào)賦

3、值號(hào)“=”: 與數(shù)學(xué)中的等號(hào)意義不同。與數(shù)學(xué)中的等號(hào)意義不同。 例例: X=X+1第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)(5) 賦值號(hào)左邊必須是變量或?qū)ο髮傩?。賦值號(hào)左邊必須是變量或?qū)ο髮傩浴?例例: X=1 MyStr=Good Morning Command1.Caption=確定確定 X+1=X 錯(cuò)誤，賦值號(hào)左邊是表達(dá)式錯(cuò)誤，賦值號(hào)左邊是表達(dá)式 Y=5 正確正確 5=Y 錯(cuò)誤，賦值號(hào)左邊是常量錯(cuò)誤，賦值號(hào)左邊是常量 (6) 變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型相容。相容。 類型相容：指變量名或?qū)ο髮傩悦軌蛘_存類型相容：指變量名或?qū)ο髮傩?/p>

4、名能夠正確存取賦值號(hào)右邊的表達(dá)式的值。取賦值號(hào)右邊的表達(dá)式的值。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 將整型數(shù)將整型數(shù)100賦給整型變量賦給整型變量A S = 123.45 將字符串將字符串123.45賦給變量賦給變量S A = S 將數(shù)字字符串變量賦給整型變量，將數(shù)字字符串變量賦給整型變量， 變量變量A中存放中存放123 S = A S中存放字符串中存放字符串123 B = 12345.67 A = B 高精度變量賦值給整型變量，高精度變量賦值

5、給整型變量， 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度變量賦值給低精度變量，高精度變量賦值給低精度變量， 變量變量B中存放中存放123456.8。有效數(shù)字。有效數(shù)字7位位 S = abc A = S 錯(cuò)誤，類型不匹配錯(cuò)誤，類型不匹配第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)(7) 變量未賦值時(shí)，數(shù)值型變量值為變量未賦值時(shí)，數(shù)值型變量值為0，字符串變，字符串變量值為空串量值為空串。(8) 給可變類型的變量賦值后，變量的類型為賦值給可變類型的變量賦值后，變量的類型為賦值號(hào)右邊表達(dá)式的類型。號(hào)右邊表達(dá)式的類型。例例: 執(zhí)行下列

6、各賦值語句后，執(zhí)行下列各賦值語句后，A的數(shù)據(jù)類型是什么？的數(shù)據(jù)類型是什么？ (設(shè)設(shè)A沒有定義數(shù)據(jù)類型沒有定義數(shù)據(jù)類型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/2019# A = Not 5 8可用可用TypeName函數(shù)顯示變量的數(shù)據(jù)類型。函數(shù)顯示變量的數(shù)據(jù)類型。如如:Print TypeName(A)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-1】設(shè)變量】設(shè)變量A中存放中存放5，變量，變量B中存放中存放8，交，交換兩個(gè)變量的值，使變量換兩個(gè)變量的值，使變量A中存放中存放8，變量，變量B中中存放存放5。 ABC

7、C=AA=BB=C代碼如下代碼如下: A = 5B = 8C = AA = BB = C第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 把要加工的初始數(shù)據(jù)從某種外部設(shè)備例如鍵把要加工的初始數(shù)據(jù)從某種外部設(shè)備例如鍵盤輸入到計(jì)算機(jī)中，并把處理結(jié)果輸出到指定盤輸入到計(jì)算機(jī)中，并把處理結(jié)果輸出到指定設(shè)備如顯示器），這是程序設(shè)計(jì)語言所應(yīng)具備設(shè)備如顯示器），這是程序設(shè)計(jì)語言所應(yīng)具備的基本部分。的基本部分。賦值語句；賦值語句；輸入框輸入框(InputBox)；文本框文本框(TextBox)；輸入輸入第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.2.1 用用InputBox函數(shù)輸入

8、數(shù)據(jù)函數(shù)輸入數(shù)據(jù)1. InputBox函數(shù)的格式函數(shù)的格式 InputBox( , , )2. 功能功能 提示一對話框，等待用戶輸入正文或按下按鈕，提示一對話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內(nèi)容的字符串。并返回包含文本框內(nèi)容的字符串。3. 闡明闡明 : 字符串表達(dá)式。字符串表達(dá)式。 可用可用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf換行。換行。: 字符串表達(dá)式字符串表達(dá)式,省略時(shí)默認(rèn)為應(yīng)用程序名。省略時(shí)默認(rèn)為應(yīng)用程序名。: 字符串表達(dá)式字符串表達(dá)式,省略時(shí)默認(rèn)為空。省略時(shí)默認(rèn)為空。返回值返回值: 字符串字符串(在對話框中單擊取消則

9、返回在對話框中單擊取消則返回)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Private Sub Form_Activate() Dim R As Single, AREA As Single R = Val(InputBox(“請輸入半徑請輸入半徑”, “計(jì)算計(jì)算面積面積”, “1”) AREA = 3.14 * R 2 Print R=; R; AREA=; AREA End Sub單擊單擊“確定確定”，返回文本框中的文本到變量，返回文本框中的文本到變量R中中單擊單擊“取消取消”，返回一個(gè)零長度的字符串，返回一個(gè)零長度的字符串第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 用文本

10、框輸入數(shù)據(jù)時(shí)，也就是將文本框的用文本框輸入數(shù)據(jù)時(shí)，也就是將文本框的Text屬性的內(nèi)容賦值給某個(gè)變量。屬性的內(nèi)容賦值給某個(gè)變量。 例：將文本框例：將文本框Text1中輸入的字符串賦給字符串中輸入的字符串賦給字符串變量變量Mystr Dim MyStr As String MyStr = Text1.Text 例：將文本框例：將文本框Text1中輸入的字符串作為數(shù)值賦中輸入的字符串作為數(shù)值賦給整型變量給整型變量 Dim A As Integer A = Val(Text1.Text)4.2.2 用用TextBox控件輸入數(shù)據(jù)控件輸入數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)1. 焦點(diǎn)焦點(diǎn)

11、當(dāng)前可以接收用戶輸入的對象稱為具有焦點(diǎn)。當(dāng)前可以接收用戶輸入的對象稱為具有焦點(diǎn)。 留意留意: 并非所有控件都可以接收焦點(diǎn)。而且并非所有控件都可以接收焦點(diǎn)。而且, 只有只有Enabled和和Visible屬性為屬性為True時(shí)，才可以接收焦時(shí)，才可以接收焦點(diǎn)。點(diǎn)。2. 事件事件 GotFocus 發(fā)生在對象得到焦點(diǎn)時(shí)發(fā)生在對象得到焦點(diǎn)時(shí) LostFocus 發(fā)生在對象失去焦點(diǎn)時(shí)發(fā)生在對象失去焦點(diǎn)時(shí)3. 對象何時(shí)得到焦點(diǎn)對象何時(shí)得到焦點(diǎn)運(yùn)行時(shí)選擇對象運(yùn)行時(shí)選擇對象(鼠標(biāo)、鼠標(biāo)、Tab鍵、訪問鍵鍵、訪問鍵)在代碼中使用在代碼中使用SetFocus方法方法4.2.3 焦點(diǎn)和焦點(diǎn)和Tab鍵序鍵序第四章第

12、四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4. 對象何時(shí)失去焦點(diǎn)對象何時(shí)失去焦點(diǎn)運(yùn)行時(shí)用運(yùn)行時(shí)用Tab鍵移動(dòng)、用訪問鍵或用鼠標(biāo)單擊選擇鍵移動(dòng)、用訪問鍵或用鼠標(biāo)單擊選擇另一個(gè)對象。另一個(gè)對象。在代碼中對另一個(gè)對象使用在代碼中對另一個(gè)對象使用SetFocus方法改變焦點(diǎn)。方法改變焦點(diǎn)。5. Tab鍵序鍵序指按指按Tab鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。每個(gè)窗體都有自己的每個(gè)窗體都有自己的Tab鍵序。鍵序。默認(rèn)鍵序與控件的建立次序一致。默認(rèn)鍵序與控件的建立次序一致。TabIndex屬性屬性: 決定決定Tab鍵序鍵序 改變改變TabIndex屬性可以改變屬性可以改變Tab

13、鍵序鍵序 TabStop屬性屬性: 決定是否能夠使用決定是否能夠使用 Tab 鍵將焦點(diǎn)移動(dòng)鍵將焦點(diǎn)移動(dòng)到當(dāng)前對象。到當(dāng)前對象。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-2】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某學(xué)生三門課的成績，計(jì)算平均成績。按要求編程。學(xué)生三門課的成績，計(jì)算平均成績。按要求編程。要求：要求：單擊單擊“計(jì)算按鈕求平均成績；計(jì)算按鈕求平均成績；當(dāng)輸入成績的文本框獲得焦點(diǎn)時(shí)，選中其中的文本；當(dāng)輸入成績的文本框獲得焦點(diǎn)時(shí)，選中其中的文本；當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值；當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值；單擊

14、單擊“去除按鈕清除所有內(nèi)容，將焦點(diǎn)定位在去除按鈕清除所有內(nèi)容，將焦點(diǎn)定位在Text1中；中；單擊單擊“退出按鈕結(jié)束程序的運(yùn)行。退出按鈕結(jié)束程序的運(yùn)行。Text4Text1Text2Text3Command1Command2Command3設(shè)設(shè)Text4的的Locked屬性為屬性為True第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)單擊單擊“計(jì)算按鈕求平均成績計(jì)算按鈕求平均成績 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B

15、+ C) / 3 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)當(dāng)輸入成績的文本框獲得焦點(diǎn)時(shí)當(dāng)輸入成績的文本框獲得焦點(diǎn)時(shí),選中其中的文本選中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.Se

16、lStart = 0 Text3.SelLength = Len(Text3.Text) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時(shí)當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時(shí),清除平均值清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change() Text4.Text = End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)單擊單擊“去除按鈕清除所有文本

17、框的內(nèi)容，并去除按鈕清除所有文本框的內(nèi)容，并將焦點(diǎn)定位在文本框?qū)⒔裹c(diǎn)定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub單擊單擊“退出按鈕結(jié)束程序的運(yùn)行。退出按鈕結(jié)束程序的運(yùn)行。 Private Sub Command3_Click() End End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.3 數(shù)據(jù)輸出數(shù)據(jù)輸出 在程序設(shè)計(jì)中對輸入的數(shù)據(jù)進(jìn)行加工后，往往在程序設(shè)計(jì)中對輸入的數(shù)據(jù)進(jìn)行加工后，往往需

18、要將處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶，即輸出。輸輸出出Print方法方法消息框消息框(MsgBox) 文本框文本框標(biāo)簽標(biāo)簽第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給文本框用文本框輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給文本框的的Text屬性。例如輸出一個(gè)字符串或數(shù)值）屬性。例如輸出一個(gè)字符串或數(shù)值）, 輸輸出多個(gè)字符串或數(shù)值）出多個(gè)字符串或數(shù)值）例：用文本框例：用文本框Text1輸出一個(gè)字符串輸出一個(gè)字符串 Text1.Text = hello例：用文本框例：用文本框Text1輸出一個(gè)數(shù)值型數(shù)據(jù)輸出一個(gè)數(shù)值型數(shù)據(jù) X =

19、 3 5 Text1.Text = Str(X) Str可以省略或用可以省略或用Format例：用文本框例：用文本框Text1輸出多個(gè)數(shù)，分多行輸出。輸出多個(gè)數(shù)，分多行輸出。 首先將文本框的首先將文本框的MultiLine設(shè)置為設(shè)置為True，必要時(shí)，必要時(shí)可以進(jìn)一步設(shè)滾動(dòng)條屬性可以進(jìn)一步設(shè)滾動(dòng)條屬性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X) & vbCrLf & Str(Y)4.3.1 用用TextBox控件輸出數(shù)據(jù)控件輸出數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-3】在】在Text1中輸入任一英文字母

20、，在中輸入任一英文字母，在Text2中顯示該英文字母及其中顯示該英文字母及其ASCII碼值。要求在文本碼值。要求在文本框框Text2中顯示出所有輸入的英文字母及其中顯示出所有輸入的英文字母及其ASCII碼值。碼值。Text1Text2Command1第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Space(5) & Char & _ Space(10) & St

21、r(Asc(Char) & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubChr(13) & Chr(10)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.3.2 用用Label控件輸出數(shù)據(jù)控件輸出數(shù)據(jù) 用標(biāo)簽輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給標(biāo)簽的用標(biāo)簽輸出數(shù)據(jù)時(shí)，也就是將數(shù)據(jù)賦給標(biāo)簽的Caption屬性。也可以輸出多個(gè)數(shù)據(jù)。屬性。也可以輸出多個(gè)數(shù)據(jù)。例：用標(biāo)簽例：用標(biāo)簽Label1輸出一個(gè)字符串輸出一個(gè)字符串 Label1.Caption = hello例：用標(biāo)簽

22、例：用標(biāo)簽Label1輸出一個(gè)數(shù)值型數(shù)據(jù)輸出一個(gè)數(shù)值型數(shù)據(jù) X = 3 5 Label1.Caption = Str(X) 例：用標(biāo)簽例：用標(biāo)簽Label1輸出多個(gè)數(shù)，分多行輸出。輸出多個(gè)數(shù)，分多行輸出。 通常要先設(shè)置標(biāo)簽的通常要先設(shè)置標(biāo)簽的AutoSize屬性和屬性和WordWrap屬性為屬性為True。 X = 3 5: y = 7 4 Label1.Caption = x= & Str(X) & vbCrLf _ & y= & Str(y)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-4】已知三角形的三條邊】已知三角形的三條邊a、b、c的長度，

23、的長度，用海倫公式求三角形的面積用海倫公式求三角形的面積S。海倫公式。海倫公式:將文本框?qū)⑽谋究騎ext1、Text2、Text3的內(nèi)容清空的內(nèi)容清空;設(shè)置三個(gè)文本框的設(shè)置三個(gè)文本框的Alignment屬性為屬性為1-Right Justify;設(shè)置標(biāo)簽設(shè)置標(biāo)簽Label2的的Caption屬性為空屬性為空;設(shè)置標(biāo)簽設(shè)置標(biāo)簽Label2的的BorderStyle屬性為屬性為1 Fixed Single。Text1 Text2 Text3Label2Command1)(21, )()(cbapcpbpappS 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)代碼如下：代碼如下：Private Su

24、b Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 顯示時(shí)保留兩位小數(shù)顯示時(shí)保留兩位小數(shù) Label2.Caption = Format(S, 0.00) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 消息框常用于在

25、屏幕上顯示一個(gè)對話框，給出消息框常用于在屏幕上顯示一個(gè)對話框，給出一些提示或警告信息，并允許用戶進(jìn)行選擇。程一些提示或警告信息，并允許用戶進(jìn)行選擇。程序可根據(jù)該選擇確定進(jìn)一步的操作。序可根據(jù)該選擇確定進(jìn)一步的操作。1. MsgBox函數(shù)的格式函數(shù)的格式 =MsgBox(,) 或：或： MsgBox ,2. 功能功能 在對話框中顯示消息，等待用戶單擊按鈕，并在對話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)整數(shù)告訴用戶單擊了哪個(gè)按鈕。返回一個(gè)整數(shù)告訴用戶單擊了哪個(gè)按鈕。3.闡明闡明: 字符串表達(dá)式。可用換行符換行。字符串表達(dá)式?？捎脫Q行符換行。: 按鈕類型按鈕類型+圖標(biāo)類型圖標(biāo)類型+默認(rèn)按鈕。默認(rèn)

26、按鈕。P67: 字符串表達(dá)式。字符串表達(dá)式。返回值返回值: 由在對話框中按下哪種按鈕決定。見由在對話框中按下哪種按鈕決定。見P674.3.3 用用MsgBox函數(shù)輸出數(shù)據(jù)函數(shù)輸出數(shù)據(jù)第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub例例: 換行換行 Private Sub Command1_Click() MsgBox 第一行第一行 & Chr(13) & 第二行第二行 End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Private Sub Comma

27、nd1_Click() A = MsgBox(提示信息提示信息, , 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 按鈕類型按鈕類型0到到5或符號(hào)常量或符號(hào)常量 見見P65 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 1, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: 圖標(biāo)類型圖標(biāo)類型16、32、48、64或符號(hào)常量或符號(hào)常量 見見P65 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 16, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 默認(rèn)按鈕默認(rèn)按

28、鈕0,256,512 見見P58 Private Sub Command1_Click() a = MsgBox(提示信息提示信息, 2 + 256, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) Print a End Sub按回車打印按回車打印4第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.3.4 用用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)1. Print方法方法 格式格式: . Print ; | , : 窗體窗體 如如 Form1.Print Hello 圖片框圖片框 如如 Picture1.Print Hello 打印機(jī)打印機(jī) 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug

29、.Print Hello 省略省略: 默認(rèn)為當(dāng)前窗體。默認(rèn)為當(dāng)前窗體。 : 多個(gè)表達(dá)式使用逗號(hào)或分號(hào)隔開。多個(gè)表達(dá)式使用逗號(hào)或分號(hào)隔開。 逗號(hào)逗號(hào): 以以14個(gè)字符位置為單位把一個(gè)輸出行個(gè)字符位置為單位把一個(gè)輸出行分成若干區(qū)段。分成若干區(qū)段。 分號(hào)分號(hào): 后一項(xiàng)緊跟前一項(xiàng)輸出。后一項(xiàng)緊跟前一項(xiàng)輸出。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 輸出時(shí)，數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位輸出時(shí)，數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位(正號(hào)不顯正號(hào)不顯)，后面留一個(gè)空格位；字符串原樣輸出，前后無空格。后面留一個(gè)空格位；字符串原樣輸出，前后無空格。例例: Private Sub Form_Activate() Print

30、 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Pri

31、nt 取消上面一句末尾逗號(hào)的作用取消上面一句末尾逗號(hào)的作用 Print 2-4=; Print 2 - 4 End Sub輸入輸入Print時(shí)可用時(shí)可用?替代，替代，VB將其自動(dòng)轉(zhuǎn)換成將其自動(dòng)轉(zhuǎn)換成Print第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)2. 與與Print方法有關(guān)的函數(shù)方法有關(guān)的函數(shù)(1) Tab函數(shù)函數(shù) 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n個(gè)位置上輸出數(shù)據(jù)。個(gè)位置上輸出數(shù)據(jù)。 參數(shù)參數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n1: 打印位置為第打印位置為第1列列 省略省略: 打印位置為下一個(gè)打印區(qū)的起點(diǎn)打印位置為下

32、一個(gè)打印區(qū)的起點(diǎn) (每每14個(gè)字符為一個(gè)打印區(qū)個(gè)字符為一個(gè)打印區(qū))第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)例例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)(2) Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: 跳過跳過n個(gè)空格。個(gè)空格。 例例: Print

33、HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT留意留意: Spc函數(shù)與函數(shù)與Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別Space函數(shù)函數(shù):可以用在字符串允許出現(xiàn)的任何位置?？梢杂迷谧址试S出現(xiàn)的任何位置。Spc函數(shù)函數(shù):只能用在打印語句中。只能用在打印語句中。Tab函數(shù)指定絕對位置；函數(shù)指定絕對位置； Space函數(shù)或函數(shù)或Spc函數(shù)指函數(shù)指定相對位置。定相對位置。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.4 注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句1. 注釋語句注釋語句 格式格式: | Rem 功能功能: 給語句或程序段加上注釋，以提高可讀性。給語

34、句或程序段加上注釋，以提高可讀性。 闡明闡明: Rem與與 之間至少空一個(gè)空格。之間至少空一個(gè)空格。例例: Private Sub Form_Activate() Rem 本程序用于計(jì)算圓的面積本程序用于計(jì)算圓的面積 Dim R As String, AREA As Single R為半徑為半徑 R=InputBox(請輸入半徑請輸入半徑, , 1) :Rem 輸入半徑輸入半徑 AREA = 3.14 * Val(R) 2 以下將半徑和面積輸出到窗體上以下將半徑和面積輸出到窗體上 Print Val(R), AREAEnd Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)2. 暫停語句暫停

35、語句 格式格式: Stop 功能功能: 暫停程序的執(zhí)行。暫停程序的執(zhí)行。 用于程序調(diào)試。類似于執(zhí)行用于程序調(diào)試。類似于執(zhí)行“運(yùn)轉(zhuǎn)菜單中的運(yùn)轉(zhuǎn)菜單中的“中斷命令中斷命令3. 結(jié)束語句結(jié)束語句 格式格式: End 功能功能: 結(jié)束程序的執(zhí)行。結(jié)束程序的執(zhí)行。第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)4.5 順序結(jié)構(gòu)程序應(yīng)用舉例順序結(jié)構(gòu)程序應(yīng)用舉例【例【例4-5】雞兔同籠。已知籠中雞兔總頭數(shù)為】雞兔同籠。已知籠中雞兔總頭數(shù)為h，總腳數(shù)為總腳數(shù)為f，問雞兔各有多少只？，問雞兔各有多少只？分析：分析：設(shè)雞有設(shè)雞有x只，兔有只，兔有y只，則方程式如下：只，則方程式如下： x+y=h 2x+4y=f解方

36、程。解出求解方程。解出求x和和y的具體公式為：的具體公式為： x=（4h-f）/2 y=（f-2h）/2第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)設(shè)計(jì)界面：設(shè)計(jì)界面：Command1Text1Text2Label4Label3Label3、Label4的的AutoSize屬性設(shè)置為屬性設(shè)置為True第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)代碼如下：代碼如下：Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = Val(Text1.Text) f = Val

37、(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = Label3.Caption & Str(x) & 只只 Label4.Caption = Label4.Caption & Str(y) & 只只End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)Private Sub Text1_GotFocus() 文本框文本框Text1獲得焦點(diǎn)時(shí)，選中其中的文本獲得焦點(diǎn)時(shí)，選中其中的文本 Text1.SelStart = 0 Text1.SelLength = Len(Te

38、xt1.Text)End SubPrivate Sub Text2_GotFocus() 文本框文本框Text2獲得焦點(diǎn)時(shí)，選中其中的文本獲得焦點(diǎn)時(shí)，選中其中的文本 Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-64-6】設(shè)計(jì)如下圖所示的界面。運(yùn)行時(shí)，在文】設(shè)計(jì)如下圖所示的界面。運(yùn)行時(shí)，在文本框本框Text1Text1和和Text2Text2中輸入某一范圍后，單擊中輸入某一范圍后，單擊“隨隨機(jī)抽號(hào)按鈕，在標(biāo)簽機(jī)抽號(hào)按鈕，在標(biāo)簽LabelLabel上產(chǎn)生指定范圍內(nèi)的

39、上產(chǎn)生指定范圍內(nèi)的隨機(jī)整數(shù)，實(shí)現(xiàn)在任意指定的范圍內(nèi)隨機(jī)抽取號(hào)隨機(jī)整數(shù)，實(shí)現(xiàn)在任意指定的范圍內(nèi)隨機(jī)抽取號(hào)碼。碼。Text1Text2框架框架Frame1Label4Command1第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)代碼如下：代碼如下：Private Sub Command1_Click() Dim A As Integer, B As Integer Randomize A = Val(Text1.Text) B = Val(Text2.Text) 產(chǎn)生產(chǎn)生A,B區(qū)間的隨機(jī)整數(shù)區(qū)間的隨機(jī)整數(shù) Label4.Caption = Str(Int(Rnd * (B - A + 1) + A

40、)End Sub第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì) 在在Text1獲得焦點(diǎn)時(shí)，選中其中的文本獲得焦點(diǎn)時(shí)，選中其中的文本Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub 在在Text2獲得焦點(diǎn)時(shí)，選中其中的文本獲得焦點(diǎn)時(shí)，選中其中的文本Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計(jì)順序結(jié)構(gòu)程序設(shè)計(jì)【例【例4-7】求用十進(jìn)制表示】求用十進(jìn)制表示230有多少位。界面如下有多少位。界面如下圖所示圖所示 。Label3分析：先求分析：先求230的值，再用的值，再用Str函數(shù)將其轉(zhuǎn)函數(shù)將其轉(zhuǎn)換為字符串，用換為字符串，用Trim函數(shù)去掉該字符前的函數(shù)去掉該字符前的空格，然后用空格，然后用Len函數(shù)求字符串長度即其函數(shù)求字符串長度即其位數(shù)）。位數(shù)）。第四章第四