【正文】 計(jì)知識(shí)。否則表示輸入的是第 2個(gè)數(shù)字； If = Then = + 0 Else = + 0 End If End Sub （ 2）數(shù)字“ 1”按鈕 Private Sub Command3_Click() If = Then = + 1 Else = + 1 End If End Sub 依此可編寫數(shù)字 2至 9命令按鈕的 Click事件代碼， 請(qǐng)同學(xué)們自己完成。 Select Case 39。將計(jì)算結(jié)果做為第 1個(gè)數(shù)字，以便繼續(xù)運(yùn)算。 由于用戶是通過界面與應(yīng)用程序進(jìn)行對(duì)話的，而程序代碼相對(duì)于用戶又是隱藏的，從用戶角度看，界面就是應(yīng)用程序 ? 窗體對(duì)象 （ Form）。 – （ 5） 使用適當(dāng)?shù)念伾?、 圖片來保持窗體的趣味性是必須 ， 但要適度 。 – （ 3）這時(shí)就會(huì)出現(xiàn)一個(gè)默認(rèn)名稱為 MDIForm1的新窗體。 ? （ 1） 靜態(tài)顯示方法 – 靜態(tài)顯示方法是通過在設(shè)計(jì)應(yīng)用程序時(shí)添加多個(gè)窗體來完成的。 ? ToolWindow窗體與 SetWindowPos函數(shù)一同使用，可以實(shí)現(xiàn) VB“工具箱”窗口顯示效果，請(qǐng)同學(xué)動(dòng)手試一式。 ? 5．彈出式菜單的創(chuàng)建方法 – 首先利用菜單編輯器建立菜單 ， 方法與前面介紹的下拉式菜單創(chuàng)建方法一樣 。 ? Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? 39。如果與圖標(biāo)列表控件（ ImageList）一同使用，我們的界面會(huì)更加出色。設(shè)置文件過濾器 = 所有文件 |*.*|文本文件 |*.txt 39。顯示剛才輸入的文件名（全路徑名） MsgBox 你剛才輸入的文件名是： + End Sub 3．“顏色”對(duì)話框 Private Sub Command1_Click() ?設(shè)置顏色窗體的形狀，有 8等四個(gè)常用， ‘ 請(qǐng)同學(xué)們自己試一試 = 1 39。聲明一個(gè)變長的字符型變量 Dim MyString As String*10 39。將 Form1的 Text1控件賦給對(duì)象變量 ? = 你好！ 39。為了增加可讀性，建議使用 Private關(guān)鍵字聲明 ? 3．全局變量 – 全局變量在整個(gè)應(yīng)用程序中有效，一般在模塊代碼編輯器的頂部使用 Public聲明 變量的生命周期 –所謂變量的生命周期，是指能夠保存變量值的時(shí)間。 ? （ 3） 乘法 *、 除法 / ? （ 4） 整除： \ ? （ 5） 取模 （ 取余 ） ： Mod ? （ 6） 加 +、 減 2．關(guān)系運(yùn)算符 ? VB中有 6種關(guān)系運(yùn)算符 – 大于（ ）、小于（ ）、等于（ =）、不等于（ 或 ）、大于等于（ =）、小于等于（ =）。 這個(gè)函數(shù)的返回值總會(huì)在前頭保留一個(gè)空格 ， 因此多數(shù)情況下與 Trim函數(shù)結(jié)合使用 ， 去掉首部空格 。 4．格式化函數(shù) – ?以系統(tǒng)設(shè)置的長時(shí)間格式返回當(dāng)前系統(tǒng)時(shí)間。 – MyStr = Format(, “,0。 返回 hello。 ? 3．?dāng)?shù)制轉(zhuǎn)換程序。本程序主要練習(xí)列表框和循環(huán)語句的用法，利用文本框、列表框以及循環(huán)語句開發(fā)“冒泡”排序程序，運(yùn)行結(jié)果如圖 6所示。 進(jìn)入程序 編寫代碼如下： 窗體的 Load事件 Private Sub FormLoad () = “” = “” = “” End Sub 2 、 數(shù)字區(qū)的命令按鈕的 Click事件 （ 1） 、 數(shù)字 “ 0”按鈕 Private Sub Command1 Click () If = “” Then = + “0” Else = + “0” End if End Sub （ 2） 、 數(shù)字 “ 1”按鈕 Private Sub Command3 Click () If = “” Then = + “1” Else = + “1” End if End Sub （ 3） 、 數(shù)字 “ 2”按鈕 Private Sub Command4 Click () If = “” Then = + “2” Else = + “2” End if End Sub （ 4） 、 數(shù)字 “ 3”按鈕 Private Sub Command5 Click () If = “” Then = + “3” Else = + “3” End if End Sub （ 5） 、 數(shù)字 “ 4”按鈕 Private Sub Command6 Click () If = “” Then = + “4” Else = + “4” End if End Sub （ 6） 、 數(shù)字 “ 5”按鈕 Private Sub Command7 Click () If = “” Then = + “5” Else = + “5” End if End Sub （ 7） 、 數(shù)字 “ 6”按鈕 Private Sub Command8 Click () If = “” Then = + “6” Else = + “6” End if End Sub （ 8） 、 數(shù)字 “ 7”按鈕 Private Sub Command9 Click () If = “” Then = + “7” Else = + “7” End if End Sub （ 9） 、 數(shù)字 “ 8”按鈕 Private Sub Command10 Click () If = “” Then = + “8” Else = + “8” End if End Sub （ 10） 、 數(shù)字 “ 9”按鈕 Private Sub Command11 Click () If = “” Then = + “9” Else = + “9” End if End Sub TextFirst文本框的 Change事件 Private Sub TextFirstChange () = End Sub TextSecond文本框的 Change事件 Private Sub TextSecondChange () = TextSecond End Sub 正負(fù)號(hào) （ +/） 命令按鈕的 Change事件 Private Sub Command2 Click () If = “” Then =1* Val() Else =1*val() End if End Sub 加、減、乘、除命令按鈕的 Click 事件 Private Sub Command12 Click() = “加 ” End Sub Private Sub Command13 Click() = “減 ” End Sub Private Sub Command14 Click() = “乘 ” End Sub Private Sub Command15 Click() = “除 ” End Sub 計(jì)算結(jié)果命令按鈕的 Click 事件 Private Sub Command16 Click () Dim MyResult As Double Select Case Case “加 ” MyResult=Val()+ Val() Case “減 ” MyResult=Val() Val() Case “乘 ” MyResult=Val()* Val() Case “除 ” MyResult=Val() / Val() End Select = “” = “” = MyResult = End Sub 清空命令按鈕的 Click 事件 Private Sub Command17 Click() = “” = “” = “” End Sub 退出命令按鈕的 Click 事件 Private Sub Command18 Click() Unload Me End Sub 幫助菜單的調(diào)用 1 問題思考：完成本題的關(guān)鍵是什么 ？ 二 、 可視化界面的設(shè)計(jì)： VB可視化程序設(shè)計(jì)包括：用戶界面的設(shè)計(jì)；編寫代碼程序 。 顯示聲明基本語句結(jié)構(gòu)是： Dim變量名 As 數(shù)據(jù)類型