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

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

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

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

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

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

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

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

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

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

10、注意：存盤時(shí)保存在以學(xué)號或姓名命名的文件夾下，工程文件名為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任務(wù)02任務(wù)_0001一、單項(xiàng)選擇題（共25道試題，共50分。）1.能夠?qū)崿F(xiàn)“窗體總在最前端”界面效果的API函數(shù)是（）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI2.在窗體上畫兩個(gè)文本框（其Name屬性分別為Text1和Tex12）和一個(gè)命令按鈕（其Name屬性為Command1）,然后編寫如下事件過程：PrivateSubCommand1_Click()x=1:n=0DoWhilex100 x=x*10n=n+1LoopTex

12、t1.Text=Str(n)Text2.Text=Str(x)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（）。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àn)閥的初值不知道，所以不確定4.把字符串型轉(zhuǎn)換為數(shù)值型需要使用的函數(shù)是（）。A.ValB.StrC.AscD.Chr5.以下可以作為VisualBasic變量名的是（）。A.SINB.CO1C.COS（X）D.X（-1）6.可通過設(shè)置一普通窗體的何種屬性，將它轉(zhuǎn)變成MD

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

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)建一個(gè)多功能計(jì)算器程序，程序運(yùn)算界面如圖2-6所示。要求：(1)用控件數(shù)組設(shè)計(jì)數(shù)字按鈕（2）用API函數(shù)實(shí)現(xiàn)“總在前面效果”注意：存盤時(shí)保存在以學(xué)號或姓名命名的文件夾下，工程文件名為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)控件編寫一個(gè)Word文件查找顯示程序，程序運(yùn)行界面如圖3-2所示。要求：（1）在文件列表框中只顯示后綴為.doc的文件。（2）新創(chuàng)建一個(gè)標(biāo)準(zhǔn)工程，并通?！肮こ滩考辈藛雾?xiàng)引入“MicrosoftRichTextBoxControl6.0”，將RichTextBox控件添加到工具箱中，用這個(gè)控件顯示RTF格式的Word文件。（3）單擊打開按鈕，在文本框中顯示RTF格式的Word文件。注意：存盤時(shí)保存在以學(xué)號或姓名命名的文件夾下，

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:臨時(shí)文件.rtf,6wdDoc.ClosewdA

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

20、寬度相等。注意：存盤時(shí)保存在以學(xué)號或姓名命名的文件夾下，工程文件名為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任務(wù)05任務(wù)_0001一、作品題（共1道試題，共100分。）1.開發(fā)一個(gè)成績查詢數(shù)據(jù)庫應(yīng)用程序。它具有數(shù)據(jù)增加（Insert）

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

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

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

25、t(List1.ListCount)AsInteger定義中間臨時(shí)變量，用于數(shù)據(jù)交換DimstrTmpAsInteger將List1中的項(xiàng)目導(dǎo)入到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）運(yùn)行程序，在Text1文本框中輸入一個(gè)整數(shù)，比如1，然后點(diǎn)擊“添加”按鈕，此時(shí)會出現(xiàn)如圖65所示的錯(cuò)誤提示。（3）點(diǎn)擊“調(diào)試”按鈕，進(jìn)入中斷模式，VB編譯器將自動標(biāo)識出引發(fā)錯(cuò)誤的語句行。（4）分析錯(cuò)誤原因，很容易發(fā)現(xiàn)該行語句的正確寫法應(yīng)該是：（5）修改錯(cuò)誤后，按F5鍵繼續(xù)執(zhí)行程序。（6）在上述界面上依次輸入以下整數(shù)序列“21，9,8，6”后。（7）點(diǎn)擊“排序”按鈕后，又出現(xiàn)如圖69所示的運(yùn)行錯(cuò)誤。（8）點(diǎn)擊“確定”按鈕后，再次進(jìn)入中斷模式，編譯器以加重的形式指出了引發(fā)錯(cuò)誤的位置，如圖610所示