1．格式

    2．功能

   　　 計算表達式的值，再將此值賦給變量或對象屬性。

    3．說明

   　　 （1） <變量名>：應符合VB變量命名約定。

    　　（2） <表達式>：常量、變量、表達式。

    　?。?） <對象名>：缺省時為當前窗體。

    　?。?）賦值號“=”：與數學中的等號意義不同。

    例：X=X+1

   　　 （5）賦值號左邊必須是變量或對象屬性。

    例：X=1

   　　 MyStr="GoodMorning"

   　　 Command1．Caption="確定"

    　　X+1=X'錯誤，賦值號左邊是表達式

    （6）變量名或對象屬性名的類型應與表達式類型相容。

    例：DimAAsInteger,BAsSingle

   　　 DimCAsDouble,SAsString

   　　 A=100'將整型數100賦給整型變量A

   　　 S="123.45"'將字符串"123.45"賦給變量S

   　　 A=S'將數字字符串變量賦值給整型變量，

   　　　　 '變量A中存放123

   　　 S=A'S中存放字符串"123"

   　　 B=12345.67

   　　 A=B'高精度變量賦值給低精度變量，

   　　　　 '先四舍五入后取整,A中存放12346

   　　 C=123456.789

   　　 B=C'高精度變量賦值給低精度變量，

   　　　 '變量B中存放123456．8。有效數字7位

   　　 S="abc"

  　　  A=S'錯誤，類型不匹配

    例：執(zhí)行下列各賦值語句后，A的數據類型是什么？

   　 （設A沒有定義數據類型）

   　　 A=6=5

    　　A=5+3

   　　 A="5+3"

   　　 A="#11/26/99#"

   　　 A=#11/26/1999#

   　　 A=Not5>8

    　　可以用TypeName函數判斷變量的數據類型。

    如：PrintTypeName（A）

    （7）變量未賦值時，數值型變量值為0，字符串變量值為空串""。

    【例4-1】設變量A中存放5，變量B中存放8，交換兩個變量的值，使變量A中存放8，變量B中存放5。

    代碼如下：

  　　  A=5

   　　 B=8

   　　 C=A

  　　  A=B

  　　  B=C

    賦值語句；輸入框（InputBox）；文本框（TextBox）

    1．格式

   　　<變量>=InputBox（<提示信息>[,<標題>][,<默認值>]）

    2．功能

   　　 提示一對話框，等待用戶輸入正文或按下按鈕，

   　　 并返回包含文本框內容的字符串。

    <提示信息> 　　<提示信息>：字符串表達式。

    　　　　　　　　可用Chr（13）、Chr（10）、

   　　　　　　　　　　 Chr（13）&Chr（10）、vbCrLf換行。

    <標題> 　　<標題>：字符串表達式。

    <默認值> 　　<默認值>：字符串表達式。如果省略，則默認為空。

   　　 返回值：字符串（在對話框中單擊取消則返回""）

    例：Private　Sub　Form_Activate（）

   　　 Dim　R　As　String,AREA　As　Single

   　　 單擊“確定”，返回文本框中的文本到變量R中

    　　單擊“取消”，返回一個零長度的字符串

    1．文本框的屬性

    （1）Text：返回或設置文本框顯示的內容。

   　　 例：Text1．Text="歡迎使用VisualBasic"

    （2）MultiLine：決定是否可以顯示多行文本。

    （3）PasswordChar：常用于輸入口令。

  　　  在文本框中鍵入字符顯示為該指定的字符。

   　　 （此時MultiLine屬性值應為False）

    （4）ScrollBars：用于確定文本框是否帶滾動條以及滾動條的方向。

   　　 （僅當MultiLine屬性值為True時才可以帶滾動條）

    （5）SelStart：在運行期返回或設置當前選擇文本的起始位置。

   　 例：Text1．SelStart=0

   　　 表示選擇文本的起始位置從第一個字符開始。

    （6）SelLength：在運行期返回或設置選擇的字符數。

   　 例：Text1．SelLength=Len（Text1．Text）

   　　 表示選中文本框Text1中所有字符。

    （7）Locked：指定運行時文本框內容是否可以編輯。

    　　False—可以編輯

   　　 True—不可編輯（只讀）

    2．文本框的事件和方法

    　　事件：Change、Click、DblClick、

   　　　　　 GotFocus、LostFocus、KeyPress等

   　　 方法：SetFocus

    【例4-2】設計如下圖所示的界面，運行時，輸入某同學三門課的成績，計算平均成績。按要求編程。

    ①單擊“計算”按鈕求平均成績

   　 PrivateSubCommand1_Click（）
　　　　　 A=Val（Text1．Text）
　　　　　 B=Val（Text2．Text） 
　　　　　 C=Val（Text3．Text） 
　　　　　 Text4．Text=（A+B+C）/3 
　　　 End　Sub

    ②當輸入成績的文本框獲得焦點時，選中其中的文本

    Private　Sub　Text1_GotFocus（）
　　　 Text1．SelStart=0
　　　 Text1．SelLength=Len（Text1．Text） 
　　 End　Sub 
　　 Private　Sub　Text2_GotFocus（） 
　　　 Text2．SelStart=0 
　　　 Text2．SelLength=Len（Text1．Text） 
　　 End　Sub 
　　 Private　Sub　Text3_GotFocus（） 
　　　 Text3．SelStart=0 
　　　 Text3．SelLength=Len（Text1．Text） 
　　 End　Sub

    ③當輸入成績的文本框內容發(fā)生變化時，清除平均值

    Private　Su　bText1_Change（）
　　　 Text4.Text=""
　　　  End　Sub 
　  Private　Sub　Text2_Change（） 
　　　 Text4.Text= ""
　　　  End　Sub 
　 Private　SubT　ext3_Change（） 
　　　 Text4.Text= ""
　　　 End　Sub

    ④單擊“清除”按鈕清除所有文本框的內容，并將焦點定位在文本框Text2中。

    Private　Sub　Command2_Click（）
　　　 Text1.Text=""
　　　 Text2.Text= ""
　　　 Text3.Text= ""
　　　 Text4.Text= ""
　　　 Text1.SetFocus 
　　 End　Sub

    ⑤單擊“退出”按鈕結束程序的運行。

    Private　Sub　Command3_Click（）
　　　 End
　　 End　Sub

    【例4-3】在窗體上建立一個文本框，將輸入到文本框中的小寫字母轉換為大寫。

    Private　Sub　Text1_KeyPress（KeyAscii　As　Integer）
　　　 Char=Chr（KeyAscii）
 　　 KeyAscii=Asc（UCase（Char）） 
　　 End　Sub

    1．焦點

   　　 當前可以接收用戶輸入的對象稱為具有焦點。

    　　注意：并非所有控件都可以接收焦點。而且,只有Enable和Visible屬性為True時，才可以接收焦點。

    2．事件

   　　 GotFocus　發(fā)生在對象得到焦點時

   　　 LostFocus　發(fā)生在對象失去焦點時

    3．對象何時得到焦點

   　　 運行時選擇對象（鼠標、Tab鍵、訪問鍵）

   　　 在代碼中使用SetFocus方法

    4．Tab鍵序

    　　指按Tab鍵時光標在各個控件之間移動的順序。

    　　每個窗體都有自己的Tab鍵序。

   　　 默認鍵序與控件的建立次序一致。

   　　 TabIndex屬性：決定鍵序

   　　　 改變TabIndex屬性可以改變鍵序

   　　 TabStop屬性：決定是否能夠使用TAB鍵將焦點移動到當前對象。

    Print方法、消息框（MsgBox）、文本框、標簽

    1．Print方法

   　　 格式：[<對象名>．]Print[<表達式表>][{;|,}]

    　　 <對象名> <對象名>：窗體　　　如Form1．Print"Hello"

   　　　　　　　　圖片框　　如Picture1．Print"Hello"

   　　　　　　　　打印機　　如Printer．Print"Hello"

    　　　　　　　立即窗口　如Debug．Print"Hello"

   　　　　　　　 省略：默認為當前窗體。

    <表達式表> <表達式表>：多個表達式使用逗號或分號隔開。

   　　　 逗號：以14個字符位置為單位把一個輸出行分成若干區(qū)段。

   　　　 分號：后一項緊跟前一項輸出。

    　　輸出時，數值型數據前有一個符號位（正號不顯），后面留一個空格位；字符串原樣輸出，前后無空格。

   　　 輸入Print時可用?代替，VB將其自動轉換成Print

    2．與Print方法有關的函數

    （1）Tab函數

   　　 格式：Tab[（n）]

  　　  功能：在指定的第n個位置上輸出數據。

  　　  參數n：

   　　　　 n<當前位置：打印位置為下一行的第n列

  　　　　  n<1：打印位置為第1列

   　　　　 n>輸出行寬度：打印位置為nMod行寬

   　　　　 省略：打印位置為下一個打印區(qū)的起點

   　　　　　　 （每14個字符為一個打印區(qū)）

    例：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

    （2）Spc函數

  　　  格式：Spc（n）

    　　功能：跳過n個空格。

   　　 例：Print"HOW";Spc（3）;"ABOUT"

   　　 結果：HOW∪∪∪ABOUT

    注意：Spc函數與Space函數、Tab函數的區(qū)別

    格式：

    <變量> <變量>=MsgBox（<提示信息>[,<按鈕類型>][,<標題>]）

   　　 或：MsgBox<提示信息>[,<按鈕類型>][,<標題>]

    功能：在對話框中顯示消息，等待用戶單擊按鈕，并返回一個整數告訴用戶單擊了哪個按鈕。

    <提示信息> <提示信息>：字符串表達式。

   　　　　　　 可用Chr（13）、Chr（10）、

  　　　　　　  Chr（13）&Chr（10）、vbCrLf換行。

    <按鈕類型> <按鈕類型>：數值型數據。

   　　　　　　 按鈕類型+圖標類型+默認按鈕。見P58

    <標題> <標題>：字符串表達式。

   　　　　　 返回值：由在對話框中按下哪種按鈕決定。見P59

    【例4-4】在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值

    1．標簽的屬性

    （1）Caption：標簽的標題。

    （2）Alignment：確定標簽標題的對齊方式。

    （3）AutoSize：確定標簽是否隨標題自動調整大小。

    （4）BorderStyle：確定標簽的邊框。

  　　　　　　　　　  0—無邊框；1—有邊框。

    （5）BackStyle：指定背景是透明或不透明。

   　　　　　　　　 1—不透明；0—透明。

    （6）WordWrap：指示是否隨標題沿垂直方向自動擴展。

  　　　　　　　  True—標簽將隨標題在垂直方向變化。

   　　　　　　 （此時AutoSize屬性值應設置為True）

   　　　　　　　 False—標簽不能在垂直方向上擴展。

    【例4-5】測試標簽的邊框樣式和透明樣式。

    在窗體上放置一標簽，顯示“Visual　Basic程序設計教程”，放置四個命令按鈕，Command1放在Command2上，Command3放在Command4上。運行時，單擊相應按鈕，界面發(fā)生相應變化。

    2．標簽的事件：Click、DblClick．．．

    例：Private　Sub　Label1_DblClick（）
　　　　　 Label1．FontSize=Label1．FontSize+10
　　  End　Sub

    3．標簽的方法：Move

    格式：

    [<對象名>．]Move<Left>[,[<top>][,[<width>][,<height>]]]

     <left>：指示對象左邊的水平坐標（x-軸）。

     <top>：指示對象頂邊的垂直坐標（y-軸）。

     <width>：指示對象新的寬度。

  　 <height>：指示對象新的高度。

  　例：PrivateSubLabel1_Click（）
　　　 Label1．MoveLabel1．Left+50
　　 End　Sub

    1．注釋語句

   　　 格式：'|Rem<注釋內容>

   　　 功能：給語句或程序段加上注釋，以提高可讀性。

   　　 說明：Rem與 <注釋內容>之間至少空一個空格。

    例：

　　Private　Sub　Form_Activate（） 
　　　 Rem本程序用于計算圓的面積 
　　　 Dim　R　As　String,AREA　As　Single'R為半徑 
　　　 R=InputBox（ "請輸入半徑",,"1"）：Rem輸入半徑 
　　　 AREA=3．14*Val（R）^2 
　　　 '以下將半徑和面積輸出到窗體上 
　　　 PrintVal（R）,AREA 
　　 End　Sub

    2．暫停語句

  　　  格式：Stop

   　　 功能：暫停程序的執(zhí)行。

   　　 用于程序調試。類似于執(zhí)行“運行”菜單中的“中斷”命令

    3．結束語句

   　　 格式：End

  　　  功能：結束程序的執(zhí)行。

    P64例4-9

    P65例4-10

    P66例4-11

    P66例4-12

    P66例4-13

    本章小結：

    計算　　賦值語句