1．格式

    2．功能

   　　 計(jì)算表達(dá)式的值，再將此值賦給變量或?qū)ο髮傩浴?/p>

    3．說(shuō)明

   　　 （1） <變量名>：應(yīng)符合VB變量命名約定。

    　　（2） <表達(dá)式>：常量、變量、表達(dá)式。

    　?。?） <對(duì)象名>：缺省時(shí)為當(dāng)前窗體。

    　?。?）賦值號(hào)“=”：與數(shù)學(xué)中的等號(hào)意義不同。

    例：X=X+1

   　　 （5）賦值號(hào)左邊必須是變量或?qū)ο髮傩浴?/p>

    例：X=1

   　　 MyStr="GoodMorning"

   　　 Command1．Caption="確定"

    　　X+1=X'錯(cuò)誤，賦值號(hào)左邊是表達(dá)式

    （6）變量名或?qū)ο髮傩悦念愋蛻?yīng)與表達(dá)式類型相容。

    例：DimAAsInteger,BAsSingle

   　　 DimCAsDouble,SAsString

   　　 A=100'將整型數(shù)100賦給整型變量A

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

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

   　　　　 '變量A中存放123

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

   　　 B=12345.67

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

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

   　　 C=123456.789

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

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

   　　 S="abc"

  　　  A=S'錯(cuò)誤，類型不匹配

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

   　 （設(shè)A沒(méi)有定義數(shù)據(jù)類型）

   　　 A=6=5

    　　A=5+3

   　　 A="5+3"

   　　 A="#11/26/99#"

   　　 A=#11/26/1999#

   　　 A=Not5>8

    　　可以用TypeName函數(shù)判斷變量的數(shù)據(jù)類型。

    如：PrintTypeName（A）

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

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

    代碼如下：

  　　  A=5

   　　 B=8

   　　 C=A

  　　  A=B

  　　  B=C

    賦值語(yǔ)句；輸入框（InputBox）；文本框（TextBox）

    1．格式

   　　<變量>=InputBox（<提示信息>[,<標(biāo)題>][,<默認(rèn)值>]）

    2．功能

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

   　　 并返回包含文本框內(nèi)容的字符串。

    <提示信息> 　　<提示信息>：字符串表達(dá)式。

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

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

    <標(biāo)題> 　　<標(biāo)題>：字符串表達(dá)式。

    <默認(rèn)值> 　　<默認(rèn)值>：字符串表達(dá)式。如果省略，則默認(rèn)為空。

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

    例：Private　Sub　Form_Activate（）

   　　 Dim　R　As　String,AREA　As　Single

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

    　　單擊“取消”，返回一個(gè)零長(zhǎng)度的字符串

    1．文本框的屬性

    （1）Text：返回或設(shè)置文本框顯示的內(nèi)容。

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

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

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

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

   　　 （此時(shí)MultiLine屬性值應(yīng)為False）

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

   　　 （僅當(dāng)MultiLine屬性值為True時(shí)才可以帶滾動(dòng)條）

    （5）SelStart：在運(yùn)行期返回或設(shè)置當(dāng)前選擇文本的起始位置。

   　 例：Text1．SelStart=0

   　　 表示選擇文本的起始位置從第一個(gè)字符開(kāi)始。

    （6）SelLength：在運(yùn)行期返回或設(shè)置選擇的字符數(shù)。

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

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

    （7）Locked：指定運(yùn)行時(shí)文本框內(nèi)容是否可以編輯。

    　　False—可以編輯

   　　 True—不可編輯（只讀）

    2．文本框的事件和方法

    　　事件：Change、Click、DblClick、

   　　　　　 GotFocus、LostFocus、KeyPress等

   　　 方法：SetFocus

    【例4-2】設(shè)計(jì)如下圖所示的界面，運(yùn)行時(shí)，輸入某同學(xué)三門課的成績(jī)，計(jì)算平均成績(jī)。按要求編程。

    ①單擊“計(jì)算”按鈕求平均成績(jī)

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

    ②當(dāng)輸入成績(jī)的文本框獲得焦點(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（Text1．Text） 
　　 End　Sub 
　　 Private　Sub　Text3_GotFocus（） 
　　　 Text3．SelStart=0 
　　　 Text3．SelLength=Len（Text1．Text） 
　　 End　Sub

    ③當(dāng)輸入成績(jī)的文本框內(nèi)容發(fā)生變化時(shí)，清除平均值

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

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

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

    ⑤單擊“退出”按鈕結(jié)束程序的運(yùn)行。

    Private　Sub　Command3_Click（）
　　　 End
　　 End　Sub

    【例4-3】在窗體上建立一個(gè)文本框，將輸入到文本框中的小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)。

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

    1．焦點(diǎn)

   　　 當(dāng)前可以接收用戶輸入的對(duì)象稱為具有焦點(diǎn)。

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

    2．事件

   　　 GotFocus　發(fā)生在對(duì)象得到焦點(diǎn)時(shí)

   　　 LostFocus　發(fā)生在對(duì)象失去焦點(diǎn)時(shí)

    3．對(duì)象何時(shí)得到焦點(diǎn)

   　　 運(yùn)行時(shí)選擇對(duì)象（鼠標(biāo)、Tab鍵、訪問(wèn)鍵）

   　　 在代碼中使用SetFocus方法

    4．Tab鍵序

    　　指按Tab鍵時(shí)光標(biāo)在各個(gè)控件之間移動(dòng)的順序。

    　　每個(gè)窗體都有自己的Tab鍵序。

   　　 默認(rèn)鍵序與控件的建立次序一致。

   　　 TabIndex屬性：決定鍵序

   　　　 改變TabIndex屬性可以改變鍵序

   　　 TabStop屬性：決定是否能夠使用TAB鍵將焦點(diǎn)移動(dòng)到當(dāng)前對(duì)象。

    Print方法、消息框（MsgBox）、文本框、標(biāo)簽

    1．Print方法

   　　 格式：[<對(duì)象名>．]Print[<表達(dá)式表>][{;|,}]

    　　 <對(duì)象名> <對(duì)象名>：窗體　　　如Form1．Print"Hello"

   　　　　　　　　圖片框　　如Picture1．Print"Hello"

   　　　　　　　　打印機(jī)　　如Printer．Print"Hello"

    　　　　　　　立即窗口　如Debug．Print"Hello"

   　　　　　　　 省略：默認(rèn)為當(dāng)前窗體。

    <表達(dá)式表> <表達(dá)式表>：多個(gè)表達(dá)式使用逗號(hào)或分號(hào)隔開(kāi)。

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

   　　　 分號(hào)：后一項(xiàng)緊跟前一項(xiàng)輸出。

    　　輸出時(shí)，數(shù)值型數(shù)據(jù)前有一個(gè)符號(hào)位（正號(hào)不顯），后面留一個(gè)空格位；字符串原樣輸出，前后無(wú)空格。

   　　 輸入Print時(shí)可用?代替，VB將其自動(dòng)轉(zhuǎn)換成Print

    2．與Print方法有關(guān)的函數(shù)

    （1）Tab函數(shù)

   　　 格式：Tab[（n）]

  　　  功能：在指定的第n個(gè)位置上輸出數(shù)據(jù)。

  　　  參數(shù)n：

   　　　　 n<當(dāng)前位置：打印位置為下一行的第n列

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

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

   　　　　 省略：打印位置為下一個(gè)打印區(qū)的起點(diǎn)

   　　　　　　 （每14個(gè)字符為一個(gè)打印區(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函數(shù)

  　　  格式：Spc（n）

    　　功能：跳過(guò)n個(gè)空格。

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

   　　 結(jié)果：HOW∪∪∪ABOUT

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

    格式：

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

   　　 或：MsgBox<提示信息>[,<按鈕類型>][,<標(biāo)題>]

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

    <提示信息> <提示信息>：字符串表達(dá)式。

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

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

    <按鈕類型> <按鈕類型>：數(shù)值型數(shù)據(jù)。

   　　　　　　 按鈕類型+圖標(biāo)類型+默認(rèn)按鈕。見(jiàn)P58

    <標(biāo)題> <標(biāo)題>：字符串表達(dá)式。

   　　　　　 返回值：由在對(duì)話框中按下哪種按鈕決定。見(jiàn)P59

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

    1．標(biāo)簽的屬性

    （1）Caption：標(biāo)簽的標(biāo)題。

    （2）Alignment：確定標(biāo)簽標(biāo)題的對(duì)齊方式。

    （3）AutoSize：確定標(biāo)簽是否隨標(biāo)題自動(dòng)調(diào)整大小。

    （4）BorderStyle：確定標(biāo)簽的邊框。

  　　　　　　　　　  0—無(wú)邊框；1—有邊框。

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

   　　　　　　　　 1—不透明；0—透明。

    （6）WordWrap：指示是否隨標(biāo)題沿垂直方向自動(dòng)擴(kuò)展。

  　　　　　　　  True—標(biāo)簽將隨標(biāo)題在垂直方向變化。

   　　　　　　 （此時(shí)AutoSize屬性值應(yīng)設(shè)置為True）

   　　　　　　　 False—標(biāo)簽不能在垂直方向上擴(kuò)展。

    【例4-5】測(cè)試標(biāo)簽的邊框樣式和透明樣式。

    在窗體上放置一標(biāo)簽，顯示“Visual　Basic程序設(shè)計(jì)教程”，放置四個(gè)命令按鈕，Command1放在Command2上，Command3放在Command4上。運(yùn)行時(shí)，單擊相應(yīng)按鈕，界面發(fā)生相應(yīng)變化。

    2．標(biāo)簽的事件：Click、DblClick．．．

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

    3．標(biāo)簽的方法：Move

    格式：

    [<對(duì)象名>．]Move<Left>[,[<top>][,[<width>][,<height>]]]

     <left>：指示對(duì)象左邊的水平坐標(biāo)（x-軸）。

     <top>：指示對(duì)象頂邊的垂直坐標(biāo)（y-軸）。

     <width>：指示對(duì)象新的寬度。

  　 <height>：指示對(duì)象新的高度。

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

    1．注釋語(yǔ)句

   　　 格式：'|Rem<注釋內(nèi)容>

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

   　　 說(shuō)明：Rem與 <注釋內(nèi)容>之間至少空一個(gè)空格。

    例：

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

    2．暫停語(yǔ)句

  　　  格式：Stop

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

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

    3．結(jié)束語(yǔ)句

   　　 格式：End

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

    P64例4-9

    P65例4-10

    P66例4-11

    P66例4-12

    P66例4-13

    本章小結(jié)：

    計(jì)算　　賦值語(yǔ)句