實(shí)驗(yàn)1VB編程環(huán)境和文件

1、PAGE 20PAGE 21實(shí)驗(yàn)1 環(huán)境和文件實(shí)驗(yàn)?zāi)康模?熟悉VB的集成開(kāi)發(fā)環(huán)境2掌握常用控件的屬性、方法3熟悉常用對(duì)象事件的使用4熟悉文件系統(tǒng)控件的使用5掌握文件的打開(kāi)、關(guān)閉和讀寫(xiě)操作實(shí)驗(yàn)1.1認(rèn)識(shí)Visual Basic實(shí)驗(yàn)任務(wù)：認(rèn)識(shí)Visual Basic的集成開(kāi)發(fā)環(huán)境，熟悉各個(gè)窗口的功能，熟悉控件的屬性、方法，熟悉事件的使用。實(shí)驗(yàn)結(jié)果界面如圖1-1所示。圖 1-1 實(shí)驗(yàn)1.1運(yùn)行界面實(shí)驗(yàn)步驟：?jiǎn)?dòng)VB6.0，創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EXE”類(lèi)型的應(yīng)用程序。將窗體的Font屬性設(shè)為宋體、小二、粗體，Caption屬性設(shè)置為“我的第一個(gè)程序”。在窗體上添加兩個(gè)命令按鈕Command1(Caption

2、屬性設(shè)置為“歡迎”)和Command2(Caption屬性設(shè)置為“再見(jiàn)”)。雙擊“歡迎”按鈕，涉及如下代碼：Print “歡迎使用 Visual Basic”雙擊“再見(jiàn)”按鈕，添加如下代碼：End將窗體和工程分別以文件名vb1.frm和vb1.vbp保存在自己的文件夾中。單擊F5，試驗(yàn)運(yùn)行本程序，直至滿(mǎn)意為止。說(shuō)明：這里，“自己的文件夾”指任意磁盤(pán)獲U盤(pán)如D盤(pán)根目錄下以自己的名字和學(xué)號(hào)命名的子目錄(例如姓名為“趙陽(yáng)”，學(xué)號(hào)為09080126；則自己的文件夾就是“D:趙陽(yáng)09080126”)，以后所有的實(shí)驗(yàn)若無(wú)特殊說(shuō)明均保存在該目錄下。思考：除了上述方法，還可以怎樣實(shí)現(xiàn)上述題目要求？試一試。實(shí)驗(yàn)

3、1.2 對(duì)象移動(dòng)動(dòng)畫(huà)實(shí)驗(yàn)任務(wù)：熟悉Move方法實(shí)現(xiàn)對(duì)象移動(dòng)，進(jìn)一步熟悉控件事件的使用。實(shí)驗(yàn)結(jié)果界面如圖1-2所示。圖1-2 實(shí)驗(yàn)1.2運(yùn)行界面實(shí)驗(yàn)步驟：將窗體的Caption屬性設(shè)為“歡迎新同學(xué)”；為窗體設(shè)置Picture屬性（圖片可以從C:WindowsWebWallpaper中取,也可放自己喜歡的照片），設(shè)置窗體不可改變大小。在窗體上添加兩個(gè)標(biāo)簽，Caption屬性為“歡迎新同學(xué)”，并將其設(shè)置為浮雕效果（提示：浮雕效果可以由兩個(gè)背景風(fēng)格為透明、前景顏色不同、位置稍有錯(cuò)位的標(biāo)簽重疊而成）。添加兩個(gè)命令按鈕Command1 和Command2，清空Caption屬性，將Style屬性設(shè)置為1-

4、Grapical，分別為Picture屬性設(shè)置圖標(biāo)文件“Point02.ico”、“Point04.ico”(圖標(biāo)文件位于VB的安裝目錄下CommonGraphicsIconsArrows文件夾中)。雙擊Command1，添加如下代碼： Label1.Move Label1.Left - 50 Label2.Move Label2.Left 50雙擊Command2，添加如下代碼： Label1.Move Label1.Left + 50 Label2.Move Label2.Left + 50將窗體和工程文件保存在自己的文件夾中。單擊F5，試驗(yàn)運(yùn)行本程序，直至滿(mǎn)意為止。思考：根據(jù)Move方法

5、的語(yǔ)法“對(duì)象名.Move left, top, width, height”，修改上述程序還可以有哪些變化？試一試。實(shí)驗(yàn)1.3文件系統(tǒng)控件實(shí)驗(yàn)任務(wù)：建立一個(gè)圖形瀏覽器，窗體上放置驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、一個(gè)文本框和一個(gè)圖像框，并實(shí)現(xiàn)以下要求：(1)文件列表框能過(guò)濾只顯示后綴為BMP的圖形文件；(2)當(dāng)單擊某BMP圖形文件名后，在Text1顯示文件名（包括路徑），在Image1顯示該圖形內(nèi)容；(3)當(dāng)雙擊某圖形文件名后，調(diào)用windows畫(huà)圖程序?qū)υ搱D形進(jìn)行編輯。實(shí)驗(yàn)結(jié)果如圖1-3所示。圖l-3 實(shí)驗(yàn)1.3運(yùn)行界面實(shí)驗(yàn)步驟：1在窗體中加入Drive、Dir、FileList三個(gè)文件

6、操作控件，分別用于驅(qū)動(dòng)器、目錄及文件名列表的操作（三個(gè)控件可直接在VB工具欄中找到）。2通過(guò)drive1及dir1控件的change事件過(guò)程建立三控件之間的相互關(guān)聯(lián)，代碼如下：Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub3在Form_load()事件過(guò)程中設(shè)置文件列表中的篩選過(guò)濾條件，并設(shè)置Image1對(duì)象的Stretch屬性使預(yù)覽時(shí)的圖像大小自動(dòng)適應(yīng)圖像框大小。代碼如下：Private Sub Form_Load(

7、)File1.Pattern = *.bmpImage1.Stretch = TrueEnd Sub4編寫(xiě)代碼實(shí)現(xiàn)圖形文件的單擊預(yù)覽，雙擊打開(kāi)編輯。Dim Fname$Private Sub File1_Click()Fname = File1.Path & IIf(Right(File1.Path, 1) = , , ) & File1.FileNameText1.Text = FnameImage1.Picture = LoadPicture(Fname)End SubPrivate Sub File1_DblClick()Fname = File1.Path & IIf(Right(Fi

8、le1.Path, 1) = , , ) & File1.FileNameText1.Text = FnameDim aa = Shell(D:windowsSystem32mspaint.exe & Fname, vbMaximizedFocus)注意，應(yīng)掌握Shell函數(shù)調(diào)用外部過(guò)程的方法End Sub5將窗體和工程文件保存在自己的文件夾中。6單擊F5，試驗(yàn)運(yùn)行本程序，直至滿(mǎn)意為止。思考：可否仿照上述實(shí)驗(yàn)，完成下一個(gè)實(shí)驗(yàn)后，建立一個(gè)文本瀏覽器。窗體上放置驅(qū)動(dòng)器列表框、目錄列表框、文件列表框和兩個(gè)文本框，要求：1、僅列出擴(kuò)展名為txt的文本文件 2、當(dāng)單擊某文本文件后在文本框顯示該文件內(nèi)容；

9、3、當(dāng)雙擊擴(kuò)展名為.txt的文件后，調(diào)用“記事本”程序?qū)ξ谋疚募M(jìn)行編輯。 實(shí)驗(yàn)1.4順序文件實(shí)驗(yàn)任務(wù)：建立一個(gè)具有寫(xiě)入和讀取順序文件功能的程序，能將多行文本框中輸入的數(shù)據(jù)保存到文本文件，并在需要的時(shí)候讀入內(nèi)存顯示在文本框中。實(shí)驗(yàn)結(jié)果如圖1-4所示。圖l-4 實(shí)驗(yàn)1.4運(yùn)行界面實(shí)驗(yàn)步驟：1新建工程，加入兩個(gè)文本框、兩個(gè)命令按鈕以及通用對(duì)話框控件，使其符合題目的界面及操作要求；2在代碼窗口中輸入下列命令代碼：Option ExplicitPrivate Sub Command1_Click() CommonDialog1.Filter = 文本文件(*.txt)|*.txt|所有文件(*.*)|

10、*.* CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1打開(kāi)在通用對(duì)話框中選定的文本文件用于覆蓋式寫(xiě)入Print #1, Text1.Text 寫(xiě)入文件的命令除了Print #外還有write #，注意體會(huì)差別 Close #1 關(guān)閉文件End SubPrivate Sub Command2_Click() Dim c As String CommonDialog1.Filter = 文本文件(*.txt)|*.txt|所有文件(*.*)|*.* CommonDialog1.ShowOpen Open Com

11、monDialog1.FileName For Input As #1 注意打開(kāi)方式為Input讀入Text2.Text = Do While Not EOF(1)Line Input #1, c 注意，順序文件的讀取還有其它幾種方法Text2.Text = Text2.Text & cChr(13) & Chr(10)每行末尾“回車(chē)”“換行”Loop Close #1End SubPrivate Sub Form_Load() ChDrive App.Path改變當(dāng)前驅(qū)動(dòng)器 ChDir App.Path改變當(dāng)前目錄End Sub3將窗體和工程文件保存在自己的文件夾中。4單擊F5，試驗(yàn)運(yùn)行本程

12、序，直至滿(mǎn)意為止。思考：內(nèi)存變量為什么要定義為字符串類(lèi)型？如何改用數(shù)據(jù)文件的其他讀入方法完成類(lèi)似任務(wù)？試一試。實(shí)驗(yàn)1.5隨機(jī)文件實(shí)驗(yàn)任務(wù)：設(shè)計(jì)一個(gè)隨機(jī)文件讀寫(xiě)應(yīng)用程序，用于學(xué)生成績(jī)維護(hù)，包括自動(dòng)顯示每人各科成績(jī)、計(jì)算每人總分、平均分，并可添加記錄。實(shí)驗(yàn)結(jié)果界面如圖1-5所示。圖l-5 實(shí)驗(yàn)1.5運(yùn)行界面實(shí)驗(yàn)步驟：1建立工程，設(shè)置標(biāo)題欄，根據(jù)題目要求在窗體中添加各個(gè)控件并設(shè)置其屬性；2依據(jù)下列提示設(shè)計(jì)程序。（1）定義數(shù)據(jù)類(lèi)型 Type StudType iNo As Integer strName As String*20 strClass As String*20 sMath As Singl

13、e sChinese As Single sEnglish As Single sPhysical As Single sTotal As Single sAverage As Single End Type Dim Student As StudType（2）把文本框中的數(shù)據(jù)賦給變量 Student.strName=txtName.text Student.strClass=txtClass.text Student.sMath=Val(txtMath.text) Student.sChinese=Val(txtChinese.text)（3）把數(shù)據(jù)存入文件 Open Student.dat

14、 For Random As #1 Len=Len(Studen) Record_No=LOF(1)/LEN(Student)+1 Put #1, Record_No, Student Close #1調(diào)試程序，直到滿(mǎn)意。說(shuō)明：本實(shí)驗(yàn)為設(shè)計(jì)性實(shí)驗(yàn)，試驗(yàn)界面和程序完全可以自主創(chuàng)新并允許適當(dāng)增加功能。思考：怎樣修改程序使其能刪除某一記錄？怎樣修改程序使其能求出全班每門(mén)課程的平均成績(jī)和全班總平均成績(jī)？習(xí)題1習(xí)題1 .1 選擇題 1Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了（ ）的編程機(jī)制。 (A)事件驅(qū)動(dòng) (B)按過(guò)程順序執(zhí)行 (C)從主程序開(kāi)始執(zhí)行 (D)按模塊順序執(zhí)行 2

15、在VisualBasic中最基本的對(duì)象是（ ），它是應(yīng)用程序的基石，是其他控件的容器。 (A)文本框 (B)命令按鈕 (C)窗體 (D)標(biāo)簽 3多窗體程序是由多個(gè)窗體組成。在缺省情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總是把（ ）指定為啟動(dòng)窗體。 (A)不包含任何控件的窗體 (B)設(shè)計(jì)時(shí)的第一個(gè)窗體 (C)包含控件最多的窗體 (D)命名為First的窗體 4有程序代碼如下： Text1.Text=Visual Basic則：Text1、Text和Visual Basic分別代表（ ）。 (A)對(duì)象，值，屬性 (B)對(duì)象，方法，屬性 (C)對(duì)象，屬性，值 (D)屬性，對(duì)象，值 5Visual Basic是

16、一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，（ ）不是對(duì)象系統(tǒng)所包含的三要素。 (A)變量 (B)事件 (C)屬性 (D)方法 6Visual Basic的一個(gè)應(yīng)用程序至少包含一個(gè)（ ）文件，該文件存儲(chǔ)窗體上使用的所有控件對(duì)象和有關(guān)的 （ ）、對(duì)象相應(yīng)的（ ）過(guò)程和（ ）代碼。 (A)模塊、方法、事件、程序 (B)窗體、屬性、事件、程序 (C)窗體、程序、屬性、事件 (D)窗體、屬性、事件、模塊 7以下不屬于Visual Basic的工作模式是（ ）模式。 (A)編譯 (B)設(shè)計(jì) (C)運(yùn)行 (D)中斷 8在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，除了工具箱窗口、窗體中的窗口、屬性窗口外必不可少的窗口是（ ）。（A）

17、窗體布局窗口 B）立即窗口（C）代碼窗口 （D）監(jiān)視窗口 9保存新建的工程時(shí)，默認(rèn)的路徑是（ ）。 （A）MyDocuments （B）VB98 （C） （D）Windows 10將調(diào)試通過(guò)的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，將該可執(zhí)行文件到其他機(jī)器上不能運(yùn)行的主要原因是（ ）。 （A）運(yùn)行的機(jī)器上無(wú)VB系統(tǒng) （B）缺少.frm窗體文件 （C）該可執(zhí)行文件有病毒 （D）以上原因都不對(duì) 11對(duì)于窗體，下面（ ）屬性可以在運(yùn)行模式下進(jìn)行設(shè)置。 （A）MaxButton （B）BorderStyle （C）Name （D）Left12要使Print方法在Form_Load事件

18、中起作用，要對(duì)窗體的（ ）屬性進(jìn)行設(shè)置。 （A）BackColor （B）ForeColor （C）AutoRedraw（D）Caption13若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì)（ ）屬性進(jìn)行設(shè)置。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle14若要使命令按鈕不可操作，要對(duì)（ ）屬性設(shè)置。 （A）Enabled （B）Visible （C）BackColor （D）Caption15文本框沒(méi)有（ ）屬性。 （A）Enabled （B）Visible （C）BackColor （D）Caption16不論何控件，共同具有的是

19、（ ）屬性。 （A）Text （B）Name （C）ForeColor （D）Caption17要使Form1窗體的標(biāo)題欄顯示“歡迎使用VB”，以下（ ）語(yǔ)句是正確的。 （A）Form1.Caption=“歡迎使用VB” （B）Form1.Caption=歡迎使用VB （C）Form1.Caption=歡迎使用VB （D）Form1.Caption=歡迎使用VB18要使某控件在運(yùn)行時(shí)不可見(jiàn)，應(yīng)對(duì)（ ）屬性進(jìn)行設(shè)置。 （A）Enabled （B）Visible （C）BackColor （D）Caption19要使窗體在運(yùn)行時(shí)不可改變窗體的大小并且沒(méi)有最大化和最小化按鈕，只要對(duì)下列（ ）屬性設(shè)置

20、就有效。 （A）MaxButton （B）BorderStyle （C）Width （D）MinButton 20當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的（ ）事件過(guò)程。 （A）Load （B）Click （C）UnLoad （D）GotFocus21Visual Basic提供的對(duì)數(shù)據(jù)文件的三種訪問(wèn)方式分別為隨機(jī)訪問(wèn)方式、（）和二進(jìn)制訪問(wèn)方式。（A）順序訪問(wèn)方式（B）十六進(jìn)制訪問(wèn)方式（C）倒序訪問(wèn)方式（D）八進(jìn)制訪問(wèn)方式22打開(kāi)順序文件的語(yǔ)句是()。(A)Output(B)For（C）Open（D）Close23打開(kāi)順序文件語(yǔ)句的參數(shù)中Append是表示把新數(shù)據(jù)添加到文件的（）。（A）文件尾（B

21、）文件頭（C）文件中間 （D）不能創(chuàng)建一個(gè)新文件24用Close關(guān)閉多個(gè)已打開(kāi)的順序文件是，文件號(hào)之間要用（）標(biāo)點(diǎn)符號(hào)隔開(kāi)。（A）. （B） ;（C）, （D） /25讀順序文件中用Input#語(yǔ)句是從打開(kāi)的順序文件中讀取一行數(shù)據(jù)，這里的一行是指從當(dāng)前指針位置開(kāi)始到（）符之前的所有數(shù)據(jù)。（A）回車(chē)換行符（B）空格符（C）A字符（D）C字符26寫(xiě)順序文件時(shí)的Write# 語(yǔ)句會(huì)自動(dòng)將寫(xiě)入文件中的信息用（）符號(hào)分開(kāi)。（A） ; （B） , （C） /（D） 。27隨機(jī)文件中每行或者每個(gè)記錄的長(zhǎng)度是（）。（A）固定（B）300個(gè)字節(jié) （C）不固定（D）10個(gè)字節(jié)28文件系統(tǒng)控件中DriveListB

22、ox是（）。（A）驅(qū)動(dòng)器列表框（B）目錄列表框 （C）文件列表框（D）圖形列表框29文件操作時(shí)，Rmdir函數(shù)的功能是（）。（A）得到下一個(gè)可用文件號(hào) （B）刪除一個(gè)已有的目錄（C）在打開(kāi)的文件中指定當(dāng)前的讀寫(xiě)位置（D）返回當(dāng)前路徑30文件操作時(shí)，Kill函數(shù)的功能是（）。（A）返回文件被創(chuàng)建或者最后修改的日期與時(shí)間（B）返回以字節(jié)表示的文件長(zhǎng)度（C）從磁盤(pán)中刪除文件（D）重命名一個(gè)文件或目錄31為了把一個(gè)記錄型變量的內(nèi)容寫(xiě)入文件中指定的位置，所使用的語(yǔ)句的格式為: （）。（A）Get 文件號(hào)，記錄號(hào)，變量名（B）Get 文件號(hào)，變量名，記錄號(hào)（C）Put 文件號(hào)，變量名，記錄號(hào)（D）Put

23、文件號(hào)，記錄號(hào)，變量名32文件操作時(shí)，LOF函數(shù)的功能是（）。（A）確定文件中的長(zhǎng)度（字符總數(shù)）（B）判斷文件是否已經(jīng)結(jié)束（C）判斷文件是否打開(kāi)（D）判斷文件的屬性33 若磁盤(pán)文件C:Data1.dat不存在，下列語(yǔ)句中，會(huì)產(chǎn)生錯(cuò)誤的是（）。（A）Open C:Data1.dat For Output As #1（B）Open C:Data1.dat For Input As #2（C）Open C:Data1.dat For Append As #3（D）Open C:Data1.dat For Binary As #434下列（ ）語(yǔ)句不能實(shí)現(xiàn)從順序文件中讀入數(shù)據(jù)。（A）Line Inpu

24、t#,（B）Input#,.（C）Input(Length,#)（D）InputBox（message）35驅(qū)動(dòng)器列表框的Drive屬性是（）。（A）返回或設(shè)置所選定的驅(qū)動(dòng)器（B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄（C）顯示根目錄下的文件名 （D）只顯示當(dāng)前路徑下的文件36關(guān)閉順序文件要用（）語(yǔ)句。（A）Output（B）For（C）Open （D）Close37用Close關(guān)閉已打開(kāi)的順序文件時(shí)，如果省略參數(shù)FileList(文件號(hào)列表)是即表示關(guān)閉（）已打開(kāi)的文件。（A）1個(gè)（B）5個(gè)（C）10個(gè)（D）所有38在順序文件語(yǔ)句中Input#可以從文件中同時(shí)向（）個(gè)變量?jī)?nèi)讀入數(shù)據(jù)。（A）一個(gè)（

25、B）三個(gè)（C）多個(gè)（D）最多十個(gè)39寫(xiě)順序文件時(shí)的Write# 語(yǔ)句會(huì)自動(dòng)將寫(xiě)入文件的信息中的字符串?dāng)?shù)據(jù)加上（）符號(hào)。（A） （B）（C）（D）40隨機(jī)訪問(wèn)模式中文件的讀操作使用（）命令。（A）Open（B）Put（C）Input （D）Get參考答案：1 A2 C3 B4 C5 A6 B7 A8 C9 B10 A11 D12 C13 D14 A15 D16 B17 D18 B19 B20 A21 A22 C23 A24 C25 A26 B27A28 A29 B30C31 D32 A 33 B34 D35A36 D37 D38 C39 A40 D習(xí)題1.2填空題1、完善下列程序，要求能將不同學(xué)

26、生的姓名、性別、年齡通過(guò)文本框輸入，按“寫(xiě)入”按鈕后寫(xiě)入隨機(jī)文件中，或按下“讀取”按鈕后將隨機(jī)文件的內(nèi)容讀入到相應(yīng)的文本框中,或按下“退出”按鈕，程序運(yùn)行結(jié)束。Private Type Stud Name As String * 8 Sex As String *2 Age As Byte_第1空Dim Student As _第2空Dim N As IntegerPrivate Sub Command1_Click() Student.Name = Text1.Text Student.Sex =Text3.Text Student.Age = Val(Text2.Text)_, , Student第3空 N = N + 1End SubPrivate Sub Command2_Click() k = CInt(InputBox(輸入要顯示的記錄號(hào)（1- & Str(N) & ）：) If (k = 1) And (k = N) Then_第4空 Text1.Text = Student.Name Text3.Text = Student.Sex Text2.Text = Student.Age Else MsgBox 記錄不存在！, vbCritical, 警告 End IfEnd SubPrivate Sub Command3_Click()