【正文】 ange() = End Sub Private Sub Text3_Change() = End Sub 第四章 順序結構程序設計 18 ④單擊“清除”按鈕清除所有文本框的內容，并將焦點定位在文本框 Text1中。按要求編程。 ?TabIndex屬性 : 決定 Tab鍵序 改變 TabIndex屬性可以改變 Tab鍵序 ?TabStop屬性 : 決定是否能夠使用 Tab 鍵將焦點移動到當前對象。 ?每個窗體都有自己的 Tab鍵序。 ?在代碼中對另一個對象使用 SetFocus方法改變焦點。而且 , 只有Enabled和 Visible屬性為 True時，才可以接收焦點。 例：將文本框 Text1中輸入的字符串賦給字符串變量 Mystr Dim MyStr As String MyStr = 例：將文本框 Text1中輸入的字符串作為數(shù)值賦給整型變量 Dim A As Integer A = Val() 用 TextBox控件輸入數(shù)據(jù) 第四章 順序結構程序設計 12 1. 焦點 當前可以接收用戶輸入的對象稱為具有焦點。 AREA=。 ?返回值 : 字符串 (在對話框中單擊取消則返回 ) 第四章 順序結構程序設計 10 例 : Private Sub Form_Activate() Dim R As Single, AREA As Single R = Val(InputBox(―請輸入半徑” , “計算面積” , “ 1” )) AREA = * R ^ 2 Print R=。 ?標題 : 字符串表達式 ,省略時默認為應用程序名。 可用 Chr(13)、 Chr(10)、 Chr(13) amp。 賦值語句； 輸入框 (InputBox)； 文本框 (TextBox)； …… 輸入 第四章 順序結構程序設計 9 用 InputBox函數(shù)輸入數(shù)據(jù) 1. InputBox函數(shù)的格式 InputBox(提示信息 [, 標題 ] [, 默認值 ]) 2. 功能 提示一對話框，等待用戶輸入正文或按下按鈕，并返回包含文本框內容的字符串。 如 :Print TypeName(A) 第四章 順序結構程序設計 7 【例 41】設變量 A中存放 5，變量 B中存放 8，交換兩個變量的值，使變量 A中存放 8，變量 B中存放 5。 (8) 給可變類型的變量賦值后，變量的類型為賦值號右邊表達式的類型。有效數(shù)字 7位 S = abc A = S 39。 高精度變量賦值給低精度變量， 39。 S中存放字符串 123 B = A = B ‘ 高精度變量賦值給整型變量， 39。 將數(shù)字字符串變量賦給整型變量， 39。 將整型數(shù) 100賦給整型變量 A S = 39。 類型 相容 ：指變量名或對象屬性名能夠正確存取賦值號右邊的表達式的值 。 正確 5=Y 39。 例 : X=1 MyStr=Good Morning =確定 X+1=X 39。 (4) 賦值號“ =” : 與數(shù)學中的等號意義不同 。 (2) 表達式 : 常量、變量、表達式、屬性。第四章 順序結構程序設計 1 第 4章 順序結構程序設計 本章要點 : ?賦值語句 ?數(shù)據(jù)輸入 ?數(shù)據(jù)輸出 ?注釋、暫停與程序結束語句 第四章 順序結構程序設計 2 事件驅動 : 將代碼劃分成一些“子過程” 過程結構 : 過程內部代碼由三種基本結構組成 即 : 順序結構、選擇結構、循環(huán)結構 順序結構 : 執(zhí)行過程的次序從上到下，從左到右 例 : Private Sub Command1_Click() Const Pi = H = Val() : R = Val() = Pi * R ^ 2 * H End Sub 第四章 順序結構程序設計 3 賦值語句 1. 格式 變量名 =表達式 或 : [對象名 .]屬性名 =表達式 2. 功能 計算表達式的值 ,再將此值賦給變量或對象屬性。 3. 說明 (1) 變量名 : 應符合 VB變量命名約定。 (3) 對象名 : 缺省時為當前窗體。 例 : X=X+1 第四章 順序結構程序設計 4 (5) 賦值號左邊必須是變量或對象屬性。 錯誤，賦值號左邊是表達式 Y=5 39。 錯誤，賦值號左邊是常量 (6) 變量名或對象屬性名的類型應與表達式類型相容。 第四章 順序結構程序設計 5 例 : Dim A As Integer, B As Single Dim C As Double, S As String