教程第3章教案實用教案

1、 一個(y )(y )完整的VBVB應(yīng)用程序，一般都包含三部分內(nèi)容，即 輸入 處理 輸出 可通過VBVB語句、各種控件實現(xiàn)輸入輸出操作 本章主要內(nèi)容第第3 3章章 順序順序(shnx)(shnx)結(jié)構(gòu)程序設(shè)計結(jié)構(gòu)程序設(shè)計賦值語句賦值語句注釋、結(jié)束及暫停語句注釋、結(jié)束及暫停語句使用使用Print方法輸出數(shù)據(jù)方法輸出數(shù)據(jù)窗體和基本控件窗體和基本控件對話框?qū)υ捒虺绦蚺e例程序舉例命令按鈕標簽文本框輸入框消息框退出(tuch)第1頁/共43頁第一頁，共44頁。 1. 1. 賦值語句LetLet變量名= =表達式 示例：x = 5 x = 5 * * 1.4 1.4 2. 2. 注釋、結(jié)束和暫停語句 (1

2、) (1) 注釋語句 Rem Rem 注釋內(nèi)容 或 注釋內(nèi)容 (2) (2) 結(jié)束語句 End End (3) (3) 暫停語句 Stop Stop 也可以通過單擊工具欄上的“中斷(zhngdun)”(zhngdun)”按鈕來實現(xiàn) 使用Ctrl + BreakCtrl + Break組合鍵, ,可強制程序暫停運行賦值與輸入輸出賦值與輸入輸出第2頁/共43頁第二頁，共44頁。 (1) (1)表達式中的變量必須是賦過值的，否則變量的初值自動取零值( (變長字符串變量取空字符) )。例如： a = 1 a = 1 c = a + b + 3 b c = a + b + 3 b未賦過值，為0 0 執(zhí)行

3、(zhxng)(zhxng)后，c c 值為 4 4 (2) (2)賦值語句跟數(shù)學中等式具有不同的含意，例如 x = x + 1 x = x + 1 表示把變量x x的當前值加上1 1后再將結(jié)果賦給變量 “ “先讀后寫”：讀出x x的內(nèi)容 加1 1 寫回x x（覆蓋原有內(nèi)容）說明說明(shumng)第3頁/共43頁第三頁，共44頁。 (3) (3)變量出現(xiàn)在賦值號的右邊和左邊，其用途是不相同的。出現(xiàn)在右邊表達式中時，變量是參與運算的元素( (其值被讀出) )；出現(xiàn)在左邊時，變量起存放表達式的值的作用( (被賦值) )。例如 x = 2 x = 2 a = 3 a = 3 x = 2 x = 2

4、* *a + 5a + 5 當執(zhí)行第3 3行語句“x=2“x=2* *a+5”a+5”時，將讀出變量a a的值( (即3)3)，把該值乘2 2后加5 5，然后將結(jié)果(11)(11)賦值給變量x x。 (4) (4)賦值號兩邊的數(shù)據(jù)類型必須一致，即同時(tngsh)(tngsh)為數(shù)值型或同時(tngsh)(tngsh)為字符型。說明說明(shumng)第4頁/共43頁第四頁，共44頁。編寫的窗體單擊事件過程(guchng)代碼如下： Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As In

5、teger x = 36 a = Int(x / 10) 求十位數(shù) b = x Mod 10 求個位數(shù) c = b * 10 + a 生成新的數(shù) Print 處理后的數(shù): ; c End Sub運行程序后單擊窗體，輸出結(jié)果是： 處理后的數(shù)：63例3.1 給定一個(y )兩位數(shù)(如36)，交換個位數(shù)和十位數(shù)的位置，把處理后的數(shù)顯示在窗體上例3.1 處理方法兩位數(shù) ab b取出個位數(shù) a取出十位數(shù)新兩位數(shù): : b b* *10 + a10 + a第5頁/共43頁第五頁，共44頁。 編寫的VBVB程序代碼如下(rxi)(rxi)： Private Sub Form_Click() Private

6、Sub Form_Click() Dim x As Integer, a As Integer Dim x As Integer, a As Integer Dim b As Integer, c As Integer Dim b As Integer, c As Integer x = InputBox(“ x = InputBox(“輸入一個位數(shù)”)”) 運行時由用戶任意給定一個位數(shù) a = Int(x / 10) a = Int(x / 10) 求十位數(shù) b = x Mod 10 b = x Mod 10 求個位數(shù) c = b c = b * * 10 + a 10 + a 生成新的數(shù)

7、Print Print 處理后的數(shù): ; c: ; c End Sub End Sub 執(zhí)行后，彈出一個輸入對話框，若用戶輸入“83”“83”，輸出結(jié)果： 處理后的數(shù): 38 : 38 例3.1A 3.1A 運行時由用戶任意給定一個兩位數(shù)，交換個位數(shù)和十位數(shù)的位置(wi zhi)(wi zhi)，把處理后的數(shù)顯示在網(wǎng)頁上。例3.1A一種靈活輸入(shr)方式InputBox是VB函數(shù)，見P58第6頁/共43頁第六頁，共44頁。例3.2 設(shè)計程序，實現(xiàn)兩個(lin )文本框內(nèi)容的交換 (1)在窗體上建立兩個標簽(bioqin)、兩個文本框和一個命令按鈕 (2)編寫程序代碼 借助于另一個變量(假設(shè)

8、為 t) ，并直接在控件中交換數(shù)據(jù) Private Sub Command1_Click() “交換”按鈕 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End SubText1Text2例3.2有的對象(duxing)屬性具有變量的特性第7頁/共43頁第七頁，共44頁。 編寫的程序代碼如下編寫的程序代碼如下(rxi) (rxi) ： Private Sub Command1_Click() Private Sub Command1_Click() “交換交換”按鈕按鈕 t = Text1.Text

9、t = Text1.Text Text1.Text = Text2.Text Text1.Text = Text2.Text Text2.Text = t Text2.Text = t End Sub End Sub 采用變體型采用變體型(txng)(txng)變量變量 說明：對于(duy)初學者來說，為了節(jié)省時間，有時可以不采用Dim等語句聲明就直接使用變量(默認為變體型，如t)。但在規(guī)范的軟件開發(fā)中，通常都要求程序中使用的變量必須預(yù)先聲明。沒用Dim語句t 是變體型變量第8頁/共43頁第八頁，共44頁。 把上述程序改為以下形式(xngsh)，效果是否一樣？Private Sub Comma

10、nd1_Click() “交換(jiohun)”按鈕 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub思考題想一想第9頁/共43頁第九頁，共44頁。 下列程序的運行(ynxng)結(jié)果是什么？ 運行時，在文本框Text1中輸入5，單擊“計算”按鈕后，在文本框Text2顯示的結(jié)果(ji gu)是什么? Private Sub Command1_Click() “計算”按鈕 Dim a As Integer, b As Integer, c As Integer a = Val(Text1.Text) b = 7 c = 2 * a Mo

11、d b / 3 + 1 a = a + 1 b = 2 * b - 1 c = c + a + b Text2.Text = cEnd Sub思考題想一想Text1Text2例3.2A20第10頁/共43頁第十頁，共44頁。 3.3.1 Print方法 用于顯示(輸出)文本 格式：對象名.Print 表達式列表 說明：(1)使用的對象可以是窗體等 Print “程序設(shè)計” 在當前(dngqin)窗體上輸出 Picture1.Print “程序設(shè)計” 在圖片框上輸出 (2)表達式列表是一個或多個表達式，如果省略，則輸出一個空行 3.3 使用Print方法(fngf)輸出數(shù)據(jù)第11頁/共43頁第十

12、一頁，共44頁。 例3.3 Print3.3 Print輸出(shch)(shch)示例 Private Sub Form_Click() Private Sub Form_Click() a = 3: b = 4 a = 3: b = 4 Print a, b, 4 + a, Print a, b, 4 + a, Print 2 Print 2 * * b b Print a, , b Print a, , b Print Print Print a=; a, b=; b Print a=; a, b=; b End Sub End Sub 運行結(jié)果 例3.3分號“；”緊湊格式(g shi)

13、逗號“，”按區(qū)格式(g shi)(14個字符位置)語句行末尾有分號或逗號,則輸出本行輸出項后不換行輸出數(shù)值數(shù)據(jù)時，前面有一個(y )符號位(正號以空格表示)，后面留有一個(y )空格；輸出字符串時，前后不留空格每個Print輸出一行。第12頁/共43頁第十二頁，共44頁。 1. Spc函數(shù) 格式(g shi)：Spc(n) 功能：在輸出下一項之前插入n個空格。 例如： Print 學號；Spc(2)；姓名；Spc(5)；成績 輸出結(jié)果(表示空格)： 學號姓名成績 3.3.2 特殊(tsh)打印格式第13頁/共43頁第十三頁，共44頁。 函數(shù)格式：Tab(n)Tab(n) 功能：把輸出位置移到第

14、n n列。 例如： Print Tab(2); Print Tab(2);學號 ；Tab(11);Tab(11);姓名 ；Tab(21);Tab(21);成績(chngj)(chngj) 輸出結(jié)果是(1(1個漢字占2 2個位置) )： 學號姓名成績(chngj)(chngj) 2. Tab函數(shù)(hnsh)第14頁/共43頁第十四頁，共44頁。 格式：Format(Format(表達式 , ,格式串) 功能：根據(jù)格式串規(guī)定的格式來輸出(shch)(shch)表達式的值 示例 a=4513.7 a=4513.7 Print Format(a,#,#.#) Print Format(a,#,#.#)

15、 Print Format(a,$#,#.00) Print Format(a,$#,#.00) 輸出(shch)(shch)結(jié)果是： 4,513.7 4,513.7 $4,513.70 $4,513.70 格式符號# #和0 0都能顯示數(shù)字，但符號# #會剔除不必要的0 0，符號0 0會按規(guī)定補足0 0 3. Format函數(shù)(hnsh)第15頁/共43頁第十五頁，共44頁。 窗體(Form)是設(shè)計VB應(yīng)用程序的基本平臺 窗體本身是一個對象，又是其他對象的載體或容器(rngq) 多數(shù)應(yīng)用程序是從窗體開始執(zhí)行的 ; 一個程序可以有多個窗體 3.4.1 窗體的基本屬性 設(shè)置窗體的屬性，可在程序設(shè)

16、計時在屬性窗口中手工設(shè)置，也可以在程序運行時由代碼實現(xiàn) 默認屬性3.4 窗體第16頁/共43頁第十六頁，共44頁。 一些常用的窗體屬性： Name屬性：用于設(shè)置窗體的名稱。指定窗體的名稱。只讀， 不能在應(yīng)用程序中修改 Caption屬性：用于設(shè)置窗體標題欄上的標題內(nèi)容。 Maxbutton和Minbutton屬性：用于設(shè)置最大化和最小化按鈕 Height和Width屬性：確定窗體的初始高度和寬度 Left和Top屬性：確定窗體的左上角在屏幕上的橫、縱坐標 BackColor和ForeColor屬性：設(shè)置窗體的背景色和前景色 FontName屬性：用于在窗體上設(shè)置字體(zt)。 FontSize

17、屬性：用于在窗體上設(shè)置字號。 Visible(可見性)：設(shè)置對象的可見性，默認值為True第17頁/共43頁第十七頁，共44頁。 坐標(zubio)原點(0, 0)在窗體的左上角 坐標(zubio)軸刻度單位為緹(Twip,567緹為1厘米) 當前位置的橫坐標(zubio)(CurrentX)和縱坐標(zubio)(CurrentY) Y YX X (CurrentX, CurrentY) 當前(dngqin)位置窗體坐標窗體坐標(zubio)系統(tǒng)系統(tǒng)第18頁/共43頁第十八頁，共44頁。 窗體事件過程(guchng)的一般格式為： Private Sub Form_事件名(參數(shù)表) End

18、在事件過程(guchng)中只能使用Form，而在過程(guchng)內(nèi)對窗體進行引用時才會用到窗體名字(如Form1等) 3.4.2 窗體的事件(shjin)只能(zh nn)(zh nn)寫成Form,Form,不能寫成Form1Form1第19頁/共43頁第十九頁，共44頁。 與窗體有關(guān)的常用事件有以下幾種。 Load(裝載)事件：啟動程序時，通常先執(zhí)行Form_Load Unload(卸載)事件 Click(單擊)事件 DblClick(雙擊)事件 KeyPress(按鍵(n jin)事件：當按下鍵盤上的某個健時，將觸發(fā)KeyPress事件。其事件過程的格式為： Private Sub

19、 對象_KeyPress(KeyAscii As Integer) End Sub 示例：Private Sub Form_KeyPress(KeyAscii As Integer) Print 你錄入的鍵是：; Chr(KeyAscii) End Sub 參數(shù)KeyAscii返回(fnhu)所按鍵的ASCII碼第20頁/共43頁第二十頁，共44頁。 (1)Show方法：用于快速顯示一個窗體，使該窗體變成活動窗體。例如： Private Sub Form_Load() Show Print “窗體已被how顯示出來！” End Sub (2)Print方法：用于在窗體上輸出(shch)表達式的

20、值 (3)Cls方法：用于清除運行時在窗體中顯示的文本或圖形 (4)Move(移動)方法：用于移動并改變窗體或控件的位置和大小 3.4.3 3.4.3 窗體的方法窗體的方法(fngf)(fngf)啟動(qdng)程序時，系統(tǒng)先自動執(zhí)行本過程，但窗體未被顯示出來通過Show顯示窗體。使后續(xù)的Print輸出內(nèi)容可見第21頁/共43頁第二十一頁，共44頁。 1. 焦點 焦點(Focus，光標)是對象接收鼠標或鍵盤輸入的能力。 要將焦點賦給控件，有以下幾種方法： (1)用鼠標選定對象 (2)按快捷鍵選定對象 (3)按Tab鍵或Shift+Tab鍵在當前窗體的各對象之間切換焦點 (4)在代碼中用SetF

21、ocus方法來設(shè)置焦點。例如： Text1.SetFocus 把焦點設(shè)置在文本框Text1 2. Tab鍵序 Tab鍵序是指用戶按Tab鍵時，焦點在控件間移動的順序 反映(fnyng)在控件的TabIndex屬性 3.4.4 3.4.4 焦點焦點(jiodin)(jiodin)與與TabTab鍵序鍵序第22頁/共43頁第二十二頁，共44頁。 設(shè)置以下(yxi)3個命令按鈕： “顯示”按鈕：用于顯示唐詩“靜夜思” “清除”按鈕：用于清除所生成的文本 “結(jié)束”按鈕：結(jié)束程序的運行 設(shè)計步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象的屬性 例例3.4 3.4 顯示顯示(xinsh)(xinsh)

22、唐詩唐詩“靜夜思靜夜思”例3.4第23頁/共43頁第二十三頁，共44頁。 (2)編寫程序代碼。三個按鈕的事件過程代碼： Private Sub CmdPrt_Click() BackColor = RGB(255, 255, 255) 背景顏色，白色 ForeColor = RGB(0, 0, 255) 前景顏色，藍色 FontName = 楷體_GB2312 FontSize = 20 FontBold = True 粗體 CurrentX = 1200 : CurrentY = 350 顯示位置 Print 靜夜思(唐詩) Print 空一行 FontName = 幼圓 FontSize

23、= 13 Print Spc(6); 床前明月光，疑是地上(d shn)霜 Print Print Spc(6); 舉頭望明月，低頭思故鄉(xiāng) End Sub顏色(yns)(yns)值見附錄B B第24頁/共43頁第二十四頁，共44頁。 Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序運行后，單擊“顯示(xinsh)”按鈕，輸出結(jié)果第25頁/共43頁第二十五頁，共44頁。 3.5 3.5 基本基本(jbn)(jbn)控件控件 三種基本控件命令按鈕、標簽和文本框 命令按鈕(commandB

24、utten)用于引發(fā)應(yīng)用程序的某個操作 標簽(Label)主要用來顯示比較固定的提示性信息。 文本框(TextBox)是一個文本編輯區(qū)域(qy)，用戶可以在該區(qū)域(qy)中輸入、編輯和顯示文本內(nèi)容。 幾點說明： (1) Caption屬性：對象的標題 可以在Caption屬性中為控件指定一個訪問鍵 例如： Command1.Caption=“結(jié)束(&E)” 運行時只要用戶同時按下Alt鍵和E鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性：決定控件是否對用戶產(chǎn)生的事件作出響應(yīng) (3) Visible屬性：決定控件是否可見，默認值為True第26頁/共43頁第二十六頁，共44頁。 當文本框的T

25、ext屬性內(nèi)容(nirng)發(fā)生變化時，會觸發(fā)文本框的Change事件。 當在文本框Text1中輸入ABC三個字符時窗體上顯示的是什么。 Private Sub Text1_Change() Print Text1.Text End Sub例3.4AAABABC思考題想一想第27頁/共43頁第二十七頁，共44頁。 在窗體上已經(jīng)(y jing)建立了兩個文本框Text1和Text2，并編寫 如下三個事件過程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_

26、Change() 內(nèi)容發(fā)生改變 Text2.Text = Text2.Text + N + Text1.Text End Sub Private Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 運行程序后單擊窗體，則在文本框Text2中顯示的內(nèi)容是 A. PNM B. NPM C. PNP D. PNPM 例3.4BD思考題想一想第28頁/共43頁第二十八頁，共44頁。 3.6 3.6 使用使用(shyng)(shyng)對話框?qū)υ捒?對話框既可以(ky)(ky)用來顯示信息，也可以(ky)(ky)用于輸入信息 VB VB中能夠建立兩

27、種預(yù)制對話框：輸入框和消息框 使用系統(tǒng)提供的函數(shù)(InputBox(InputBox和MsgBox)MsgBox)，而不必為對話框另建窗體 例3.5 3.5 通過輸入框輸入姓名， 然后再消息框中顯示出來 Private Sub Form_Load() Private Sub Form_Load() x = InputBox( x = InputBox(輸入您的姓名, , 您叫什么名?)?) y = MsgBox( x & y = MsgBox( x & 先生：祝您馬到功成！) End Sub End Sub例3.5輸入框消息(xio xi)框第29頁/共43頁第二十九頁，共44頁。 用于產(chǎn)生一

28、個能接收用戶輸入的對話框 格式： 變量(binling)=InputBox(提示,標題,缺省值,xpos,ypos) 舉例filename=InputBox(請輸入文件名(不超過8個字符), 文件名,vbfile) 將產(chǎn)生一個如下對話框 3.6.1 3.6.1 輸入輸入(shr)(shr)對話框?qū)υ捒蚶?.5A第30頁/共43頁第三十頁，共44頁。 filename=InputBox(請輸入(shr)文件名 + Chr(13) + (不超過8個字符), 文件名, vbfile) 第31頁/共43頁第三十一頁，共44頁。 使用MsgBox函數(shù)，可以產(chǎn)生一個對話框來顯示消息 當用戶單擊某個按鈕后，

29、將返回一個數(shù)值以標明(biomng)用戶單擊了哪個按鈕 其語法格式是： 變量=MsgBox(提示,對話框類型,對話框標題) 例：y = MsgBox(“輸入文件名是否正確”,52,”請確認”) “對話框類型”一般有3個參數(shù)， 4+48+0 出現(xiàn)按鈕；圖標類型；默認按鈕； 函數(shù)返回值 示例： 3.6.2 3.6.2 消息消息(xio xi)(xio xi)對話框?qū)υ捒蚶?.5B第32頁/共43頁第三十二頁，共44頁。 1. 1. 返回一個值。從返回值中可以知道用戶按返回一個值。從返回值中可以知道用戶按下的是哪個按鈕（表下的是哪個按鈕（表3.53.5）。例如）。例如 y = MsgBox(“ y

30、= MsgBox(“輸入輸入(shr)(shr)文件名是否正文件名是否正確確”,52,”,52,”請確認請確認”)”) 若若y y為為1 1，表示用戶按下的是，表示用戶按下的是“確定確定”按鈕，依按鈕，依此類推。此類推。 程序通過判斷程序通過判斷y y值值( (如采用條件語句如采用條件語句IF-THEN)IF-THEN)，再，再根據(jù)用戶按下的是什么按鈕，再做不同的處理。根據(jù)用戶按下的是什么按鈕，再做不同的處理。 2. 2. 不返回值。例如不返回值。例如 MsgBox “ MsgBox “輸入輸入(shr)(shr)文件名是否正確文件名是否正確”,52,”,52,”請確認請確認” ” MsgBo

31、x “ MsgBox “輸入輸入(shr)(shr)文件名是否正確文件名是否正確” 采用這種格式時，不知道用戶按下的是什么按采用這種格式時，不知道用戶按下的是什么按鈕。這種格式可以使用在不需要知道用戶按鈕情況鈕。這種格式可以使用在不需要知道用戶按鈕情況的場合。的場合。MsgBoxMsgBox的兩種格式的兩種格式(g shi)(g shi)第33頁/共43頁第三十三頁，共44頁。 (1) (1)創(chuàng)建應(yīng)用程序的用戶界面(yn h ji min)(yn h ji min)和設(shè)置對象屬性 (2) (2)編寫程序代碼例3.6 設(shè)計一個密碼輸入(shr)的簡單檢驗程序。密碼假定為“123456”，密碼輸入

32、(shr)時在屏幕上不顯示輸入(shr)的字符，而以“*”代替。例3.6圖3.13 密碼(m m)檢驗運行界面 圖3.14 密碼(m m)輸入錯誤時彈出的消息框第34頁/共43頁第三十四頁，共44頁。Private Sub Command1_Click() “Private Sub Command1_Click() “確定”命令按鈕 Dim p As Integer Dim p As Integer If Text1.Text = 123456 Then If Text1.Text = 123456 Then MsgBox MsgBox 歡迎您用機！ Else Else p = MsgBox(

33、 p = MsgBox(密碼錯誤！, 5 + 48, , 5 + 48, 輸入密碼) ) 在消息(xio xi)(xio xi)框上顯示“重試”和“取消”按鈕，以及“！”圖標 If p = 4 Then 4 If p = 4 Then 4表示單擊了“重試”按鈕 Text1.SetFocus Text1.SetFocus 焦點定位在原輸入的文本框中 Else Else MsgBox MsgBox 密碼錯誤，不重試了！ End End End If End If End If End IfEnd SubEnd SubPrivate Sub Form_Load()Private Sub Form_L

34、oad() Text1.PasswordChar = Text1.PasswordChar = * * 設(shè)置以“* *”替代顯示 Text1.Text = Text1.Text = End SubEnd Sub例3.6 設(shè)計一個密碼輸入的簡單檢驗程序。密碼假定為“123456”，密碼輸入時在屏幕上不顯示輸入的字符(z f)，而以“*”代替。第35頁/共43頁第三十五頁，共44頁。 在窗體上有一個文本框，然后編寫如下事件過程： Private Sub Form_Click() x = InputBox(請輸入一個整數(shù)) Print x + Text1.text End Sub 程序運行時，在文本

35、框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示(xinsh)的內(nèi)容是 A. 123 B. 456 C. 579 D. 123456例3.6AD思考題想一想第36頁/共43頁第三十六頁，共44頁。 例3.7 3.7 控制(kngzh)(kngzh)窗體“變大”和“變小” 在窗體上設(shè)置三個命令按鈕，程序進入運行狀態(tài)后，當單擊“窗體變大”命令按鈕時，窗體變大，單擊“窗體變小”按鈕時，窗體變小。單擊“退出”按鈕時，則退出。 3.7 3.7 程序程序(chngx)(chngx)舉例舉例例3.7第37頁/共43頁第三十七頁，共44頁。 (1)建立(jinl)應(yīng)用程

36、序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() Form1.Height = 4000 Height為窗體的高度，P55 Form1.Width = 4000 Width為窗體的寬度 Form1.Top = 1000 設(shè)置窗體的初始位置(y) Form1.Left = 1000 設(shè)置窗體的初始位置(x) End Sub Private Sub Command1_Click() “窗體變大”按鈕 Form1.Height = Form1.Height + 200 每次增加200點 Form1.Width = Form1.Width + 200 En

37、d Sub Private Sub Command2_Click() “窗體變小”按鈕 Form1.Height = Form1.Height - 200 每次減少200點 Form1.Width = Form1.Width - 200 End Sub第38頁/共43頁第三十八頁，共44頁。 在第一個文本框中輸入文字(wnz)時，在另外兩個文本框中顯示同樣相同的內(nèi)容，但顯示的字號和字體不同。單擊“清除”按鈕時則清除三個文本框中的內(nèi)容例例3.8 3.8 在三個文本框中顯示在三個文本框中顯示(xinsh)(xinsh)不同的不同的文字效果文字效果例3.8第39頁/共43頁第三十九頁，共44頁。 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象(duxing)屬性 (2