VB程序設(shè)計第2版第4章課件_第1頁
VB程序設(shè)計第2版第4章課件_第2頁
VB程序設(shè)計第2版第4章課件_第3頁
VB程序設(shè)計第2版第4章課件_第4頁
VB程序設(shè)計第2版第4章課件_第5頁
已閱讀5頁,還剩45頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

1、第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章1 第第4 4章章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 本章要點本章要點: 賦值語句賦值語句 數(shù)據(jù)輸入數(shù)據(jù)輸入 數(shù)據(jù)輸出數(shù)據(jù)輸出 注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章2 事件驅(qū)動事件驅(qū)動: 將代碼劃分成一些將代碼劃分成一些“子過程子過程” 過程結(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í)行

2、過程的次序從上到下,從左到右 例例: Private Sub Command1_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è)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章3 4.1 賦值語句賦值語句 1. 格式格式 = 或或: .= 2. 功能功能 計算表達式的值計算表達式的值,再將此值賦給變量或?qū)ο髮傩浴T賹⒋酥蒂x給變量或?qū)ο髮傩浴?3. 說明說明 (1) : 應(yīng)符合應(yīng)符合VB變量命名約定。變量命名約定。 (2)

3、 : 常量、變量、表達式、屬性。常量、變量、表達式、屬性。 (3) : 缺省時為當(dāng)前窗體。缺省時為當(dāng)前窗體。 (4) 賦值號賦值號“=”: 與數(shù)學(xué)中的等號意義不同與數(shù)學(xué)中的等號意義不同。 例例: X=X+1 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章4 (5) 賦值號左邊必須是變量或?qū)ο髮傩?。賦值號左邊必須是變量或?qū)ο髮傩浴?例例: X=1 MyStr=Good Morning Command1.Caption=確定確定 X+1=X 錯誤,賦值號左邊是表達式錯誤,賦值號左邊是表達式 Y=5 正確正確 5=Y 錯誤,賦值號左邊是常量錯誤,賦值號左邊是常量 (6) 變

4、量名或?qū)ο髮傩悦念愋蛻?yīng)與表達式類型變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達式類型 相容。相容。 類型類型相容相容:指變量名或?qū)ο髮傩悦軌蛘_存:指變量名或?qū)ο髮傩悦軌蛘_存 取賦值號右邊的表達式的值取賦值號右邊的表達式的值。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章5 例例: 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ù)字字符串變量賦給整型變

5、量,將數(shù)字字符串變量賦給整型變量, 變量變量A中存放中存放123 S = A S中存放字符串中存放字符串123 B = 12345.67 A = B 高精度變量賦值給整型變量,高精度變量賦值給整型變量, 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度變量賦值給低精度變量,高精度變量賦值給低精度變量, 變量變量B中存放中存放123456.8。有效數(shù)字。有效數(shù)字7位位 S = abc A = S 錯誤,類型不匹配錯誤,類型不匹配 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章6 (7) 變量未賦值時,數(shù)值型變

6、量值為變量未賦值時,數(shù)值型變量值為0,字符串變,字符串變 量值為空串量值為空串。 (8) 給可變類型的變量賦值后,變量的類型為賦值給可變類型的變量賦值后,變量的類型為賦值 號右邊表達式的類型。號右邊表達式的類型。 例例: 執(zhí)行下列各賦值語句后,執(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/1999# A = Not 5 8 可用可用TypeName函數(shù)顯示變量的數(shù)據(jù)類型。函數(shù)顯示變量的數(shù)據(jù)類型。 如如:Print TypeNam

7、e(A) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章7 【例【例4-1】設(shè)變量】設(shè)變量A中存放中存放5,變量,變量B中存放中存放8,交,交 換兩個變量的值,使變量換兩個變量的值,使變量A中存放中存放8,變量,變量B中中 存放存放5。 AB C C=A A=B B=C 代碼如下代碼如下: A = 5 B = 8 C = A A = B B = C 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章8 4.2 數(shù)據(jù)輸入數(shù)據(jù)輸入 把要加工的初始數(shù)據(jù)從某種外部設(shè)備(例如鍵把要加工的初始數(shù)據(jù)從某種外部設(shè)備(例如鍵 盤)盤)輸入輸入到計算機中,并把處理結(jié)

8、果到計算機中,并把處理結(jié)果輸出輸出到指定到指定 設(shè)備(如顯示器),這是程序設(shè)計語言所應(yīng)具備設(shè)備(如顯示器),這是程序設(shè)計語言所應(yīng)具備 的基本部分。的基本部分。 賦值語句;賦值語句; 輸入框輸入框(InputBox); 文本框文本框(TextBox); 輸入輸入 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章9 4.2.1 用用InputBox函數(shù)輸入數(shù)據(jù)函數(shù)輸入數(shù)據(jù) 1. InputBox函數(shù)的格式函數(shù)的格式 InputBox( , , ) 2. 功能功能 提示一對話框,等待用戶輸入正文或按下按鈕,提示一對話框,等待用戶輸入正文或按下按鈕, 并返回包含文本框內(nèi)容的字符

9、串。并返回包含文本框內(nèi)容的字符串。 3. 說明說明 : 字符串表達式。字符串表達式。 可用可用Chr(13)、Chr(10)、 Chr(13) R; AREA=; AREA End Sub 單擊單擊“確定確定”,返回文本框中的文本到變量,返回文本框中的文本到變量R中中 單擊單擊“取消取消”,返回一個零長度的字符串,返回一個零長度的字符串 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章11 用文本框輸入數(shù)據(jù)時,也就是將文本框的用文本框輸入數(shù)據(jù)時,也就是將文本框的Text 屬性的內(nèi)容賦值給某個變量。屬性的內(nèi)容賦值給某個變量。 例:將文本框例:將文本框Text1中輸入的字符

10、串賦給字符串中輸入的字符串賦給字符串 變量變量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è)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章12 1. 焦點焦點 當(dāng)前可以接收用戶輸入的對象稱為具有焦點。當(dāng)前可以接收用戶輸入的對象稱為具有焦點。 注意注意: 并非所有控件都可以接收焦點。而且并非所有

11、控件都可以接收焦點。而且, 只有只有 Enabled和和Visible屬性為屬性為True時,才可以接收焦時,才可以接收焦 點。點。 2. 事件事件 GotFocus 發(fā)生在對象得到焦點時發(fā)生在對象得到焦點時 LostFocus 發(fā)生在對象失去焦點時發(fā)生在對象失去焦點時 3. 對象何時得到焦點對象何時得到焦點 運行時選擇對象運行時選擇對象(鼠標(biāo)、鼠標(biāo)、Tab鍵、訪問鍵鍵、訪問鍵) 在代碼中使用在代碼中使用SetFocus方法方法 4.2.3 焦點和焦點和Tab鍵序鍵序 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章13 4. 對象何時失去焦點對象何時失去焦點 運行時用

12、運行時用Tab鍵移動、用訪問鍵或用鼠標(biāo)單擊選鍵移動、用訪問鍵或用鼠標(biāo)單擊選 擇另一個對象。擇另一個對象。 在代碼中對另一個對象使用在代碼中對另一個對象使用SetFocus方法改變焦方法改變焦 點。點。 5. Tab鍵序鍵序 指按指按Tab鍵時光標(biāo)在各個控件之間移動的順序。鍵時光標(biāo)在各個控件之間移動的順序。 每個窗體都有自己的每個窗體都有自己的Tab鍵序。鍵序。 默認鍵序與控件的建立次序一致。默認鍵序與控件的建立次序一致。 TabIndex屬性屬性: 決定決定Tab鍵序鍵序 改變改變TabIndex屬性可以改變屬性可以改變Tab鍵序鍵序 TabStop屬性屬性: 決定是否能夠使用決定是否能夠使用

13、 Tab 鍵將焦點移鍵將焦點移 動到當(dāng)前對象。動到當(dāng)前對象。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章14 【例【例4-2】設(shè)計如下圖所示的界面,運行時,輸入某】設(shè)計如下圖所示的界面,運行時,輸入某 學(xué)生三門課的成績,計算平均成績。按要求編程。學(xué)生三門課的成績,計算平均成績。按要求編程。 要求:要求: n單擊單擊“計算計算”按鈕求平均成績;按鈕求平均成績; n當(dāng)輸入成績的文本框獲得焦點時,選中其中的文本;當(dāng)輸入成績的文本框獲得焦點時,選中其中的文本; n當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時,清除平均值;當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時,清除平均值; n單擊單擊“清除

14、清除”按鈕清除所有內(nèi)容,將焦點定位在按鈕清除所有內(nèi)容,將焦點定位在Text1中;中; n單擊單擊“退出退出”按鈕結(jié)束程序的運行。按鈕結(jié)束程序的運行。 Text4 Text1 Text2 Text3 Command1 Command2 Command3 設(shè)設(shè)Text4的的 Locked 屬性為屬性為True 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章15 單擊單擊“計算計算”按鈕求平均成績按鈕求平均成績 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3

15、.Text) Text4.Text = (A + B + C) / 3 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章16 當(dāng)輸入成績的文本框獲得焦點時當(dāng)輸入成績的文本框獲得焦點時,選中其中的文本選中其中的文本 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) E

16、nd Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章17 當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時當(dāng)輸入成績的文本框內(nèi)容發(fā)生變化時,清除平均值清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End Sub Private Sub Text3_Change

17、() Text4.Text = End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章18 單擊單擊“清除清除”按鈕清除所有文本框的內(nèi)容,并按鈕清除所有文本框的內(nèi)容,并 將焦點定位在文本框?qū)⒔裹c定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub 單擊單擊“退出退出”按鈕結(jié)束程序的運行。按鈕結(jié)束程序的運行。 Private Sub Command3_Click() End En

18、d Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章19 4.3 數(shù)據(jù)輸出數(shù)據(jù)輸出 在程序設(shè)計中對輸入的數(shù)據(jù)進行加工后,往往在程序設(shè)計中對輸入的數(shù)據(jù)進行加工后,往往 需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶,即輸出。需要將處理結(jié)果、提示信息等呈現(xiàn)給用戶,即輸出。 輸輸 出出 Print方法方法 消息框消息框(MsgBox) 文本框文本框 標(biāo)簽標(biāo)簽 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章20 用文本框輸出數(shù)據(jù)時,也就是將數(shù)據(jù)賦給文本框用文本框輸出數(shù)據(jù)時,也就是將數(shù)據(jù)賦給文本框 的的Text屬性。例如輸出一個字符串(或數(shù)值)屬性。例如輸

19、出一個字符串(或數(shù)值), 輸輸 出多個字符串(或數(shù)值)出多個字符串(或數(shù)值) 例:用文本框例:用文本框Text1輸出一個字符串輸出一個字符串 Text1.Text = hello 例:用文本框例:用文本框Text1輸出一個數(shù)值型數(shù)據(jù)輸出一個數(shù)值型數(shù)據(jù) X = 3 5 Text1.Text = Str(X) Str可以省略或用可以省略或用Format 例:用文本框例:用文本框Text1輸出多個數(shù),分多行輸出輸出多個數(shù),分多行輸出。 首先將文本框的首先將文本框的MultiLine設(shè)置為設(shè)置為True,必要時必要時 可以進一步設(shè)滾動條屬性可以進一步設(shè)滾動條屬性ScrollBars。 X = 3 5:

20、 Y = 7 4 Text1.Text = Str(X) 設(shè)置三個文本框的設(shè)置三個文本框的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 Text3 Label2Command1 )( 2 1 , )()(cbapcpbpappS 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章25 代碼如下:代碼如下: Private Sub Command1_Click() Dim

21、 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ù) Label2.Caption = Format(S, 0.00) End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章26 消息框常用于在屏幕上顯示一

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

23、類型+默認按鈕默認按鈕。P67 : 字符串表達式。字符串表達式。 返回值返回值: 由在對話框中按下哪種按鈕決定。見由在對話框中按下哪種按鈕決定。見P67 4.3.3 用用MsgBox函數(shù)輸出數(shù)據(jù)函數(shù)輸出數(shù)據(jù) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章27 例例: Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub 例例: 換行換行 Private Sub Command1_Click() MsgBox 第一行第一行 | , : 窗體窗體 如如 Form1.Print Hello 圖片框圖片框 如如 Pictur

24、e1.Print Hello 打印機打印機 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug .Print Hello 省略省略: 默認為當(dāng)前窗體。默認為當(dāng)前窗體。 : 多個表達式多個表達式使用逗號或分號隔開。使用逗號或分號隔開。 逗號逗號: 以以14個字符位置為單位把一個輸出行個字符位置為單位把一個輸出行 分成若干區(qū)段。分成若干區(qū)段。 分號分號: 后一項緊跟前一項輸出。后一項緊跟前一項輸出。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章31 輸出時,輸出時,數(shù)值型數(shù)據(jù)前有一個符號位數(shù)值型數(shù)據(jù)前有一個符號位(正號不顯正號不顯), 后面

25、留一個空格位后面留一個空格位;字符串原樣輸出,前后無空格。;字符串原樣輸出,前后無空格。 例例: Private Sub Form_Activate() Print 123456789 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub 例例: Private Sub Form_Activate() Print 123456789 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章32 例例: Private Sub Form_Load(

26、) Form1.Show Print 123456789 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗號的作用取消上面一句末尾逗號的作用 Print 2-4=; Print 2 - 4 End Sub 輸入輸入Print時可用時可用?代替,代替,VB將其自動轉(zhuǎn)換成將其自動轉(zhuǎn)換成Print 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章33 2. 與與Print方法有關(guān)的函數(shù)方法有關(guān)的函數(shù) (1) Tab函數(shù)函數(shù) 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n個位置上輸出數(shù)據(jù)。個位置上輸出數(shù)據(jù)。 參數(shù)參

27、數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n1: 打印位置為第打印位置為第1列列 省略省略: 打印位置為下一個打印區(qū)的起點打印位置為下一個打印區(qū)的起點 (每每14個字符為一個打印區(qū)個字符為一個打印區(qū)) 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章34 例例: Private Sub Form_Activate() Print 123456789 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5);

28、Hello End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章35 (2) Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: 跳過跳過n個空格。個空格。 例例: Print HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT 注意注意: Spc函數(shù)與函數(shù)與Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別 Space函數(shù)函數(shù):可以用在字符串允許出現(xiàn)的任何位可以用在字符串允許出現(xiàn)的任何位 置。置。 Spc函數(shù)函數(shù):只能用在打印語句中。只能用在打印語句中。 Tab函數(shù)指定絕對位置;函數(shù)指定絕對位置; Space函數(shù)或函數(shù)或Spc函數(shù)函數(shù) 指定

29、相對位置。指定相對位置。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章36 4.4 注釋、暫停與程序結(jié)束語句注釋、暫停與程序結(jié)束語句 1. 注釋語句注釋語句 格式格式: | Rem 功能功能: 給語句或程序段加上注釋,以提高可讀性。給語句或程序段加上注釋,以提高可讀性。 說明說明: Rem與與 之間至少空一個空格。之間至少空一個空格。 例例: Private Sub Form_Activate() Rem 本程序用于計算圓的面積本程序用于計算圓的面積 Dim R As String, AREA As Single R為半徑為半徑 R=InputBox(請輸入半徑請輸

30、入半徑, , 1) :Rem 輸入半徑輸入半徑 AREA = 3.14 * Val(R) 2 以下將半徑和面積輸出到窗體上以下將半徑和面積輸出到窗體上 Print Val(R), AREA End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章37 2. 暫停語句暫停語句 格式格式: Stop 功能功能: 暫停程序的執(zhí)行。暫停程序的執(zhí)行。 用于程序調(diào)試。類似于執(zhí)行用于程序調(diào)試。類似于執(zhí)行“運行運行”菜單中的菜單中的 “中斷中斷”命令命令 3. 結(jié)束語句結(jié)束語句 格式格式: End 功能功能: 結(jié)束程序的執(zhí)行。結(jié)束程序的執(zhí)行。 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序

31、結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章38 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 解方程。解出求解方程。解出求x和和y的具體公式為:的具體公式為: x=(4h-f)/2 y=(f-2h)/2 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章39 設(shè)計界面:設(shè)計界面: Command1 Text1 Text2 L

32、abel4 Label3 Label3、Label4的的AutoSize屬性設(shè)置為屬性設(shè)置為True 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章40 代碼如下:代碼如下: Private Sub Command1_Click() Dim h As Integer, f As Integer, x As Integer, y As Integer h = Val(Text1.Text) f = Val(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = Label3.Caption Len(Trim(Temp); 位位 End Sub 第四章第四章 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計 VB程序設(shè)計第2版第4章47 【例例4-84-

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論