【正文】 圖20－4 Line控件的使用3．第3題實(shí)驗(yàn)指導(dǎo)(1）編寫程序代碼Private Sub Form_Click( ) Const pi = Circle (2150, 1200), 800, vbBlue, pi / 6, pi / 3, 3 / 5 Circle (2000, 1300), 800, vbGreen, pi / 3, pi / 6, 3 / 5 FillStyle = 0FillColor = RGB(0, 0, 255)Circle (900, 700), 300Circle (3000, 2000), 400, , , , 2Circle (4000, 3000), 400, , , , 1 / 3End Sub(2)運(yùn)行程序運(yùn)行程序后，單擊窗體，程序運(yùn)行效果如圖20－5所示。圖20－3 Shape控件的使用2．第2題實(shí)驗(yàn)指導(dǎo)(1)設(shè)計(jì)界面窗體Form1的Caption屬性設(shè)置為“Line控件使用舉例”。圖20－2 設(shè)置屬性后的界面(2)編寫程序代碼Private Sub Option1_Click(Index As Integer) = Index = Index + 1 = Index + 2End Sub(3)運(yùn)行程序運(yùn)行程序后，每次單擊一個(gè)不同的單選按鈕就能看到一個(gè)不同的形狀。窗體中還有一個(gè)形狀控件Shape1?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．第1題實(shí)驗(yàn)指導(dǎo)(1)設(shè)計(jì)界面初始界面如圖20－1所示。2．使用Line方法畫出一個(gè)五角星。2．掌握各種圖形方法的使用。(12)單擊“關(guān)閉”按鈕關(guān)閉“查詢生成器”對(duì)話框。圖19－9 添加多個(gè)條件圖19－10 顯示SELECT語句(10)要把定義的SELECT語句傳遞到“SQL 語句”窗口時(shí)，單擊“復(fù)制”按鈕。要查看定義的SELECT語句時(shí)，單擊“顯示”按鈕，系統(tǒng)顯示“SQL查詢”對(duì)話框，它列出了當(dāng)前定義的SELECT語句，如圖19－10所示。(8)需要定義排序方式時(shí)，單擊“排序按”下拉列表框，從中排序字段。如圖19－9所示。如果需要指定更多的條件，那么首先需要分清要添加的條件與先前條件之間的關(guān)系。單擊“運(yùn)行”按鈕，即可看到在指定條件下查詢的結(jié)果。男39。比如，我們要查找男學(xué)生的信息。單擊“運(yùn)行”按鈕，系統(tǒng)詢問“這是SQL傳遞查詢嗎？”，單擊“否”按鈕，系統(tǒng)使用我們剛剛構(gòu)造的SELECT語句檢索數(shù)據(jù)，并顯示在“SQL語句”對(duì)話框中，瀏覽完數(shù)據(jù)后，單擊“關(guān)閉”按鈕關(guān)閉“SQL語句”對(duì)話框。如圖2－20－8所示。圖19－8 查詢生成器(3)“表：”列表框中顯示了數(shù)據(jù)庫(kù)中定義的所有表。使用“查詢生成器”構(gòu)造和測(cè)試SELECT語句的步驟為：(1)啟動(dòng)“可視化數(shù)據(jù)管理器”，打開數(shù)據(jù)庫(kù)。4．使用查詢生成器“查詢生成器”是Visual Basic “可視化數(shù)據(jù)管理器”的一個(gè)工具。（5）單擊“關(guān)閉”按鈕關(guān)閉“Dynaset:xjb”對(duì)話框。輸入各字段的內(nèi)容，單擊“更新”按鈕保存新添加的記錄。圖19－5 包含有3個(gè)表的數(shù)據(jù)庫(kù)student圖19－6 “Dynaset:xjb”對(duì)話框（3）添加記錄。（2）在“數(shù)據(jù)庫(kù)窗口”中右擊要添加、修改、或刪除記錄的表，從彈出菜單中選擇“打開”菜單項(xiàng)，系統(tǒng)顯示“Dynaset:表名”對(duì)話框，其中顯示所選表中第一條記錄的內(nèi)容。（6）若要修改現(xiàn)有表的表結(jié)構(gòu)，在“數(shù)據(jù)庫(kù)窗口”中右擊鼠標(biāo)，單擊彈出的快捷菜單中“設(shè)計(jì)”菜單項(xiàng)，系統(tǒng)將打開“表結(jié)構(gòu)”對(duì)話框，對(duì)欲修改的字段進(jìn)行修改即可。（5）單擊“生成表”按鈕，“可視化數(shù)據(jù)管理器”創(chuàng)建指定的表并關(guān)閉“表結(jié)構(gòu)”對(duì)話框。單擊“確定”按鈕，這樣我們就定義了xjb表的第一個(gè)字段。（3）單擊“添加字段”按鈕，系統(tǒng)顯示“添加字段”對(duì)話框，如圖19－4所示。圖19－2 創(chuàng)建數(shù)據(jù)庫(kù)后的“可視化數(shù)據(jù)管理器”界面2．向數(shù)據(jù)庫(kù)中添加數(shù)據(jù)表（1）在“數(shù)據(jù)庫(kù)窗口”中右擊鼠標(biāo)，在彈出的快捷菜單中選“新建表”菜單項(xiàng)，系統(tǒng)將打開“表結(jié)構(gòu)”對(duì)話框，如圖19－3所示。(4)選擇新建數(shù)據(jù)庫(kù)保存的目錄后，在“文件名”文本框中輸入數(shù)據(jù)庫(kù)的名稱student。圖19－1 可視化數(shù)據(jù)管理器(2)選擇“可視化數(shù)據(jù)管理器”中“文件”菜單中的“新建”菜單項(xiàng)用于創(chuàng)建數(shù)據(jù)庫(kù)。【實(shí)驗(yàn)內(nèi)容】使用可視化數(shù)據(jù)庫(kù)管理器建立一個(gè)名為“”的Access數(shù)據(jù)庫(kù)，它包括一個(gè)學(xué)生學(xué)籍表，該表的表名為xjb，各列的名稱、數(shù)據(jù)類型、長(zhǎng)度及意義如下所示。2．掌握可視化數(shù)據(jù)庫(kù)管理器的使用。程序運(yùn)行效果如圖18－3所示。4．運(yùn)行程序運(yùn)行程序，在兩個(gè)文本框中分別輸入姓名和電話號(hào)碼，然后單擊“添加記錄”命令按鈕，把該記錄添加到“D:\”文件中。Private Sub cmdBrowse_Click( ) LastRecord = LOF(1) / Len(js) = LastRecord = 1 = 1 Call HScroll1_ChangeEnd Sub3．編寫程序代碼Private Sub Form_Load( ) Open D:\ For Random As 1 Len = Len(js)End SubCommand1Caption添加記錄Command1（名稱）cmdAddCommand2Caption瀏覽記錄Command2（名稱）cmdBrowseCommand3Caption退出Command3（名稱）cmdExitLabel3Caption選擇記錄：設(shè)置屬性后的界面如圖18－2所示。圖18－1 初始界面2．設(shè)置屬性表18－1 屬性設(shè)置對(duì)象屬性屬性值Form1Caption隨機(jī)文件Label1Caption姓 名：Label2Caption電話號(hào)碼：Text1Text【實(shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加三個(gè)標(biāo)簽，兩個(gè)文本框，一個(gè)滾動(dòng)條和三個(gè)命令按鈕。【實(shí)驗(yàn)內(nèi)容】 新建隨機(jī)文件“D:\”。圖17－3 順序文件的使用實(shí)驗(yàn)十八 隨機(jī)文件【實(shí)驗(yàn)?zāi)康摹?．掌握隨機(jī)文件的打開，讀寫和關(guān)閉方法。在文本框中進(jìn)行修改，然后單擊“保存文件”命令按鈕，則文本框中的內(nèi)容保存到該文件。Text1MultiLineTrueText1ScrollBars3BothCommand1Caption顯示文件Command2Caption保存文件Command3Caption退出CommonDialog1FilterText Files （*.txt）|*.txt設(shè)置屬性后的界面如圖17－2所示。圖17－1 初始界面【實(shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加三個(gè)命令按鈕，一個(gè)文本框和一個(gè)通用對(duì)話框。2．掌握順序文件的使用。 圖16－1 初始界面圖 圖16－2 文件系統(tǒng)控件的同步2．編寫程序代碼Private Sub Drive1_Change( ) = End SubPrivate Sub Dir1_Change( ) = End Sub3．運(yùn)行程序程序運(yùn)行效果如圖16－2所示?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．設(shè)計(jì)界面在窗體上添加一個(gè)驅(qū)動(dòng)器列表框Drive1，一個(gè)目錄列表框Dir1和一個(gè)文件列表框File1。圖15－9 程序運(yùn)行結(jié)果實(shí)驗(yàn)十六 文件系統(tǒng)控件【實(shí)驗(yàn)?zāi)康摹空莆镇?qū)動(dòng)器列表框，目錄列表框和文件列表框的常用屬性和事件。選擇插入窗格命令，插入一個(gè)窗格，如圖15－8所示。參考圖15－7所示。圖15－6程序運(yùn)行結(jié)果2．實(shí)驗(yàn)內(nèi)容（1）建立用戶界面添加AxtiveX控件。參考圖15－5所示。參考圖2－15－4所示。如圖15－3所示。參考圖2－15－2所示。參考圖15－1所示?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．實(shí)驗(yàn)內(nèi)容（1）建立用戶界面添加一個(gè)文本框控件Text1。2．掌握通過狀態(tài)欄控件創(chuàng)建狀態(tài)欄的步驟和方法。 Chr(10) amp?！? 9 8 7 6 5 4 3 2 1 “ End Sub Private Sub mnuPopStar_Click() =”” =”**********”amp。 Chr(13) amp。2．實(shí)驗(yàn)內(nèi)容（1） 在實(shí)驗(yàn)1的菜單中增加一個(gè)菜單項(xiàng)，如表142所示表142 新增菜單項(xiàng)標(biāo)題名稱可見性彈出菜單mnuPopFalse…打印星號(hào)mnuPopStar…打印字母mnuPopNum（2） 修改屬性 將Text1的對(duì)齊屬性Alignment設(shè)為“2”（居中），多行屬性MultiLine設(shè)為“Ture”，字體Font屬性設(shè)為“小三”。C）mnuColor…紅色mnuRedCtrl+R…藍(lán)色mnuBlueCtrl+B…綠色mnuGreenCtrl+G…—Line…白色mnuWhiteCtrl+W…黑色mnuBlackCtrl+K退出（amp。【實(shí)驗(yàn)步驟與指導(dǎo)】1．實(shí)驗(yàn)內(nèi)容（1）建立用戶界面 利用“工具”菜單中的“菜單編輯器”菜單項(xiàng)，建立如圖141所示的菜單。在窗體上放置一個(gè)文本框，根據(jù)菜單中選擇的顏色，變換文本框的背景色。2．掌握下拉式菜單和彈出式菜單的設(shè)計(jì)方法。換行NextEnd Sub（4）運(yùn)行程序程序輸出界面如圖13－4所示。 39。（2）設(shè)置對(duì)象屬性（3）編寫事件代碼Private Sub Form_Activate()Dim z(10, 10) As IntegerFor n = 1 To 10 For m = 1 To 10 If n = m Or n = 11 m Then z(n, m) = 1 Else z(n, m) = 0 End If NextNext For n = 1 To 10 For m = 1 To 10 Tab(m * 3)。 圖13－2 將字符倒序輸出結(jié)果 圖13－3 界面設(shè)計(jì)【實(shí)驗(yàn)步驟與指導(dǎo)】1．實(shí)驗(yàn)內(nèi)容（1）設(shè)計(jì)界面（2）設(shè)置屬性。提示：由于矩陣由行，列組成，需要雙下標(biāo)才能確定一元素位置，所以，使用二維數(shù)組來表示矩陣。要求把這14個(gè)字符存放到數(shù)組C(14)中，首先依此讀取，然后利用循環(huán)，設(shè)置步長(zhǎng)為－1初值為14，終值為1，實(shí)現(xiàn)倒序輸出。應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題。3．了解二維數(shù)組的用法。2．學(xué)會(huì)聲明，使用一維數(shù)組。圖12－1 初始界面2．設(shè)置屬性，如表11－1所示表12－1 屬性設(shè)置對(duì)象屬性屬性值Command1Caption開始計(jì)時(shí)Command2Caption停止Command3Caption重新開始Label1Bo