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

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

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

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

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

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

7、)File1.Pattern = *.bmpImage1.Stretch = TrueEnd Sub4編寫代碼實現(xiàn)圖形文件的單擊預(yù)覽，雙擊打開編輯。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)用外部過程的方法End Sub5將窗體和工程文件保存在自己的文件夾中。6單擊F5，試驗運行本程序，直至滿意為止。思考：可否仿照上述實驗，完成下一個實驗后，建立一個文本瀏覽器。窗體上放置驅(qū)動器列表框、目錄列表框、文件列表框和兩個文本框，要求：1、僅列出擴(kuò)展名為txt的文本文件 2、當(dāng)單擊某文本文件后在文本框顯示該文件內(nèi)容；

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

10、*.* CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1打開在通用對話框中選定的文本文件用于覆蓋式寫入Print #1, Text1.Text 寫入文件的命令除了Print #外還有write #，注意體會差別 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 注意打開方式為Input讀入Text2.Text = Do While Not EOF(1)Line Input #1, c 注意，順序文件的讀取還有其它幾種方法Text2.Text = Text2.Text & cChr(13) & Chr(10)每行末尾“回車”“換行”Loop Close #1End SubPrivate Sub Form_Load() ChDrive App.Path改變當(dāng)前驅(qū)動器 ChDir App.Path改變當(dāng)前目錄End Sub3將窗體和工程文件保存在自己的文件夾中。4單擊F5，試驗運行本程

12、序，直至滿意為止。思考：內(nèi)存變量為什么要定義為字符串類型？如何改用數(shù)據(jù)文件的其他讀入方法完成類似任務(wù)？試一試。實驗1.5隨機(jī)文件實驗任務(wù)：設(shè)計一個隨機(jī)文件讀寫應(yīng)用程序，用于學(xué)生成績維護(hù)，包括自動顯示每人各科成績、計算每人總分、平均分，并可添加記錄。實驗結(jié)果界面如圖1-5所示。圖l-5 實驗1.5運行界面實驗步驟：1建立工程，設(shè)置標(biāo)題欄，根據(jù)題目要求在窗體中添加各個控件并設(shè)置其屬性；2依據(jù)下列提示設(shè)計程序。（1）定義數(shù)據(jù)類型 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)試程序，直到滿意。說明：本實驗為設(shè)計性實驗，試驗界面和程序完全可以自主創(chuàng)新并允許適當(dāng)增加功能。思考：怎樣修改程序使其能刪除某一記錄？怎樣修改程序使其能求出全班每門課程的平均成績和全班總平均成績？習(xí)題1習(xí)題1 .1 選擇題 1Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言，采取了（ ）的編程機(jī)制。 (A)事件驅(qū)動 (B)按過程順序執(zhí)行 (C)從主程序開始執(zhí)行 (D)按模塊順序執(zhí)行 2

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

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

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

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

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

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

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

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

23、文件號，記錄號，變量名32文件操作時，LOF函數(shù)的功能是（）。（A）確定文件中的長度（字符總數(shù)）（B）判斷文件是否已經(jīng)結(jié)束（C）判斷文件是否打開（D）判斷文件的屬性33 若磁盤文件C:Data1.dat不存在，下列語句中，會產(chǎn)生錯誤的是（）。（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下列（ ）語句不能實現(xiàn)從順序文件中讀入數(shù)據(jù)。（A）Line Inpu

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

25、B）三個（C）多個（D）最多十個39寫順序文件時的Write# 語句會自動將寫入文件的信息中的字符串?dāng)?shù)據(jù)加上（）符號。（A） （B）（C）（D）40隨機(jī)訪問模式中文件的讀操作使用（）命令。（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、生的姓名、性別、年齡通過文本框輸入，按“寫入”按鈕后寫入隨機(jī)文件中，或按下“讀取”按鈕后將隨機(jī)文件的內(nèi)容讀入到相應(yīng)的文本框中,或按下“退出”按鈕，程序運行結(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(輸入要顯示的記錄號（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()