2022年VisualBasic程序設(shè)計(jì)典型例題解析

1、學(xué)習(xí)好資料 歡迎下載 VisualBasic 程序設(shè)計(jì)典型例題解析（ 2） 一,填空題 1以次序輸入模式打開“ ”文件的命令是 （1） ；以輸出方式 打開“ ”文件的命令是 （ 2） ； 分析： Print # 語句用于將把數(shù)據(jù)寫入文件中； Print 語句格式為： Open 文件名 For 模式 As # 文件號 “For 模式”為指定打開文件的模式是數(shù)據(jù)的輸入模式仍是輸出模式； 結(jié)論：答案應(yīng)為： （ 1） Open c:source1.txt For Input As #1 （2） Open c:source2.txt For Output As #2 2. 在 Visual Basic

2、中,文件系統(tǒng)控件包括 （ 1） , （ 2） 和文件列表框 （FileListBox ）；三者協(xié)同操作可以拜望任意位置的目錄和文件, 可以進(jìn)行文件系統(tǒng)的人機(jī) 交互治理； 分析：在 Visual Basic 中,文件系統(tǒng)控件包括驅(qū)動器列表框（ DriveListBox）,目錄列 表框（ DirListBox ）和文件列表框（ FileListBox）；驅(qū)動器列表框可以選擇或設(shè)置一個(gè)驅(qū)動 器,目錄列表框可以查找或設(shè)置指定驅(qū)動器中的目錄, 文件列表框可以查找指定驅(qū)動器指定 目錄中文件信息, 三者協(xié)同操作可以拜望任意位置的目錄和文件, 交互治理； 可以進(jìn)行文件系統(tǒng)的人機(jī) 結(jié)論：答案應(yīng)為： （ 1）驅(qū)動

3、器列表框（ DriveListBox ）（ 2）目錄列表框（ DirListBox ） 3每次重新設(shè)置驅(qū)動器列表框的 Drive 屬性時(shí),都將引發(fā) （ 1） 大事；可在該 大事過程中編寫代碼修改目錄列表框的路徑,使目錄列表框內(nèi)容隨之發(fā)生轉(zhuǎn)變； 分析：在 Visual Basic 中,每次重新設(shè)置驅(qū)動器列表框的 Drive 屬性時(shí),都將引發(fā) Change 大事；可在 Change 大事過程中編寫代碼修改目錄列表框的路徑,使目錄列表框內(nèi)容隨之發(fā) 生轉(zhuǎn)變；驅(qū)動器列表框的默認(rèn)名稱為 Drive1,其 Change 大事過程的開頭Drive1_Change ； 結(jié)論：答案應(yīng)為： （ 1） Change

4、為 （ 1） 的頂層目錄 4目錄列表框用來顯示當(dāng)前驅(qū)動器下目錄結(jié)構(gòu)；剛建立時(shí)顯示 和當(dāng)前目錄, 假如要顯示其他驅(qū)動器上的目錄信息, 的 （ 2） 屬性； 必需轉(zhuǎn)變路徑, 即重新設(shè)置目錄列表框 分析：在 Visual Basic 中,目錄列表框用來顯示當(dāng)前驅(qū)動器下目錄結(jié)構(gòu)；剛建立時(shí)顯 示當(dāng)前驅(qū)動器的頂層目錄和當(dāng)前目錄, 假如要顯示其他驅(qū)動器上的目錄, 必需轉(zhuǎn)變路徑, 即 重新設(shè)置目錄列表框的 Path 屬性； 結(jié)論：答案應(yīng)為： （ 1）當(dāng)前驅(qū)動器（ 2） Path 5對驅(qū)動器列表框來說, 每次重新設(shè)置驅(qū)動器列表框的 （ 1） 屬性時(shí),將引發(fā) Change 大事；對目錄列表框來說,當(dāng) （ 2） 屬

5、性值轉(zhuǎn)變時(shí),將引發(fā) Change 大事；對于文件 列表框,重新設(shè)置的 （ 3） 屬性,將引發(fā) Change 大分析：在 Visual Basic 中,對驅(qū)動器列表框來說,每次重新設(shè)置驅(qū)動器列表框的 事； Drive 屬 第 1 頁,共 10 頁學(xué)習(xí)好資料 歡迎下載 性時(shí),將引發(fā) Change 大事；對于目錄列表框和文件列表框轉(zhuǎn)變路徑,即重新設(shè)置列表框的 Path 屬性,將引發(fā) Change 大事； 結(jié)論：答案應(yīng)為： （ 1） Drive （ 2） Path （ 3） Path 6以下程序段簡要說明驅(qū)動器列表框, 將程序段補(bǔ)充完整； Private Sub Drive1_Change （1） E

6、nd Sub Private Sub Dir1_Change （2） End Sub 目錄列表框及文件列表框三者協(xié)同工作的情形； 分析： 第一設(shè)置目錄列表路徑隨驅(qū)動器列表路徑轉(zhuǎn)變而轉(zhuǎn)變： 每當(dāng)轉(zhuǎn)變驅(qū)動器列表框的 Drive 屬性時(shí),將產(chǎn)生驅(qū)動器列表框的 Change 大事,執(zhí)行 Drive1_Change 大事過程,使驅(qū) 動器列表框和目錄列表框同步,即將目錄列表框中的目錄（ Dir1.Path 屬性）變?yōu)樵擈?qū)動器 的目錄（ Drive1.Drive 屬性）；然后,設(shè)置文件列表路徑隨目錄列表路徑轉(zhuǎn)變而轉(zhuǎn)變：當(dāng)目 錄列表框 Path 屬性的轉(zhuǎn)變時(shí), 將產(chǎn)生目錄列表框的 Change 大事,執(zhí)行 D

7、ir1_Change 大事過 程,使目錄列表框和文件列表框同步,即在文件列表框（ 屬性）中顯示目錄驅(qū) 動器所指目錄下的文件信息（ Dir1.Path 屬性）；這樣三個(gè)文件系統(tǒng)控件就協(xié)同工作了； 結(jié)論：答案應(yīng)為： （ 1） （ 2） 7. 為了在運(yùn)行時(shí)把當(dāng)前路徑下的圖形文件 使用的語句為 （ 1） ； 裝入圖片框 Picture1 ,所 分析：可以使用 LoadPicture 語句,必需先確定圖片的位置,在本例中路徑為當(dāng)前路徑 可以接受默認(rèn)路徑；也可以在 Picture1 的 Picture 屬性中直接設(shè)置打開文件對話框,在對 話框中選擇圖片進(jìn)行設(shè)置； 結(jié)論：答案應(yīng)為： Picture1. Pi

8、cture = LoadPrcture “pic ture ” 8. 窗體 Form1 的左上角坐標(biāo)為（ 0,600 ）窗體 Form1 的右下角坐標(biāo)為（ 800,-200）；X 軸的正向向 （ 1） , Y 軸的正向向 （ 2） ； 分析：窗體右下角坐標(biāo)為負(fù)值,說明 Y 軸的正向向上； 結(jié)論：答案應(yīng)為： （ 1 ）右 （ 2 ）上 9. 執(zhí)行指令 Line200,200,-Step500,500, 后, CurrentX ； 分析：語句中 Step500,500 的意思是相對于當(dāng)前點(diǎn)（ 200 ,200 ）的坐標(biāo),就當(dāng)前坐標(biāo) CurrentX 700 ； 結(jié)論：答案應(yīng)為 700 10 . 執(zhí)

9、行指令 Line200,200,-500,500, 后, CurrentX ； 分析：語句中 500,500 即為當(dāng)前點(diǎn)坐標(biāo), CurrentX 500 ； 結(jié)論：答案應(yīng)為 500 11. 要使圖像框能夠自動調(diào)整大小以適應(yīng)其中的圖形,應(yīng)將圖像框 屬性設(shè) 置為 ； 第 2 頁,共 10 頁學(xué)習(xí)好資料 歡迎下載 分析： Stretch 屬性設(shè)置為 False 時(shí),圖像框可自動轉(zhuǎn)變大小以適應(yīng)其中的圖形,設(shè)置 為 True 時(shí),加載到圖像框的圖形可自動調(diào)整尺寸以適應(yīng)圖像框的大?。?結(jié)論：答案應(yīng)為（ 1） Stretch （2） False 12 .ADO 模型中一般可通過 Connection 對象的

10、 （ 1） 方法執(zhí)行增加, 刪除,修改操作；使用 ADO 模型時(shí),建Recordset 和 Connection 對象連接的屬性是 （2） 立 或 協(xié)議的通訊協(xié)議； 分析：應(yīng)記住 ； 結(jié)論： Execute ActiveConnection 13 .Winsock 控件主要用來編制 TCP/IP 分析：應(yīng)記住 結(jié)論： UDP 中設(shè)置斷點(diǎn)的按鍵是 ,逐語句調(diào)試的語句是 ； 結(jié)論：答案應(yīng)為 F9 F8 15. On Error Resume Next 語句表示：當(dāng)發(fā)生錯(cuò)誤時(shí), VB 程序?qū)⒑鲆曇l(fā)錯(cuò)誤的語 句,并 ； 結(jié)論：連續(xù)執(zhí)行下一條語句； 二,選擇題 1.（ ）函數(shù)判定文件指針是否到了文件終

11、止標(biāo)志； （ ）函數(shù)返回文件的字節(jié)數(shù)； （ ） 語句用于設(shè)置對文件“鎖定” ；（ ）語句用于設(shè)置對文件“解鎖” ； A EOF, LOF, Lock, Unlock B LOF, EOF, Lock , Unlock Lock C EOF, LOF, Unlock , Lock D LOF, EOF, Unlock , Lock 分析：EOF 函數(shù)判定文件指針是否到了文件終止標(biāo)LOF 函數(shù)返回文件的字節(jié)語句用于設(shè)置對文件“鎖定” ； Unlock 語句用于設(shè)置對文件“解鎖” ； 志； 數(shù)； 結(jié)論：答案應(yīng)選 A； 2次序文件的讀操作通過以下（ ）語句可以實(shí)現(xiàn)； A Input # 和 Read#

12、 B Read#和 Get# C Get# 和 Input # D LineInput # 和 Input # 分析： Input# 語句和 LineInput# 語句實(shí)現(xiàn)次序文件的對數(shù)據(jù)的讀操作；隨機(jī)文件的讀 操作通過 Get 語句來實(shí)現(xiàn)； VB 中無 Read 語句； 結(jié)論：答案應(yīng)選 D； 3假如預(yù)備讀文件,打開次序文件 text.dat 的正確語句是（ ） 文 A Opentext.datFor Write As #1B Open text.dat For Input As #1 C Open text.dat For Binary As #1 D Open text.dat For R

13、andom As #1Open For Input As # ；上述選項(xiàng)只有 B 中意條件； 結(jié)論：答案應(yīng)為 B 4. 假如預(yù)備向隨機(jī)文件中寫入數(shù)據(jù),正確的語句是（ ） 第 3 頁,共 10 頁A Print #1, rec 學(xué)習(xí)好資料 歡迎下載 B Write #1, rec C Put #1, , rec DGet #1, , rec 分析：隨機(jī)文件寫操作的語法格式為： 上述 C 選項(xiàng)是正確的； 結(jié)論：答案應(yīng)為 CPut#, 記錄號 , 5. 當(dāng)轉(zhuǎn)變驅(qū)動器列表框中的驅(qū)動器時(shí),為了使目錄列表框中的內(nèi)容同步跟著轉(zhuǎn)變,應(yīng)當(dāng) （ ） A在 Dir1_Change 大事中加入代碼 B 在 Dir1_

14、Channge 大事中加入代碼 C在 Dirve1_Channge 大事中加入代碼 D在 Dirve1_Channge 大事中加入代碼 分析：當(dāng)轉(zhuǎn)變驅(qū)動器列表框 Drive1 中的驅(qū)動器時(shí),就會觸發(fā) channge 大事,執(zhí)行 Drive1_Change 過程 , 在過程執(zhí)行時(shí), 要使目錄列表框同步顯示選定的驅(qū)動器目錄結(jié)構(gòu), 應(yīng) 將剛選定的驅(qū)動器目錄結(jié)構(gòu)賦給目錄列表框（ 結(jié)論：答案應(yīng)為 CDir1 ）的 Path 屬性；應(yīng)選 C6. 目錄列表框 Path 屬性的作用是（ ） A顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu) B顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件 C顯示根目錄下的文件名 D顯示

15、路徑下的文件 分析：目錄列表框 Path 屬性的作用是顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)； 結(jié)論：答案應(yīng)為 A 7. 在以下選項(xiàng)中,不能將圖像裝入圖片框和圖像框的是（ ） A在界面設(shè)計(jì)時(shí),通過 Picture 屬性裝入 B在界面設(shè)計(jì)時(shí),手工在圖像框和圖片框中繪制圖形 C在界面設(shè)計(jì)時(shí),利用剪貼板把圖像粘貼上 D在程序運(yùn)行期間,用 LoadPicture 函數(shù)把圖形文件裝入 分析：在設(shè)計(jì)時(shí), 將圖像添加到圖片框和圖像框中有兩種方法： 即 使用對象的 Picture 屬性添加圖片； 使用剪貼板, 將圖形粘貼到對象中； 在程序運(yùn)行時(shí)添加圖片通常也有兩種 方法, 使用 LoadPicture 函數(shù)加

16、載圖形文件, 使用 Picture 屬性在對象間相互復(fù)制；在 界面設(shè)計(jì)時(shí)和程序運(yùn)行期間,均不能手工在圖像框和圖片框中繪制圖形；所以上述選項(xiàng)中, B 是錯(cuò)誤的； 結(jié)論：答案應(yīng)為 B 8. 下面錯(cuò)誤的語句是（ ） A Line 200, 200-400, 400, RGB255, 0, 0 B Line 200, 200-400, 400, , B C Line 200, 200-400, 400, , F D Circle 600, 600, 300, RGB255, 0, 0 分析： Line 方法可以畫直線和矩形, Line 方法的語法格式為： 對象 .LineStep X1,Y1- Ste

17、p X2,Y2 ,Color,BF ； A 選項(xiàng)畫一條紅色直線； B 選項(xiàng)中的 B 代表畫一個(gè) 第 4 頁,共 10 頁學(xué)習(xí)好資料 歡迎下載 矩形,左上角坐標(biāo)為（ 200, 200）,右下腳坐標(biāo)為（ 400, 400）； C 選項(xiàng)中的 F 表示矩形的填 充顏色,它必需和 B 同時(shí)存在； D 選項(xiàng)是畫一個(gè)圓心為（ 600,600）,半徑為 300的紅色圓； 結(jié)論：答案應(yīng)為 C9下面選項(xiàng)中,能繪制填充矩形的語句是（ ） A Line 200, 200-500, 500,B B Line 200, 200-500, 500, , BF C Line 200, 200-500, 500, BF D L

18、ine 200, 200-500, 500 分析： Line 方法語句中可以省略中間參數(shù), 但逗號必需保留； A 選項(xiàng)中的 B 之前少一個(gè) 逗號,只能畫一條直線； B 選項(xiàng)語法正確,能畫一個(gè)默認(rèn)顏色為黑色的填充矩形； C 選項(xiàng)中 BF 之前少一個(gè)逗號,只能畫一條直D 選項(xiàng)畫一條直線； 線； 結(jié)論：答案應(yīng)為 B 10. 下面選項(xiàng)中,能繪制一條水平直線的選項(xiàng)是（ ） A Line 1000, 2022-1000, 2022 B Line 1000, 2022-1000, 3000 C Line 1000, 2022-2022, 2022 D Line 1000, 2022-2022, 3000 分

19、析：要繪制一條水平直線,直線兩個(gè)端點(diǎn)的 Y 坐標(biāo)應(yīng)當(dāng)相同,只有 C 中意這個(gè)條件； 結(jié)論：答案應(yīng)為 C11. 下面選項(xiàng)中,能繪制橢圓的語句是（ ） A Circle 1000, 1000,500,RGB255,0,0,0.5 B Circle 1000, 1000,500,RGB255,0,0,0.5 C D 分析： Circle 方法的語法格式為： 對象 .CircleStepX,Y,radius,color,start,end,aspet 語句中除圓心坐標(biāo)和半徑外,其它參數(shù)均可省略,但其中的逗號必需保留；上述只有 C選項(xiàng)中意題目要求,應(yīng)選 C； 結(jié)論：答案應(yīng)為 C12.圖像框（Image）

20、和圖片框（Picture ）在使用時(shí)有所不同, 以下表達(dá)中正確選項(xiàng) （ ） A圖片框比圖像框占內(nèi)存少 B圖像框內(nèi)仍可包括其它控件 C圖片框有 Stretch 屬性而圖像框沒有 D圖像框有 Stretch 屬性而圖片框沒有 分析： 圖像框比圖片框占內(nèi)存少, 圖片框可作為其它控件的容器而圖像框不能, 圖片框 有 Autosize 屬性而圖像框沒有 , 圖像框有 Stretch 屬性而圖片框沒有； 結(jié)論：答案應(yīng)為 D13.ADOrs 為 Recordset 對象,從 Tabel 中獵取全部記錄的語句是（ ） A ADOrs.New Select * From Tabel 第 5 頁,共 10 頁學(xué)習(xí)

21、好資料 歡迎下載 B ADOrs.Open Select * From Tabel C ADOrs.Execute Select * From TabelD ADOrs. Select Select * From Tabel 分析：Execute 為執(zhí)行的意思, 語句 Select * From Tabel 可以從 Tabel 中獵取全部記錄； 結(jié)論：答案應(yīng)為 C14. 要發(fā)送數(shù)據(jù),通常使用 Winsock 控件的（ ） A SendData 方法 B Listen 方法 CAccept 方法 D GetData 方法 分析： SendData 方法用于發(fā)送數(shù)據(jù)； Listen 方法使服務(wù)程序

22、處于偵聽狀態(tài),等待客戶 拜望；Accept 方法用于接受一個(gè)連接請求,其中 RequestID 是客戶機(jī)發(fā)來的請求號； GetData 方法用來取得接收到的數(shù)據(jù)； 結(jié)論：答案應(yīng)為 A 15. VB 程序中通常不會產(chǎn)生錯(cuò)誤提示的（ ）； A 編譯錯(cuò)誤 B 實(shí)時(shí)錯(cuò)誤 C 運(yùn)行時(shí)錯(cuò)誤 D 規(guī)律錯(cuò)誤 分析： 編譯錯(cuò)誤多數(shù)是由于不正確的代碼產(chǎn)生的； 實(shí)時(shí)錯(cuò)誤也稱運(yùn)行時(shí)錯(cuò)誤, 是指應(yīng)用 程序運(yùn)行期間, 一條語句試圖執(zhí)行一條不行能執(zhí)行的操作而產(chǎn)生的錯(cuò)誤； 規(guī)律錯(cuò)誤是指程序 的運(yùn)行結(jié)果和程序員的設(shè)想有出入時(shí)產(chǎn)生的錯(cuò)誤； 這類錯(cuò)誤并不直接導(dǎo)致程序在編譯期間和 運(yùn)行期間顯現(xiàn)錯(cuò)誤,較難發(fā)覺,規(guī)律錯(cuò)誤不產(chǎn)生錯(cuò)誤提示；

23、 結(jié)論：答案應(yīng)為 D三,完善程序題 1已知存在一名為“同學(xué)”的 SQL Server 數(shù)據(jù)庫,其中的“ students ”數(shù)據(jù)表用來存 儲同學(xué)的基本情形信息,包括學(xué)號,姓名,籍貫,性別；請編寫一個(gè)簡潔的應(yīng)用程序,向 students 表中添加同學(xué)記錄；程序的基本規(guī)律是：當(dāng)窗體被加載時(shí),程序聯(lián)接 SQL Server 數(shù)據(jù)庫；當(dāng)點(diǎn)擊“增加”按鈕時(shí),第一查詢學(xué)號是否重復(fù),假如不重復(fù)就向 students 表中 添加同學(xué)記錄；其運(yùn)行界面如圖 1 所示； 圖 1 第 6 頁,共 10 頁學(xué)習(xí)好資料 歡迎下載 程序如下,請補(bǔ)充完整； 聲明對象變量 ADOcn ,用于創(chuàng)建與數(shù)據(jù)庫的連接 Private

24、ADOcn As Connection Private Sub Form_Load 連接 SQL Server 數(shù)據(jù)庫 Dim strDB As String strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn =2 strDB End If End Sub Private Sub Command1_Click 增加同學(xué)記錄 Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConne

25、ction=ADOcn ADOrs.Open “ Select 學(xué)號 From Students Where If Not 4 Then 學(xué)號 =” +” “ +Text1+ ” “ MsgBox “你輸入的學(xué)號已存在,不能新增加！ ” Else StrSQL= ” Insert Into students 學(xué)號 ,姓名 ,籍貫 , 性別 StrSQL=strSQL+Values ” +” “ +text1+ ” , “ +text2+ ” , “ +text3+ ” , 5 MsgBox “添加成功,請連續(xù)！ ” End If Private Sub Command2_Click Unloa

26、d MeEnd Sub 分析： 數(shù)據(jù)庫應(yīng)用程序的大致框架是 1 聯(lián)接后臺數(shù)據(jù)庫 2 聯(lián)接數(shù)據(jù)庫中的某張表 3 對這張表進(jìn)行查詢 Select ,插入 Insert ,修改 Update ,刪除 Delete 操作； 據(jù)此,依據(jù)題意應(yīng)第一在窗體的 Load 大事中編寫連接后臺數(shù)據(jù)庫的大事過程；在 Command1_Click 大事過程中,第一連接數(shù)據(jù)庫中的“ students ”數(shù)據(jù)表,然后進(jìn)行查詢, 查詢結(jié)果用 MsgBox 給出提示信息,再對“ students ”數(shù)據(jù)表進(jìn)行插入 Insert 操作； 答案： 1 同學(xué)； 2New Connection 第 7 頁,共 10 頁學(xué)習(xí)好資料 歡

27、迎下載 3New ； 4 ADOrs.EOF ； 5 strSQL ； 2在窗體上建立一個(gè)驅(qū)動器列表框,目錄列表框,文件列表框,圖片框,文本框；要 求程序運(yùn)行后,驅(qū)動器列表框 Drive1 的默認(rèn)驅(qū)動器設(shè)置為 D 盤,選擇 File1 中所列的圖片 文件（ *.bmp,*.gif 和 *.jpg ）,就相應(yīng)的圖片顯示在圖片框 框中；程序運(yùn)行結(jié)果如圖 2 所示； 圖 2程序如下,請補(bǔ)充完整； Private Sub Form_Load Picture1 中,文件的路徑顯示在文本 = 1 將當(dāng)前驅(qū)動器設(shè)置為 DFile1.Pattern = *.bmp;*.gif;*.jpg End Sub Pr

28、ivate Sub Drive1_change設(shè)置文件列表框中可以顯示的文件類型 Dir1.Path = 2 使 Dir1 和 Drive1 同步轉(zhuǎn)變 將當(dāng)前驅(qū)動器顯示在文本框中 End Sub Private Sub Dir1_Change3 4 使文件列表框和目錄列表框同步轉(zhuǎn)變 Text1.Text = 將當(dāng)前目錄的路徑顯示在文本框中 End Sub Private Sub File1_click Picture1.Picture = LoadPictureFile1.Path + + File1.FileNameFileName = File1.Path + + 5 將文件名顯示在文本框中 End Sub 第 8 頁,共 10 頁學(xué)習(xí)好資料 歡迎下載 即文件列