最新電大VisualBasic程序設計形考作業(yè)任務0106網(wǎng)考試題及答案

1、最新電大VisualBasic程序設計形考作業(yè)任務01-06網(wǎng)考試題及答案100%通過考試說明：VisualBasic程序設計形考共有6個任務。任務1至任務2是客觀題，其它為主觀題。任務1至任務6需在考試中多次抽取試卷，直到出現(xiàn)01任務_0001、02任務_0001、03任務_0001、04任務_0004、05任務_0001、06任務_0001試卷，就可以按照該套試卷答案答題。做考題時，利用本文檔中的查找工具，把考題中的關(guān)鍵字輸?shù)讲檎夜ぞ叩牟檎覂?nèi)容框內(nèi)，就可迅速查找到該題答案。本文庫還有其他教學考一體化答案，敬請查看。01任務01任務_0001一、單項選擇題（共25道試題，共50分。）1.啟動

2、VB后，就意味著要建立一個新（）。A.窗體B.程序C.文件D.工程2.應用程序打包后，其包文件的后綴為（）。A.exeB.cabC.txtD.ocx3.當一個工程中含有多個窗體時，其中的啟動窗體是（）。A.啟動VB時創(chuàng)建的第一個窗體B.第一個添加的窗體C.最后一個添加的窗體D.在“工程屬性”對話框中指定的窗體4.下列說法中錯誤的是（）。A.應用程序的界面是窗體B.應用程序的界面是對象C.每個應用程序都要生成一個工程D.一個應用程序由若干個VisualBasic文件組成5.每建立一個窗體，工程管理器窗口中就會增加一個（）。A.工程文件B.窗體文件C.標準模塊文件D.類模塊文件6.當運行程序時，系

3、統(tǒng)自動執(zhí)行啟動窗體的（）事件過程。A.LoadB.ClickC.UnloadD.GotFocus7.VB集成開發(fā)環(huán)境中，提供控件的窗口是（）。A.工具欄B.工具箱C.屬性窗口D.工程管理器8.確定一個窗體或控件的大小的屬性是（）。A.Top或LoftB.Top和LoftC.Width或HeightD.Width和Height9.下列關(guān)于窗體的說法不正確的是（）。A.窗體的標題由Caption屬性確定B.窗體的Name屬性與Caption屬性相同C.窗體的背景圖片由其Picture屬性設定D.通過設置Icon屬性可使窗體獲得最小花時的圖標10.在VB中，要想快速獲得某個相關(guān)控件或語句的幫助信息，

4、一般可首先選中該控件或語句，然后按的鍵是（）A.HelpB.F1C.F10D.Enter11.下列關(guān)于屬性設置的敘述錯誤的是（）。A.一個控件具有什么屬性是VisualBasic預先設計好的，用戶不能改變B.一個控件具有什么屬性是VisualBasic預先設計好的，用戶可以改變C.一個控件的屬性既可以在屬性窗口中設置，也可以用程序代碼設置D.一個控件的屬性在屬性窗口中設置后，還可以利用程序代碼為其設置新值12.在界面設計時，雙擊窗體中的對象后，VisualBasic將顯示的窗口是（）。A.立即窗口B.屬性窗口C.代碼窗口D.工程資源管理器窗口13.當使用上下文相關(guān)的幫助時，選擇要幫助的內(nèi)容，然

5、后按（）鍵，就可出現(xiàn)MSDN窗口直接顯示所需的幫助信息。A.HelpB.F10C.EscD.F114.如果想讓文本框中的內(nèi)容在運行時不能編輯，需將文本框的（）屬性設置為True。A.LockedB.MultiLineC.TabStopD.Visible15.在VB6.0集成開發(fā)環(huán)境中，可以（）。A.編輯、調(diào)試、運行程序，但不能生成可執(zhí)行文件B.編輯、生成可執(zhí)行文件，運行程序，但不能調(diào)試程序C.編輯、調(diào)試、生成可執(zhí)行文件，但不能運行程序D.編輯、調(diào)試、運行程序，也能生成可執(zhí)行文件16.VisualBasic應用程序處于執(zhí)行模式時，這時（）。A.既不能設計界面，也不能編寫代碼B.可以編輯代碼，不能

6、設計界面C.可以設計界面，不能編輯代碼D.既能設計界面，也能編寫代碼17.要改變控件的寬度，應該修改控件的（）屬性。A.TopB.LeftC.WidthD.Height18.Timer控件只有一個事件，該事件的名稱是（）A.LoadB.TimerC.ClickD.Run19.要在命令按紐上顯示圖形，應首先設置的屬性是（）A.EnabledB.StyleC.CaptionD.Icon20.后綴為.frm的文件表示VB的（）。A.窗體文件B.類模塊文件C.工程文件D.標準類模塊文件21.無論何種控件，共同具有的屬性是（）A.TextB.NameC.CaptionD.ForeColor22.多窗體程

7、序是由多個窗體組成，在缺省情況下，VB在應用程序執(zhí)行時，總是把（）指定為啟動窗體。A.不包含任何控件的窗體B.設計時的第一個窗體C.包含控件最多的窗體D.命名為Frm1的窗體23.要改變控件的高度，應該修改控件的（）屬性。A.TopB.LeftC.WidthD.Height24.VisualBasic是一種面向?qū)ο蟮某绦蛟O計語言，構(gòu)成對象的三要素是（）。A.屬性、控件和方法B.屬性、事件和方法C.窗體、控件和過程D.控件、過程和模塊25.對于定時器（Timer）控件,設置其定時是否開啟的屬性是（）A.IndexB.TagC.EnabledD.Left二、作品題（共2道試題，共50分。）1.設計

8、一個簡單的倒計時程序，要求：（1）在文本框中輸入倒計時的分鐘數(shù)后，單擊開始按紐就開始倒計時，倒計時結(jié)束時，彈出“時間到”的信息框。程序運行界面如圖5所示：（2）將應用程序打包，并安裝運行。注意：存盤時保存在以學號或姓名命名的文件夾下，工程文件名為vbxk1-05.vbp，窗體文件名為vbxk1-05.frm，文件夾名為vbxk1-05。參考答案：程序代碼如下：DimttAsIntegerPrivateSubCommand1_Click()Label1.Caption=現(xiàn)在開始倒計時Command1.Visible=FalseTimer1.Enabled=Truett=Val(Text1)*60

9、EndSubPrivateSubTimer1_Timer()tt=tt-1Text1=ttIftt=0Thena=MsgBox(時間到!,vbOKOnly,倒計時)Command1.Visible=TrueTimer1.Enabled=FalseEndIfEndSub2.在名稱為Form1的窗體上畫兩個文本框，其名稱分別為Text1和Text2，它們的高、寬分別為300、2400和1200、2400。窗體的標題為“窗口”。請通過屬性窗口設置適當?shù)膶傩詽M足以下要求：1）Text2可以顯示多行文本，且有垂直和水平兩個滾動條；2）運行時在Text1中輸入的字符都顯示為“*”。運行后的窗體如圖1所示。

10、注意：存盤時保存在以學號或姓名命名的文件夾下，工程文件名為vbxk1-01.vbp，窗體文件名為vbxk1-01.frm，文件夾名為vbxk1-01。參考答案：程序代碼如下：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuFormatEndIfEndSubPrivateSubM1_Click()Text1.FontBold=TrueEndSubPrivateSubM2_Click()Text1.FontItalic=TrueEndSubPriv

11、ateSubM3_Click()Text1.FontUnderline=TrueEndSub02任務02任務_0001一、單項選擇題（共25道試題，共50分。）1.能夠?qū)崿F(xiàn)“窗體總在最前端”界面效果的API函數(shù)是（）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI2.在窗體上畫兩個文本框（其Name屬性分別為Text1和Tex12）和一個命令按鈕（其Name屬性為Command1）,然后編寫如下事件過程：PrivateSubCommand1_Click()x=1:n=0DoWhilex100 x=x*10n=n+1LoopTex

12、t1.Text=Str(n)Text2.Text=Str(x)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（）。A.10和0B.2和100C.3和50D.4和1683.下面程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出結(jié)果是（）。Fori=1To10Step2y=y+iNextiPrintiA.25B.10C.11D.因為y的初值不知道，所以不確定4.把字符串型轉(zhuǎn)換為數(shù)值型需要使用的函數(shù)是（）。A.ValB.StrC.AscD.Chr5.以下可以作為VisualBasic變量名的是（）。A.SINB.CO1C.COS（X）D.X（-1）6.可通過設置一普通窗體的何種屬性，將它轉(zhuǎn)變成MD

13、I子窗體（）。A.MDIChild=TrueB.WindowState=NormalC.MDIChild=FalseD.WindowState=Maximized7.下列關(guān)于過程敘述不正確的是（）。A.過程的傳值調(diào)用是將實參的具體值傳遞給形參B.過程的傳址調(diào)用是將實參在內(nèi)存的地址傳遞給形參C.過程的傳值調(diào)用參數(shù)是單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的D.無論過程傳值調(diào)用還是過程傳址調(diào)用，參數(shù)傳遞都是雙向的8.數(shù)學式子Sin30寫成VB表達式是（）。A.Sin30B.Sin（30）C.SIN（30）D.Sin（30*3.14/180）9.“x是小于80的非負數(shù)”，用VB表達式表示正確的是（）

14、。A.0 x80B.0=x80C.0=xAndx80D.0=xOrx4x=x*yy=y+1LoopPrintxA.1B.4C.8D.2025.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（）。A.ValB.StrC.AscD.Chr二、作品題（共2道試題，共50分。）1.創(chuàng)建一個多功能計算器程序，程序運算界面如圖2-6所示。要求：(1)用控件數(shù)組設計數(shù)字按鈕（2）用API函數(shù)實現(xiàn)“總在前面效果”注意：存盤時保存在以學號或姓名命名的文件夾下，工程文件名為vbxk2-03.vbp，窗體文件名為vbxk2-03.frm，文件夾名為vbxk2-03。參考答案：程序代碼如下：OptionExplicitDim

15、i(1To100)AsIntegerPrivateSubCmd1_Click()DimjAsIntegerOpenApp.Path&in.txtForInputAs#1Forj=1To100Input#1,i(j)Text1.Text=Text1.Text&i(j)&Space(5)NextClose#1EndSubPrivateSubCmd2_Click()DimjAsIntegerDimkAsIntegerDimtempAsIntegerDimflagAsBooleanForj=1To100flag=FalseFork=1To100-jIfi(k)0ThenCommand1.Enabled

16、=TrueText1.Text=File1.Path+File1.FileNameDimobjPicAsPictureSetobjPic=LoadPicture(Text1.Text)Picture1.Picture=objPicEndIfEndSubPrivateSubForm_Load()Drive1.Drive=d:Dir1.Path=d:Drive1.DriveDir1.RefreshFile1.Pattern=*.jpg;*.bmp;*.gif|(*.bmp,*.gif,*.jpg)File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()

17、Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub2.利用文件系統(tǒng)控件編寫一個Word文件查找顯示程序，程序運行界面如圖3-2所示。要求：（1）在文件列表框中只顯示后綴為.doc的文件。（2）新創(chuàng)建一個標準工程，并通常“工程部件”菜單項引入“MicrosoftRichTextBoxControl6.0”，將RichTextBox控件添加到工具箱中，用這個控件顯示RTF格式的Word文件。（3）單擊打開按鈕，在文本框中顯示RTF格式的Word文件。注意：存盤時保存在以學號或姓名命名的文件夾下，

18、工程文件名為vbxk3-02.vbp，窗體文件名為vbxk3-02.frm，文件夾名為vbxk3-02。參考答案：程序代碼如下：PrivateSubCommand1_Click()DimwdAppAsNewWord.ApplicationDimwdDocAsWord.DocumentDimstrFileNameAsStringwdApp.Visible=FalsestrFileName=File1.Path+File1.FileNameSetwdDoc=wdApp.Documents.Open(strFileName)wdDoc.SaveAsC:臨時文件.rtf,6wdDoc.ClosewdA

19、pp.QuitRichTextBox1.FileName=C:臨時文件.rtfKillc:臨時文件.rtfEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub04任務04任務_0004一、作品題（共1道試題，共100分。）1.開發(fā)一個如圖4-1所示指針式時鐘程序。要求：（1）要求用Shap控件、Line控件和Label控件設計表盤，用圖形方法動態(tài)生成指針，用時鐘控件控制時鐘的轉(zhuǎn)動。（2）圓形表盤在窗體的中央，其直徑要求與窗體的高度和

20、寬度相等。注意：存盤時保存在以學號或姓名命名的文件夾下，工程文件名為vbxk4-01.vbp，窗體文件名為vbxk4-02.frm，文件夾名為vbxk4-01。參考答案：程序代碼如下：Constpi=3.141592653PrivateSubForm_Load()Form1.Scale(-14,14)-(14,-14)EndSubPrivateSubTimer1_Timer()DimxAsIntegerDimyAsIntegerDimsec,min,hrAsIntegersec=Second(Time)min=Minute(Time)hr=Hour(Time)Form1.ClsForm1.Dr

21、awWidth=2x=9*Sin(sec*pi/30)y=9*Cos(sec*pi/30)Form1.Line(0,0)-(x,y),vbRedForm1.DrawWidth=3x=7*Sin(min*pi/30)y=7*Cos(min*pi/30)Form1.Line(0,0)-(x,y)Form1.DrawWidth=4hr=hr+min/60 x=6*Sin(hr*pi/6)y=6*Cos(hr*pi/6)Form1.Line(0,0)-(x,y)EndSub05任務05任務_0001一、作品題（共1道試題，共100分。）1.開發(fā)一個成績查詢數(shù)據(jù)庫應用程序。它具有數(shù)據(jù)增加（Insert）

22、、修改（Update）、刪除（Delete）和查詢（Select）功能。開發(fā)步驟及要求：準備工作建立名稱為“vbxk5成績查詢”文件夾，在該文件夾下，建立“圖標”文件夾，在其中存入界面設計時所用圖標。開發(fā)過程中的全部文件存放在“vbxk5成績查詢”文件夾中。建立成績查詢數(shù)據(jù)庫用MicrosoftAccess或SQLServer創(chuàng)建一個名稱為“成績”的數(shù)據(jù)庫，其中包含三張數(shù)據(jù)表，即學生成績表、學生情況表、課程情況表，如表53、表54、表55、表56所參考答案：程序代碼如下：-創(chuàng)建數(shù)據(jù)庫；createdatabasestudent;go-使用數(shù)、數(shù)據(jù)庫usestudent;go-創(chuàng)建成績表crea

23、tetablestudentScore(stuidvarchar(10)primarykey,-學號cidvarchar(10),-課程號socrevarchar(20)-成績)go-創(chuàng)建學生情況表createtablestudentStatus(stuidvarchar(10)primarykey,stuNamevarchar(20)go-創(chuàng)建課程情況表createtablecurriculum(cidvarchar(10),cNamevarchar(50)go-添加記錄insertintostudentStatusvalues(001,張紅)goinsertintostudentStatu

24、svalues(002,李強)goinsertintostudentStatusvalues(003,王麗)goinsertintocurriculumvalues(001,數(shù)據(jù)庫原理)goinsertintocurriculum.06任務06任務_0001一、作品題（共1道試題，共100分。）1.程序調(diào)試參考答案：程序代碼如下：（1）根據(jù)如下所給程序代碼進行程序調(diào)試PrivateSubCommand1_Click()EndSub排序按鈕的Click事件PrivateSubCommand2_Click()Dimi,jAsInteger定義數(shù)組，以List1的項目個數(shù)為數(shù)組維數(shù)DimstrLis

25、t(List1.ListCount)AsInteger定義中間臨時變量，用于數(shù)據(jù)交換DimstrTmpAsInteger將List1中的項目導入到strList數(shù)組中Fori=0ToList1.ListCountstrList(i)=List1.List(i)Nexti按“冒泡”算法完成排序工作Fori=0ToUBound(strList)Forj=i+1ToUBound(strList)IfstrList(i)strList(j)ThenstrTmp=strList(i)strList(i)=strList(j)strList(j)=strTmpEndIfNextjNexti將排序結(jié)果輸出到

26、List2中Fori=0ToUBound(strList)List2.AddItemstrList(i)NextiEndSub（2）運行程序，在Text1文本框中輸入一個整數(shù)，比如1，然后點擊“添加”按鈕，此時會出現(xiàn)如圖65所示的錯誤提示。（3）點擊“調(diào)試”按鈕，進入中斷模式，VB編譯器將自動標識出引發(fā)錯誤的語句行。（4）分析錯誤原因，很容易發(fā)現(xiàn)該行語句的正確寫法應該是：（5）修改錯誤后，按F5鍵繼續(xù)執(zhí)行程序。（6）在上述界面上依次輸入以下整數(shù)序列“21，9,8，6”后。（7）點擊“排序”按鈕后，又出現(xiàn)如圖69所示的運行錯誤。（8）點擊“確定”按鈕后，再次進入中斷模式，編譯器以加重的形式指出了引發(fā)錯誤的位置，如圖610所示