【正文】 d Form2等效的語句是（ ） A． B． =False C． D． =True ，將它轉(zhuǎn)變成 MDI子窗體（） A． MDIChild=True B． WindowState=Normal C． MDIChild=False D． WindowState=Maximized List列表控件的項(xiàng)目總數(shù)目（ ） A． ListIndex B． ListText C． ListCount D． ListItem ，那么 ComboBox組合框控件的 ListIndex屬性值是（） A． 0 B． 1 C． 1 D．隨機(jī)數(shù) 5． Dim I As Integer，則運(yùn)行時(shí)變量 I的初始值是（ ） A． 0 B． 1 C． 1 D．空值 6．執(zhí)行語句 a=5 Mod 2，則 a的值是（ ） A． 0 B． 1 C． 2 D． 7．執(zhí)行語句 a=5\2， b=5/2，則 a、 b的值分別是（ ） A． B． 2 C． 、 2 D． 8．如果僅需要得到當(dāng)前系統(tǒng)時(shí)間，則可以使用哪個(gè)函數(shù)（） A． Time B． Year C． Now D． Date 9． Left(“abcd”,2)函數(shù)的返回值是（ ） A． ab B． bcd C． cd D． bc 10． VB中下列邏輯表達(dá)式書寫正確的是（ ） A． abc B． ab and ac C． a≤b D． a≠122 作業(yè) ?1．彈出式菜單設(shè)計(jì)，運(yùn)行結(jié)果如圖 1所示。 ? 3．?dāng)?shù)制轉(zhuǎn)換程序。 ? 4．時(shí)鐘程序。本程序主要練習(xí)列表框和循環(huán)語句的用法，利用文本框、列表框以及循環(huán)語句開發(fā)“冒泡”排序程序，運(yùn)行結(jié)果如圖 6所示。 ? 本講結(jié)束！ 第二單元 界面代碼設(shè)計(jì)與語言技巧： 第三章：應(yīng)用程序接口設(shè)計(jì)及代碼編寫 學(xué)習(xí)目標(biāo)：通過實(shí)例分析完成可視化界面設(shè)計(jì)、掌握變量與常量的概念及用法；學(xué)會對運(yùn)算符及流程控制語句和常用函數(shù)的使用，系統(tǒng)地掌握 VB編程的一般方法及相關(guān)知識。 進(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ù)號 （ +/） 命令按鈕的 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ì)；編寫代碼程序 。 MDI（ 多文檔窗體 ） 的設(shè)計(jì)： 首先創(chuàng)建父窗體 → 創(chuàng)建子窗體 MDI父窗體的兩個(gè)重要屬性是： ActiveForm(返回具有焦點(diǎn)或最后被激活的子窗體 ) ； ActiveControl（ 返回活動(dòng)子窗體上擁有焦點(diǎn)的控件 ） 實(shí)例見 P62圖 三 、 可視化界面的高級設(shè)計(jì)： 菜單 （ Menu） 設(shè)計(jì) : 分為下拉式菜單 、 彈出式菜單兩種 。 顯示聲明基本語句結(jié)構(gòu)是： Dim變量名 As 數(shù)據(jù)類型 。 （ 要注意它們的 優(yōu)先級別的高低 ） 常用函數(shù)： 數(shù)值型函數(shù)；字符串函數(shù)；日期函數(shù)；格式化函數(shù)