VisualBasic編程與應(yīng)用作業(yè)4答案

1、姓名：_ 班級：_ 學(xué)號：_-密-封 -線- visualbasic編程與應(yīng)用作業(yè)4答案考試時間：120分鐘 考試總分：100分題號一二三四五總分分?jǐn)?shù)遵守考場紀(jì)律，維護(hù)知識尊嚴(yán)，杜絕違紀(jì)行為，確?？荚嚱Y(jié)果公正。1什么是多文擋界面？（mdi） 解答：多文擋界面（mu1tipledocumentinterface）是指在一個父窗口下面可以同時打開多個子窗口。子窗口歸屬于父窗口，如果父窗口關(guān)閉，則所有子窗口全部關(guān)閉。 2什么是文件？ 解答：所謂文件是指存放在外部存儲介質(zhì)上的數(shù)據(jù)和程序等。 3文件管理系統(tǒng)有什么作用？ 解答：為了方便用戶存取，在現(xiàn)代的計(jì)算機(jī)系統(tǒng)中，都包含有文件管理系統(tǒng)。用戶可以對文件進(jìn)

2、行各種各樣的處理和操作，如選擇、打開和刪除等。 4文件系統(tǒng)有哪些l解答： privatesubdir1_change（） file1.path=dir1.path endsub 7文件按照其數(shù)據(jù)存放的方式，分為幾種類型？ 解答：按照文件的存取方式及其組成結(jié)構(gòu)可以分為兩種類型：順序文件和隨機(jī)文件。 8如何打開順序文件？ 解答：打開順序文件的語法結(jié)構(gòu)如下： openpathnameformodeaccessaccesslockas#filenumberlen=reclength open語句的lreclength小于或等于32767（字節(jié)）的一個數(shù)，對于用隨機(jī)訪問方式打開的文件， 該值就是記錄長度

3、，對于順序文件，該值就是緩沖字符數(shù)。 9如何關(guān)閉順序文件？ 解答：close文件號1，文件號2 10如何向磁盤中讀寫數(shù)據(jù)？ 解答：從順序文件中讀取數(shù)據(jù)的語法結(jié)構(gòu)如下： input#filenumber,varlist input#語句的語法參數(shù)及其說明如下： filenumber有效的文件號 varlist用逗號分界的變量表，將文件中讀出的值分配給這些變量。 向順序文件中寫入數(shù)據(jù)的語法結(jié)構(gòu)如下： write#filenumber，output1ist write#語句的語法具有以下幾個部分，它的參數(shù)及說明如下： filenumber一個有效的文件號 outputlist要寫入文件的表達(dá)式，用逗

4、號將這些表達(dá)式分界。 11討論一下pathname屬性。 解答：pathname為所要執(zhí)行的應(yīng)用程序的名稱及其路徑和必要的參數(shù)。 12順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點(diǎn)和用途？ 解答：所謂順序文件，通常指的是普通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，chr（14）”，換行符“gr，lf”，“chr（13）”，“chr（10）”等。由于這類文件的信息是按照順序從頭到尾按順序排列，而且只提供第一條記錄的存儲位置，所以對其中的數(shù)據(jù)信息進(jìn)行處理是相當(dāng)困難的。 隨機(jī)文件由記錄組成，能夠隨機(jī)存取其相同長度的數(shù)據(jù)記錄，每一數(shù)據(jù)記錄內(nèi)可以設(shè)計(jì)各種欄位以容納不同的數(shù)據(jù)。此種文件數(shù)據(jù)是

5、以二進(jìn)制的位的形式保存在磁盤上。隨機(jī)文件比順序文件占用內(nèi)存多。 二進(jìn)制文件的數(shù)據(jù)是以二進(jìn)制格式保存的,能用來存儲任何數(shù)據(jù)。這種文件的靈活性最大，但程序的工作量大。二進(jìn)制訪問能夠提供對文件的完全控制，因?yàn)槲募械淖止?jié)可以代表任何東西。 二、程序填空題 本題要求實(shí)現(xiàn)如下窗體中的功能，窗體中有一組文件系統(tǒng)控件，分別是驅(qū)動器列表框drive1，目錄列表框dir1，和文件列表框file1，在它們下面有一個圖片框pic1，右邊是一個命令按鈕comd1和兩個文本框text1和text2，要求選擇一個位圖文件（jpg）即單擊文件列表框（file1）中的某個文件時，將該位圖文件顯示在圖片框中，當(dāng)按命令按鈕時，將

6、該位圖的實(shí)際尺寸（高/寬）以像素點(diǎn)為單位顯示在文本框內(nèi)。 解答： optionexplicit privatesubform_load() file1.pattern=“*.jpg” endsub privatesubdir1_change() file1.path=dir1.path endsub privatesubdrive1_change() dir1.path=drive1.drive endsub privatesubfile1_click() dimfnasstring iflen(dir1.path)=3then fn=dir1.path+file1.filenane else fn=dir1.path&”“&file1.filename endif pic1.autosize=true pic1.scalemode=vbpixels pic1.picture=loadpicture(fn) endsub