VisualBasic程序設計典型例題解析

1、VisualBasic程序設計典型例題解析(2)一、填空題1.以順序輸入模式打開“c:source1.txt”文件的命令是(1);以輸出方式打開"c:source2.txt”文件的命令是。分析：Print#語句用于將把數(shù)據(jù)寫入文件中。Print語句格式為：Open文件名For模式As#文件號“For模式”為指定打開文件的模式是數(shù)據(jù)的輸入模式還是輸出模式。結(jié)論：答案應為：(1)Open"c:source1.txt"ForInputAs#1(2) Open"c:source2.txt"ForOutputAs#22 .在VisualBasic中，文件

2、系統(tǒng)控件包括(1)、(2)和文件列表框(FileListBox)。三者協(xié)同操作可以訪問任意位置的目錄和文件，可以進行文件系統(tǒng)的人機交互管理。分析：在VisualBasic中，文件系統(tǒng)控件包括驅(qū)動器列表框(DriveListBox)、目錄列表框(DirListBox)和文件列表框(FileListBox)。驅(qū)動器列表框可以選擇或設置一個驅(qū)動器，目錄列表框可以查找或設置指定驅(qū)動器中的目錄，文件列表框可以查找指定驅(qū)動器指定目錄中文件信息，三者協(xié)同操作可以訪問任意位置的目錄和文件，可以進行文件系統(tǒng)的人機交互管理。結(jié)論：答案應為：(1)驅(qū)動器列表框(DriveListBox)(2)目錄列表框(DirLi

3、stBox)3 .每次重新設置驅(qū)動器列表框的Drive屬性時，都將引發(fā)(1)事件?？稍谠撌录^程中編寫代碼修改目錄列表框的路徑，使目錄列表框內(nèi)容隨之發(fā)生改變。分析：在VisualBasic中，每次重新設置驅(qū)動器列表框的Drive屬性時，都將引發(fā)Change事件。可在Change事件過程中編寫代碼修改目錄列表框的路徑，使目錄列表框內(nèi)容隨之發(fā)生改變。驅(qū)動器列表框的默認名稱為Drive1，其Change事件過程的開頭為Drive1_Change()。結(jié)論：答案應為：(1)Change4 .目錄列表框用來顯示當前驅(qū)動器下目錄結(jié)構(gòu)。剛建立時顯示(1)的頂層目錄和當前目錄，如果要顯示其他驅(qū)動器上的目錄信息

4、，必須改變路徑，即重新設置目錄列表框的(2)屬性。分析：在VisualBasic中，目錄列表框用來顯示當前驅(qū)動器下目錄結(jié)構(gòu)。剛建立時顯示當前驅(qū)動器的頂層目錄和當前目錄，如果要顯示其他驅(qū)動器上的目錄，必須改變路徑，即重新設置目錄列表框的Path屬性。結(jié)論：答案應為：(1)當前驅(qū)動器(2)Path5 .對驅(qū)動器列表框來說，每次重新設置驅(qū)動器列表框的(1)屬性時，將引發(fā)Change事件；對目錄列表框來說，當(2)屬性值改變時,將引發(fā)Change事件；對于文件列表框，重新設置的(3)屬性,將引發(fā)Change事件。分析：在VisualBasic中，對驅(qū)動器列表框來說，每次重新設置驅(qū)動器列表框的Drive

5、屬性時，將引發(fā)Change事件；對于目錄列表框和文件列表框改變路徑，即重新設置列表框的Path屬性，將引發(fā)Change事件。結(jié)論：答案應為：(1)Drive(2)Path(3)Path6 .以下程序段簡要說明驅(qū)動器列表框、目錄列表框及文件列表框三者協(xié)同工作的情況。將程序段補充完整。PrivateSubDrive1_Change()(1)EndSubPrivateSubDir1_Change()(2)EndSub分析：首先設置目錄列表路徑隨驅(qū)動器列表路徑改變而改變：每當改變驅(qū)動器列表框的Drive屬性時，將產(chǎn)生驅(qū)動器列表框的Change事件，執(zhí)行Drive1_Change事件過程，使驅(qū)動器列表框

6、和目錄列表框同步，即將目錄列表框中的目錄(Dir1.Path屬性)變?yōu)樵擈?qū)動器的目錄(Drive1.Drive屬性)。然后，設置文件列表路徑隨目錄列表路徑改變而改變：當目錄列表框Path屬性的改變時，將產(chǎn)生目錄列表框的Change事件，執(zhí)行D1_Change事件過程，使目錄列表框和文件列表框同步，即在文件列表框(File1.Path屬性)中顯示目錄驅(qū)動器所指目錄下的文件信息(Dir1.Path屬性)。這樣三個文件系統(tǒng)控件就協(xié)同工作了。結(jié)論：答案應為：(1)Din.Path=Drive1.Drive(2)File1.Path=Dir1.Path7 .為了在運行時把當前路徑下的圖形文件pictur

7、efile.jpg裝入圖片框Picture1,所使用的語句為(1)。分析：可以使用LoadPicture語句，必須先確定圖片的位置，在本例中路徑為當前路徑可以采用默認路徑；也可以在Picture1的Picture屬性中直接設置打開文件對話框，在對話框中選擇圖片進行設置。結(jié)論：答案應為：Picture1.Picture=LoadPrcture("picturefile.jpg”)8 .窗體Form1的左上角坐標為(0,600)窗體Form1的右下角坐標為(800,-200)。X軸的正向向(1),Y軸的正向向(2)。分析：窗體右下角坐標為負值，說明丫軸的正向向上。結(jié)論：答案應為：(1)右

8、(2)上9 .執(zhí)行指令"Line(200,200,)-Step(500,500,)"后，CurrentX=。分析：語句中Step(500,500)的意思是相對于當前點(200,200)的坐標，則當前坐標CurrentX=700。結(jié)論：答案應為70010 .執(zhí)行指令"Line(200,200,)-(500,500,)”后，CurrentX=。分析：語句中(500,500)即為當前點坐標，CurrentX=500。結(jié)論：答案應為50011 .要使圖像框能夠自動調(diào)整大小以適應其中的圖形，應將圖像框?qū)傩栽O置為。分析：Stretch屬性設置為False時，圖像框可自動改變大

9、小以適應其中的圖形，設置為True時，加載到圖像框的圖形可自動調(diào)整尺寸以適應圖像框的大小。結(jié)論：答案應為（1）Stretch（2）False12 .ADO模型中一般可通過Connection對象的（1）方法執(zhí)行增加、刪除、修改操作。使用ADO模型時，建立Recordset和Connection對象連接的屬性是（2）。分析：應記住結(jié)論：ExecuteActiveConnection13 .Winsock控件主要用來編制TCP/IP或協(xié)議的通訊協(xié)議。分析：應記住結(jié)論：UDP14 .VB中設置斷點的按鍵是,逐語句調(diào)試的語句是。結(jié)論：答案應為F9F815 .OnErrorResumeNext語句表示：

10、當發(fā)生錯誤時，VB程序?qū)⒑雎砸l(fā)錯誤的語句，并。結(jié)論：繼續(xù)執(zhí)行下一條語句。二、選擇題1 .（）函數(shù)判斷文件指針是否到了文件結(jié)束標志；（）函數(shù)返回文件的字節(jié)數(shù)；（）語句用于設置對文件“鎖定”；（）語句用于設置對文件“解鎖”。A.EOFLOF、Lock、UnlockB.LOFEOFLock、UnlockC.EOFLOF、Unlock、LockD.LOFEOFUnlock、Lock分析：EOF函數(shù)判斷文件指針是否到了文件結(jié)束標志；LOF函數(shù)返回文件的字節(jié)數(shù)；Lock語句用于設置對文件“鎖定”；Unlock語句用于設置對文件“解鎖”。2.順序文件的讀操作通過下列（A. Input # 和 Read#

11、BC. Get#和 Input # D 分析：Input# 語句和 LineInput#結(jié)論：答案應選A。）語句可以實現(xiàn)。.Read喇Get#.LineInput#和Input#語句實現(xiàn)順序文件的對數(shù)據(jù)的讀操作；隨機文件的讀操作通過Get語句來實現(xiàn)；VB中無Read語句。結(jié)論：答案應選D的正確語句是（）Open "text.dat" For Input As #1Open "text.dat" For Random As #1Open <文件名 > For Input As # < 文3.如果準備讀文件，打開順序文件"text

12、.dat"A.Open"text.dat"ForWriteAs#1BC.Open"text.dat"ForBinaryAs#1D分析：以讀方式打開順序文件的語法格式為：件號。上述選項只有B滿足條件。結(jié)論：答案應為B4.如果準備向隨機文件中寫入數(shù)據(jù)，正確的語句是A. Print#1,recB.Write#1,recC.Put#1,recD.Get#1,rec分析：隨機文件寫操作的語法格式為：Put#文件號，記錄號,變量名上述C選項是正確的。結(jié)論：答案應為C5 .當改變驅(qū)動器列表框中的驅(qū)動器時，為了使目錄列表框中的內(nèi)容同步跟著改變，應當()A.在D

13、ir1_Change()事件中加入代碼Dir1.Path=Drive1.DriveB.在Dir1_Channge()事件中加入代碼Drive1.Drive=Dir1.PathC.在Dirve1_Channge()事件中加入代碼Dir1.Path=Drive1.DriveD.在Dirve1_Channge()事件中加入代碼Drive1.Drive=Dir1.Path分析：當改變驅(qū)動器列表框Drive1中的驅(qū)動器時，就會觸發(fā)channge事件，執(zhí)行Drive1_Change()過程，在過程執(zhí)行時，要使目錄列表框同步顯示選定的驅(qū)動器目錄結(jié)構(gòu)，應將剛選定的驅(qū)動器目錄結(jié)構(gòu)賦給目錄列表框(Dir1)的Pa

14、th屬性。應選C結(jié)論：答案應為C6 .目錄列表框Path屬性的作用是()A.顯示當前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)B.顯示當前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件C.顯示根目錄下的文件名D.顯示路徑下的文件分析：目錄列表框Path屬性的作用是顯示當前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)。結(jié)論：答案應為A7 .在下列選項中，不能將圖像裝入圖片框和圖像框的是()A.在界面設計時，通過Picture屬性裝入8 .在界面設計時，手工在圖像框和圖片框中繪制圖形C.在界面設計時，利用剪貼板把圖像粘貼上D.在程序運行期間，用LoadPicture函數(shù)把圖形文件裝入分析：在設計時，將圖像添加到圖片框和圖像框中有兩種

15、方法：即使用對象的Picture屬性添加圖片；使用剪貼板，將圖形粘貼到對象中。在程序運行時添加圖片通常也有兩種方法，使用LoadPicture函數(shù)加載圖形文件，使用Picture屬性在對象間相互復制。在界面設計時和程序運行期間，均不能手工在圖像框和圖片框中繪制圖形。所以上述選項中，B是錯誤的。結(jié)論：答案應為B9 .下面錯誤的語句是()A. Line(200,200)-(400,400),RGB(255,0,0)B. Line(200,200)-(400,400),BC. Line(200,200)-(400,400),FD. Circle(600,600),300,RGB(255,0,0)分析

16、：Line方法可以畫直線和矩形，Line方法的語法格式為：對象.LineStep(X1,Y1)-StepX2,Y2),Color,BF。A選項畫一條紅色直線。B選項中的B代表畫一個矩形，左上角坐標為(200,200),右下腳坐標為(400,400)。C選項中的F表示矩形的填充顏色，它必須和B同時存在。D選項是畫一個圓心為(600,600),半徑為300的紅色圓。結(jié)論：答案應為C10 下面選項中，能繪制填充矩形的語句是()A. Line(200,200)-(500,500),BB. Line(200,200)-(500,500),BFC. Line(200,200)-(500,500),BFD.

17、 Line(200,200)-(500,500)分析：Line方法語句中可以省略中間參數(shù)，但逗號必須保留。A選項中的B之前少一個逗號，只能畫一條直線。B選項語法正確，能畫一個默認顏色為黑色的填充矩形。C選項中BF之前少一個逗號，只能畫一條直線。D選項畫一條直線。結(jié)論：答案應為B11 .下面選項中，能繪制一條水平直線的選項是()A. Line(1000,2000)-(1000,2000)B. Line(1000,2000)-(1000,3000)C. Line(1000,2000)-(2000,2000)D. Line(1000,2000)-(2000,3000)分析：要繪制一條水平直線，直線兩

18、個端點的丫坐標應該相同，只有C滿足這個條件。結(jié)論：答案應為C12 .下面選項中，能繪制橢圓的語句是()A.Circle(1000,1000),500,RGB(255,0,0),0.5B. Circle(1000,1000),500,RGB(255,0,0),0.5C.Circle(1000,1000),500,RGB(255,0,0),0.5D.Circle(1000,1000),500,RGB(255,0,0),0.5分析：Circle方法的語法格式為：對象.CircleStep(X,Y),radius,color,start,end,aspet語句中除圓心坐標和半徑外，其它參數(shù)均可省略，但

19、其中的逗號必須保留。上述只有C選項滿足題目要求，故選Co結(jié)論：答案應為C12.圖像框(Image)和圖片框(Picture)在使用時有所不同，以下敘述中正確的是()A.圖片框比圖像框占內(nèi)存少B.圖像框內(nèi)還可包括其它控件C.圖片框有Stretch屬性而圖像框沒有D.圖像框有Stretch屬性而圖片框沒有分析：圖像框比圖片框占內(nèi)存少，圖片框可作為其它控件的容器而圖像框不能，圖片框有Autosize屬性而圖彳t框沒有，圖像框有Stretch屬性而圖片框沒有。結(jié)論：答案應為D13 .ADOrs為Recordset對象，從Tabel中獲取所有記錄的語句是()A. ADOrs.New"Selec

20、t*FromTabel"B. ADOrs.Open"Select*FromTabel"C. ADOrs.Execute"Select*FromTabel"D. ADOrs.Select"Select*FromTabel"分析：Execute為執(zhí)行的意思，語句ADOrs.Execute"Select*FromTabel"可以從Tabel中獲取所有記錄。結(jié)論：答案應為C控件的（B. Listen 方法D. GetData 方法Listen方法使服務程序處于偵聽狀態(tài)，等待客戶其中RequestID是客戶機發(fā)來的

21、請求號。GetData14 .要發(fā)送數(shù)據(jù)，通常使用WinsockA.SendData方法C.Accept方法分析：SendData方法用于發(fā)送數(shù)據(jù)。訪問。Accept方法用于接受一個連接請求，方法用來取得接收到的數(shù)據(jù)。結(jié)論：答案應為A15.VB程序中通常不會產(chǎn)生錯誤提示的（）。A.編譯錯誤B.實時錯誤C.運行時錯誤D.邏輯錯誤分析：編譯錯誤多數(shù)是因為不正確的代碼產(chǎn)生的。實時錯誤也稱運行時錯誤，是指應用程序運行期間，一條語句試圖執(zhí)行一條不可能執(zhí)行的操作而產(chǎn)生的錯誤。邏輯錯誤是指程序的運行結(jié)果和程序員的設想有出入時產(chǎn)生的錯誤。這類錯誤并不直接導致程序在編譯期間和運行期間出現(xiàn)錯誤，較難發(fā)現(xiàn)，邏輯錯誤

22、不產(chǎn)生錯誤提示。結(jié)論：答案應為D三、完善程序題1 .已知存在一名為“學生”的SQLServer數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲學生的基本情況信息，包括學號、姓名、籍貫、性別。請編寫一個簡單的應用程序，向students表中添加學生記錄。程序的基本邏輯是：當窗體被加載時，程序聯(lián)接SQLServer數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學號是否重復，如果不重復則向students表中添加學生記錄。其運行界面如圖1所示。圖1程序如下，請補充完整。'聲明對象變量ADOcn,用于創(chuàng)建與數(shù)據(jù)庫的連接PrivateADOcnAsConnectionPrivateSubForm_Loa

23、d()'連接SQLServer數(shù)據(jù)庫DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=1"IfADOcnIsNothingThenSetADOcn=2JADOcn.OpenstrDBEndIfEndSubPrivateSubCommand1_Click()'增加學生記錄DimstrSQLAsStringDimADOrsAs3RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open"Select學號FromStude

24、ntsWhere學號="+"'"+Text1+"'"IfNot4ThenMsgBox徐輸入的學號已存在，不能新增加！”ElseStrSQL="InsertIntostudents(學號，姓名,籍貫，性別)StrSQL=strSQL+Values("+”'"+text1+"'，'"+text2+"'，'"+text3+ADOcn.Execute5MsgBox'添加成功，請繼續(xù)！”EndIfPrivateSubCom

25、mand2_Click()UnloadMeEndSub分析：數(shù)據(jù)庫應用程序的大致框架是(1)聯(lián)接后臺數(shù)據(jù)庫(2)聯(lián)接數(shù)據(jù)庫中的某張表(3)對這張表進行查詢(Select)、插入(Insert)、修改(Update)、刪除(Delete)操作。據(jù)此，根據(jù)題意應首先在窗體的Load事件中編寫連接后臺數(shù)據(jù)庫的事件過程。在Command1_Click()事件過程中，首先連接數(shù)據(jù)庫中的“students”數(shù)據(jù)表，然后進行查詢，查詢結(jié)果用MsgBox給出提示信息，再對"students”數(shù)據(jù)表進行插入(Insert)操作。答案：1學生;2NewConnection3New;4 ADOrs.EOF

26、;5 strSQL;2.在窗體上建立一個驅(qū)動器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運行后，驅(qū)動器列表框Drivel的默認驅(qū)動器設置為D盤，選擇Filel中所列的圖片文件（*.bmp,*.gif和*.jpg），則相應的圖片顯示在圖片框Picturel中，文件的路徑顯示在文本框中。程序運行結(jié)果如圖2所示。|ma：五地磁整口口典典謔旦麗1JSCLIUC3O. TFG,IDlyJDSC0003LJTGD5COOOC32.J1GDSCQ0033.JTG上照片玉淵潭疝$。00030.JTG程序如下，請補充完整。將當前驅(qū)動器設置為D設置文件列表框中可以顯示的文件類型'使Dir1和

27、Drive1同步改變將當前驅(qū)動器顯示在文本框中PrivateSubForm_Load()Drive1.Drive=1File1.Pattern="*.bmp;*.gif;*.jpg"EndSubPrivateSubDrive1_change()Dir1.Path=Drive1.Drive2JEndSubPrivateSubDir1_Change()3'使文件列表框和目錄列表框同步改變Text1.Text=4'將當前目錄的路徑顯示在文本框中EndSubPrivateSubFile1_click()Picture1.Picture=LoadPicture(File1.Path+""+File1.FileName)FileName=File1.Path+""+File1.FileName5'將文件名顯示在文本框中EndSub分析：要在圖片框中顯示圖形文件，首先要使三大文件系統(tǒng)控件同步起來，即文件列表框中顯示的是指定驅(qū)動器的指定目錄下的